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 13fc533..53a181d 100644 --- a/README.md +++ b/README.md @@ -1,20 +1,374 @@ -# 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. -# Todo: +# Changelog - Patch 56.0.0 + +* Commands: + * @SystemMessage: File and directory paths in SystemMessages are now links. + * @TagXXX Instructions are now executed if there is no @ShowTaggedImage present in the given Script Line. Since both are marked as obsolete, a warning will appear in the chat window. + +* Command Filters: + + +* Bugfixes: + * @DayOfWeek: 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, if you use a number as parameter. + * Added MultipleEdges to StopEverything() since it caused a script freeze when @InterruptLongEdge was called. It was unresolvable using the "CBT-Trick". + * 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 an Argument Exception bug, if the Variable SYS_WakeUp is not present. + * #DateDiffernce displays now the correct amount of weeks, if the interval is set to "Week". + * @ChangeVar will no longer throw an exception if you try to divide by zero. In that case it will divide by 1 and display a warning. + * If reading a date from a variable fails, it will no longer throw an exception. + * Fixes issue if TTS is activated and 2 or more vocab errors appeared within a single line. In that case TTS did ignore only the last error. Now all HTML-Tags within a line are ignored. + +* Miscellaneous: + + * Reworked Glitter app to use proper html and CSS. It is now possible to reference relative image paths. If a feed is running a script file 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 (0b1ecab330188f5c8cecbe22e536f0827b4127bd) 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. + * Reworked chat window html code: + * It uses now valid html and CSS. + * 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 to 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 the last element in id "Chat" and display it. + * It is now possible to customize the style of the chat using a customized CSS-file. Hint: there will be changes in the future to enhance the chat functionality! So don't rush things and wait some time before customizing. ;-) + * TAI is able to display Warnings as well. The visibility of Warning and Error Messages can be turned off using the settings menu. + * All file paths in Exceptions, Warnings, SystemMessages and the "@" input messages are now links. If you click a link it will open it using your systems default program. + * 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. + * All Variables related Code has been rewritten to use the same internal functions. + * It includes a directory check, and the folder will be created if necessary. + * If parsing a date failed it will no longer cause an exception. You will get a wrong result, but without an exception. + * Directories are now sorted logically. + * The splash screen is now set as Splash screen and updated thread safe. + * Redundant Code for PetName TextBoxes merged together. + * The Terms and Conditions Form is now used as dialog instead of opening it and waiting for an action to happen. + * TxtReadLine(string) is now internally using Txt2List(string) in order to use the TextFileChache. This should improve response time. + * The Function DomResponse() was checking for system response keyfiles and the vocabulary keyphrases more often as necessary. This way it took forever to process if there was a task or CBT running and you entered a simple "Yes". The same slow process was going on, if you entered text that didn't trigger something. + * Reworked PoundClean(String): + * Changed Signature to PoundClean(String, Option, Integer) + * Added a nesting restriction when processing vocabulary keyphrases. The maximum allowed nesting depth when processing vocabularies is 5. + * Removed variables in the session state to control processing. + * Functional Code is now within a Try-Catch-Block. + * The function will print errors and warnings to the chat window. + * Clean up of Class Session State. Stored Sessions from previous versions are no longer compatible. Now it has a Version Check included, to prevent opening a session from a previous version. + * Added the possibility to print CSS compliant inline errors and warnings to the chat. + + +# Changelog - Patch 55.3.0 + + Not all Changes have been tracked. + +* 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: + + 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" + + * @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])] + * 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 + * Custom1 and Custom2 glitter settings now save correctly + +* Miscellaneous: + + * 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 + +* 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 a 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 + +* 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) + * 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) + +* Miscellaneous: -Stefaf: Integration of Class myDirectory: Status ongoing. - Testrun to sort Lists like Win-Explorer: initialized in v0.54.5.1 + * Filtering process optimized to work in one pass instead of three (dariobrun) + + +# 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 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. 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) + + * 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 + + * @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) + * #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: + + * 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) + * 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 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) + * 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) + * 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\*]. 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) + * 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 + +* 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) + * 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) + * 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. + * 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 + + * 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: + * @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 - 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) + * 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) + * Changed the message displayed after unpacking an AI Box -# 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 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(). + * 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(). 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 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. @@ -23,15 +377,22 @@ 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! + * 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: -* DommeTag alternation is causing nonsense most of the time. -* Texted imagetags are not working. +* 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/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 7de6aa2..4ba9457 100644 --- a/Tease AI/Classes/Common.vb +++ b/Tease AI/Classes/Common.vb @@ -30,7 +30,7 @@ Public Class Common Shared _synclockTxtCache As New Object ''' - ''' A Dictionary containing all textfiles read by txt3List(string) + ''' A Dictionary containing all textfiles read by Txt2List(string) ''' Private Shared Property TxtCache As Dictionary(Of String, List(Of String)) Get @@ -123,32 +123,32 @@ Public Class Common ''' ''' Reads a TextFile into a generic List(of String). EmptyLines are removed from the list. ''' - ''' The Filepath to read. + ''' The Filepath to read. ''' A List(of String) containing all Lines of the given File. Returns ''' an empty List if the specified file doesn't exists, or an exception occurs. ''' This Method will create the given DirectoryStructure for the given ''' Filepath if it doesn't exist. - Friend Shared Function Txt2List(ByVal GetText As String) As List(Of String) + Friend Shared Function Txt2List(ByVal filepath As String) As List(Of String) #If TRACE Then Dim TS As New TraceSwitch("TxtCache", "") #End If Try - If GetText Is Nothing Then + If filepath Is Nothing Then Throw New ArgumentNullException("The given filepath was NULL.") End If - If GetText Is Nothing Or GetText = "" Then - Throw New ArgumentException("The given filepath was empty """ & GetText & """") + If filepath Is Nothing Or filepath = "" Then + Throw New ArgumentException("The given filepath was empty """ & filepath & """") End If Dim TextList As New List(Of String) - If TxtCache.Keys.Contains(GetText.ToLower) Then + If TxtCache.Keys.Contains(filepath.ToLower) Then #If TRACE Then - If TS.TraceInfo Then Trace.WriteLine("Loading cached Text-File: " & GetText, "TxtCache") + If TS.TraceInfo Then Trace.WriteLine("Loading cached Text-File: " & filepath, "TxtCache") #End If - Txt2List = TxtCache(GetText.ToLower).ToList + Txt2List = TxtCache(filepath.ToLower).ToList Exit Function 'Return TxtCache(GetText.ToLower).ToList @@ -159,13 +159,13 @@ Public Class Common ' Check if the given Directory exists. MyDirectory.Exists will ' try to create the directory, if it's an App-sub-dir. - If myDirectory.Exists(Path.GetDirectoryName(Path.GetFullPath(GetText))) Then + If myDirectory.Exists(Path.GetDirectoryName(Path.GetFullPath(filepath))) Then #If TRACE Then - If TS.TraceInfo Then Trace.Write("Reading Text-File: " & GetText, "TxtCache") + If TS.TraceInfo Then Trace.Write("Reading Text-File: " & filepath, "TxtCache") #End If - If File.Exists(GetText) Then + If File.Exists(filepath) Then - Using TextReader As New StreamReader(GetText) + Using TextReader As New StreamReader(filepath) While TextReader.Peek <> -1 TextList.Add(TextReader.ReadLine()) @@ -174,22 +174,22 @@ Public Class Common ' Remove all empty Lines from list. TextList.RemoveAll(Function(x) x = "") - TxtCache.Add(GetText.ToLower, TextList.ToList) + TxtCache.Add(filepath.ToLower, TextList.ToList) - createFileSystemWatcher(GetText) + createFileSystemWatcher(filepath) Return TextList End Using Else - Throw New FileNotFoundException("Can't locate the file: """ & GetText & """") + Throw New FileNotFoundException("Can't locate the file: """ & filepath & """") End If Else - Throw New DirectoryNotFoundException("Can't locate the directory """ & Path.GetDirectoryName(GetText) & """") + Throw New DirectoryNotFoundException("Can't locate the directory """ & Path.GetDirectoryName(filepath) & """") End If Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(ex.Message, ex, "Error loading TextFile: """ & GetText & """") + Log.WriteError(ex.Message, ex, "Error loading TextFile: """ & filepath & """") End Try Return New List(Of String) End Function @@ -198,37 +198,40 @@ Public Class Common ''' ''' Reads the First line of the given textfile. ''' - ''' On success the first line as string. Otherwise an + ''' On success the first line as string. Otherwise an ''' empty String. ''' - Friend Shared Function TxtReadLine(ByVal GetText As String) As String + Friend Shared Function TxtReadLine(ByVal filePath As String) As String Try - If GetText Is Nothing Then + Return Txt2List(filePath)(0) + Exit Function + + If filePath Is Nothing Then Throw New ArgumentNullException("The given filepath was NULL.") End If - If GetText Is Nothing Or GetText = "" Then - Throw New ArgumentException("The given filepath was empty """ & GetText & """") + If filePath Is Nothing Or filePath = "" Then + Throw New ArgumentException("The given filepath was empty """ & filePath & """") End If ' Check if the given Directory exists. MyDirectory.Exists will ' try to create the directory, if it's an App-sub-dir. - If myDirectory.Exists(Path.GetDirectoryName(Path.GetFullPath(GetText))) Then - If File.Exists(GetText) Then - Using TextReader As New StreamReader(GetText) + If myDirectory.Exists(Path.GetDirectoryName(Path.GetFullPath(filePath))) Then + If File.Exists(filePath) Then + Using TextReader As New StreamReader(filePath) Return TextReader.ReadLine End Using Else - Throw New FileNotFoundException("Can't locate the file: """ & GetText & """") + Throw New FileNotFoundException("Can't locate the file: """ & filePath & """") End If Else - Throw New DirectoryNotFoundException("Can't locate the directory """ & Path.GetDirectoryName(GetText) & """") + Throw New DirectoryNotFoundException("Can't locate the directory """ & Path.GetDirectoryName(filePath) & """") End If Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(ex.Message, ex, "Error loading TextLine: " & GetText) + Log.WriteError(ex.Message, ex, "Error loading TextLine: " & filePath) End Try Return "" End Function @@ -266,8 +269,8 @@ 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 & """") Return 0 End Try End Function @@ -381,7 +384,6 @@ Public Class Common '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Debug.Print("Exception while saving image: """ & uri & "") Log.WriteError("Exception while saving image: """ & uri & "", ex, "Exception while saving image") - Return rtnImage Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors diff --git a/Tease AI/Classes/ContactData.vb b/Tease AI/Classes/ContactData.vb index b3cd322..caff408 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,12 +33,39 @@ 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 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 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 @@ -51,13 +80,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 @@ -110,6 +139,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 +246,29 @@ checkFolder: End Try End Function - Friend Function GetRandom(tp As ContactType) As List(Of String) + 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)) + 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(Form1.ssh.randomizer.Next(0, myDirectory.GetDirectories(baseDirectory).Count)) + 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,11 +278,11 @@ 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. - 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) @@ -267,6 +306,7 @@ nextSubDir: Else ' Imagefiles found -> Everything fine and done RecentFolders.Add(rndFolder) + ImageFolder = currPath Return imageFiles End If @@ -284,6 +324,8 @@ nextSubDir: Return "Contact2ImageDir" Case ContactType.Contact3 Return "Contact3ImageDir" + Case ContactType.Random + Return "RandomImageDir" Case Else Throw New NotImplementedException End Select @@ -294,7 +336,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,17 +350,23 @@ 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 #Region "Navigation" + + Dim LastTaggedImage As String + Friend Function CurrentImage() As String If ImageList.Count > 0 And Index > -1 Then Return ImageList(Index) @@ -342,7 +394,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 @@ -359,14 +411,14 @@ 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 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 @@ -408,9 +460,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 = "" @@ -423,10 +473,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", "") @@ -440,12 +491,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: '=================================================================== @@ -453,29 +504,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(Form1.ssh.randomizer.Next(0, ImagePaths.TagImageList.Count)) + Else + rtnPath = ImagePaths.LastPicked + End If '=================================================================== ' Check result If String.IsNullOrWhiteSpace(rtnPath) Then @@ -486,14 +544,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 + If rememberResult Then ImagePaths.LastPicked = rtnPath + LastTaggedImage = rtnPath Return rtnPath End If @@ -517,13 +576,21 @@ SetForwardImage: End Try End Function - Private Function GetImageListByTag(ByVal ImageTags As String) As ImageTagCacheItem + ''' Returns a list of filepaths for the given tags. + ''' 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" @@ -531,21 +598,23 @@ 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 #################### @@ -563,10 +632,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) @@ -609,7 +678,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 @@ -617,8 +686,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(LastTaggedImage) Then + DisplayedImage = CurrentImage() + Else + DisplayedImage = LastTaggedImage + 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("Exception on ApplyTextedTags(String)", ex, "ApplyTextedTags(String)") + End Try + + End Function End Class diff --git a/Tease AI/Classes/Log.vb b/Tease AI/Classes/Log.vb index a621098..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 @@ -119,6 +121,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/Mode.vb b/Tease AI/Classes/Mode.vb index 1eb9526..be9424f 100644 --- a/Tease AI/Classes/Mode.vb +++ b/Tease AI/Classes/Mode.vb @@ -1,8 +1,20 @@  Public Class Mode + 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 Keyword As String - Public Type As String - Public GotoLine As String - + Public Sub Clear() + Keyword = "" + Type = "" + GotoLine = "" + MessageText = "" + VideoMode = False + GotoMode = False + MessageMode = False + End Sub End Class diff --git a/Tease AI/Classes/SessionState.ScriptPosition.vb b/Tease AI/Classes/SessionState.ScriptPosition.vb new file mode 100644 index 0000000..983a809 --- /dev/null +++ b/Tease AI/Classes/SessionState.ScriptPosition.vb @@ -0,0 +1,58 @@ +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 + + Public Property GotoStatus As Boolean = False + + 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, returnState As String) + + Me.Session = session + + Me.FilePath = filepath + + Me.Line = line + + Me.GotoStatus = goToStatus + + Me.LineGoTo = lineGoTo + + Me.ReturnState = returnState + + 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 new file mode 100644 index 0000000..af77683 --- /dev/null +++ b/Tease AI/Classes/SessionState.StackedCallReturn.vb @@ -0,0 +1,56 @@ +Partial Class SessionState + + Friend Class StackedCallReturn + Inherits ScriptPosition + + '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 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) + + Sub New(session As SessionState) + 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 + showingModule = session.ShowModule + isALink = session.isLink + rapidCode = session.RapidCode + rapidText = session.RapidFire + End Sub + Sub resumeState() + Session.StrokeTauntVal = Line + Session.FileText = FilePath + Session.ReturnSubState = ReturnState + 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 + 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 b28877a..ea729ef 100644 --- a/Tease AI/Classes/State.vb +++ b/Tease AI/Classes/State.vb @@ -31,11 +31,19 @@ Imports System.Runtime.Serialization Public Class SessionState Implements IDisposable - 'TODO-Next: Clode Cleanup #Region "------------------------------------------- Data -----------------------------------------------" Const EditorGenericStringList As String = "System.Windows.Forms.Design.ListControlStringCollectionEditor, System.Design, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" + ''' The oldest compatible version of a SessinState. + Const MINVERSION As String = "0.56.0.0" + + ''' Contains the Tease-AI Version of this session. + <[ReadOnly](True)> + + Friend Property Version As String = My.Application.Info.Version.ToString + + Public Property DomPersonality As String Public Property Chat As String @@ -57,17 +65,31 @@ 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 newSlideshow As Boolean = False + 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 + + ''' 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 @@ -89,6 +111,9 @@ 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 Public Property ResponseFile As String Public Property ResponseLine As Integer @@ -119,11 +144,14 @@ 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 Public Property StrokeTick As Integer + ''' Gets or sets time until next taunt. + Public Property StrokeTauntTick As Integer @@ -142,6 +170,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 @@ -155,6 +185,9 @@ Public Class SessionState Public Property ShowModule As Boolean = False Public Property ModuleEnd As Boolean + Public Property giveUpReturn As Boolean + Public Property contactToUse As ContactData + Public Property currentlyPresentContacts As List(Of String) = New List(Of String) Public Property DivideText As Boolean Public Property HoldEdgeTick As Integer @@ -203,36 +236,46 @@ Public Class SessionState Public Property RLGLTick As Integer Public Property NoVideo As Boolean - +#Region "GlitterFeeds - APP" + + + 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 UpdatesTick As Integer = 120 + + Public Property UpdatingPost As Boolean - Public Property StatusText1 As String - Public Property StatusText2 As String - Public Property StatusText3 As String + + Public Property UpdateStageTick As Integer - Public Property StatusChance1 As Integer - Public Property StatusChance2 As Integer - Public Property StatusChance3 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 Update1 As Boolean - Public Property Update2 As Boolean - Public Property Update3 As Boolean + + Public Property StatusChance1 As Integer + + Public Property StatusChance2 As Integer + + Public Property StatusChance3 As Integer + +#End Region ' GlitterFeeds - APP Public Property LocalTagImageList As New List(Of String) + Public Property PetName As String - Public Property ScriptCount As Integer - Public Property TempScriptCount As Integer + Public Property TempScriptCount As Integer Public Property SlideshowTimerTick As Integer @@ -244,6 +287,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 @@ -255,6 +299,7 @@ Public Class SessionState Public Property EdgeTickCheck As Integer Public Property EdgeNOT As Boolean + Public Property isLink As Boolean Public Property AlreadyStrokingEdge As Boolean @@ -268,8 +313,6 @@ Public Class SessionState Public Property FirstRound As Boolean Public Property StartStrokingCount As Integer = 0 - - Public TeaseJOI As Boolean Public Property TeaseVideo As Boolean @@ -281,13 +324,6 @@ 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" - Public Property BookmarkModule As Boolean = False Public Property BookmarkModuleFile As String Public Property BookmarkModuleLine As Integer @@ -295,8 +331,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 @@ -321,11 +356,12 @@ Public Class SessionState Public Property CustomSlideEnabled As Boolean Public Property CustomSlideshow As New CustomSlideshow - - Public Property DommeImageFound As Boolean - Public Property DommeImageSTR As String - - Public Property DomPic As String + + + + Public Property DommeImageSTR As String + + Public Property JustShowedBlogImage As Boolean = False Public Property JustShowedSlideshowImage As Boolean = False Public Property LockImage As Boolean @@ -336,7 +372,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 @@ -354,7 +390,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 @@ -363,10 +402,25 @@ Public Class SessionState Public Property Contact2Stroke As Boolean Public Property Contact3Stroke As Boolean - Public Property ReturnFileText As String - Public Property ReturnStrokeTauntVal As String + Public Property tempDomName As String = "" + Public Property tempHonorific As String + Public Property tempDomHonorific 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(" + + ''' Gets or sets current stack for @CallReturn( command. + + Friend CallReturns As New Stack() + + + Public Property ReturnSubState As String - Public Property ReturnFlag As Boolean +#End Region Public Property SessionEdges As Integer @@ -390,8 +444,7 @@ Public Class SessionState Public Property DoNotDisturb As Boolean Public Property EdgeHoldSeconds As Integer - - Public EdgeHoldFlag As Boolean + Public Property EdgeHoldFlag As Boolean Public Property InputIcon As Boolean @@ -405,11 +458,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 @@ -427,25 +480,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 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 - - Public Property EdgeMessageText As String - Public Property EdgeGotoLine As String + Public Property LongTaunts As Boolean + Public Property ExtremeTaunts As Boolean Public Property MultipleEdges As Boolean Public Property MultipleEdgesAmount As Integer @@ -453,35 +492,39 @@ Public Class SessionState Public Property MultipleEdgesTick As Integer Public Property MultipleEdgesMetronome 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 +#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() +#End Region - ''' - ''' 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 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. + ''' + ''' + ''' 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 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 MultiTauntPictureHold As Boolean + + Public Property EndSession As Boolean + + Public Property VideoGenre As String + #Region "----------------------------------- Only for Serialization -------------------------------------" @@ -532,10 +575,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 @@ -584,7 +627,6 @@ Public Class SessionState Friend Files As New FileClass(Me) Friend Folders As New FoldersClass(Me) - Dim ActivationForm As Form1 #Region "------------------------------------- Constructors----------------------------------------------" @@ -595,11 +637,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 @@ -622,15 +664,19 @@ 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) + '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) End Sub #End Region ' Constructors @@ -665,10 +711,25 @@ 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 + +#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) If Folders Is Nothing Then Folders = New FoldersClass(Me) + ' 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 + +#If _MSC_VER > 1600 Then +#Enable Warning BC40000 +#End If + End Sub #End Region @@ -683,28 +744,25 @@ 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 - ' Calling from another Thread -> Invoke on controls UI-Thread - Dim Act As Action(Of Form1) = Sub(s1) FetchFormData(s1) + 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) 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 - Contact1Timer_enabled = .Contact1Timer.Enabled - Contact2Timer_enabled = .Contact2Timer.Enabled - Contact3Timer_enabled = .Contact3Timer.Enabled CustomSlideshowTimer_enabled = .CustomSlideshowTimer.Enabled EdgeCountTimer_enabled = .EdgeCountTimer.Enabled EdgeTauntTimer_enabled = .EdgeTauntTimer.Enabled @@ -727,16 +785,13 @@ 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 - Contact1Timer_Interval = .Contact1Timer.Interval - Contact2Timer_Interval = .Contact2Timer.Interval - Contact3Timer_Interval = .Contact3Timer.Interval CustomSlideshowTimer_Interval = .CustomSlideshowTimer.Interval EdgeCountTimer_Interval = .EdgeCountTimer.Interval EdgeTauntTimer_Interval = .EdgeTauntTimer.Interval @@ -760,19 +815,19 @@ 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 _ - serialized_Flags = New List(Of String) + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' Get Flags + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + If serialized_Flags Is Nothing Then _ + serialized_Flags = New List(Of String) serialized_Flags.Clear() @@ -782,9 +837,9 @@ Public Class SessionState Next End If - ' Get temporary Flags - If serialized_FlagsTemp Is Nothing Then _ - serialized_FlagsTemp = New List(Of String) + ' Get temporary Flags + If serialized_FlagsTemp Is Nothing Then _ + serialized_FlagsTemp = New List(Of String) serialized_FlagsTemp.Clear() If Directory.Exists(Folders.TempFlags) Then @@ -796,8 +851,12 @@ 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() @@ -814,16 +873,16 @@ 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 _ - AndAlso activateForm.InvokeRequired Then - ' Calling from another Thread -> Invoke on controls UI-Thread - Dim Act As Action(Of Form1) = Sub(s1) Activate(s1) + ''' + ''' 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) activateForm.Invoke(Act) End If ' Called from Controls UI-Thread -> Execute Code. @@ -831,16 +890,13 @@ Public Class SessionState 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 - .Contact1Timer.Enabled = False - .Contact2Timer.Enabled = False - .Contact3Timer.Enabled = False .CustomSlideshowTimer.Enabled = False .EdgeCountTimer.Enabled = False .EdgeTauntTimer.Enabled = False @@ -867,10 +923,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 @@ -880,10 +936,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 @@ -894,14 +950,14 @@ 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 - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' 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 @@ -912,13 +968,13 @@ 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 - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' 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) @@ -929,21 +985,22 @@ 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 - '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - ' 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) @@ -973,31 +1030,26 @@ 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 '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - .ChatText.DocumentText = Chat - .ChatText2.DocumentText = Chat - .ChatReadyState() + activateForm.ChatUpdate() ' 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 - .Contact1Timer.Interval = Contact1Timer_Interval - .Contact2Timer.Interval = Contact2Timer_Interval - .Contact3Timer.Interval = Contact3Timer_Interval .CustomSlideshowTimer.Interval = CustomSlideshowTimer_Interval .EdgeCountTimer.Interval = EdgeCountTimer_Interval .EdgeTauntTimer.Interval = EdgeTauntTimer_Interval @@ -1021,16 +1073,13 @@ 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 - .Contact1Timer.Enabled = Contact1Timer_enabled - .Contact2Timer.Enabled = Contact2Timer_enabled - .Contact3Timer.Enabled = Contact3Timer_enabled .CustomSlideshowTimer.Enabled = CustomSlideshowTimer_enabled .EdgeCountTimer.Enabled = EdgeCountTimer_enabled .EdgeTauntTimer.Enabled = EdgeTauntTimer_enabled @@ -1070,34 +1119,43 @@ 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 _ - 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) + ' 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) 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 _ - Throw New InvalidOperationException("It is impossible to reactivate a not activated session.") + If setActive AndAlso ActivationForm Is Nothing Then _ + Throw New InvalidOperationException("It is impossible to reactivate a not activated session.") Dim tmpState As SessionState = DirectCast(BinaryDeserialize(filepath), SessionState) + + If tmpState.Version Is Nothing Then + Throw New SerializationException("The session you are trying to open has been created with an unknown version of Tease-AI.") + ElseIf New Version(tmpState.Version) < New Version(MINVERSION) Then + Throw New SerializationException("The session you are trying to open has been created with version " & Version.ToString & + ". This version of Tease-AI is only capable to continue sessions from version " & MINVERSION & " or above.") + End If + + If setActive Then tmpState.Activate(ActivationForm) Catch ex As Exception Throw 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) @@ -1107,24 +1165,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 _ - AndAlso ActivationForm.InvokeRequired Then - ' Calling from another Thread -> Invoke on controls UI-Thread - Return CType(ActivationForm.UIThread(AddressOf Reset), Boolean) + ''' + ''' 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) End If - ' Called from Controls UI-Thread -> Execute Code. + ' Called from Controls UI-Thread -> Execute Code. + + FrmSettings.TBHonorific.Text = My.Settings.SubHonorific Dispose() @@ -1136,5 +1196,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/TauntProcessingObject.vb b/Tease AI/Classes/TauntProcessingObject.vb new file mode 100644 index 0000000..9c7dbfa --- /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 And TauntSize > 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/Classes/URL_Files_BGW.vb b/Tease AI/Classes/URL_Files_BGW.vb index e9c8e1c..1079a8d 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,14 +13,13 @@ Imports System.Xml Namespace URL_Files - ''' ========================================================================================================= ''' ''' This Enumeration contains the steps during the working on a URL-File. ''' 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. @@ -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,165 @@ 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 ImageCount As Integer = 0 + Public CurrentTask As Tasks = Tasks.Idle + Public CurrentStage As WorkingStages = WorkingStages.Completed + Public InfoText As String = Nothing Public BlogPage As Integer = 0 - Public BlogPageTotal As Integer = 0 - Public ActStage As WorkingStages = WorkingStages.Completed + Public BlogPageTotal + Public ImageCount As Integer = 0 + 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 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, + .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 +350,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 +362,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 +384,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,202 +411,263 @@ 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 - ''' ========================================================================================================= ''' - ''' This Method Asks the User for a Blog-URL and Scrapes the Blog. + ''' 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 + + ''' + ''' Starts the overgiven Work. + ''' + ''' 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. + ''' 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, 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("https://", "") + 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 BlogCycle As Integer = 0 + Dim BlogCycleSize As Integer = 50 + Dim TotalPostCount As Integer = -1 + + Do + ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Cancel <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + If Me.CancellationPending AndAlso TotalPostCount = -1 Then Return New CreateUrlFileResult With {.Cancelled = True} + If Me.CancellationPending Then GoTo ExitScrape - Debug.Print("Round-PostsCount = " & ___RoundPostsCount) + '=============================================================================== + ' Fetch XML Sitemap + '=============================================================================== + Dim doc As XmlDocument = New XmlDocument() + Dim ImageURLs As New List(Of String) + + 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! + Response.Close() + + ' 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 - 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 + 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 + 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) - 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 + If DislikeList.Contains(ImageUrl) Or UrlListNew.Contains(ImageUrl) Then '############################ ALL - Disliked & Added ############################# - ' Always Skip Disliked Urls and already added URLs. + ' Always skip disliked and already added URLs. GoTo NextImage - ElseIf Me._Work = URL_File_Tasks.RebuildURLFiles AndAlso ___BlogListOld.Contains(___PhotoNode.InnerXml) Then + ElseIf Me.Work = Tasks.RebuildURLFiles AndAlso UrlListOld.Contains(ImageUrl) 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 + ' 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 Then '########################## URL-Rebuild - Unknown URL ############################ - ' If Rebuilding URL-File skip Urls not previous known. + ' If rebuilding URL-File skip previous unkwown URLs. GoTo NextImage - ElseIf Me._Work = URL_File_Tasks.RefreshURLFiles AndAlso ___BlogListOld.Contains(___PhotoNode.InnerXml) + ElseIf Me.Work = Tasks.RefreshURLFiles AndAlso UrlListOld.Contains(ImageUrl) Then '############################# Refresh - Known URL ############################### - ' If refreshing a URL-File and there is a known URL then stop scraping. + ' If refreshing URL-File stop scraping at first known URL. GoTo ExitScrape - ElseIf ___BlogListOld.Contains(___PhotoNode.InnerXml) + ElseIf UrlListOld.Contains(ImageUrl) Then '############################## Create - Known URL ############################### - ___BlogListNew.Add(___PhotoNode.InnerXml) ' Add to new list - ___ImageCountTotal += 1 ' Increment Image Counter. - GoTo NextImage ' No Saving or Reviewing + UrlListNew.Add(ImageUrl) ' Add to new list + 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))) + TempImg = New Bitmap(New IO.MemoryStream(New WebClient().DownloadData(ImageUrl))) ' Report to MainApplication, the BGW is waiting for the Image Approval. - Me.URL_FileCreate_OnProgressChanged(___ImageCountTotal, ___BlogCycle, ___RoundPostsCount, WorkingStages.ImageApproval, ___TempImg) + 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 <> ImageApprovalStatus.Pending + Loop Until ApproveImage <> ImageApprovalStates.Pending ' If Img declined and DislikeFile is set, write URL to DislikeFile - If ApproveImage = ImageApprovalStatus.Declined _ - And _DislikeListPath <> String.Empty Then + If ApproveImage = ImageApprovalStates.Declined _ + And _DislikeListPath <> String.Empty Then ' Add the URL to DislikeList - ___DislikeList.Add(___PhotoNode.InnerXml) + DislikeList.Add(ImageUrl) ' If DislikeFile exists: Append URL Else create new File If File.Exists(_DislikeListPath) Then - My.Computer.FileSystem.WriteAllText(_DislikeListPath, Environment.NewLine & ___PhotoNode.InnerXml, True) + My.Computer.FileSystem.WriteAllText(_DislikeListPath, Environment.NewLine & ImageUrl, True) Else - My.Computer.FileSystem.WriteAllText(_DislikeListPath, ___PhotoNode.InnerXml, True) + My.Computer.FileSystem.WriteAllText(_DislikeListPath, ImageUrl, True) End If End If End If @@ -623,80 +675,73 @@ Scrape: '=============================================================================== ' Image Approved '=============================================================================== - If ApproveImage = ImageApprovalStatus.Approved Or ReviewImages = False Then + If ApproveImage = ImageApprovalStates.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 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 & "\" & ___XMLImagePath.Replace("\\", "\")) Then + If Not File.Exists(imgDir & "\" & TmpImagePath.Replace("\\", "\")) Then ' Downloaded Picture already for Review? - If ___TempImg IsNot Nothing Then + If TempImg IsNot Nothing Then ' YES: Save it from Stream - ___TempImg.Save(imgDir & "\" & ___XMLImagePath.Replace("\\", "\")) + TempImg.Save(imgDir & "\" & TmpImagePath.Replace("\\", "\")) Else ' NO: Go download it. - My.Computer.Network.DownloadFile(___PhotoNode.InnerXml, imgDir & "\" & ___XMLImagePath.Replace("\\", "\")) + My.Computer.Network.DownloadFile(ImageUrl, imgDir & "\" & TmpImagePath.Replace("\\", "\")) End If End If End If ' -------------------------- ADD IMAGE TO LIST -------------------------- - ___BlogListNew.Add(___PhotoNode.InnerXml) - ___ImageCountTotal += 1 - ___ImageCountAdded += 1 + UrlListNew.Add(ImageUrl) + ImageCountAdded += 1 End If - 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 - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' Blog-Loop-END - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ___BlogCycle += ___BlogCycleSize - If ___BlogCycle < ___RoundPostsCount And Not Me.CancellationPending Then GoTo Scrape - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ' Blog-Page-Scraping-END - '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + TempImg = Nothing ' Reset Image + Next + + BlogCycle += BlogCycleSize + Loop Until BlogCycle >= TotalPostCount + ' 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, 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 ' 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 +753,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, 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,80 +780,132 @@ 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 = 50 + 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 + If rtnList.Contains(photoNode.InnerXml) Then + Dim t = 0 + End If + 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 .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", "") 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 +914,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 +923,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 +936,7 @@ RetryDeleteFile: If Me.CancellationPending Then Exit For Next - Return ___rtnResult + Return RtnResult Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors @@ -863,40 +954,87 @@ RetryDeleteFile: End Function -#End Region + End Class -#Region "-------------------------------------------------- Misc. Functions ---------------------------------------------------" + Class SelectURLFileDialog + Inherits Form - ''' ========================================================================================================= - ''' - ''' 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() + Dim lbSel As ListBox + Dim BtnOk As Button + Dim BtnCn As Button - Do Until Me.IsBusy = False - Application.DoEvents() - Loop + Dim StoredItems As List(Of String) - 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 + Public Property SelectionMode As SelectionMode + Get + Return lbSel.SelectionMode + End Get + Set(value As SelectionMode) + lbSel.SelectionMode = value + End Set + End Property - Private Function RoundUpToNearest(Value As Integer, nearest As Integer) As Integer - Return CInt(Math.Ceiling(Value / nearest) * nearest) - End Function + 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 Region End Class diff --git a/Tease AI/Classes/myDirectory.vb b/Tease AI/Classes/myDirectory.vb index db482aa..006fd88 100644 --- a/Tease AI/Classes/myDirectory.vb +++ b/Tease AI/Classes/myDirectory.vb @@ -263,7 +263,7 @@ Public NotInheritable Class myDirectory ' IF directory-check has failed return an empty String.Array If DirectoryCheck(path) = False Then Return New List(Of String)().ToArray - Return System.IO.Directory.GetDirectories(path) + Return Sort(System.IO.Directory.GetDirectories(path)) End Function ''' @@ -286,7 +286,7 @@ Public NotInheritable Class myDirectory ' IF directory-check has failed return an empty String.Array If DirectoryCheck(path) = False Then Return New List(Of String)().ToArray - Return System.IO.Directory.GetDirectories(path, searchPattern) + Return Sort(System.IO.Directory.GetDirectories(path, searchPattern)) End Function @@ -314,7 +314,7 @@ Public NotInheritable Class myDirectory ' IF directory-check has failed return an empty String.Array If DirectoryCheck(path) = False Then Return New List(Of String)().ToArray - Return System.IO.Directory.GetDirectories(path, searchPattern, searchOption) + Return Sort(System.IO.Directory.GetDirectories(path, searchPattern, searchOption)) End Function #End Region diff --git a/Tease AI/Classes/subAnswers.vb b/Tease AI/Classes/subAnswers.vb new file mode 100644 index 0000000..a1858b6 --- /dev/null +++ b/Tease AI/Classes/subAnswers.vb @@ -0,0 +1,110 @@ + +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) + ssh = session + checkList.Add(My.Settings.SubGreeting) + checkList.Add(My.Settings.SubYes) + checkList.Add(My.Settings.SubNo) + checkList.Add(My.Settings.SubSorry) + checkList.Add("thank,thanks") + checkList.Add("please") + 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(4) + Case "please" + Return checkList.Item(5) + Case Else + Return checkList.Item(0) + End Select + End Function + + Public Function returnAll() As List(Of String) + Return checkList + End Function + + Public Function returnAnswerList() As List(Of String) + Return answerList + End Function + + 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 Case 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 "" + End Function + + Public Sub addToAnswerList(ByVal words As String) + Dim split() = words.Split(",") + For i As Integer = 0 To split.Count - 1 + answerList.Add(Trim(split(i))) + Next + End Sub + + Public Sub clearAnswers() + answerList.Clear() + End Sub + + 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) + + 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 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 + + 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 LCase(answerList(n)) = LCase(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.Designer.vb b/Tease AI/Form1.Designer.vb index 1a018c3..75a3768 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() @@ -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() @@ -427,16 +423,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 +432,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 +482,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 +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(1404, 696) + 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 @@ -541,31 +537,29 @@ 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 ' '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(1404, 718) + 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, 690) + 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(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 +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(1404, 215) + Me.PnlChatTextLayout.Size = New System.Drawing.Size(1398, 409) Me.PnlChatTextLayout.TabIndex = 783 ' 'ChatText @@ -610,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(1402, 213) + Me.ChatText.Size = New System.Drawing.Size(1396, 407) Me.ChatText.TabIndex = 1 ' 'PNLMediaBar @@ -626,8 +620,9 @@ 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 + Me.PNLMediaBar.Visible = False ' 'ImageFolderComboBox ' @@ -639,7 +634,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 +647,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 +665,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 +698,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 +715,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 +732,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 +747,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,11 +763,11 @@ 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 - Me.BtnToggleMediaPanel.Text = "Hide Media Panel" + Me.BtnToggleMediaPanel.Text = "Show Media Panel" Me.BtnToggleMediaPanel.UseVisualStyleBackColor = False ' 'BtnToggleImageVideo @@ -784,7 +779,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 +824,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 +1348,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 @@ -1608,7 +1603,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 +1744,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 +2018,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,15 +2088,6 @@ 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}) @@ -2266,1655 +2261,1660 @@ 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 + 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 ' - 'BTNStop + 'WishlistPreview ' - 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 + 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 ' - 'BTNSafeword + 'PNLHypnoGen ' - 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 + 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 ' - 'BTNLS1 + 'ComboBoxHypnoGenTrack ' - 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 + 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" ' - 'BTNEdge + 'LBLBackTrack ' - 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 + 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" ' - 'BTNSpeedUp + 'CBHypnoGenNoText ' - 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 + 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 ' - 'BTNLS1Edit + 'TBHypnoGenImageTag ' - 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 + 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 ' - 'BTNLS4Edit + 'LBLHypnoImageTag ' - 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 + 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:" ' - 'BTNLS3Edit + 'LBHypnoGenSlideshow ' - 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 + 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 ' - 'BTNLS2 + 'CBHypnoGenSlideshow ' - 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 + 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 ' - 'BTNLS2Edit + 'LBHypnoGen ' - 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 + 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 ' - 'BTNLS5Edit + 'LBLHypnoFile ' - 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 + 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" ' - 'BTNLS3 + 'LBHypnoGenInduction ' - 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 + 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 ' - 'BTNLS4 + 'CBHypnoGenInduction ' - 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 + 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 ' - 'BTNLS5 + 'CBHypnoGenPhase ' - 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 + 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 ' - 'PnlGlitter + 'BTNHypnoGenStart ' - 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 + 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 ' - 'PnlSidechat + 'AppPanelVitalSub ' - 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 + 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 ' - 'ChatText2 + 'GBGoals ' - 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 + 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" ' - 'PNLChatBox2 + 'BTNExercise ' - 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 + 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 ' - 'ChatBox2 + 'TBExercise ' - 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 + 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 ' - 'PNLWritingTask + 'CLBExercise ' - 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 + 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 ' - 'CBWritingProgress + 'CBVitalSubDomTask ' - 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 + 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 ' - 'Button15 + 'BTNVitalSub ' - 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 + 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 ' - 'Button1 + 'GBCalories ' - 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 + 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" ' - 'Label76 + 'TBCalorieAmount ' - 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 + 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 ' - 'LBLMistakesMade + 'TBCalorieItem ' - 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 + 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 ' - 'LNLMistakesMade + 'BTNCalorie ' - 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 + 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 ' - 'LBLMistakesAllowed + 'Label14 ' - 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 + 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 ' - 'Label74 + 'Label12 ' - 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 + 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 ' - 'LBLLinesRemaining + 'LBCalorie ' - 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 + 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 ' - 'Label15 + 'ComboBoxCalorie ' - 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 + 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 ' - 'LBLWritingTaskText + 'TBCalorie ' - 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 + 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 ' - 'LBLWritingTask + 'LBLGoal ' - 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 + 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 ' - 'LBLLinesWritten + 'LBLCalorie ' - 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 + 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 ' - 'PNLAppRandomizer + 'LBLConsumed ' - 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 + 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 ' - 'Button12 + 'CBVitalSub ' - 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 + 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 ' - 'BTNRandomLocal + 'PNLMetronome ' - 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 + 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 ' - 'Label20 + 'BTNMetroStop2 ' - 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 + 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 ' - 'Label19 + 'BTNMetroStop1 ' - 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 + 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 ' - 'Label18 + 'BTNMetroPreview2 ' - 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 + 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 ' - 'BTNRandomRLGL + 'BTNMetroPreview1 ' - 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 + 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 ' - 'BTNRandomAtE + 'LBLHigh ' - 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 + 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.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}) ' - 'BTNRandomCS + 'LBLMinSpeed ' - 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.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" ' - 'BTNRandomCH + 'LBLLow ' - 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.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 ' - 'BTNRandomJOI + 'NBMaxPace ' - 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.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}) ' - 'BTNRandomVideo + 'LBLMaxSpeed ' - 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.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" ' - 'BTNRandomBlog + 'CBMetronome ' - 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.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 ' - 'PNLLazySub2 + 'PNLLazySub ' - 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.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 ' - 'AppPanelVitalSub + 'CBHideShortcuts ' - 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.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 ' - 'GBGoals + 'CBShortcuts ' - 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.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 ' - 'BTNExercise + 'TBShortSafeword ' - 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.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 ' - 'TBExercise + 'TBShortGreet ' - 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.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 ' - 'CLBExercise + 'TBShortCum ' - 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.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 ' - 'CBVitalSubDomTask + 'TBShortStroke + ' + 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.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 + 'TBShortStop ' - 'BTNVitalSub + 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.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 + 'TBShortSlowDown ' - 'GBCalories + 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.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" + 'TBShortSpeedUp ' - 'TBCalorieAmount + 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.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 + 'TBShortEdge ' - 'TBCalorieItem + 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.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 + 'TBShortNo ' - 'BTNCalorie + 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.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 + 'TBShortYes ' - 'Label14 + 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.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 + 'BTNAskToCum ' - 'Label12 + 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.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 + 'BTNSlowDown ' - 'LBCalorie + 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.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 + 'BTNYes ' - 'ComboBoxCalorie + 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.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 + 'BTNStroke ' - 'TBCalorie + 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.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 + 'BTNNo ' - 'LBLGoal + 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 ' - 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 + 'BTNGreeting ' - 'LBLCalorie + 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 ' - 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 + 'BTNStop ' - 'LBLConsumed + 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 ' - 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 + 'BTNSafeword ' - 'CBVitalSub + 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 ' - 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 + 'BTNLS1 ' - 'PNLHypnoGen + 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 + 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 = Global.Tease_AI.My.MySettings.Default.LS1 + Me.BTNLS1.UseVisualStyleBackColor = False ' - 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 + 'BTNEdge ' - 'ComboBoxHypnoGenTrack + 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 ' - 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" + 'BTNSpeedUp ' - 'LBLBackTrack + 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 ' - 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" + 'BTNLS1Edit ' - 'CBHypnoGenNoText + 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 ' - 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 + 'BTNLS4Edit ' - 'TBHypnoGenImageTag + 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 ' - 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 + 'BTNLS3Edit ' - 'LBLHypnoImageTag + 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 ' - 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:" + 'BTNLS2 ' - 'LBHypnoGenSlideshow + 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 + 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 = Global.Tease_AI.My.MySettings.Default.LS2 + Me.BTNLS2.UseVisualStyleBackColor = False ' - 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 + 'BTNLS2Edit ' - 'CBHypnoGenSlideshow + 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 ' - 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 + 'BTNLS5Edit ' - 'LBHypnoGen + 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 ' - 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 + 'BTNLS3 ' - 'LBLHypnoFile + 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 + 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 = Global.Tease_AI.My.MySettings.Default.LS3 + Me.BTNLS3.UseVisualStyleBackColor = False ' - 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" + 'BTNLS4 ' - 'LBHypnoGenInduction + 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 + 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 = Global.Tease_AI.My.MySettings.Default.LS4 + Me.BTNLS4.UseVisualStyleBackColor = False ' - 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 + 'BTNLS5 ' - 'CBHypnoGenInduction + 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 + 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 = Global.Tease_AI.My.MySettings.Default.LS5 + Me.BTNLS5.UseVisualStyleBackColor = False ' - 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 + 'PnlGlitter ' - 'CBHypnoGenPhase + 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 ' - 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 + 'PnlSidechat ' - 'BTNHypnoGenStart + 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 ' - 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 + 'ChatText2 ' - 'PNLWishList + 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 ' - 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 + 'PNLChatBox2 ' - 'WishlistCostSilver + 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 ' - 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 + 'ChatBox2 ' - 'LBLWishlistDate + 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 ' - 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 + 'PNLWritingTask ' - 'BTNWishlist + 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 ' - 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 + 'CBWritingProgress ' - 'LBLWishListText + 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 ' - 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. " + 'Button15 ' - 'LBLWishlistCost + 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 ' - 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 + 'Button1 ' - 'WishlistCostGold + 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 ' - 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 + 'Label76 ' - 'PNLWishlistTokenBack + 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 ' - 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 + 'LBLMistakesMade ' - 'LBLWishlistSilver + 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 ' - 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 + 'LNLMistakesMade ' - 'PictureBox6 + 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 ' - 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 + 'LBLMistakesAllowed ' - 'LBLWishlistBronze + 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 ' - 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 + 'Label74 ' - 'PictureBox5 + 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 ' - 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 + 'LBLLinesRemaining ' - 'LBLWishlistGold + 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 ' - 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 + 'Label15 ' - 'PictureBox4 + 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 ' - 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 + 'LBLWritingTaskText ' - 'LBLWishListName + 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 ' - 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 + 'LBLWritingTask ' - 'PNLWishlistHeader + 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 ' - 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 + 'LBLLinesWritten ' - 'LBLWishlistDom + 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 ' - 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 + 'PNLAppRandomizer ' - 'WishlistPreview + 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 ' - 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 + 'Button12 ' - 'PNLMetronome + 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 ' - 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 + 'BTNRandomLocal ' - 'BTNMetroStop2 + 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 ' - 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 + 'Label20 + ' + 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 ' - 'BTNMetroStop1 + 'Label19 ' - 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.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 ' - 'BTNMetroPreview2 + 'Label18 ' - 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.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 ' - 'BTNMetroPreview1 + 'BTNRandomRLGL ' - 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.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 ' - 'LBLHigh + 'BTNRandomAtE ' - 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.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 ' - 'NBMinPace + 'BTNRandomCS ' - 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.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 ' - 'LBLMinSpeed + 'BTNRandomCH ' - 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.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 ' - 'LBLLow + 'BTNRandomJOI ' - 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.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 ' - 'NBMaxPace + 'BTNRandomVideo ' - 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.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 ' - 'LBLMaxSpeed + 'BTNRandomBlog ' - 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.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 ' - 'CBMetronome + 'PNLLazySub2 ' - 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.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 @@ -4333,18 +4333,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 @@ -4353,10 +4341,6 @@ Partial Class Form1 ' Me.WMPTimer.Interval = 1000 ' - 'DommeTimer - ' - Me.DommeTimer.Interval = 1000 - ' 'TeaseAIClock ' Me.TeaseAIClock.Interval = 1000 @@ -4378,7 +4362,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 +4397,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 +4406,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) @@ -4523,9 +4507,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 @@ -4543,7 +4524,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.resx b/Tease AI/Form1.resx index 0639b06..9a9554c 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= @@ -1261,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 ec95191..c8bf917 100644 --- a/Tease AI/Form1.vb +++ b/Tease AI/Form1.vb @@ -29,12 +29,7 @@ Public Class Form1 ' Github Patch Public FormLoading As Boolean 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 - + Public customVocabLines As List(Of String) Dim sshSyncLock As New Object ''' ''' Shorthand Property to access My.Application.Session @@ -46,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 @@ -74,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 @@ -106,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 @@ -120,11 +115,6 @@ Public Class Form1 Public synth2 As New SpeechSynthesizer - Public LazyEdit1 As Boolean - Public LazyEdit2 As Boolean - Public LazyEdit3 As Boolean - Public LazyEdit4 As Boolean - Public LazyEdit5 As Boolean Public ApplyingTheme As Boolean @@ -132,24 +122,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 @@ -170,18 +160,10 @@ ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCal - - - 'If BeforeTease = False And My.Settings.Sys_SubLeftEarly <> 0 Then My.Settings.Sys_SubLeftEarlyTotal += 1 - If ssh.BeforeTease = False And Val(GetVariable("SYS_SubLeftEarly")) <> 0 Then SetVariable("SYS_SubLeftEarlyTotal", Val(GetVariable("SYS_SubLeftEarlyTotal")) + 1) - 'TempGif.Dispose() - 'original.Dispose() - 'resized.Dispose() - Try GC.Collect() Catch @@ -198,38 +180,7 @@ ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCal My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Temp\Temp.gif") End If - 'TODO-Next: Remove Legacy-Code. - Try - For Each prog As Process In Process.GetProcesses - If prog.ProcessName = "Tease AI Metronome" Then - prog.Kill() - End If - Next - Catch ex As Exception - - 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) + If ssh.SaidHello Then SaveChatLog(False) Try FrmSettings.Close() @@ -259,18 +210,6 @@ ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCal End Try End Sub - Private Sub SaveChatLog(LogDate As String) - If FrmSettings.CBSaveChatlogExit.Checked = True And ChatText.DocumentText.Length > 36 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\" & LogDate & " chatlog.html", ChatText.DocumentText, False) - - End If - End Sub - Protected Overrides Sub OnClosing(ByVal e As System.ComponentModel.CancelEventArgs) TeaseAINotify.Visible = False @@ -285,80 +224,56 @@ 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 + ssh.contact1Present = False + ssh.contact2Present = False + ssh.contact3Present = False FrmSplash.PBSplash.Value = 0 Debug.Print("Form 2 Opened") 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.Refresh() + FrmSplash.UpdateText("Checking orgasm limit...") If My.Settings.OrgasmLockDate = Nothing Then My.Settings.OrgasmLockDate = FormatDateTime(Now, DateFormat.ShortDate) Debug.Print("OrgasmLockDate = " & My.Settings.OrgasmLockDate) - - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Clearing Metronome settings..." - FrmSplash.Refresh() - + ' ############################################################# + FrmSplash.UpdateText("Clearing Metronome settings...") StrokePace = 0 - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Checking terms and conditions..." - FrmSplash.Refresh() - - - ' If My.Settings.TCAgreed = True Then - 'frmApps.ClearAgree() - 'End If - + ' ############################################################# + FrmSplash.UpdateText("Checking terms and conditions...") If My.Settings.TC2Agreed = False Then - Form7.Show() - Do - Application.DoEvents() - Loop Until My.Settings.TC2Agreed = True + If FrmTaC.ShowDialog() = DialogResult.Yes Then + My.Settings.TC2Agreed = True + My.Settings.Save() + Else + Process.GetCurrentProcess().Kill() + End If End If - - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Checking installed Personalities..." - FrmSplash.Refresh() - - Dim PersonType As String - - 'dompersonalityComboBox.Items.Clear() - - Debug.Print(My.Settings.DomPersonality) - 'dompersonalityComboBox.Text = My.Settings.DomPersonality - - 'dompersonalityComboBox.Text = My.Settings.DomPersonality - + ' ############################################################# + FrmSplash.UpdateText("Checking installed Personalities...") For Each Dir As String In myDirectory.GetDirectories(Application.StartupPath & "\Scripts\") - PersonType = Dir - - Dim DirSplit As String() = PersonType.Split("\") - PersonType = DirSplit(DirSplit.Length - 1) - Debug.Print("PersonType = " & PersonType) - 'Do While PersonType.Contains("\") - 'PersonType = PersonType.Remove(0, 1) - 'Loop Try + Dim DirSplit As String() = Dir.Split("\") + Dim PersonType As String = DirSplit(DirSplit.Length - 1) + Debug.Print("Adding Personality: " & PersonType) dompersonalitycombobox.Items.Add(PersonType) Catch End Try @@ -368,32 +283,29 @@ retryStart: MessageBox.Show(Me, "No domme Personalities were found! Many aspects of this program will not work correctly until at least one Personality is installed.", "Warning!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Else Try + Debug.Print("Set previous personality: " & My.Settings.DomPersonality) dompersonalitycombobox.Text = My.Settings.DomPersonality Catch ex As Exception dompersonalitycombobox.Text = dompersonalitycombobox.Items(0) End Try End If - + ' ############################################################# FrmSettings.FrmSettingsLoading = True - FrmSettings.FrmSettingStartUp() Do Application.DoEvents() Loop Until FrmSettings.FrmSettingsLoading = False - - ssh.StrokeTimeTotal = My.Settings.StrokeTimeTotal - StrokeTimeTotalTimer.Start() - - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Calculating total stroke time..." - FrmSplash.Refresh() + ' ############################################################# + FrmSplash.UpdateText("Calculating total stroke time...") Dim STT As TimeSpan = TimeSpan.FromSeconds(ssh.StrokeTimeTotal) FrmSettings.LBLStrokeTimeTotal.Text = String.Format("{0:0000}:{1:00}:{2:00}:{3:00}", STT.Days, STT.Hours, STT.Minutes, STT.Seconds) + ssh.StrokeTimeTotal = My.Settings.StrokeTimeTotal + StrokeTimeTotalTimer.Start() ssh.DomTask = "Null" ssh.DomChat = "Null" @@ -408,21 +320,26 @@ retryStart: ssh.Chat = "" IsTypingTimer.Start() - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Loading Domme and Sub avatar images..." - FrmSplash.Refresh() + ' ############################################################# + FrmSplash.UpdateText("Loading avatar images...") - 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) + If File.Exists(My.Settings.GlitterAV) Then FrmSettings.GlitterAV.Image = Image.FromFile(My.Settings.GlitterAV) + If File.Exists(My.Settings.GlitterAV1) Then FrmSettings.GlitterAV1.Image = Image.FromFile(My.Settings.GlitterAV1) + If File.Exists(My.Settings.GlitterAV2) Then FrmSettings.GlitterAV2.Image = Image.FromFile(My.Settings.GlitterAV2) + If File.Exists(My.Settings.GlitterAV3) Then FrmSettings.GlitterAV3.Image = Image.FromFile(My.Settings.GlitterAV3) + + ' ############################################################# + FrmSplash.UpdateText("Checking recent slideshows...") - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Checking recent slideshows..." - FrmSplash.Refresh() + Dim uniqueNames = From u In My.Settings.RecentSlideshows Distinct - For Each path As String In My.Settings.RecentSlideshows - If Directory.Exists(path) Then ImageFolderComboBox.Items.Add(path) + For Each n In uniqueNames + If Directory.Exists(n) Then ImageFolderComboBox.Items.Add(n) Next + ' because Specialized.StringCollections are crap, ' we have to clear And refill it using For-Each... My.Settings.RecentSlideshows.Clear() @@ -431,27 +348,17 @@ retryStart: My.Settings.RecentSlideshows.Add(comboitem) Next - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Checking local videos..." - FrmSplash.Refresh() + ' ############################################################# + FrmSplash.UpdateText("Checking local videos...") ' Checks all folders and Sets the VideoCount as LabelText FrmSettings.Video_CheckAllFolders() ssh.VideoType = "General" - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Loading Glitter avatar images..." - FrmSplash.Refresh() - - If File.Exists(My.Settings.GlitterAV) Then FrmSettings.GlitterAV.Image = Image.FromFile(My.Settings.GlitterAV) - If File.Exists(My.Settings.GlitterAV1) Then FrmSettings.GlitterAV1.Image = Image.FromFile(My.Settings.GlitterAV1) - If File.Exists(My.Settings.GlitterAV2) Then FrmSettings.GlitterAV2.Image = Image.FromFile(My.Settings.GlitterAV2) - If File.Exists(My.Settings.GlitterAV3) Then FrmSettings.GlitterAV3.Image = Image.FromFile(My.Settings.GlitterAV3) + ' ############################################################# + FrmSplash.UpdateText("Starting Glitter APP...") - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Loading Glitter settings..." - FrmSplash.Refresh() ssh.UpdatesTick = 120 UpdatesTimer.Start() @@ -462,25 +369,18 @@ 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 + ' 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 - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Loading names..." - FrmSplash.Refresh() - - - - If My.Settings.DomName <> "" Then domName.Text = My.Settings.DomName - If My.Settings.SubName <> "" Then subName.Text = My.Settings.SubName + FrmSplash.UpdateText("Loading names...") FrmSettings.petnameBox1.Text = My.Settings.pnSetting1 @@ -492,9 +392,9 @@ retryStart: FrmSettings.petnameBox7.Text = My.Settings.pnSetting7 FrmSettings.petnameBox8.Text = My.Settings.pnSetting8 - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Loading General settings..." - FrmSplash.Refresh() + ' ############################################################# + FrmSplash.UpdateText("Loading General settings...") + If My.Settings.CBTimeStamps = True Then FrmSettings.timestampCheckBox.Checked = True @@ -571,9 +471,7 @@ retryStart: FrmSettings.CBImageInfo.Checked = False End If - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Loading Domme settings..." - FrmSplash.Refresh() + FrmSplash.UpdateText("Loading Domme settings...") FrmSettings.domageNumBox.Value = My.Settings.DomAge @@ -709,13 +607,7 @@ retryStart: FrmSettings.NBSubAgeMax.Value = My.Settings.SubAgeMax - Debug.Print("Find Exception end") - - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Checking Glitter scripts..." - FrmSplash.Refresh() - - 'FrmSettings.LblGlitterSettingsDescription.Text = "Hover the cursor over any setting in the menu for a more detailed description of its function." + FrmSplash.UpdateText("Checking Glitter scripts...") Try FrmSettings.LBLGlitModDomType.Text = dompersonalitycombobox.Text @@ -740,14 +632,9 @@ retryStart: FrmSettings.NBWritingTaskMin.Value = My.Settings.NBWritingTaskMin FrmSettings.NBWritingTaskMax.Value = My.Settings.NBWritingTaskMax - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Loading Image settings..." - FrmSplash.Refresh() + FrmSplash.UpdateText("Loading Image settings...") - - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Loading Sub settings..." - FrmSplash.Refresh() + FrmSplash.UpdateText("Loading Sub settings...") FrmSettings.CockSizeNumBox.Value = My.Settings.SubCockSize FrmSettings.subAgeNumBox.Value = My.Settings.SubAge @@ -755,7 +642,12 @@ 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 + 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" @@ -765,15 +657,19 @@ 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 FrmSettings.CBHonorificCapitalized.Checked = False End If - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Loading Range settings..." - FrmSplash.Refresh() + FrmSplash.UpdateText("Loading Range settings...") FrmSettings.SliderSTF.Value = My.Settings.TimerSTF If FrmSettings.SliderSTF.Value = 1 Then FrmSettings.LBLStf.Text = "Preoccupied" @@ -800,11 +696,9 @@ retryStart: FrmSettings.FontComboBox.Text = My.Settings.SubFont FrmSettings.NBFontSize.Text = My.Settings.SubFontSize - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Configuring media player..." - FrmSplash.Refresh() + FrmSplash.UpdateText("Configuring media player...") - 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 @@ -814,9 +708,7 @@ retryStart: BTNFileTransferOpen.Visible = False BTNFIleTransferDismiss.Visible = False - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Initializing Games window..." - FrmSplash.Refresh() + FrmSplash.UpdateText("Initializing Games window...") Try @@ -847,11 +739,7 @@ retryStart: End If - - - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Checking previous orgasms..." - FrmSplash.Refresh() + FrmSplash.UpdateText("Checking previous orgasms...") If My.Settings.LastOrgasm = Nothing Then My.Settings.LastOrgasm = FormatDateTime(Now, DateFormat.ShortDate) @@ -865,9 +753,7 @@ retryStart: FrmSettings.LBLLastRuined.Text = My.Settings.LastRuined.ToString() - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Checking current date..." - FrmSplash.Refresh() + FrmSplash.UpdateText("Checking current date...") If CompareDates(My.Settings.DateStamp) <> 0 Then @@ -900,9 +786,8 @@ retryStart: End If Debug.Print("Test?") - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Calculating average edge information..." - FrmSplash.Refresh() + + FrmSplash.UpdateText("Calculating average edge information...") ssh.AvgEdgeStroking = My.Settings.AvgEdgeStroking ssh.AvgEdgeNoTouch = My.Settings.AvgEdgeNoTouch @@ -926,15 +811,11 @@ retryStart: FrmSettings.LBLAvgEdgeNoTouch.Text = "WAIT" End If - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Loading Domme Personality..." - FrmSplash.Refresh() + FrmSplash.UpdateText("Loading Domme Personality...") ssh.DomPersonality = dompersonalitycombobox.Text - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Clearing temporary flags..." - FrmSplash.Refresh() + FrmSplash.UpdateText("Clearing temporary flags...") 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) @@ -942,18 +823,7 @@ retryStart: System.IO.Directory.CreateDirectory(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Flags\Temp\") - FrmSplash.PBSplash.Value += 1 - 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) - Catch ex As Exception - - End Try + FrmSplash.UpdateText("Loading Glitter Contact image slideshows...") If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Apps\Glitter\Contact_Descriptions.txt") Then @@ -978,9 +848,7 @@ retryStart: WMPTimer.Start() - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Loading Shorthands..." - FrmSplash.Refresh() + FrmSplash.UpdateText("Loading Shorthands...") CBShortcuts.Checked = My.Settings.Shortcuts CBHideShortcuts.Checked = My.Settings.ShowShortcuts @@ -997,9 +865,7 @@ retryStart: TBShortGreet.Text = My.Settings.ShortGreet TBShortSafeword.Text = My.Settings.ShortSafeword - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Checking saved dimensions..." - FrmSplash.Refresh() + FrmSplash.UpdateText("Checking saved dimensions...") '=============================================================================== ' Restore View '=============================================================================== @@ -1029,9 +895,7 @@ retryStart: TeaseAIClock.Start() - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Loading VitalSub..." - FrmSplash.Refresh() + FrmSplash.UpdateText("Loading VitalSub...") '=============================================================================== ' Vital sub '=============================================================================== @@ -1100,17 +964,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() @@ -1120,9 +973,9 @@ retryStart: - If File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_OrgasmRestricted") Then + If VariableExists("SYS_OrgasmRestricted") Then If CompareDatesWithTime(GetDate("SYS_OrgasmRestricted")) <> 1 Then - My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_OrgasmRestricted") + DeleteVariable("SYS_OrgasmRestricted") ssh.OrgasmRestricted = False Else ssh.OrgasmRestricted = True @@ -1134,10 +987,9 @@ retryStart: FormFinishedLoading = True - 'TabControl1.ColorScheme.TabBackground = Color.Transparent - 'TabControl1.ColorScheme.TabBackground2 = Color.Transparent - 'TabControl1.BackColor = Color.Transparent + My.Settings.Save() + setStartName() Trace.WriteLine("Startup has been completed") Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ @@ -1148,196 +1000,53 @@ 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() - ElseIf b = MsgBoxResult.Retry + ElseIf b = MsgBoxResult.Retry Then GoTo retryStart End If End Try End Sub - - Public Sub ResetButton() - - ScriptTimer.Stop() - - Dim TempDate As String - Dim TempDateNow As DateTime = DateTime.Now - - TempDate = TempDateNow.ToString("MM.dd.yyyy hhmm") - - SaveChatLog(TempDate) - - 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) + 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 + MainMenuStrip.Visible = True + MainMenuStrip.Focus() + ElseIf e.Alt AndAlso FormBorderStyle = Windows.Forms.FormBorderStyle.None Then + MainMenuStrip.Visible = False 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 - - - - - - - - - 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 - - - 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 - - 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 + 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 + 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 - 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 + End Sub - 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 + Private Sub sendButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sendButton.Click + ' Check for empty or whitespaced input. + If String.IsNullOrWhiteSpace(chatBox.Text & ChatBox2.Text) Then Exit Sub If TimeoutTimer.Enabled = True Then TimeoutTimer.Stop() @@ -1346,49 +1055,33 @@ 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 - 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(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 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 = "" - If FrmSettings.CBAutosaveChatlog.Checked = True Then My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Chatlogs\Autosave.html", ChatText.DocumentText, False) + 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 @@ -1398,47 +1091,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 - If FrmSettings.CBAutosaveChatlog.Checked = True Then My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Chatlogs\Autosave.html", ChatText.DocumentText, False) + ChatAddMessage(My.Settings.SubName, ssh.ChatString) - If ssh.IsTyping = True Then - ChatText.DocumentText = ssh.Chat & "" & domName.Text & " is typing..." - ChatText2.DocumentText = ssh.Chat & "" & domName.Text & " is typing..." - ChatReadyState() - End If @@ -1458,21 +1117,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 @@ -1499,161 +1143,110 @@ retryStart: Return End If + Debug.Print("CHeck") + If checkSubAnswer("hi") = 1 Then + Debug.Print("CHeck") + ssh.justStarted = True + ssh.SaidHello = True + ssh.BeforeTease = True - 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 FrmSettings.CBTeaseLengthDD.Checked = True Then - If UCase(ssh.ChatString).Contains(UCase(SplitParts(i))) 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.CBHonorificInclude.Checked = True Then - If WordExists(UCase(ssh.ChatString), UCase(FrmSettings.TBHonorific.Text)) = False Then + Else - '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?" - 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 - End If - TypingDelay() - Return - End If + ssh.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) + End If + TeaseTimer.Start() - 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" - TypingDelay() - Return - End If - End If - End If + ' Lock Orgasm Chances if setting is activated. + If My.Settings.LockOrgasmChances Then _ + FrmSettings.LockOrgasmChances(True) - Debug.Print("CHeck") + If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistStartFile - ssh.SaidHello = True - ssh.BeforeTease = True + If ssh.Playlist = False Or ssh.PlaylistFile(0).Contains("Random Start") Then +NoPlaylistStartFile: + Dim StartList As New List(Of String) + StartList.Clear() - If FrmSettings.CBTeaseLengthDD.Checked = True Then + 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 - 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 + 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" + 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.TeaseTick = ssh.randomizer.Next(FrmSettings.NBTeaseLengthMin.Value * 60, FrmSettings.NBTeaseLengthMax.Value * 60) - - End If - - - TeaseTimer.Start() - - ' 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.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 - - 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" - 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 - - 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 - LoadDommeImageFolder() - 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) + 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 @@ -1694,163 +1287,94 @@ 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 - - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - - End If + If ssh.WritingTaskLinesRemaining <= 0 Then TaskSuccess = True - If FrmSettings.CBAutosaveChatlog.Checked = True Then My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Chatlogs\Autosave.html", ChatText.DocumentText, False) + Else - If ssh.IsTyping = True Then + InputWrong = True - ChatText.DocumentText = ssh.Chat & "" & domName.Text & " is typing..." - ChatText2.DocumentText = ssh.Chat & "" & domName.Text & " 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 - If FrmSettings.CBAutosaveChatlog.Checked = True Then My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Chatlogs\Autosave.html", ChatText.DocumentText, False) - - If ssh.IsTyping = True Then + OutColor = "green" + End If - ChatText.DocumentText = ssh.Chat & "" & domName.Text & " is typing..." - ChatText2.DocumentText = ssh.Chat & "" & domName.Text & " 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 = True Then Return + If ssh.AFK And Not ssh.YesOrNo Then Return ' Previous Commas @@ -1875,8 +1399,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 @@ -1922,33 +1448,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 @@ -1968,6 +1494,7 @@ WritingTaskLine: AvoidTheEdgeTaunts.Stop() + ssh.SessionEdges += 1 ssh.AvoidTheEdgeStroking = False ssh.VideoTease = False @@ -2025,12 +1552,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 @@ -2039,7 +1566,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 @@ -2048,7 +1575,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" @@ -2056,7 +1583,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" @@ -2174,7 +1701,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 And FrmSettings.CBDomDenialEnds.Checked = False) Then + ssh.SecondSession = False ssh.SubEdging = False ssh.SubStroking = False EdgeTauntTimer.Stop() @@ -2213,6 +1741,8 @@ WritingTaskLine: ssh.OrgasmYesNo = False ssh.EndTease = False Return + Else + If ssh.LastScript = True Then ssh.EndTease = True End If End If @@ -2254,8 +1784,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 And FrmSettings.CBDomDenialEnds.Checked = False) Then + ssh.SecondSession = False ssh.SubEdging = False ssh.SubStroking = False ssh.EdgeToRuin = False @@ -2296,6 +1827,8 @@ RuinedOrgasm: ssh.OrgasmYesNo = False ssh.EndTease = False Return + Else + If ssh.LastScript = True Then ssh.EndTease = True End If End If @@ -2326,6 +1859,7 @@ NoRepeatRFiles: ssh.Contact3Edge = False End If TypingDelay() + If ssh.LastScript = True Then ssh.EndTease = True Return AllowedOrgasm: @@ -2374,7 +1908,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 And FrmSettings.CBDomDenialEnds.Checked = False) Then + ssh.SecondSession = False ssh.SubEdging = False ssh.SubStroking = False EdgeTauntTimer.Stop() @@ -2413,6 +1948,8 @@ NoNoCumFiles: ssh.OrgasmYesNo = False ssh.EndTease = False Return + Else + If ssh.LastScript = True Then ssh.EndTease = True End If End If @@ -2448,6 +1985,7 @@ NoRepeatOFiles: ssh.Contact3Edge = False End If TypingDelay() + If ssh.LastScript = True Then ssh.EndTease = True Return @@ -2532,8 +2070,8 @@ 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 + SetVariable(ssh.InputString, ssh.ChatString) + 'ssh.InputFlag = False End If ' Remove commas and apostrophes from user's entered text @@ -2543,16 +2081,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 @@ -2561,7 +2099,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 Then 'And ssh.TasksCount <= 0 Then YesOrNoQuestions() Return End If @@ -2579,9 +2117,27 @@ 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 + ssh.justStarted = False + Else + If checkSubAnswer(, False) = 0 Then + checkForPunish() + Return + End If + End If + If ssh.InputFlag = True Then + ssh.InputFlag = False + Return + End If If ssh.EdgeNOT = True Then ssh.EdgeNOT = False @@ -2590,64 +2146,38 @@ EdgeSkip: End If + Dim CheckResponse As String = ssh.ChatString.ToUpper + CheckResponse = CheckResponse.Replace(ssh.tempDomName.ToUpper, "") + If ssh.tempHonorific <> "" Then CheckResponse = CheckResponse.Replace(ssh.tempHonorific.ToUpper, "") + ' Reduce 'multiple space chars' to a single + ' Remove all ,'!?.* while converting all to upper. + CheckResponse = Regex.Replace(CheckResponse, "( )[ ]*|[,'!?\.*]", "$1").ToUpper + CheckResponse = Trim(CheckResponse) - '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(FrmSettings.TBHonorific.Text), "") - CheckResponse = CheckResponse.Replace("!", "") - CheckResponse = CheckResponse.Replace("?", "") - CheckResponse = CheckResponse.Replace(".", "") - 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"), "") - - - 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 - 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 @@ -2656,27 +2186,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 @@ -2725,54 +2255,45 @@ 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 - '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 @@ -2793,41 +2314,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 @@ -2844,8 +2365,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 @@ -2869,179 +2389,103 @@ EdgeSkip: CheckResponse = CheckResponse.Replace(" ", " ") + ' ############ Load all system response Keyfiles ############## + ' Dictionary to temporary store the system response keyphrases. + ' This is used when there is no precise match, to search those phrases again. + Dim SysKeys As New Dictionary(Of String, List(Of String)) - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\", FileIO.SearchOption.SearchTopLevelOnly, "*KEY.txt") - If Not foundFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\EdgeKEY.txt" Then - - Dim SysKeyList As New List(Of String) - SysKeyList = Txt2List(foundFile) + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\", FileIO.SearchOption.SearchTopLevelOnly, "*KEY.txt").AsParallel + If foundFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\EdgeKEY.txt" Then Continue For + Dim SysKeyList As List(Of String) = Txt2List(foundFile) - For i As Integer = 0 To SysKeyList.Count - 1 + For i As Integer = 0 To SysKeyList.Count - 1 + ' Reduce 'multiple space chars' to a single + ' Remove all ,'!?.* while converting all to upper. + SysKeyList(i) = Regex.Replace(SysKeyList(i), "( )[ ]*|[,'!?\.*]", "$1").ToUpper + Next - SysKeyList(i) = SysKeyList(i).Replace(",", "") - SysKeyList(i) = SysKeyList(i).Replace("'", "") - SysKeyList(i) = SysKeyList(i).Replace("!", "") - SysKeyList(i) = SysKeyList(i).Replace("?", "") - SysKeyList(i) = SysKeyList(i).Replace(".", "") - SysKeyList(i) = SysKeyList(i).Replace("*", "") - SysKeyList(i) = SysKeyList(i).Replace(" ", " ") + SysKeys.Add(foundFile, SysKeyList) - If UCase(CheckResponse) = UCase(SysKeyList(i)) Then - ssh.ResponseFile = foundFile - ssh.ResponseFile = ssh.ResponseFile.Replace("KEY", "") - 'QUESTION: (Stefaf) What does the following line? - If UCase(CheckResponse).Contains("DONT") Or UCase(CheckResponse).Contains("NEVER") Or UCase(CheckResponse).Contains("NOT") Then ssh.ResponseFile = ssh.ResponseFile.Replace(".txt", "NOT.txt") - GoTo FoundResponse - Exit For - End If - Next + ' If there is a precise match, all work is done. + If SysKeyList.Contains(CheckResponse) Then + ssh.ResponseFile = foundFile.Replace("KEY", "") + If Regex.IsMatch(CheckResponse, "dont|never|not", RegexOptions.IgnoreCase) Then ssh.ResponseFile = ssh.ResponseFile.Replace(".txt", "NOT.txt") + GoTo FoundResponse End If - Next - ' If frmApps.CBDebugAwareness.Checked = True Then GoTo DebugAwarenessStep2 - - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - - ' Read the first line of the given file. - Dim SplitText As String = TxtReadLine(foundFile) - - Dim SplitResponse As String() = SplitText.Split(New Char() {"]"c}) - SplitResponse(0) = SplitResponse(0).Replace("[", "") - - Do - SplitResponse(0) = SplitResponse(0).Replace(" ", " ") - SplitResponse(0) = SplitResponse(0).Replace(" ,", ",") - SplitResponse(0) = SplitResponse(0).Replace(", ", ",") - SplitResponse(0) = SplitResponse(0).Replace("'", "") - Loop Until Not SplitResponse(0).Contains(" ") And Not SplitResponse(0).Contains(", ") And Not SplitResponse(0).Contains(" ,") And Not SplitResponse(0).Contains("'") - - Dim SplitParts As String() = SplitResponse(0).Split(New Char() {","c}) - - For i As Integer = 0 To SplitParts.Length - 1 - If UCase(CheckResponse) = UCase(SplitParts(i)) Then - ssh.ResponseFile = foundFile - GoTo FoundResponse - Exit For - End If - Next - - Next - -DebugAwarenessStep2: - - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\", FileIO.SearchOption.SearchTopLevelOnly, "*KEY.txt") - If Not foundFile = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\System\EdgeKEY.txt" Then + ' ############## Load all response-files keyphrases ########### + ' Dictionary to temporary store the response keyphrases. + ' This is used when there is no precise match, to search those phrases again. + Dim RespKeys As New Dictionary(Of String, List(Of String)) + For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt").AsParallel + Application.DoEvents() + Dim FirstLine As String = TxtReadLine(foundFile) + ' Remove '[' and all text before as well as ']' and all text afterwards. + FirstLine = Regex.Replace(FirstLine, "^.*\[|\].*$", "", RegexOptions.Singleline) - Dim SysKeyList As New List(Of String) - SysKeyList = Txt2List(foundFile) + If FirstLine.Contains("#") Then + FirstLine = PoundClean(FirstLine, PoundOptions.CommaSepList) + End If + ' Remove 'multiple whitespaces', '[', '] and following text', apostrophe char and convert all to upper. + FirstLine = Regex.Replace(FirstLine, "(\s)\s*|\[|\].*|'", "$1", RegexOptions.Singleline).ToUpper - For i As Integer = 0 To SysKeyList.Count - 1 + ' Split the line using one or more commas, surrounded by zero or more whitechars. + Dim Keys As List(Of String) = Regex.Split(FirstLine, "\s*,+\s*", RegexOptions.None).ToList - SysKeyList(i) = SysKeyList(i).Replace(",", "") - SysKeyList(i) = SysKeyList(i).Replace("'", "") - SysKeyList(i) = SysKeyList(i).Replace("!", "") - SysKeyList(i) = SysKeyList(i).Replace("?", "") - SysKeyList(i) = SysKeyList(i).Replace(".", "") - SysKeyList(i) = SysKeyList(i).Replace("*", "") - SysKeyList(i) = SysKeyList(i).Replace(" ", " ") + RespKeys.Add(foundFile, Keys) - If UCase(CheckResponse).Contains(UCase(SysKeyList(i))) Then - ssh.ResponseFile = foundFile - ssh.ResponseFile = ssh.ResponseFile.Replace("KEY", "") - 'QUESTION: (Stefaf) What does the following line? - If UCase(CheckResponse).Contains("DONT") Or UCase(CheckResponse).Contains("NEVER") Or UCase(CheckResponse).Contains("NOT") Then ssh.ResponseFile = ssh.ResponseFile.Replace(".txt", "NOT.txt") - GoTo FoundResponse - Exit For - End If - Next + ' If there is a precise match, all work is done. + If Keys.Contains(CheckResponse) Then + ssh.ResponseFile = foundFile + GoTo FoundResponse End If Next + ' Check if a system repsonses keyphrase is within the text. + For Each Fp As String In SysKeys.Keys + If SysKeys(Fp).Exists(Function(x) + Return CheckResponse.IndexOf(x, StringComparison.OrdinalIgnoreCase) <> -1 + End Function) Then - 'If frmApps.CBDebugAwareness.Checked = True Then GoTo FoundResponse - - Dim AccuracyLoop As Integer = 6 - - - - For x As Integer = 0 To 5 - - AccuracyLoop -= 1 - - - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") + ssh.ResponseFile = Fp.Replace("KEY", "") + If Regex.IsMatch(CheckResponse, "dont|never|not", RegexOptions.IgnoreCase) Then ssh.ResponseFile = ssh.ResponseFile.Replace(".txt", "NOT.txt") - Application.DoEvents() - - ' Read the first line of the given file. - Dim SplitText As String = TxtReadLine(foundFile) - - Dim SplitResponse As String() = SplitText.Split(New Char() {"]"c}) - SplitResponse(0) = SplitResponse(0).Replace("[", "") - - Do - SplitResponse(0) = SplitResponse(0).Replace(" ", " ") - SplitResponse(0) = SplitResponse(0).Replace(" ,", ",") - SplitResponse(0) = SplitResponse(0).Replace(", ", ",") - SplitResponse(0) = SplitResponse(0).Replace("'", "") - Loop Until Not SplitResponse(0).Contains(" ") And Not SplitResponse(0).Contains(", ") And Not SplitResponse(0).Contains(" ,") And Not SplitResponse(0).Contains("'") - - Dim SplitParts As String() = SplitResponse(0).Split(New Char() {","c}) - - - - - For i As Integer = 0 To SplitParts.Length - 1 - 'Debug.Print("SplitParts(i) = " & SplitParts(i) & " SplitParts(i).Length = " & SplitParts(i).Length & "AccuracyLoop = " & AccuracyLoop) - If UCase(CheckResponse).Contains(UCase(SplitParts(i))) And CountWords(SplitParts(i)) > AccuracyLoop Then - ssh.ResponseFile = foundFile - GoTo FoundResponse - Exit For - End If - Next - - Next + GoTo FoundResponse + End If Next - For Each foundFile As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\Responses\", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") - - ' Read the first line of the given file. - Dim SplitText As String = TxtReadLine(foundFile) - - Dim SplitResponse As String() = SplitText.Split(New Char() {"]"c}) - SplitResponse(0) = SplitResponse(0).Replace("[", "") - - Do - SplitResponse(0) = SplitResponse(0).Replace(" ", " ") - SplitResponse(0) = SplitResponse(0).Replace(" ,", ",") - SplitResponse(0) = SplitResponse(0).Replace(", ", ",") - SplitResponse(0) = SplitResponse(0).Replace("'", "") - Loop Until Not SplitResponse(0).Contains(" ") And Not SplitResponse(0).Contains(", ") And Not SplitResponse(0).Contains(" ,") And Not SplitResponse(0).Contains("'") - - Dim SplitParts As String() = SplitResponse(0).Split(New Char() {","c}) - - For i As Integer = 0 To SplitParts.Length - 1 - - Dim CheckResponseArray() As String = Split(UCase(SplitParts(i))) - - For j As Integer = 0 To CheckResponseArray.Length - 1 - ssh.ResponseFile = foundFile - If Not UCase(CheckResponse).Contains(CheckResponseArray(j)) Then - ssh.ResponseFile = "" - Exit For - End If - Next - - If ssh.ResponseFile <> "" Then GoTo FoundResponse + ' Check if a vocab keyphrase is within the entered text. Longer keyphrases are prioritized. + Dim AccuracyLoop As Integer = 6 + Do While AccuracyLoop > 0 + For Each Fp As String In RespKeys.Keys + If RespKeys(Fp).Exists(Function(x) + Return CheckResponse.Contains(x) AndAlso CountWords(x) > AccuracyLoop + End Function) Then + ssh.ResponseFile = Fp + GoTo FoundResponse + End If Next + AccuracyLoop -= 1 + Loop + ' Check if all words from a response keyphrase are present in any order. + For Each FilePath As String In RespKeys.Keys.AsParallel + If RespKeys(FilePath).Exists(Function(phrase) + For Each Word As String In phrase.Split + If Not CheckResponse.Contains(Word) Then Return False + Next + Return True + End Function) Then + ssh.ResponseFile = FilePath + GoTo FoundResponse + End If Next @@ -3059,26 +2503,20 @@ 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 - If ssh.CBTCockFlag = True Then - CBTCock() - End If - - If ssh.CBTBallsFlag = True Then - CBTBalls() - End If - - If ssh.CBTBothFlag = True Then - CBTBoth() - End If - - If ssh.CustomTask = True Then - RunCustomTask() - End If + If ssh.CBTCockFlag = True Then CBTCock() + If ssh.CBTBallsFlag = True Then CBTBalls() + If ssh.CBTBothFlag = True Then CBTBoth() + If ssh.CustomTask = True Then RunCustomTask() - Return + Exit Sub @@ -3087,19 +2525,6 @@ DebugAwarenessStep2: FoundResponse: - ' ResponseYes = "" - ' ResponseNo = "" - - 'If frmApps.CBDebugAwareness.Checked = True Then - 'If DebugAwarenessLine = "Domme does not recognize this statement" Then - 'Chat = Chat & "" & DebugAwarenessLine & "
" - 'Else - 'Chat = Chat & "" & DebugAwarenessLine & "
" - 'End If - 'ChatText.DocumentText = Chat - 'Return - 'End If - If StrokeTauntTimer.Enabled = True Then ssh.TempScriptCount = 0 If FrmSettings.SliderSTF.Value = 1 Then ssh.StrokeTauntTick = ssh.randomizer.Next(120, 241) @@ -3116,340 +2541,95 @@ FoundResponse: Return End If - 'Debug.Print("DoNotDisturb = " & DoNotDisturb) - 'Debug.Print("DomChat = " & DomChat) - If ssh.DoNotDisturb = True Then If ssh.DomChat.Contains("@Interrupt") Or ssh.DomChat.Contains("@Call(") Or ssh.DomChat.Contains("@CallRandom(") Then ssh.DomChat = "#SYS_InterruptsOff" End If End If - - - TypingDelay() - 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 - SubState = "Chastity" - GoTo FoundState + If ssh.CBTCockFlag Then + Section = "CBT Cock" + ElseIf ssh.CBTBallsFlag = True Or ssh.CBTBothFlag = True Then + 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 ssh.BeforeTease = True Then - SubState = "Before Tease" - GoTo FoundState - End If + Dim RespLines As List(Of String) = Txt2List(ssh.ResponseFile) - If ssh.FirstRound = True Then - SubState = "First Round" - GoTo FoundState - 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 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 - - SubState = "Not Stroking" - -FoundState: - - - If SubState = "Before Tease" Then - - While DomResponse.Peek <> -1 - DRLineTotal += 1 - DRLines.Add(DomResponse.ReadLine()) - If DRLines(DRLineTotal) = "[Before Tease]" Then - AddResponse = True - End If - If DRLines(DRLineTotal) = "[Before Tease End]" Then - AddResponse = False - End If - If AddResponse = False Or 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 DRLines(DRLineTotal) = "[Chastity]" Then - AddResponse = True - End If - If DRLines(DRLineTotal) = "[Chastity End]" Then - AddResponse = False - End If - If AddResponse = False Or 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 DRLines(DRLineTotal) = "[First Round]" Then - AddResponse = True - End If - If DRLines(DRLineTotal) = "[First Round End]" Then - AddResponse = False - End If - If AddResponse = False Or 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 DRLines(DRLineTotal) = "[Stroking]" Then - AddResponse = True - End If - If DRLines(DRLineTotal) = "[Stroking End]" Then - AddResponse = False - End If - If AddResponse = False Or 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 DRLines(DRLineTotal) = "[Not Stroking]" Then - AddResponse = True - End If - If DRLines(DRLineTotal) = "[Not Stroking End]" Then - AddResponse = False - End If - If AddResponse = False Or 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 DRLines(DRLineTotal) = "[Edging]" Then - AddResponse = True - End If - If DRLines(DRLineTotal) = "[Edging End]" Then - AddResponse = False - End If - If AddResponse = False Or 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 DRLines(DRLineTotal) = "[Holding The Edge]" Then - AddResponse = True - End If - If DRLines(DRLineTotal) = "[Holding The Edge End]" Then - AddResponse = False - End If - If AddResponse = False Or 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 DRLines(DRLineTotal) = "[CBT Cock]" Then - AddResponse = True - End If - If DRLines(DRLineTotal) = "[CBT Cock End]" Then - AddResponse = False - End If - If AddResponse = False Or 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 DRLines(DRLineTotal) = "[CBT Balls]" Then - AddResponse = True - End If - If DRLines(DRLineTotal) = "[CBT Balls End]" Then - AddResponse = False - End If - If AddResponse = False Or DRLines(DRLineTotal) = "[CBT Balls]" Then - DRLines.Remove(DRLines(DRLineTotal)) - DRLineTotal -= 1 - End If - End While - End If - - If SubState = "After Tease" Then - - While DomResponse.Peek <> -1 - DRLineTotal += 1 - DRLines.Add(DomResponse.ReadLine()) - If DRLines(DRLineTotal) = "[After Tease]" Then - AddResponse = True - End If - If DRLines(DRLineTotal) = "[After Tease End]" Then - AddResponse = False - End If - If AddResponse = False Or DRLines(DRLineTotal) = "[After Tease]" Then - DRLines.Remove(DRLines(DRLineTotal)) - DRLineTotal -= 1 - End If - End While - End If - - If SubState <> "After Tease" And SubState <> "Before Tease" Then + AddResponse = False - While DomResponse.Peek <> -1 - DRLineTotal += 1 - DRLines.Add(DomResponse.ReadLine()) - If 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 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 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 DRLines(DRLineTotal) = "[All]" Then - AddResponse = True - End If - If DRLines(DRLineTotal) = "[All End]" Then - AddResponse = False - End If - If AddResponse = False Or 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" + ssh.ResponseFile, ex, "ReponseClean(String)") + 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 @@ -3466,9 +2646,7 @@ NullSkip: Public Sub YesOrNoQuestions() - Dim TempChatString As String - TempChatString = UCase(ssh.ChatString) If ssh.CBT = True Then @@ -3485,197 +2663,75 @@ NullSkip: Dim dir As String - If ssh.MiniScript = True Then - dir = ssh.MiniScriptText - Else - dir = ssh.FileText - End If - - - - Dim AcceptLine As Integer + 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 - - AcceptLine = 0 + line = ssh.StrokeTauntVal - Dim TempLineVal As Integer + ssh.tempResponseLine = -1 + ssh.checkAnswers.clearAnswers() Do line += 1 - AcceptLine += 1 - Loop Until InStr(UCase(lines(line)), UCase("@AcceptAnswer")) <> 0 Or InStr(UCase(lines(line)), UCase("@DifferentAnswer")) <> 0 - - - TempLineVal = line - - If ssh.MiniScript = True Then - line = ssh.MiniTauntVal - Else - line = ssh.StrokeTauntVal - End If + Debug.Print("YESNO Line = " & lines(line)) + Dim getWords As String = GetParentheses(lines(line), "[") + getWords = PoundClean(getWords, PoundOptions.CommaSepList) + 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 + Dim ChatReplace As String + '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) - 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 - - + '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 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(FrmSettings.TBHonorific.Text)) Then - ssh.DomChat = SplitParts(i) & " what?" - 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 - End If - TypingDelay() - Return - End If - If FrmSettings.CBHonorificCapitalized.Checked = True Then - If Not ssh.ChatString.Contains(FrmSettings.TBHonorific.Text) Then - ssh.DomChat = "#DomHonorific" - TypingDelay() - Return - End If - End If - End If + 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) & "]", "") + + Splits(0) = PoundClean(Splits(0), PoundOptions.CommaSepList) + + '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 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 - 'Splits(0) = "" - 'DomChat = Join(Splits, "]") - ssh.DomChat = ChatReplace - - ' DomChat = Splits(1) + If checkResult = 1 Then GoTo FoundAnswer + ElseIf checkResult = 0 Then + checkForPunish() + Return End If - Next - 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 - If ssh.MiniScript = True Then - line = ssh.MiniTauntVal - Else - line = ssh.StrokeTauntVal End If - 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).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(FrmSettings.TBHonorific.Text)) Then - ssh.DomChat = SplitParts(i) & " what?" - 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 - End If - TypingDelay() - Return - End If - If FrmSettings.CBHonorificCapitalized.Checked = True Then - If Not ssh.ChatString.Contains(FrmSettings.TBHonorific.Text) Then - ssh.DomChat = "#CapitalizeHonorific" - 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 - - Loop Until InStr(UCase(lines(line)), UCase("@DifferentAnswer")) <> 0 Or InStr(UCase(lines(line)), UCase("@AcceptAnswer")) <> 0 - GoTo NothingFound FoundAnswer: - + ' updateDommeName(ChatReplace) + ssh.DomChat = ChatReplace + 'we clear the answer list If ssh.DomChat.Contains("@NullResponse") Then ssh.NullResponse = True If ssh.DomChat.Contains("@LoopAnswer") Then GoTo LoopAnswer @@ -3683,12 +2739,7 @@ FoundAnswer: YesOrNoLanguageCheck() - - 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 = ssh.tempResponseLine TypingDelay() @@ -3696,11 +2747,14 @@ FoundAnswer: NothingFound: - - If InStr(UCase(lines(line)), UCase("DifferentAnswer")) <> 0 Then + If checkSubAnswer() = 0 Then + checkForPunish() + Return + End If + If InStr(UCase(lines(ssh.tempResponseLine)), UCase("DifferentAnswer")) <> 0 Then DifferentAnswer: - ssh.DomChat = lines(line) + ssh.DomChat = lines(ssh.tempResponseLine) ssh.DomChat = ssh.DomChat.Replace("@DifferentAnswer ", "") LoopAnswer: @@ -3711,9 +2765,11 @@ LoopAnswer: End If - If InStr(UCase(lines(line)), UCase("AcceptAnswer")) <> 0 Then + If InStr(UCase(lines(ssh.tempResponseLine)), UCase("AcceptAnswer")) <> 0 Then + AcceptAnswer: - ssh.DomChat = lines(TempLineVal) + 'ssh.DomChat = lines(line) + ssh.DomChat = lines(ssh.tempResponseLine) ' TimedAnswerTimer.Stop() ssh.DomChat = ssh.DomChat.Replace("@AcceptAnswer ", "") @@ -3722,16 +2778,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 = ssh.tempResponseLine TypingDelay() Return End If @@ -3774,11 +2821,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 @@ -3794,29 +2837,16 @@ 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 = True + Catch ex As ArgumentOutOfRangeException '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' 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 - 'QUESTION (stefaf): Is this line an error? ssh.StrokeTauntVal = gotoline - If ssh.MiniScript = True Then - ssh.MiniTauntVal = gotoline - Else - ssh.StrokeTauntVal = gotoline - End If - Else Throw New FileNotFoundException("The Goto-File """ & GotoText & """ was not found.") End If @@ -3826,7 +2856,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) @@ -3888,8 +2918,8 @@ 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()") - ssh.DomTask = "ERROR: Tease AI did not return a valid @CBTBalls line" + File2Read, ex, "CBTBalls()") + ssh.DomTask = "ERROR: Tease AI did not return a valid @CBTBalls line from file: " & File2Read End Try ssh.CBTBallsFirst = False @@ -3916,8 +2946,8 @@ 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()") - ssh.DomTask = "ERROR: Tease AI did not return a valid @CBTCock line" + File2Read, ex, "CBTCock()") + ssh.DomTask = "ERROR: Tease AI did not return a valid @CBTCock line from file: " & File2Read End Try ssh.CBTCockFirst = False @@ -3957,8 +2987,8 @@ 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()") - ssh.DomTask = "ERROR: Tease AI did not return a valid @CBT line" + File2Read, ex, "CBTBoth()") + ssh.DomTask = "ERROR: Tease AI did not return a valid @CBT line from file: " & File2Read End Try ssh.CBTBothFirst = False @@ -3982,8 +3012,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 @@ -3995,11 +3025,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 @@ -4019,93 +3044,50 @@ 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 'Debug.Print("RunFileText " & StrokeTauntVal) -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 + 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 - - 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 - End If - Catch - End Try - - End If - - - - + End If + Catch + End Try 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) - - If ssh.MiniScript = True Then - If lines(ssh.MiniTauntVal) = "@End" 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 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 + 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 - If Not ssh.StrokeTauntVal > lines.Count - 1 Then - If lines(ssh.StrokeTauntVal) = "@End" Then - If ssh.ShowModule = True Then ssh.ModuleEnd = True + ssh.DomChat = "@NullResponse @StartStroking" End If + TypingDelay() End If End If End If 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 @@ -4113,27 +3095,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 - - ' ### Debug - ModuleEnd: If ssh.ModuleEnd = True And ssh.AvoidTheEdgeGame = False Then @@ -4171,7 +3132,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") @@ -4184,11 +3145,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 @@ -4197,13 +3155,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 @@ -4221,14 +3174,22 @@ ModuleEnd: Return End If - If lines(line) = "@End" Then + 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 ssh.LastScript = False - ssh.EndTease = True + SaveChatLog(False) + ssh.Reset() + FrmSettings.LockOrgasmChances(False) + mainPictureBox.Image = Nothing + Exit Sub End If If ssh.HypnoGen = True Then If ssh.Induction = True Then @@ -4244,87 +3205,7 @@ 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 - - - '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 - End If ScriptTimer.Stop() Return End If @@ -4352,15 +3233,9 @@ NonModuleEnd: Debug.Print("CHeck") - - - ssh.DomTask = (lines(line).Trim) - - - ssh.StringLength = 1 @@ -4654,9 +3529,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 = 0 ssh.GotoFlag = True @@ -4682,24 +3557,20 @@ NonModuleEnd: ssh.FileGoto = GotoSplit(GotoTemp) End If -SkipGotoSearch: +SkipGotoSearch: Dim GotoText As String - If ssh.MiniScript = True Then - GotoText = ssh.MiniScriptText - Else - GotoText = ssh.FileText - End If - Try + GotoText = ssh.FileText + 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 & ")" @@ -4715,27 +3586,85 @@ 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 Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(ex.Message, ex, "Exception occured finding GotoLabel """ & ssh.FileGoto & """ in file """ & GotoText & """") - Throw + 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) + + ' BreakPoint + Do + + 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 = gotolines(i) + Exit For + End If + End If + Next + + ReplaceX += 1 + Application.DoEvents() + + Loop Until ReplaceX > 5 + + End Try + If ReplaceGoto <> "" Then + ReplaceX = 0 + ssh.FileGoto = ReplaceGoto + ReplaceGoto = "" + GoTo ResumeGotoSearch + End If + CancelGoto: ssh.GotoDommeLevel = False ssh.SkipGotoLine = False + If ReplaceX <> 0 Then + If ssh.CallReturns.Count() > 0 Then + ChatAddWarning("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() + ChatAddWarning("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 + ChatAddWarning("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 If + End Sub Public Sub TypingDelay() @@ -4745,8 +3674,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, ",") + 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() @@ -4758,14 +3697,24 @@ 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 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 - 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 @@ -4789,17 +3738,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 @@ -4821,13 +3759,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 - Dim TypingName As String = domName.Text - 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 ssh.DomTask.Contains("@EmoteMessage") Then ssh.EmoMes = True @@ -4837,21 +3771,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 & "
" & TypingName & " is typing...
" - ChatText2.DocumentText = ssh.Chat & "
" & TypingName & " is typing...
" - ChatReadyState() - - Else - - ChatText.DocumentText = ssh.Chat & "" & TypingName & " is typing..." - ChatText2.DocumentText = ssh.Chat & "" & TypingName & " is typing..." - ChatReadyState() - - End If SkipIsTyping: @@ -4894,6 +3816,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 @@ -4921,18 +3844,16 @@ 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 - If ssh.SubStroking = False Or ssh.SubEdging = True Or ssh.SubHoldingEdge = True Then - ' Begin Next Button - - ' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ + 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) <> "@SystemMessage Tease AI has been reset" And ssh.JustShowedSlideshowImage = False And ssh.MultiTauntPictureHold = False Then + ' Begin Next Button + ' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ TryNextWithTease: - End If + ' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ShowPicture = True @@ -4945,43 +3866,50 @@ 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") 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 - 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 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 ssh.contactToUse.Equals(ssh.SlideshowContact1) Then + LineSpeaker = "@Contact1 " + ElseIf ssh.contactToUse.Equals(ssh.SlideshowContact2) Then + LineSpeaker = "@Contact2 " + ElseIf ssh.contactToUse.Equals(ssh.SlideshowContact3) Then + LineSpeaker = "@Contact3 " + End If End If @@ -5020,6 +3948,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", "") @@ -5124,7 +4053,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) @@ -5251,99 +4180,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 - ssh.Chat = "" & "" & ssh.Chat & "" & ssh.DomTask & "
" + ' ##################### System Message ######################## + ChatAddSystemMessage(ssh.DomTask, False) ssh.SysMes = False - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - 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 - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - 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 - - - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - - If ssh.RiskyDeal = True Then FrmCardList.WBRiskyChat.DocumentText = "" & TypeName & ": " & ssh.DomTask & "
" - - Else - - - If FrmSettings.CBWebtease.Checked = True Then - ssh.Chat = "" & "" & "
" & ssh.DomTask & "

" - Else - ssh.Chat = "" & ssh.Chat & "" & TypeName & ": " & ssh.DomTask & "
" - End If - - - - - - ssh.TypeToggle = 0 - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - - If ssh.RiskyDeal = True Then FrmCardList.WBRiskyChat.DocumentText = "" & TypeName & ": " & ssh.DomTask & "
" - + ' ##################### Regular Message ####################### + ChatAddMessage(ssh.contactToUse.TypeName, ssh.DomTask, True) + If ssh.SubWroteLast = True Then ssh.TypeToggle = 0 End If - -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 HypNoResponse: @@ -5356,32 +4207,40 @@ 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 - Catch ex As Exception When ContactToUse IsNot ssh.SlideshowMain + 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 = ssh.contactToUse.ApplyTextedTags(OutputOrg) + ssh.Chat = ssh.Chat.Replace(OutputOrg, ssh.DomTask) + End If + + Catch ex As Exception When ssh.contactToUse IsNot ssh.SlideshowMain '@@@@@@@@@@@@@@ Exception - Try Fallback @@@@@@@@@@@@@@@@@@ - ContactToUse = Nothing + ssh.contactToUse = Nothing Log.WriteError("Error occurred while displaying image. Performing Fallback.", - ex, "Display Image") + ex, "Display Image") + 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") ClearMainPictureBox() Finally ssh.DommeImageSTR = "" @@ -5390,9 +4249,12 @@ 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. + ChatUpdate() - - + ' ####################### TTS Output ########################## If FrmSettings.TTSCheckBox.Checked = True _ And TTSVoice <> "No voices installed" _ And ssh.DomTask <> "" Then @@ -5404,8 +4266,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) @@ -5481,7 +4343,11 @@ 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() @@ -5527,7 +4393,7 @@ DommeSlideshowFallback: If ssh.YesOrNo = False Then If ssh.RapidCode = True Then - RunFileText() + If Not WaitTimer.Enabled Then RunFileText() Else ssh.ScriptTick = ssh.randomizer.Next(4, 7) If ssh.RapidFire = True Then ssh.ScriptTick = 1 @@ -5545,8 +4411,19 @@ DommeSlideshowFallback: ssh.GotoFlag = False + If ssh.EndSession = True Then + ssh.EndSession = False + SaveChatLog(False) + ssh.Reset() + FrmSettings.LockOrgasmChances(False) + mainPictureBox.Image = Nothing + End If If ssh.SubGaveUp = True Then + If ssh.YesOrNo And ssh.giveUpReturn Then + ssh.DomChat = "#SYS_ReturnAnswer" + TypingDelay() + End If ssh.SubGaveUp = False @@ -5561,52 +4438,31 @@ 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 + '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.CallReturns.Clear() + End If + End If - If ssh.ReturnFlag 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) Else - ssh.StrokeTauntVal = -1 RunLinkScript() End If - - - End If - - - End If End If @@ -5640,28 +4496,30 @@ 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() If ssh.DomChat.Contains("@NullResponse") Then ssh.NullResponse = True + ssh.JustShowedBlogImage = True Else 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 + 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() + '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() @@ -5685,10 +4543,6 @@ DommeSlideshowFallback: If ssh.RiskyDeal = True Then FrmCardList.LblRiskType.Visible = True ssh.IsTyping = True - Dim TypingName As String = domName.Text - 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 @@ -5698,23 +4552,8 @@ DommeSlideshowFallback: GoTo SkipIsTyping End If - If FrmSettings.CBWebtease.Checked = True Then - - ChatText.DocumentText = ssh.Chat & "
" & TypingName & " is typing...
" - ChatText2.DocumentText = ssh.Chat & "
" & TypingName & " is typing...
" - ChatReadyState() - - Else - - ChatText.DocumentText = ssh.Chat & "" & TypingName & " is typing..." - ChatText2.DocumentText = ssh.Chat & "" & TypingName & " is typing..." - ChatReadyState() - - End If - - - - + ' ###### display "is typing..." message. + ChatUpdate() SkipIsTyping: @@ -5770,18 +4609,15 @@ 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 - If ssh.SubStroking = False Or ssh.SubEdging = True Or ssh.SubHoldingEdge = True Then - ' Begin Next Button + 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) <> "@SystemMessage Tease AI has been reset" And ssh.JustShowedSlideshowImage = False Then + ' Begin Next Button - ' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ + ' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ TryNextWithTease: - - End If ' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@ -5791,34 +4627,39 @@ 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") 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 ################# '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 @@ -5961,87 +4802,27 @@ 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 - ssh.Chat = "" & "" & ssh.Chat & "" & ssh.DomChat & "
" + ' ##################### System Message ######################## + ChatAddSystemMessage(ssh.DomChat, False) ssh.SysMes = False - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - 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 - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - 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 ")) & "" + Else + ' ##################### Regular Message ####################### + ChatAddMessage(ssh.contactToUse.TypeName, ssh.DomChat, True) + If ssh.SubWroteLast Then ssh.TypeToggle = 0 End If - 'Debug.Print("DomChat = " & DomChat) - If ssh.SubWroteLast = False And FrmSettings.shownamesCheckBox.Checked = False Then + ssh.SubWroteLast = False - - If FrmSettings.CBWebtease.Checked = True Then - ssh.Chat = "" & "" & "
" & ssh.DomChat & "

" - Else - ssh.Chat = "" & "" & ssh.Chat & ssh.DomChat & "
" - End If - - - ChatText.DocumentText = ssh.Chat - ChatText2.DocumentText = ssh.Chat - ChatReadyState() - - If ssh.RiskyDeal = True Then FrmCardList.WBRiskyChat.DocumentText = "" & TypeName & ": " & ssh.DomChat & "
" - - Else - - If FrmSettings.CBWebtease.Checked = True Then - ssh.Chat = "" & "" & "
" & ssh.DomChat & "

" - Else - ssh.Chat = "" & ssh.Chat & "" & TypeName & ": " & ssh.DomChat & "
" - 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 & "
" - - End If - -EndSysMes: - - - - ScrollChatDown() - - - If FrmSettings.CBAutosaveChatlog.Checked = True Then My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Chatlogs\Autosave.html", ChatText.DocumentText, False) - - ssh.SubWroteLast = False - -NullResponseLine2: +NullResponseLine2: Try If BWimageFetcher.TriggerRequired AndAlso BWimageFetcher.WaitToFinish() Then @@ -6051,32 +4832,38 @@ 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 + 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 - Catch ex As Exception When ContactToUse IsNot ssh.SlideshowMain + 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 = ssh.contactToUse.ApplyTextedTags(OutputOrg) + ssh.Chat = ssh.Chat.Replace(OutputOrg, ssh.DomChat) + End If + Catch ex As Exception When ssh.contactToUse IsNot ssh.SlideshowMain '@@@@@@@@@@@@@@ Exception - Try Fallback @@@@@@@@@@@@@@@@@@ - ContactToUse = Nothing + ssh.contactToUse = Nothing Log.WriteError("Error occurred while displaying image. Performing Fallback.", - ex, "Display Image") + ex, "Display Image") GoTo DommeSlideshowFallback Catch ex As Exception '@@@@@@@@@@@@@@@@@@@@@@@ Exception @@@@@@@@@@@@@@@@@@@@@@@@ Log.WriteError("Error occurred while displaying image. Fallback Failed.", - ex, "Display Image") + ex, "Display Image") ClearMainPictureBox() Finally ssh.DommeImageSTR = "" @@ -6085,12 +4872,19 @@ 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. + ChatUpdate() + + + ' ####################### TTS Output ########################## If FrmSettings.TTSCheckBox.Checked = True _ 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 @@ -6135,7 +4929,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 @@ -6156,35 +4954,22 @@ 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 + If ssh.TasksCount > 0 Then + If ssh.CBTCockFlag = True Then + CBTCock() End If - 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 @@ -6195,8 +4980,19 @@ DommeSlideshowFallback: ssh.Responding = False - If ssh.SubGaveUp = True Then + If ssh.EndSession = True Then + ssh.EndSession = False + SaveChatLog(False) + ssh.Reset() + FrmSettings.LockOrgasmChances(False) + mainPictureBox.Image = Nothing + End If + 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 @@ -6224,24 +5020,33 @@ DommeSlideshowFallback: 'FrmSettings.LBLOrgasmCountdown.Text = LastScriptCountdown - If ssh.ReturnFlag Then + If ssh.CallReturns.Count() > 0 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.CallReturns.Clear() + End If + End If + + 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) Else - ssh.StrokeTauntVal = -1 RunLinkScript() End If - End If End If End If - End Sub @@ -6249,14 +5054,16 @@ 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.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 = "" + Dim ManuallyEntered As Boolean = False browsefolderButton.Enabled = False nextButton.Enabled = False previousButton.Enabled = False @@ -6277,13 +5084,19 @@ 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 + ElseIf sender Is ImageFolderComboBox And TypeOf e Is KeyEventArgs Then '=============================================================================== ' ImageFolderComboBox - KeyPressEvent '=============================================================================== @@ -6291,17 +5104,46 @@ DommeSlideshowFallback: If _e.KeyCode = Keys.Enter Then _e.Handled = True + ManuallyEntered = True GoTo chooseComboboxText 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 '=============================================================================== chooseComboboxText: - If Directory.Exists(ImageFolderComboBox.Text) Or isURL(ImageFolderComboBox.Text) Then - GetFolder = ImageFolderComboBox.Text + 'ImageFolderComboBox.Text = 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) + + 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 @@ -6382,7 +5224,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 @@ -6404,8 +5246,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 @@ -6415,7 +5257,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!") @@ -6431,7 +5273,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 @@ -6440,7 +5282,7 @@ Retry: End If If Not (File.Exists(sh.CurrentImage) _ - Or isURL(sh.CurrentImage)) Then + Or isURL(sh.CurrentImage)) Then ClearMainPictureBox() Return End If @@ -6476,16 +5318,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!") @@ -6524,13 +5366,13 @@ 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 + 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 @@ -6543,7 +5385,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 @@ -6551,7 +5393,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 @@ -6595,9 +5436,8 @@ 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.MiniScript = True Then Return If ssh.InputFlag = True Then Return If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return @@ -6617,232 +5457,131 @@ 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 - - 'Debug.Print("ScriptCount = " & ScriptCount) - - 'Debug.Print("TempScriptCOunt = " & TempScriptCount) - - - - - - ' ############################################################################################################## - - - - + If ssh.StrokeTauntTick > 0 Then + ' #################### Time hasn't come ####################### + Exit Sub - If ssh.TempScriptCount = 0 Then 'And LinSelected = False Then - - ' 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 - - ssh.TauntTextTotal -= 1 - - ssh.StrokeFilter = True - + ElseIf ssh.TempScriptCount <= 0 AndAlso FrmSettings.CBDebugTaunts.Checked Then + ' ###################### Debug Taunt ########################## + Dim Lines As New List(Of String) - 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 TmpString As String = FrmSettings.TBDebugTaunts1.Text + If Not String.IsNullOrWhiteSpace(TmpString) Then Lines.Add(TmpString) - ssh.StrokeFilter = False + TmpString = FrmSettings.TBDebugTaunts2.Text + If Not String.IsNullOrWhiteSpace(TmpString) Then Lines.Add(TmpString) - ssh.TauntTextTotal = ssh.TauntLines.Count + TmpString = FrmSettings.TBDebugTaunts3.Text + If Not String.IsNullOrWhiteSpace(TmpString) Then Lines.Add(TmpString) - 'Debug.Print("TauntTextTotal = " & TauntTextTotal) + 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 - End If + ssh.TauntText = "Debug-Menu" + ssh.TauntLines = Lines + ssh.TauntTextCount = 0 + ssh.TempScriptCount = Lines.Count - 1 + 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 TauntFiles As New List(Of TauntProcessingObject) + 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 - 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 + If TauntFiles.Count = 0 Then + ' No Taunt available + ssh.TauntText = "" + ssh.TauntLines = New List(Of String) + ssh.TauntTextCount = 0 + ssh.TempScriptCount = 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) + ' Taunt available + Dim TauntToUse As TauntProcessingObject - ' 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 + ' Increase chance of one line taunt + Dim OneLineChance As Integer = ssh.randomizer.Next(0, 101) - 'FileText = LinList(randomizer.Next(0, LinList.Count)) + 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 - 'LinList.Clear() + ssh.TauntText = TauntToUse.FilePath + ssh.TauntLines = TauntToUse.Lines + ssh.TauntTextCount = TauntToUse.RandomTauntLine + ssh.TempScriptCount = TauntToUse.TauntSize - 1 - 'LinList = Txt2List(FileText) + ssh.MultiTauntPictureHold = False - 'TempScriptCount = LinList.Count - 'LinLine = TempScriptCount + End If + Else + ' ##################### Next Taunt line ####################### + ssh.TauntTextCount += 1 - 'End If + If ssh.TempScriptCount > 0 Then ssh.MultiTauntPictureHold = True 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.DomTask = "ERROR: Tease AI did not return a valid Taunt" + ssh.TauntText, ex, "StrokeTauntTimer.Tick") + ssh.DomTask = "ERROR: Tease AI did not return a valid Taunt from file: " & ssh.TauntText 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 - - - - 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 - + 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 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 @@ -6851,27 +5590,36 @@ Retry: End Sub - Public Sub CBTScript() - Dim CBTAmount As Integer - - ssh.CBT = True - ssh.YesOrNo = True - Dim CBTCount As Integer + Public Sub CBTScript() + Try + Dim FilePath As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\CBT\CBT.txt" - Dim lines As List(Of String) = Txt2List(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\CBT\CBT.txt") - CBTCount += lines.Count + 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 - CBTCount = ssh.randomizer.Next(0, CBTCount) + Dim lines As List(Of String) = Txt2List(FilePath) + If lines.Count = 0 Then Throw New Exception("TEASE-AI: CBT-file is empty: " & FilePath) - ssh.DomTask = lines(CBTCount) + lines = FilterList(lines) + If lines.Count = 0 Then Throw New Exception("TEASE-AI: No available lines in CBT-file: " & FilePath) - CBTAmount = ssh.randomizer.Next(1, 6) * 2 * FrmSettings.domlevelNumBox.Value - ssh.DomTask = ssh.DomTask.Replace("#CBTAmount", CBTAmount) + Dim CBTCount As Integer - 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 @@ -6891,23 +5639,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 @@ -6920,39 +5668,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 @@ -6964,20 +5712,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 @@ -6991,7 +5739,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" @@ -7094,16 +5842,15 @@ 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 - '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 @@ -7137,7 +5884,6 @@ GetAnotherRandomVideo: 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 @@ -7159,7 +5905,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" @@ -7171,10 +5917,9 @@ 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 ssh.MiniScript = True Then Return If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return If ssh.DomTyping = True Then Return @@ -7260,8 +6005,8 @@ 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") - ssh.DomTask = "ERROR: Tease AI did not return a valid Censorship Sucks line" + CensorVideo, ex, "CensorshipTimer.Tick") + ssh.DomTask = "ERROR: Tease AI did not return a valid Censorship Sucks line from file: " & CensorVideo End Try TypingDelayGeneric() @@ -7271,9 +6016,8 @@ 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 ssh.MiniScript = True Then Return If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return If ssh.DomTyping = True Then Return @@ -7314,8 +6058,8 @@ 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") - ssh.DomTask = "ERROR: Tease AI did not return a valid RLGL line" + file2read, ex, "RLGLTimer.Tick") + ssh.DomTask = "ERROR: Tease AI did not return a valid RLGL line from file: " & file2read End Try TypingDelayGeneric() @@ -7326,534 +6070,46 @@ CensorConstant: - 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() - - - ssh.UpdatingPost = True - - - If ssh.UpdateStage > 0 Then GoTo StatusUpdateBegin - - 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") - - ' 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 - - 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 & " " & domName.Text & "
" & Date.Today & "

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

" - - '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 - - ' 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)) - 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 - - '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) - - 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) - - - - - 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 - 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() - - - 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 - - '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() + 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(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles subName.Leave + My.Settings.SubName = subName.Text + 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(ByVal sender As System.Object, ByVal 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() - End If + domAvatar.Image = Image.FromFile(OpenFileDialog1.FileName) + My.Settings.DomAvatarSave = OpenFileDialog1.FileName 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 + Private Sub MediaButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnToggleMediaPanel.Click If SplitContainer1.Panel2.Height < 68 Then Return @@ -7872,54 +6128,37 @@ 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 - - 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) - + 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(") 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)) + 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 + 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 - StringClean = StringClean.Replace("@RT(" & OriginalRand & ")", TempText) - End If + Next Next End If - - If FrmSettings.CBCockToClit.Checked = True Then StringClean = StringClean.Replace("#Cock", "#CockToClit") StringClean = StringClean.Replace("stroking", "#StrokingToRubbing") @@ -7932,9 +6171,26 @@ StatusUpdateEnd: StringClean = StringClean.Replace("#SubName", subName.Text) - StringClean = StringClean.Replace("#DomName", domName.Text) + 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) + StringClean = StringClean.Replace("#MainHonorific", My.Settings.SubHonorific) + + If StringClean.Contains("#Contact1Honorific") Then StringClean = StringClean.Replace("#Contact1Honorific", My.Settings.G1Honorific) + + If StringClean.Contains("#Contact2Honorific") Then StringClean = StringClean.Replace("#Contact2Honorific", My.Settings.G2Honorific) - StringClean = StringClean.Replace("#DomHonorific", FrmSettings.TBHonorific.Text) + If StringClean.Contains("#Contact3Honorific") Then StringClean = StringClean.Replace("#Contact3Honorific", My.Settings.G3Honorific) + + If ssh.dommePresent = True Then + StringClean = StringClean.Replace("#DomHonorific", ssh.tempHonorific) + Else + StringClean = StringClean.Replace("#DomHonorific", My.Settings.SubHonorific) + End If StringClean = StringClean.Replace("#DomAge", FrmSettings.domageNumBox.Value) @@ -7942,9 +6198,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) @@ -7998,7 +6254,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) @@ -8063,37 +6319,49 @@ StatusUpdateEnd: 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 + 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 @@ -8200,34 +6468,34 @@ 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[") + 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 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 - '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 @@ -8351,6 +6619,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 @@ -8410,211 +6748,224 @@ StatusUpdateEnd: End Function + Public Enum PoundOptions + None = 0 + CommaSepList = 1 + End Enum - Public Function PoundClean(ByVal StringClean As String) As String + Public Function PoundClean(ByVal stringClean As String, + Optional ByVal options As PoundOptions = PoundOptions.None, + Optional ByVal startRecurrence As Integer = 0) As String + + Dim AlreadyChecked As List(Of String) = New List(Of String) #If TRACE Then Dim TS As New TraceSwitch("PoundClean", "") If TS.TraceVerbose Then Trace.WriteLine("============= PoundClean(String) =============") Trace.Indent() - Trace.WriteLine(String.Format("StartValue: ""{0}""", StringClean)) + Trace.WriteLine(String.Format("StartValue: ""{0}""", stringClean)) ElseIf TS.TraceInfo Then - Trace.WriteLine(String.Format("PoundClean(String) parsing: ""{0}""", StringClean)) + Trace.WriteLine(String.Format("PoundClean(String) parsing: ""{0}""", stringClean)) Trace.Indent() End If - Dim sw As New Stopwatch + Dim Sw As New Stopwatch Dim StartTime As Date = Now - sw.Start() + Sw.Start() #End If + Dim OrgString As String = stringClean + Dim ActRecurrence As Integer = startRecurrence + + ' 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 OrgString As String = StringClean - Dim Recurrence As Integer = 0 + ' Append included non-Keywords to pattern. + Dim NonKeywordInclude As String() = {"@RT\(", "@RandomText\("} + Pattern &= If(NonKeywordInclude.Length = 0, "", "|" & String.Join("|", NonKeywordInclude)) - Do While Recurrence < 5 AndAlso (StringClean.Contains("#") Or StringClean.Contains("@Tag")) - Recurrence += 1 + Dim RegexKeyWords As New Regex(Pattern) + + Do While ActRecurrence < 6 AndAlso RegexKeyWords.IsMatch(stringClean) + ActRecurrence += 1 #If TRACE Then If TS.TraceVerbose Then - Trace.WriteLine(String.Format("Starting scan run {0} on ""{1}""", Recurrence, StringClean)) + Trace.WriteLine(String.Format("Starting scan run {0} on ""{1}""", ActRecurrence, 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 + ' 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 ControlCustom As String = "" + If stringClean.Contains("@CustomMode(") Then + ControlCustom = GetParentheses(stringClean, "@CustomMode(") + End If - Dim TagFilePath As String = Path.GetDirectoryName(slide.CurrentImage) & "\ImageTags.txt" + For Each Keyword As Match In Mc + ' Start next loop if we already checked this vocab. + If AlreadyChecked.Contains(Keyword.Value, StringComparer.OrdinalIgnoreCase) Then Continue For - 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) +#If TRACE Then + If TS.TraceVerbose Then Trace.WriteLine(String.Format("Applying vocabulary: ""{0}""", Keyword.Value)) +#End If + AlreadyChecked.Add(Keyword.Value) + Dim Replacement As String = "" 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 + Dim Filepath As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\" & Keyword.Value & ".txt" - If FoundTagSplit(j).Contains("TagUnderwear") Then - ssh.TagUnderwear = FoundTagSplit(j).Replace("TagUnderwear", "") - ssh.TagUnderwear = ssh.TagUnderwear.Replace("-", " ") - End If + ' ################ Check if vocab file exists ################# + If Not Directory.Exists(Path.GetDirectoryName(Filepath)) _ + OrElse Not File.Exists(Filepath) Then - If FoundTagSplit(j).Contains("TagTattoo") Then - ssh.TagTattoo = FoundTagSplit(j).Replace("TagTattoo", "") - ssh.TagTattoo = ssh.TagTattoo.Replace("-", " ") - End If + If UCase(Keyword.Value) = "#NULL" Then + ' Replace predefined value + stringClean = stringClean.Replace(Keyword.Value, "") - If FoundTagSplit(j).Contains("TagSexToy") Then - ssh.TagSexToy = FoundTagSplit(j).Replace("TagSexToy", "") - ssh.TagSexToy = ssh.TagSexToy.Replace("-", " ") - End If + Else + ' The vocab file is missing - If FoundTagSplit(j).Contains("TagFurniture") Then - ssh.TagFurniture = FoundTagSplit(j).Replace("TagFurniture", "") - ssh.TagFurniture = ssh.TagFurniture.Replace("-", " ") - End If + stringClean = stringClean.Replace(Keyword.Value, ChatGetInlineError(Keyword.Value.Substring(1))) + Dim Lazytext As String = "Unable to locate vocabulary file: """ & Keyword.Value & """" + Log.WriteError(Lazytext, New Exception(Lazytext), "PoundClean(String)") - 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: + Continue For ' Start next loop + End If - If StringClean.Contains("#") Or StringClean.Contains("@Tag") Then + ' #################### Process vocab file ##################### - Dim re As New Regex("#[#\w\d\+\-_]+", RegexOptions.IgnoreCase) - Dim mc As MatchCollection = re.Matches(StringClean) + Dim VocabLines As List(Of String) = Txt2List(Filepath) + VocabLines = FilterList(VocabLines) - For Each keyword As Match In mc -#If TRACE Then - If TS.TraceVerbose Then Trace.WriteLine(String.Format("Applying vocabulary: ""{0}""", keyword.Value)) -#End If + If ControlCustom.Contains(Keyword.ToString) Then customVocabLines = VocabLines - Dim filepath As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\Vocabulary\" & keyword.Value & ".txt" + If VocabLines.Count <= 0 Then + ' ----------------- No Lines available ---------------- + Replacement = ChatGetInlineWarning(Keyword.Value.Substring(1)) + ChatAddWarning("No available lines in vocabulary file: """ & Keyword.Value & "") - If Directory.Exists(Path.GetDirectoryName(filepath)) AndAlso File.Exists(filepath) Then - Dim lines As List(Of String) = Txt2List(filepath) + ElseIf options.HasFlag(PoundOptions.CommaSepList) Then + ' -------------- Get comma separated list -------------- + Dim CleanLines As New List(Of String) - 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 + For Each Line As String In VocabLines + CleanLines.Add(PoundClean(Line, options, ActRecurrence)) + Next - 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", "") + Replacement = String.Join(",", CleanLines) 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)") + ' -------------- Pick a single random line ------------- + Replacement = VocabLines(ssh.randomizer.Next(0, VocabLines.Count)) End If + Catch ex As Exception + Log.WriteError("Error Processing vocabulary file: " & Keyword.Value, ex, + "Tease AI did not return a valid line while parsing vocabulary file.") + Replacement = ChatGetInlineError(Keyword.Value.Substring(1)) + Finally - Next + stringClean = stringClean.Replace(Keyword.Value, Replacement) + End Try - End If -#If Trace Then + Next + +#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.") Trace.Indent() Trace.WriteLine(String.Format("StartValue: ""{0}""", OrgString)) - Trace.WriteLine(String.Format("EndValue: ""{0}""", StringClean)) + Trace.WriteLine(String.Format("EndValue: ""{0}""", stringClean)) Trace.Unindent() 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 - Trace.WriteLine(String.Format("EndValue: ""{0}""", StringClean)) + Trace.WriteLine(String.Format("EndValue: ""{0}""", stringClean)) Trace.WriteLine(String.Format("Duration: {0}ms", (Now - StartTime).TotalMilliseconds.ToString)) End If #End If End If -#If trace Then +#If TRACE Then Trace.Unindent() #End If - Return StringClean + Return stringClean End Function Public Function CommandClean(ByVal StringClean As String, Optional ByVal TaskClean As Boolean = False) As String Debug.Print("Stringclean Intro = " & StringClean) + If TaskClean = True Then Debug.Print("Tasks CommandClean") GoTo TaskCleanSet End If -RinseLatherRepeat: + 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.Trim.EndsWith(")") Then ssh.FollowUp = ssh.FollowUp.Remove(ssh.FollowUp.LastIndexOf(")"c), 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 + 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.Trim.EndsWith(")") Then FollowLineTemp = FollowLineTemp.Remove(FollowLineTemp.LastIndexOf(")"c), 1) + + If ssh.TempVal <= FollowVal Then ssh.FollowUp = FollowLineTemp + + StringClean = StringClean.Replace("@FollowUp" & FollowTemp & "(" & FollowLineTemp & ")", "") + End If + +RinseLatherRepeat: '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ ' ImageCommands ' - Make sure you call all Display ImageFunctions before executing @LockImages. @@ -8637,7 +6988,7 @@ RinseLatherRepeat: ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError("Command @DeleteLocalImage was unable to delete the image.", - ex, "@DeleteLocalImage failed") + ex, "@DeleteLocalImage failed") End Try End If StringClean = StringClean.Replace("@DeleteLocalImage", "") @@ -8655,7 +7006,7 @@ RinseLatherRepeat: ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError("Command @DeleteImage was unable to delete the image.", - ex, "@DeleteImage failed") + ex, "@DeleteImage failed") End Try End If StringClean = StringClean.Replace("@DeleteImage", "") @@ -8675,8 +7026,9 @@ 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 = GetLocalImage(TagFlag, True) + If ssh.DommeImageSTR = String.Empty Then ssh.DommeImageSTR = GetLocalImage(TagFlag, True, "Or") Else ssh.DommeImageSTR = "" End If @@ -8684,19 +7036,59 @@ 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 = GetLocalImage(TagFlag, True, "Or") + Else + ssh.DommeImageSTR = "" + End If + ' Clean the Text. + StringClean = StringClean.Replace("@DommeTagOr(" & TagFlag & ")", "") + 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 = GetLocalImage(TagFlag, True, "Any") + Else + ssh.DommeImageSTR = "" + End If + ' Clean the Text. + StringClean = StringClean.Replace("@DommeTagAny(" & TagFlag & ")", "") + End If + 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 + If StringClean.Contains("@NewContact1Slideshow") Then + 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.LoadNew(False) + StringClean = StringClean.Replace("@NewContact2Slideshow", "") + End If + + If StringClean.Contains("@NewContact3Slideshow") Then + If ssh.contact3Present Then ssh.SlideshowContact3.LoadNew(False) + 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. 'QND-Implemented: ContactData.GetTaggedImage - If ContactToUse IsNot Nothing Then - ssh.DommeImageSTR = ContactToUse.GetTaggedImage(TagFlag, True) + If ssh.contactToUse IsNot Nothing Then + ssh.DommeImageSTR = GetLocalImage(TagFlag, True) + If ssh.DommeImageSTR = String.Empty Then ssh.DommeImageSTR = GetLocalImage(TagFlag, True, "Or") Else ssh.DommeImageSTR = "" End If @@ -8704,15 +7096,46 @@ 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 = 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) StringClean = StringClean.Replace("@ImageTag(" & TagFlag & ")", "") End If - If StringClean.Contains("@ShowImage") And Not StringClean.Contains("@ShowImage[") Then - ShowImage(GetRandomImage(), False) - StringClean = StringClean.Replace("@ShowImage", "") + If StringClean.Contains("@ImageTagOr(") Then + Dim TagFlag As String = GetParentheses(StringClean, "@ImageTagOr(") + 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) + StringClean = StringClean.Replace("@ImageTagAny(" & TagFlag & ")", "") End If If StringClean.Contains("@ShowButtImage") Or StringClean.Contains("@ShowButtsImage") Then @@ -8805,11 +7228,6 @@ RinseLatherRepeat: 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 - '=============================================================================== ' @ShowLocalImage() '=============================================================================== @@ -8900,100 +7318,50 @@ RinseLatherRepeat: '---------------------------------------- ' @ShowLocalImage()- End '---------------------------------------- + + If StringClean.Contains("@ShowLocalImage") Then + ShowImage(GetRandomImage(ImageSourceType.Local), False) + StringClean = StringClean.Replace("@ShowLocalImage", "") + End If + '=============================================================================== ' @ShowTaggedImage '=============================================================================== - If StringClean.Contains("@ShowTaggedImage") Then + If StringClean.Contains("@ShowTaggedImage") OrElse StringClean.Contains("@Tag") Then + + ChatAddWarning("@ShowTaggedImage and all @Tag- instructions are marked as obsolete. Use @ImageTag() instead.") + 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) '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[") - 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 = "*" 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 + ssh.JustShowedBlogImage = True + ShowImage(FoundString, False) - 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[]") - 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 + + If StringClean.Contains("@ShowImage") Then + ShowImage(GetRandomImage(), False) + StringClean = StringClean.Replace("@ShowImage", "") + End If '---------------------------------------- ' @ShowImage[]- End '---------------------------------------- @@ -9023,7 +7391,7 @@ ShowedBlogImage: TnASlides.Start() Catch ex As Exception Log.WriteError("Unable to start TnA Slideshow: " & vbCrLf & - ex.Message, ex, "CommandClean()") + ex.Message, ex, "CommandClean()") End Try StringClean = StringClean.Replace("@TnAFastSlides", "") @@ -9200,7 +7568,9 @@ ShowedBlogImage: ' 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("@CurrentImage") Then + StringClean = StringClean.Replace("@CurrentImage", ssh.ImageLocation) + 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 @@ -9221,43 +7591,48 @@ ShowedBlogImage: ' itself. For example, @Chance50(Domme Instructions) would have a 50% chance of jumping to (Domme Instructions). If StringClean.Contains("@Chance") Then + Dim ChanceArray As String() = StringClean.Split(")") - Dim ChanceTemp As String - Dim TSStartIndex As Integer - Dim TSEndIndex As Integer - - 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 @@ -9267,7 +7642,6 @@ ShowedBlogImage: ' @CheckFlag(FlagName, (Domme Instructions)) is incorrect. If StringClean.Contains("@CheckFlag") Then - Dim CheckArray As String() = StringClean.Split(")") For i As Integer = 0 To CheckArray.Count - 1 @@ -9308,13 +7682,9 @@ ShowedBlogImage: 'CheckArray(i) = CheckArray(i).Replace("@CheckFlag(" & OriginalCheck & ")", "") StringClean = StringClean.Replace("@CheckFlag(" & OriginalCheck & ")", "") - End If - Next - ' StringClean = Join(CheckArray, Nothing) - End If @@ -9325,7 +7695,6 @@ TaskCleanSet: ' 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 - Dim SetArray As String() = StringClean.Split(")") For i As Integer = 0 To SetArray.Count - 1 @@ -9359,13 +7728,9 @@ TaskCleanSet: 'SetArray(i) = SetArray(i).Replace("@SetFlag(" & OriginalSet & ")", "") 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. @@ -9373,7 +7738,6 @@ TaskCleanSet: ' 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 - Dim TempArray As String() = StringClean.Split(")") For i As Integer = 0 To TempArray.Count - 1 @@ -9407,22 +7771,16 @@ TaskCleanSet: '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("@DeleteFlag(") Then - Dim DeleteArray As String() = StringClean.Split(")") For i As Integer = 0 To DeleteArray.Count - 1 @@ -9455,37 +7813,36 @@ TaskCleanSet: ' DeleteArray(i) = DeleteArray(i).Replace("@DeleteFlag(" & OriginalDelete & ")", "") 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 \ / : * ? " < > | - - If StringClean.Contains("@SetVar[") Then + ' 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 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 + If VarArray(i).Contains("@RoundVar[") Then SCGotVar = VarArray(i) VarArray(i) = "" + End If - SCGotVar = SCGotVar.Replace("@SetVar[", "") + SCGotVar = SCGotVar.Replace("@RoundVar[", "") - Dim SCGotVarSplit As String() = Split(SCGotVar, "]") + Dim SCGotVarSplit As String() = Split(SCGotVar, "]") - Dim VarName As String = SCGotVarSplit(0) + Dim VarName As String = SCGotVarSplit(0) + Dim Val1 As Integer + + If VariableExists(VarName) Then + Integer.TryParse(GetVariable(VarName), Val1) SCGotVarSplit(0) = "" @@ -9494,106 +7851,104 @@ TaskCleanSet: SCGotVar = SCGotVar.Replace("=[", "") SCGotVar = SCGotVar.Replace(" ", "") - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName, SCGotVar, False) + Dim VarValue As Integer = Val(SCGotVar) - End If + Val1 = VarValue * Math.Round(Val1 / VarValue) - Next + SetVariable(VarName, Val1) + End If + ' StringClean = StringClean.Replace("@RoundVar[" & OriginalCheck & ")", "") + 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 + ' 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 CheckArray As String() = StringClean.Split(")") - Dim OriginalCheck As String + If StringClean.Contains("@ChangeVar[") Then + Dim ChangeArray As String() = StringClean.Split - For i As Integer = 0 To CheckArray.Count - 1 + For i As Integer = 0 To ChangeArray.Count - 1 - If CheckArray(i).Contains("@SetDate(") Then + Debug.Print("CHangeVar ChangeArray(i) = " & ChangeArray(i)) - 'CheckArray(i) = CheckArray(i) & "]" + If ChangeArray(i).Contains("@ChangeVar[") Then - Dim CheckFlag As String = GetParentheses(CheckArray(i), "@SetDate(") - OriginalCheck = CheckFlag + Dim ChangeFlag As String = ChangeArray(i) + Dim ChangeStart As Integer = ChangeFlag.IndexOf("@ChangeVar[") + 11 - Debug.Print("Original Check = " & OriginalCheck) + ChangeFlag = ChangeArray(i).Substring(ChangeStart, ChangeArray(i).Length - ChangeStart) + Dim VarName As String = ChangeFlag.Split("]")(0) + Dim ArgVal1 As String = ChangeFlag.Split("]")(1) + Dim ArgVal2 As String = ChangeFlag.Split("]")(2) + Dim mathOperator As String = ChangeFlag.Split("]")(2).Substring(0, 1) - CheckFlag = CheckFlag.Replace(", ", ",") - CheckFlag = CheckFlag.Replace(" ,", ",") + ChangeArray(i) = ChangeArray(i).Replace("@ChangeVar[" & VarName & "]" & ArgVal1 & "]" & ArgVal2 & "]", "") - Dim FlagArray() As String = CheckFlag.Split(",") + VarName = VarName.Replace("@ChangeVar[", "") + ArgVal1 = ArgVal1.Replace("=[", "") + ArgVal2 = ArgVal2.Replace("+[", "") + ArgVal2 = ArgVal2.Replace("-[", "") + ArgVal2 = ArgVal2.Replace("*[", "") + ArgVal2 = ArgVal2.Replace("/[", "") - Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) + ChangeVariable(VarName, ArgVal1, mathOperator, ArgVal2) - 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) + End If + Next - 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) + StringClean = Join(ChangeArray) + End If - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & FlagArray(0), FormatDateTime(SetDate, DateFormat.GeneralDate), False) + ' 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("CheckArray(i) = " & CheckArray(i)) + If StringClean.Contains("@ShowVar[") Then + Dim VarSplit As String() = StringClean.Split("]") - ' CheckArray(i) = CheckArray(i).Replace("@SetDate(" & OriginalCheck, "") + For i As Integer = 0 To VarSplit.Count - 1 - StringClean = StringClean.Replace("@SetDate(" & OriginalCheck & ")", "") + 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) - 'StringClean = Join(CheckArray, Nothing) + Debug.Print("Try this shit @ShowVar[" & VarFlag & "]") + StringClean = StringClean.Replace("@ShowVar[" & VarFlag & "]", VarFlag2) + End If + 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 \ / : * ? " < > | - ' 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("@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("@RoundVar[") Then + If VarArray(i).Contains("@SetVar[") Then SCGotVar = VarArray(i) VarArray(i) = "" - End If - - SCGotVar = SCGotVar.Replace("@RoundVar[", "") - Dim SCGotVarSplit As String() = Split(SCGotVar, "]") - - Dim VarName As String = SCGotVarSplit(0) - Dim Val1 As Integer - - Dim VarCheck As String = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName + SCGotVar = SCGotVar.Replace("@SetVar[", "") + Dim SCGotVarSplit As String() = Split(SCGotVar, "]") - '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 VarName As String = SCGotVarSplit(0) SCGotVarSplit(0) = "" @@ -9602,135 +7957,71 @@ TaskCleanSet: SCGotVar = SCGotVar.Replace("=[", "") SCGotVar = SCGotVar.Replace(" ", "") - Dim VarValue As Integer = Val(SCGotVar) - - Val1 = VarValue * Math.Round(Val1 / VarValue) - - 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) - - 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. - - If StringClean.Contains("@ChangeVar[") Then - - Dim ChangeArray As String() = StringClean.Split - - For i As Integer = 0 To ChangeArray.Count - 1 - - Debug.Print("CHangeVar ChangeArray(i) = " & ChangeArray(i)) - - If ChangeArray(i).Contains("@ChangeVar[") Then - - 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 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) - - 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[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 - 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(SCGotVar) = False Then + If VariableExists(SCGotVar) Then + SCGotVar = GetVariable(SCGotVar) Else - Val2 = 0 + SCGotVar = 0 End If Else - Val2 = Val(ChangeVal2) + SCGotVar = Val(SCGotVar) End If + SetVariable(VarName, SCGotVar) + End If + 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" - - Dim ChangeVal As Integer = 0 + ' 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 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 StringClean.Contains("@SetDate(") Then + Dim CheckArray As String() = StringClean.Split(")") + Dim OriginalCheck As String - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & ChangeVar, ChangeVal, False) + For i As Integer = 0 To CheckArray.Count - 1 - End If + If CheckArray(i).Contains("@SetDate(") Then - Next + 'CheckArray(i) = CheckArray(i) & "]" - End If + Dim CheckFlag As String = GetParentheses(CheckArray(i), "@SetDate(") + OriginalCheck = CheckFlag - ' 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("Original Check = " & OriginalCheck) - If StringClean.Contains("@ShowVar[") Then + CheckFlag = CheckFlag.Replace(", ", ",") + CheckFlag = CheckFlag.Replace(" ,", ",") - Dim VarSplit As String() = StringClean.Split("]") + Dim FlagArray() As String = CheckFlag.Split(",") - For i As Integer = 0 To VarSplit.Count - 1 + Dim SetDate As Date = FormatDateTime(Now, DateFormat.GeneralDate) - If VarSplit(i).Contains("@ShowVar[") Then + 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 VarString As String = VarSplit(i) & "]" + 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) - 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) + SetVariable(FlagArray(0), FormatDateTime(SetDate, DateFormat.GeneralDate)) - Debug.Print("Try this shit @ShowVar[" & VarFlag & "]") + Debug.Print("CheckArray(i) = " & CheckArray(i)) - StringClean = StringClean.Replace("@ShowVar[" & VarFlag & "]", VarFlag2) + ' CheckArray(i) = CheckArray(i).Replace("@SetDate(" & OriginalCheck, "") + StringClean = StringClean.Replace("@SetDate(" & OriginalCheck & ")", "") End If - Next - + 'StringClean = Join(CheckArray, Nothing) End If @@ -9749,7 +8040,6 @@ TaskCleanSet: End If If StringClean.Contains("@AddTokens(") Then - Dim TokenFlag As String = GetParentheses(StringClean, "@AddTokens(") TokenFlag = FixCommas(TokenFlag) Dim TokenAdd As Integer @@ -9775,12 +8065,10 @@ TaskCleanSet: StringClean = StringClean.Replace("@AddTokens(" & TokenFlag & ")", "") - End If If StringClean.Contains("@RemoveTokens(") Then - Dim TokenFlag As String = GetParentheses(StringClean, "@RemoveTokens(") TokenFlag = FixCommas(TokenFlag) Dim TokenRemove As Integer @@ -9810,14 +8098,13 @@ TaskCleanSet: StringClean = StringClean.Replace("@RemoveTokens(" & TokenFlag & ")", "") - 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) + MessageBox.Show(Me, ssh.tempDomName & " has given you 1 Bronze token!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) StringClean = StringClean.Replace("@Add1Token", "") End If @@ -9825,7 +8112,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 @@ -9833,15 +8120,15 @@ TaskCleanSet: 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", "") - MessageBox.Show(Me, domName.Text & " 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 @@ -9849,7 +8136,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 @@ -9857,7 +8144,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 @@ -9865,7 +8152,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 @@ -9873,8 +8160,8 @@ 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) - StringClean = StringClean.Replace("@@Remove100Tokens", "") + MessageBox.Show(Me, ssh.tempDomName & " has taken 100 Bronze tokens!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + StringClean = StringClean.Replace("@Remove100Tokens", "") End If @@ -9899,7 +8186,6 @@ TaskCleanSet: End If If StringClean.Contains("@DeleteVar[") Then - Dim DeleteArray As String() = StringClean.Split("]") For i As Integer = 0 To DeleteArray.Count - 1 @@ -9932,13 +8218,9 @@ TaskCleanSet: 'DeleteArray(i) = DeleteArray(i).Replace("@DeleteVar[" & OriginalDelete & "]", "") StringClean = StringClean.Replace("@DeleteVar[" & OriginalDelete & "]", "") - End If - Next - 'StringClean = Join(DeleteArray, Nothing) - End If If StringClean.Contains("@PornAllowedOff") Then @@ -9952,7 +8234,6 @@ TaskCleanSet: End If If StringClean.Contains("@RestrictOrgasm(") Then - Dim CheckFlag As String = GetParentheses(StringClean, "@RestrictOrgasm(") If CheckFlag.Contains(",") Then @@ -9984,7 +8265,7 @@ TaskCleanSet: 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) + SetVariable("SYS_OrgasmRestricted", FormatDateTime(SetDate, DateFormat.GeneralDate)) Else @@ -10002,7 +8283,7 @@ TaskCleanSet: 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) + SetVariable("SYS_OrgasmRestricted", FormatDateTime(SetDate, DateFormat.GeneralDate)) End If ssh.OrgasmRestricted = True @@ -10015,7 +8296,6 @@ TaskCleanSet: 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" @@ -10027,7 +8307,6 @@ TaskCleanSet: 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" @@ -10039,7 +8318,6 @@ TaskCleanSet: End If 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" @@ -10051,7 +8329,6 @@ TaskCleanSet: 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" @@ -10072,7 +8349,6 @@ TaskCleanSet: ' for the Variable "NoPorn" by @SetDate() If StringClean.Contains("@CheckDate(") Then - Dim CheckArray As String() = StringClean.Split(")") For i As Integer = 0 To CheckArray.Count - 1 @@ -10093,7 +8369,6 @@ TaskCleanSet: End If 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) @@ -10102,7 +8377,8 @@ TaskCleanSet: ' 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) @@ -10174,8 +8450,7 @@ TaskCleanSet: End If - Loop Until Not StringClean.Contains("@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. @@ -10190,14 +8465,12 @@ TaskCleanSet: If FrmSettings.CBInputIcon.Checked = True Then ssh.InputIcon = True StringClean = StringClean.Replace("@InputVar[" & ssh.InputString & "]", "") - 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 File.Exists(Application.StartupPath & "\Images\System\DislikedImageURLs.txt") Then @@ -10207,13 +8480,11 @@ TaskCleanSet: 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 If File.Exists(Application.StartupPath & "\Images\System\LikedImageURLs.txt") Then @@ -10223,7 +8494,6 @@ TaskCleanSet: End If StringClean = StringClean.Replace("@LikeBlogImage", "") End If - End If Debug.Print("SubStroking = " & ssh.SubStroking) @@ -10268,10 +8538,9 @@ TaskCleanSet: If StringClean.Contains("@StartStroking") Then - - If Not File.Exists(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\SYS_FirstRun") Then + If Not VariableExists("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) + SetVariable("SYS_FirstRun", SetDate) End If SetVariable("SYS_StrokeRound", Val(GetVariable("SYS_StrokeRound")) + 1) @@ -10282,9 +8551,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 @@ -10325,9 +8612,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 @@ -10396,6 +8680,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 @@ -10445,7 +8732,6 @@ TaskCleanSet: End If If StringClean.Contains("@MultipleEdges(") Then - If StringClean.Contains("@Edg") Then Dim EdgeFlag As String = GetParentheses(StringClean, "@MultipleEdges(") @@ -10471,12 +8757,10 @@ TaskCleanSet: End If StringClean = StringClean.Replace("@MultipleEdges(" & GetParentheses(StringClean, "@MultipleEdges(") & ")", "") - End If If StringClean.Contains("@Edge(") Then - ContactEdgeCheck(StringClean) Edge() @@ -10505,54 +8789,43 @@ 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 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) + 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(") & ")", "") 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 EdgeHoldFlag.Contains(",") Then @@ -10580,7 +8853,7 @@ TaskCleanSet: End If - EdgeHoldFlag = True + ssh.EdgeHoldFlag = True ContactEdgeCheck(StringClean) Edge() @@ -10590,7 +8863,13 @@ TaskCleanSet: 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 ContactEdgeCheck(StringClean) @@ -10618,7 +8897,6 @@ TaskCleanSet: End If If StringClean.Contains("@EdgeToRuinHold(") Then - Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeToRuinHold(") If EdgeHoldFlag.Contains(",") Then @@ -10646,7 +8924,7 @@ TaskCleanSet: End If - EdgeHoldFlag = True + ssh.EdgeHoldFlag = True ContactEdgeCheck(StringClean) Edge() @@ -10687,7 +8965,6 @@ 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 - Dim EdgeHoldFlag As String = GetParentheses(StringClean, "@EdgeHold(") If EdgeHoldFlag.Contains(",") Then @@ -10715,14 +8992,13 @@ TaskCleanSet: End If - EdgeHoldFlag = True + ssh.EdgeHoldFlag = True ContactEdgeCheck(StringClean) Edge() ssh.EdgeHold = True StringClean = StringClean.Replace("@EdgeHold(" & GetParentheses(StringClean, "@EdgeHold(") & ")", "") - End If @@ -10758,7 +9034,6 @@ TaskCleanSet: 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 @@ -10773,7 +9048,6 @@ TaskCleanSet: ' @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 - Dim CustomFlag As String = GetParentheses(StringClean, "@CustomTask(") CustomFlag = FixCommas(CustomFlag) @@ -10796,7 +9070,6 @@ TaskCleanSet: StringClean = StringClean.Replace("@CustomTask(" & GetParentheses(StringClean, "@CustomTask(") & ")", "") - End If @@ -10811,7 +9084,6 @@ TaskCleanSet: 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(",") @@ -10921,37 +9193,39 @@ 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 StringClean = StringClean.Replace("@Glitter(" & GlitterFlag & ")", "") - End If - - - 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(" & GetParentheses(StringClean, "@WritingTask(") & ")", "") + Else + ssh.randomWriteTask = True + StringClean = StringClean.Replace("@WritingTaskRandom(" & GetParentheses(StringClean, "@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) @@ -10978,7 +9252,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 @@ -10992,10 +9265,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") @@ -11003,11 +9276,9 @@ OrgasmDecided: 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 @@ -11022,12 +9293,9 @@ OrgasmDecided: 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 ssh.TeaseVideo = True @@ -11035,11 +9303,9 @@ OrgasmDecided: End If StringClean = StringClean.Replace("@PlayJOIVideo", "") - End If If StringClean.Contains("@PlayCHVideo") Then - If Directory.Exists(My.Settings.VideoCH) Or Directory.Exists(My.Settings.VideoCH) Then ssh.TeaseVideo = True @@ -11047,15 +9313,9 @@ OrgasmDecided: End If StringClean = StringClean.Replace("@PlayCHVideo", "") - End If - - - If StringClean.Contains("@GiveUpCheck") Then - - If ssh.AskedToGiveUpSection = True Then If ssh.SubGaveUp = True Then @@ -11091,30 +9351,23 @@ OrgasmDecided: PicStripTSMIdommeSlideshow.Enabled = True End If ssh.SubGaveUp = True - ssh.FirstRound = False + 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 ' 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() - ssh.Reset() - FrmSettings.LockOrgasmChances(False) - ssh.DomTask = "@SystemMessage Tease AI has been reset" - ssh.DomChat = "@SystemMessage Tease AI has been reset" + ssh.EndSession = True StringClean = StringClean.Replace("@EndTease", "") End If @@ -11152,46 +9405,51 @@ OrgasmDecided: End If If StringClean.Contains("@InterruptLongEdge") Then + 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 - 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() - 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 + 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 - + 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 @@ -11208,6 +9466,8 @@ OrgasmDecided: If StrokeList.Count > 0 Then + GotoClear() + ssh.CBTCockFlag = False ssh.CBTBallsFlag = False ssh.CBTBothFlag = False @@ -11228,7 +9488,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 _ @@ -11239,6 +9498,8 @@ OrgasmDecided: 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 @@ -11249,6 +9510,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 @@ -11258,7 +9521,7 @@ OrgasmDecided: ssh.SubHoldingEdge = False StrokeTimer.Stop() StrokeTauntTimer.Stop() - + ssh.MultiTauntPictureHold = False CensorshipTimer.Stop() RLGLTimer.Stop() TnASlides.Stop() @@ -11271,6 +9534,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 @@ -11282,9 +9550,6 @@ OrgasmDecided: 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) @@ -11330,7 +9595,6 @@ OrgasmDecided: WaitTimer.Start() StringClean = StringClean.Replace("@Wait(" & WaitFlag & ")", "") - End If @@ -11342,13 +9606,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 @@ -11379,9 +9643,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", "") @@ -11393,12 +9657,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 @@ -11471,17 +9731,15 @@ OrgasmDecided: 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 If StringClean.Contains("@CheckVideo") Then ssh.VideoCheck = True + ssh.VideoGenre = "ALL" RandomVideo() If ssh.NoVideo = True Then ssh.FileGoto = "(No Videos Found)" @@ -11497,7 +9755,15 @@ 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 + ssh.VideoGenre = "ALL" + RandomVideo() + StringClean = StringClean.Replace("@PlayCensorshipSucks", "") + End If If ssh.NoVideo = False Then ssh.ScriptVideoTease = "Censorship Sucks" @@ -11508,7 +9774,6 @@ OrgasmDecided: ssh.CensorshipTick = ssh.randomizer.Next(FrmSettings.NBCensorHideMin.Value, FrmSettings.NBCensorHideMax.Value + 1) CensorshipTimer.Start() End If - StringClean = StringClean.Replace("@PlayCensorshipSucks", "") End If @@ -11541,8 +9806,15 @@ 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 + ssh.VideoGenre = "ALL" + RandomVideo() + StringClean = StringClean.Replace("@PlayAvoidTheEdge", "") + End If If ssh.NoVideo = False Then @@ -11561,9 +9833,7 @@ OrgasmDecided: StrokePace = 50 * Math.Round(StrokePace / 50) ssh.AvoidTheEdgeTick = 120 / FrmSettings.TauntSlider.Value AvoidTheEdgeTaunts.Start() - End If - StringClean = StringClean.Replace("@PlayAvoidTheEdge", "") End If @@ -11583,8 +9853,15 @@ 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 + ssh.VideoGenre = "ALL" + RandomVideo() + StringClean = StringClean.Replace("@PlayRedLightGreenLight", "") + End If If ssh.NoVideo = False Then @@ -11606,161 +9883,49 @@ OrgasmDecided: StrokePace = 50 * Math.Round(StrokePace / 50) 'VideoTauntTick = randomizer.Next(20, 31) 'VideoTauntTimer.Start() + End If + StringClean = StringClean.Replace("@PlayRedLightGreenLight", "") + End If - End If - StringClean = StringClean.Replace("@PlayRedLightGreenLight", "") - End If - - If StringClean.Contains("@PlayVideo[") Then - - 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 - - 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 + If StringClean.Contains("@PlayVideo[") Then + Dim videoFlag As String = GetParentheses(StringClean, "@PlayVideo[") + Dim VidInt As Integer = 0 - ssh.JumpVideo = False + If videoFlag.Contains(",") Then videoFlag = FixCommas(videoFlag) + Dim FlagArray As String() = videoFlag.Split(",") + selectVideo(FlagArray(0)) - 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) + 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 -ExternalVideo: - - StringClean = StringClean.Replace("@PlayVideo[" & VideoFlag & "]", "") + StringClean = StringClean.Replace("@PlayVideo[" & videoFlag & "]", "") 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 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 - - If AudioClean.Contains("*") Then Dim AudioList As New List(Of String) @@ -11775,32 +9940,61 @@ ExternalVideo: 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 & "]", "") - End If 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 @@ -11812,8 +10006,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 @@ -11828,6 +10024,8 @@ ExternalAudio: If StringClean.Contains("@PlayVideo") Then + ssh.VideoGenre = "ALL" + If StringClean.Contains("@JumpVideo") Then ssh.JumpVideo = True StringClean = StringClean.Replace("@JumpVideo", "") @@ -12041,30 +10239,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 + '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 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 - End If - ssh.TeaseTick += TeaseSeconds End If + ssh.TeaseTick += TeaseSeconds + ssh.LastScript = False + ssh.EndTease = False + If Not TeaseTimer.Enabled Then TeaseTimer.Enabled = True StringClean = StringClean.Replace("@AddTeaseTime(" & OriginalFlag & ")", "") End If @@ -12100,17 +10302,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 @@ -12126,46 +10331,148 @@ ExternalAudio: StringClean = StringClean.Replace("@PlaylistOff", "") End If - If StringClean.Contains("@RapidTextOn") Or StringClean.Contains("@RTOn") Then + 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 + 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() + 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("@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() + + StringClean = StringClean.Replace("@SetDomme(" & GetParentheses(StringClean, "@SetDomme(") & ")", "") + End If + + If StringClean.Contains("@AddContact1") Then + If Not ssh.contact1Present Then + ssh.currentlyPresentContacts.Add(ssh.SlideshowContact1.TypeName) + ssh.contact1Present = True + updateGroup("1") + 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) Or (StringClean.Contains("@AddContact") Or StringClean.Contains("@AddDomme"))) Then + ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact1.TypeName) + ssh.contact1Present = False + updateGroup("1") + 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.currentlyPresentContacts.Add(ssh.SlideshowContact2.TypeName) + ssh.contact2Present = True + updateGroup("2") + 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) Or (StringClean.Contains("@AddContact") Or StringClean.Contains("@AddDomme"))) Then + ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact2.TypeName) + ssh.contact2Present = False + updateGroup("2") + 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.currentlyPresentContacts.Add(ssh.SlideshowContact3.TypeName) + ssh.contact3Present = True + updateGroup("3") + 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) Or (StringClean.Contains("@AddContact") Or StringClean.Contains("@AddDomme"))) Then + ssh.currentlyPresentContacts.Remove(ssh.SlideshowContact3.TypeName) + ssh.contact3Present = False + updateGroup("3") + 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.currentlyPresentContacts.Add(ssh.SlideshowMain.TypeName) + ssh.dommePresent = True + 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) Or (StringClean.Contains("@AddContact") Or StringClean.Contains("@AddDomme"))) Then + ssh.currentlyPresentContacts.Remove(ssh.SlideshowMain.TypeName) + ssh.dommePresent = False + updateGroup("D") + End If 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 @@ -12224,7 +10531,6 @@ VTSkip: 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) @@ -12268,10 +10574,8 @@ VTSkip: StringClean = StringClean.Replace("@SlowDownCheck", "") GoTo RinseLatherRepeat - End If - If StringClean.Contains("@PlayRiskyPick") Then ssh.RiskyDeal = True 'FrmCardList.RiskyRound += 1 @@ -12356,7 +10660,7 @@ VTSkip: 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) + SetVariable("RP_Edges", FrmCardList.EdgesOwed) StringClean = StringClean.Replace("@RiskyPayout", "") End If @@ -12395,75 +10699,124 @@ VTSkip: StringClean = StringClean.Replace("@EmoteMessage ", "") End If - If StringClean.Contains("@CallReturn(") Then - + If StringClean.Contains("@MiniScript(") Then - ssh.ReturnFileText = ssh.FileText - ssh.ReturnStrokeTauntVal = ssh.StrokeTauntVal - GetSubState() + Dim MiniTemp As String = GetParentheses(StringClean, "@MiniScript(") + Dim Mini2CR As String = "\Custom\Miniscripts\" & MiniTemp & ".txt" - 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 + 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 - 'StopEverything() - ssh.ReturnFlag = True - - + If StringClean.Contains("@CallReturn(") Then Dim CheckFlag As String = GetParentheses(StringClean, "@CallReturn(") Dim CallReplace As String = CheckFlag - If CheckFlag.Contains(",") Then + If (CheckFlag.StartsWith("/") Or CheckFlag.StartsWith("\")) And Not (CheckFlag.StartsWith("//") Or CheckFlag.StartsWith("\\")) Then CheckFlag = CheckFlag.Remove(0, 1) + CheckFlag = CheckFlag.Replace("/", "\") - CheckFlag = FixCommas(CheckFlag) + 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() - Dim CallSplit As String() = CheckFlag.Split(",") - ssh.FileText = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\" & CallSplit(0) - ssh.FileGoto = CallSplit(1) - ssh.SkipGotoLine = True - GetGoto() + ssh.CBTBallsActive = False + ssh.CBTBallsFlag = False + ssh.CBTCockActive = False + ssh.CBTCockFlag = False + ssh.CBTBothActive = False + ssh.CBTBothFlag = False + ssh.CustomTaskActive = False - Else + ssh.MultiTauntPictureHold = 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() + 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 - StringClean = StringClean.Replace("@CallReturn(" & CallReplace & ")", "") + 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 + + 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 + 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) + CheckFlag = CheckFlag.Replace("/", "\") + Dim CallReplace As String = CheckFlag + ssh.MultiTauntPictureHold = False + If CheckFlag.Contains(",") Then CheckFlag = FixCommas(CheckFlag) @@ -12476,25 +10829,35 @@ 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 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) + 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") @@ -12504,13 +10867,44 @@ VTSkip: 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 + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ + ' @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 + '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 + RunModuleScript(False) + End If + StringClean = StringClean.Replace("@RandomModule", "") + End If If StringClean.Contains("@RapidCodeOn") Then ssh.RapidCode = True @@ -12532,6 +10926,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 @@ -12592,6 +11005,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 @@ -12616,8 +11050,12 @@ VTSkip: If StringClean.Contains("@Timeout(") Then - Dim TimeFlag As String = GetParentheses(StringClean, "@Timeout(") + 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) @@ -12702,39 +11140,6 @@ VTSkip: '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 - - 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 & "(") - - If ssh.TempVal <= FollowVal Then ssh.FollowUp = FollowLineTemp - - StringClean = StringClean.Replace("@FollowUp" & FollowTemp & "(" & FollowLineTemp & ")", "") - - End If - If StringClean.Contains("@Worship(") Then Dim WorshipTemp As String = GetParentheses(StringClean, "@Worship(") Debug.Print("Worship Paren = " & WorshipTemp) @@ -12768,36 +11173,12 @@ VTSkip: '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 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("@PussyWorship", "") + 'End If - StringClean = StringClean.Replace("@MiniScript(" & MiniTemp & ")", "") + If StringClean.Contains("@ClearWorship") Then + ssh.WorshipTarget = "" + StringClean = StringClean.Replace("@ClearWorship", "") End If @@ -12835,18 +11216,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(") & ")", "") @@ -12859,18 +11239,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(") & ")", "") @@ -12883,24 +11262,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(") & ")", "") @@ -12913,56 +11290,30 @@ 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(") & ")", "") End If If StringClean.Contains("@CustomMode(") Then - - Dim CustomFlag As String = GetParentheses(StringClean, "@CustomMode(") - 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)) - - 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 - + updateMode(StringClean, ssh.Modes) StringClean = StringClean.Replace("@CustomMode(" & GetParentheses(StringClean, "@CustomMode(") & ")", "") - End If @@ -12985,7 +11336,7 @@ VTSkip: End If If StringClean.Contains("@ClearChat") Then - ClearChat() + ChatClear() StringClean = StringClean.Replace("@ClearChat", "") End If @@ -13013,6 +11364,63 @@ VTSkip: 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 'Dim wy As Long = DateDiff(DateInterval.Day, Val(GetVariable("TB_AFKSlideshow")), Date.Now) @@ -13045,7 +11453,6 @@ VTSkip: GetGoto() StringClean = StringClean.Replace("@GotoDommeOrgasm", "") - End If If StringClean.Contains("@GotoDommeRuin") Then @@ -13065,7 +11472,6 @@ VTSkip: GetGoto() StringClean = StringClean.Replace("@GotoDommeRuin", "") - End If If StringClean.Contains("@GotoDommeApathy") Then @@ -13085,7 +11491,6 @@ VTSkip: GetGoto() StringClean = StringClean.Replace("@GotoDommeApathy", "") - End If If StringClean.Contains("@GotoDommeLevel") Then @@ -13102,10 +11507,8 @@ VTSkip: GetGoto() StringClean = StringClean.Replace("@GotoDommeLevel", "") - End If - If StringClean.Contains("@CheckBnB") Then If Not GetImageData(ImageGenre.Boobs).IsAvailable Or Not GetImageData(ImageGenre.Butt).IsAvailable Then ssh.FileGoto = "(No BnB)" @@ -13115,12 +11518,6 @@ VTSkip: 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 @@ -13133,39 +11530,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. - - 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 - End Function #Region "-------------------------------------------- Webtoy --------------------------------------------" @@ -13192,7 +11559,7 @@ VTSkip: End Sub -#End Region ' WebToy +#End Region ' WebToy #Region "-------------------------------- Script: Flags/Dates/Variables ---------------------------------" @@ -13216,10 +11583,10 @@ VTSkip: 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. @@ -13228,7 +11595,7 @@ VTSkip: 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 @@ -13238,294 +11605,6 @@ VTSkip: #End Region ' Script-Flags -#Region "------------------------------------- Script-Variables -----------------------------------------" - - 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) - - End Function - - 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) - - End Function - - 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 - - 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 - - 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 Function - - 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 - - ' VarGet = Val(VarReader.ReadLine()) - - VarGet = TxtReadLine(Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" & VarName) - Else - VarGet = 0 - End If - - Return VarGet - - - End Function - - Public Function CheckVariable(ByVal StringCLean As String) As Boolean - - 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("@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 - - 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 - - Return AndCheck - - 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, "@Variable[", 2) & "]") = True Then - OrCheck = True - Exit For - End If - SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]Or", "") - Next - - Return OrCheck - - Else - - If GetIf("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]") = True Then - - Return True - - Else - - Return False - - End If - - 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 - - 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 - - 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 - - Return False - - End Function - - Public Function GetDateDifference(ByVal DateVar As String, ByVal DateString As String) As Long - - 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 - - Public Function GetDateCompare(ByVal DateVar As String, ByVal DateString As String) As Long - - 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 - - Return DDiff - - End Function - -#End Region ' Script-Dates - #End Region ' Flags/Dates/Variables @@ -13574,10 +11653,10 @@ VTSkip: End Function - Public Function GetNthIndex(searchString As String, charToFind As Char, startIndex As Integer, n As Integer) As Integer + 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 @@ -13602,7 +11681,7 @@ 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 @@ -13649,37 +11728,58 @@ VTSkip: Return String.Empty End Function - Public Function GetLocalImage(ByVal LocTag As String) 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" + 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(",") - 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 - Next + 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 + 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 @@ -13690,22 +11790,36 @@ 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.contactToUse.CurrentImage) & Path.DirectorySeparatorChar & PicDir Return PicDir - Else Return String.Empty - End If - + Else + Return String.Empty 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 + Friend Sub ContactEdgeCheck(EdgeCheck As String) + 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() @@ -13741,63 +11855,13 @@ VTSkip: 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 - - 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 TRACE Then + Dim sw As New Stopwatch + sw.Start() - 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: + Trace.WriteLine("FilterList Started") + Trace.Indent() +#End If Dim FilterPass As Boolean Dim ListIncrement As Integer = 1 @@ -13831,39 +11895,74 @@ SkipTextedTags: ' Grouped-Lines-Check-END '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - For i As Integer = 0 To ListClean.Count - 1 Step ListIncrement + 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 + - 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 + '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - '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 + 'For i As Integer = 0 To ListClean.Count - 1 Step ListIncrement + + '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) + '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)) @@ -13873,7 +11972,7 @@ SkipTextedTags: Trace.Unindent() Trace.WriteLine("FilterList finished - Duration: " & sw.ElapsedMilliseconds & "ms") #End If - + 'If ListClean.Count = 0 Then ListClean.Add("test") Return ListClean End Function @@ -13883,104 +11982,145 @@ SkipTextedTags: 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 FilterString.Includes("@DommeTag(") Then + If ssh.LockImage = True Then + Return False + Else + If GetLocalImage(GetParentheses(FilterString, "@DommeTag("), True) = String.Empty Then Return False + End If + End If + + If FilterString.Includes("@DommeTagOr(") Then + If ssh.LockImage = True Then + Return False + Else + If GetLocalImage(GetParentheses(FilterString, "@DommeTagOr("), True, "Or") = String.Empty Then Return False + End If + End If + + If FilterString.Includes("@DommeTagAny(") Then + If ssh.LockImage = True Then + Return False + Else + If GetLocalImage(GetParentheses(FilterString, "@DommeTagAny("), True, "Any") = 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 - 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 + If GetLocalImage(GetParentheses(FilterString, "@DomTagOr("), True, "Or") = String.Empty Then Return False + End If + End If + + If FilterString.Includes("@DomTagAny(") Then + If ssh.LockImage = True Then Return False + Else + If GetLocalImage(GetParentheses(FilterString, "@DomTagAny("), True, "Any") = 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 ssh.LockImage = True Then + Return False + Else + If GetLocalImage(GetParentheses(FilterString, "@ImageTagOr("),, "Or") = String.Empty Then Return False + End If + End If + + If FilterString.Contains("@ImageTagAny(") Then + If ssh.LockImage = True Then + Return False + Else + If GetLocalImage(GetParentheses(FilterString, "@ImageTagAny("),, "Any") = 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 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 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 + If FilterString.Contains("@ShowTaggedImage") OrElse FilterString.Contains("@Tag") 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 + 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 @@ -13988,24 +12128,82 @@ SkipTextedTags: 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. + ' 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("@AllowsOrgasm(") Then - If FilterCheck(GetParentheses(FilterString, "@AllowsOrgasm("), FrmSettings.alloworgasmComboBox) = False Then Return False + If FilterString.Contains("@Flag(") Or FilterString.Contains("@ControlFlag(") Then + Dim writeFlag As String + Dim splitFlag As String() + 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 + If Not FlagExists(s) Then + Return False + End If + Next End If - If FilterString.Contains("@ApathyLevel(") Then - If FilterCheck(GetParentheses(FilterString, "@ApathyLevel("), FrmSettings.NBEmpathy) = False 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("@Cup(") Then - If FilterCheck(GetParentheses(FilterString, "@Cup("), FrmSettings.boobComboBox) = False Then Return False + + 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("@RuinsOrgasm(") Then - If FilterCheck(GetParentheses(FilterString, "@RuinsOrgasm("), FrmSettings.ruinorgasmComboBox) = False 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("@Variable[") Then If CheckVariable(FilterString) = False Then Return False @@ -14013,52 +12211,54 @@ SkipTextedTags: 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(") 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 + Dim grouparray() As String = GroupCheck.Split(",") + Dim b As Boolean + For i As Integer = 0 To grouparray.Length - 1 + b = True + For Each c As Char In grouparray(i) + If Not ssh.Group.Contains(c) Then + b = False Exit For End If Next - End If - If result = False Then Return result + 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("@NotFlag(") Then - writeFlag = GetParentheses(FilterString, "@NotFlag(") - writeFlag = FixCommas(writeFlag) - splitFlag = writeFlag.Split({","}, StringSplitOptions.RemoveEmptyEntries) + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ + ' 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. + '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ - For Each s In splitFlag - If FlagExists(s) Then - result = False - Exit For - End If - Next - End If - Return result + 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("@CheckDate(") And Linear = False Then @@ -14073,6 +12273,15 @@ SkipTextedTags: If GetMatch(FilterString, "@Day(", DateAndTime.Now.Day) = False Then Return False End If + If FilterString.Contains("@DayOfWeek(") Then + 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 End If @@ -14098,7 +12307,6 @@ SkipTextedTags: If Not FilterList(f).StartsWith("@") Or FilterList(f).Contains("@NullResponse") Then Exit For End If - FilterString = FilterString & FilterList(f) & " " Next @@ -14109,6 +12317,7 @@ SkipTextedTags: 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 @@ -14143,30 +12352,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 @@ -14347,11 +12532,11 @@ SkipTextedTags: 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 @@ -14373,11 +12558,6 @@ SkipTextedTags: 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 @@ -14391,6 +12571,18 @@ SkipTextedTags: If ssh.ExtremeHold = False Or ssh.SubHoldingEdge = False Then Return False 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 End If @@ -14424,358 +12616,36 @@ SkipTextedTags: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError(String.Format("Exceoption 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)") Return False End Try 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("@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 - - - 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 - - - - - 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 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 + 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(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_DragEnter(sender As Object, 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(sender As Object, e As KeyEventArgs) Handles chatBox.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 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 - - 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 - - Private Sub chatBox2_KeyPress(sender As Object, 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() @@ -14783,11 +12653,11 @@ SkipTextedTags: End If End Sub -#End Region ' Chatbox +#End Region ' Chatbox #Region "------------------------------------ Avoid the Edge --------------------------------------------" - Private Sub AvoidTheEdge_Tick(sender As System.Object, 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 @@ -14928,7 +12798,7 @@ SkipTextedTags: End Sub - Private Sub AvoidTheEdgeResume_Tick(sender As System.Object, 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 @@ -14957,14 +12827,14 @@ SkipTextedTags: End Sub -#End Region ' Avoid the Edge +#End Region ' Avoid the Edge - Private Sub BtnToggleImageVideo_Click(sender As System.Object, 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 @@ -14978,10 +12848,12 @@ SkipTextedTags: End Sub - Public Sub RunModuleScript(IsEdging As Boolean) - + 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 ssh.TauntEdging = False ssh.AskedToGiveUpSection = False @@ -15104,9 +12976,12 @@ NoPlaylistModuleFile: Public Sub RunLinkScript() - + ssh.StrokeTauntVal = -1 + If ssh.MultiTauntPictureHold Then ssh.MultiTauntPictureHold = False + ssh.isLink = True + ssh.ShowModule = True Debug.Print("RunLinkScript() Called") - + ssh.FirstRound = False ClearModes() If ssh.PlaylistFile.Count = 0 Then GoTo NoPlaylistLinkFile @@ -15227,22 +13102,18 @@ NoPlaylistLinkFile: Public Sub RunLastScript() + ssh.StrokeTauntVal = -1 ClearModes() + ssh.ShowModule = True + ssh.isLink = False + ssh.FirstRound = False - '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 @@ -15279,7 +13150,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 @@ -15333,7 +13204,7 @@ NoPlaylistEndFile: End Sub Public Sub RunLastBegScript() - + ssh.StrokeTauntVal = -1 ClearModes() 'Debug.Print("RunLastBegScript() Called") @@ -15411,6 +13282,7 @@ NoPlaylistEndFile: ssh.SubStroking = False ssh.SubEdging = False ssh.SubHoldingEdge = False + ssh.MultipleEdges = False ssh.AskedToSpeedUp = False ssh.AskedToSlowDown = False @@ -15418,13 +13290,23 @@ NoPlaylistEndFile: ssh.WorshipTarget = "" ssh.LongHold = False ssh.ExtremeHold = False + ssh.HoldTaunts = False + ssh.LongTaunts = False + ssh.ExtremeTaunts = 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) - ClearModes() + If Not ssh.giveUpReturn Then ClearModes() If FrmSettings.TBWebStop.Text <> "" Then @@ -15439,10 +13321,9 @@ NoPlaylistEndFile: End Sub - Private Sub EdgeTauntTimer_Tick(sender As System.Object, 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.MiniScript = True Then Return If ssh.InputFlag = True Then Return If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return @@ -15475,9 +13356,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" + 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() @@ -15490,9 +13371,7 @@ NoPlaylistEndFile: #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) @@ -15522,6 +13401,9 @@ NoPlaylistEndFile: 'stop ssh.LongHold = False ssh.ExtremeHold = False + ssh.HoldTaunts = False + ssh.LongTaunts = False + ssh.ExtremeTaunts = False ssh.WorshipMode = False ssh.WorshipTarget = "" @@ -15548,7 +13430,8 @@ NoPlaylistEndFile: 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 And FrmSettings.CBDomDenialEnds.Checked = False) Then + ssh.SecondSession = False ssh.SubEdging = False ssh.SubStroking = False EdgeTauntTimer.Stop() @@ -15582,6 +13465,8 @@ NoPlaylistEndFile: ssh.OrgasmYesNo = False ssh.EndTease = False Return + Else + If ssh.LastScript = True Then ssh.EndTease = True End If End If @@ -15621,11 +13506,12 @@ 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 And FrmSettings.CBDomDenialEnds.Checked = False) Then EdgeTauntTimer.Stop() HoldEdgeTimer.Stop() HoldEdgeTauntTimer.Stop() + ssh.SecondSession = False ssh.SubHoldingEdge = False ssh.SubStroking = False ssh.EdgeToRuin = False @@ -15660,6 +13546,8 @@ RuinedOrgasm: ssh.OrgasmYesNo = False ssh.EndTease = False Return + Else + If ssh.LastScript = True Then ssh.EndTease = True End If End If @@ -15738,10 +13626,11 @@ 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 And FrmSettings.CBDomDenialEnds.Checked = False) Then HoldEdgeTimer.Stop() HoldEdgeTauntTimer.Stop() + ssh.SecondSession = False ssh.SubHoldingEdge = False ssh.SubStroking = False ssh.EdgeToRuin = False @@ -15777,6 +13666,8 @@ NoNoCumFiles: ssh.OrgasmYesNo = False ssh.EndTease = False Return + Else + If ssh.LastScript = True Then ssh.EndTease = True End If End If @@ -15813,9 +13704,8 @@ NoRepeatOFiles: 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 FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return @@ -15845,8 +13735,8 @@ 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") - ssh.DomTask = "ERROR: Tease AI did not return a valid Hold the Edge Taunt" + File2Read, ex, "HoldEdgeTauntTimer.Tick") + ssh.DomTask = "ERROR: Tease AI did not return a valid Hold the Edge Taunt from file: " & File2Read End Try TypingDelayGeneric() @@ -15858,7 +13748,7 @@ NoRepeatOFiles: End Sub -#End Region ' Hold the Edge +#End Region ' Hold the Edge Public Sub CreateTaskLetter() @@ -15899,9 +13789,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 & ssh.tempHonorific & " " & 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,}", " ") @@ -15916,7 +13806,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() @@ -15942,6 +13832,7 @@ Night: Dim LoopBuffer As Integer + Dim int As Integer TaskArray = TaskEntry.Split(" ") For i As Integer = 0 To TaskArray.Count - 1 @@ -15958,7 +13849,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 @@ -15967,7 +13858,6 @@ PoundLoop: End Try Next - Dim int As Integer If TaskEntry.Contains("#TaskEdges") Then Do @@ -16057,6 +13947,7 @@ PoundLoop: Loop Until Not TaskEntry.Contains("#TaskCBTTime") End If + TaskEntry = TaskEntry.Replace("", "") TaskEntry = TaskEntry.Replace("", "") TaskEntry = TaskEntry.Replace("#Null", "") @@ -16066,6 +13957,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(") @@ -16097,46 +13989,50 @@ PoundLoop: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ - Log.WriteError("Error occurred during file processing: """ & dir & """", ex, "CleanTaskLines(String)") + 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 = domName.Text & " is sending you a file!" + LBLFileTransfer.Text = ssh.tempDomName & " is sending you a file!" PBFileTransfer.Value = 0 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 Sub ShellExecute(ByVal File As String) + Try + Dim myProcess As New Process + myProcess.StartInfo.FileName = File + myProcess.StartInfo.UseShellExecute = True + myProcess.StartInfo.RedirectStandardOutput = False + myProcess.Start() + myProcess.Dispose() + Catch ex As Exception + MessageBox.Show(ex.Message, "ShellExecute failed", MessageBoxButtons.OK, MessageBoxIcon.Error) + End Try + End Sub - 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 + 'BUG: Clicking this Button after the session has ended, will cause an exception ShellExecute(ssh.TaskTextDir) 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 - Private Sub SlideshowTimer_Tick(sender As System.Object, 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 @@ -16155,7 +14051,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 @@ -16182,7 +14078,7 @@ TryNext: If ssh.AvgEdgeCount < 5 Then ssh.EdgeTickCheck = 60 Else - ssh.EdgeTickCheck = ssh.AvgEdgeStroking + ssh.EdgeTickCheck = ssh.AvgEdgeStroking / ssh.AvgEdgeCount End If Else @@ -16190,7 +14086,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 @@ -16199,7 +14095,7 @@ TryNext: - 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 @@ -16218,14 +14114,14 @@ 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 - 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 @@ -16249,7 +14145,7 @@ TryNext: - Private Sub TnAFastSlides_Tick(sender As System.Object, e As System.EventArgs) Handles TnASlides.Tick + Private Sub TnAFastSlides_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TnASlides.Tick Dim tmpSw As New Stopwatch RestartFunction: @@ -16299,7 +14195,7 @@ 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") End Try End Sub @@ -16313,7 +14209,7 @@ 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 @@ -16328,11 +14224,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() @@ -16439,7 +14335,7 @@ RestartFunction: 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 @@ -16489,9 +14385,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 @@ -16500,13 +14401,13 @@ 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() 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 @@ -16521,7 +14422,7 @@ RestartFunction: End Sub - Private Sub WaitTimer_Tick(sender As System.Object, e As System.EventArgs) Handles WaitTimer.Tick + 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 @@ -16533,12 +14434,13 @@ RestartFunction: If ssh.WaitTick < 1 Then WaitTimer.Stop() ssh.ScriptTick = 1 + If ssh.RapidCode = True Then RunFileText() End If 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 @@ -16679,11 +14581,10 @@ 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 If ssh.DomTyping = True Then Return If ssh.DomTypeCheck = True And ssh.VideoTauntTick < 6 Then Return @@ -16716,8 +14617,8 @@ 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") - ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt" + VTDir, ex, "VideoTauntTimer.Tick") + ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir End Try TypingDelayGeneric() @@ -16739,12 +14640,14 @@ RestartFunction: 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) + If FrmSettings.CBSettingsPause.Checked = True And FrmSettings.SettingsPanel.Visible = True Then Return + ssh.TeaseTick -= 1 If ssh.TeaseTick < 1 Then TeaseTimer.Stop() @@ -16753,10 +14656,9 @@ 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 - If ssh.MiniScript = True Then Return If ssh.DomTyping = True Then Return If ssh.DomTypeCheck = True And ssh.RLGLTauntTick < 6 Then Return @@ -16789,8 +14691,8 @@ 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") - ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt" + VTDir, ex, "RLGLTauntTimer.Tick") + ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir End Try TypingDelayGeneric() @@ -16805,7 +14707,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 @@ -16842,8 +14744,8 @@ 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") - ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt" + VTDir, ex, "AvoidTheEdgeTaunts.Tick") + ssh.DomTask = "ERROR: Tease AI did not return a valid Video Taunt from file: " & VTDir End Try TypingDelayGeneric() @@ -16859,7 +14761,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") @@ -16873,13 +14775,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 @@ -16942,7 +14844,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() @@ -16952,17 +14854,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 = "" @@ -16999,9 +14901,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 @@ -17011,10 +14913,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 @@ -17029,13 +14931,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 @@ -17048,7 +14950,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") @@ -17057,15 +14959,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 @@ -17077,33 +14979,33 @@ 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 + ' 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") + & 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!") + MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu is Visible"" option first!", , "Warning!") Return End If @@ -17117,10 +15019,10 @@ 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!") + MsgBox("Please close the settings menu or disable ""Pause Program When Settings Menu is Visible"" option first!", , "Warning!") Return End If @@ -17134,19 +15036,18 @@ 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!") + 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 Try - ssh.SlideshowMain.LoadNew() - ShowImage(ssh.SlideshowMain.NavigateFirst, True) - + ssh.newSlideshow = True + LoadDommeImageFolder() Catch End Try @@ -17154,30 +15055,50 @@ saveImage: End Sub -#End Region ' DommeSlideshow - -#End Region ' PictureStrip - - - - - - - - - - - - - - - - - +#End Region ' DommeSlideshow +#End Region ' PictureStrip Public Sub LoadDommeImageFolder() - ssh.SlideshowMain.LoadNew() + 'check which domme should be loaded + If Not ssh.newSlideshow Then + If ssh.glitterDommeNumber = 0 Then + If FrmSettings.CBRandomDomme.Checked = False Then + ssh.SlideshowMain = New ContactData(ContactType.Domme) + ssh.tempHonorific = My.Settings.SubHonorific + Else + ssh.SlideshowMain = New ContactData(ContactType.Random) + ssh.tempHonorific = PoundClean(My.Settings.RandomHonorific) + End If + ElseIf ssh.glitterDommeNumber = 1 Then + ssh.SlideshowMain = New ContactData(ContactType.Contact1) + ssh.tempHonorific = My.Settings.G1Honorific + ElseIf ssh.glitterDommeNumber = 2 Then + ssh.SlideshowMain = New ContactData(ContactType.Contact2) + ssh.tempHonorific = My.Settings.G2Honorific + ElseIf ssh.glitterDommeNumber = 3 Then + ssh.SlideshowMain = New ContactData(ContactType.Contact3) + ssh.tempHonorific = My.Settings.G3Honorific + ElseIf ssh.glitterDommeNumber = 4 Then + ssh.SlideshowMain = New ContactData(ContactType.Random) + 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)) + domAvatar.Image = Image.FromFile(avatarImage) + ssh.domAvatarImage = domAvatar.Image + End If + ssh.shortName = ssh.SlideshowMain.ShortName + Me.domName.Text = ssh.tempDomName + FrmSettings.LBLCurrentDomme.Text = ssh.tempDomName + ssh.newSlideshow = False + ShowImage(ssh.SlideshowMain.CurrentImage, False) ssh.SlideshowLoaded = True ssh.JustShowedBlogImage = False @@ -17196,31 +15117,9 @@ 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 - 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 @@ -17298,8 +15197,9 @@ saveImage: End If For Each com As String In New List(Of String) From - {"@Cup(", "@AllowsOrgasm(", "@RuinsOrgasm(", "@DommeLevel(", - "@ApathyLevel(", "@Month(", "@Day(", "@Flag(", "@NotFlag("} + {"@Cup(", "@AllowsOrgasm(", "@RuinsOrgasm(", "@DommeLevel(", + "@ApathyLevel(", "@Month(", "@Day(", "@Flag(", "@NotFlag(", + "@DayOfWeek(", "@FlagOr(", "@CheckDate(", "@ControlFlag("} If CFClean.Contains(com) Then CFClean = CFClean.Replace(com & GetParentheses(CFClean, com) & ")", "") Next @@ -17316,26 +15216,20 @@ saveImage: End Try Next CFClean = Join(AtArray) - Return CFClean + Return CFClean.Trim 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 + Public Function StripFormat(ByVal formatClean As String) As String + + formatClean = Regex.Replace(formatClean, "<(.|\n)*?>", "") + Return formatClean + End Function - 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 @@ -17388,132 +15282,53 @@ restartInstantly: End Function -#Region "-------------------------------------------------- Contact 1-3 -------------------------------------------------------" - - - - Private Sub Contact1Timer_Tick(sender As System.Object, 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 - 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 - - Private Sub Contact2Timer_Tick(sender As System.Object, 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 - 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 + Private Sub updateGroup(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(name & " has joined the Chat room", False) + Else + ssh.Group = ssh.Group.Replace(contact, "") + ChatAddSystemMessage(name & " has left the Chat room", False) End If - End Sub - - Private Sub Contact3Timer_Tick(sender As System.Object, 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 - 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.Group = "D" Then + ssh.GlitterTease = False + Else + ssh.GlitterTease = True End If - End Sub -#End Region - - Private Sub DommeTimer_Tick(sender As System.Object, 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 - 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 +#Region "------------------------------------------------------ MenuStuff -----------------------------------------------------" - 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() + 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 End Sub - - -#Region "------------------------------------------------------ MenuStuff -----------------------------------------------------" - #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 @@ -17553,13 +15368,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 @@ -17568,13 +15383,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 @@ -17583,9 +15398,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 @@ -17593,18 +15408,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 @@ -17614,12 +15429,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 @@ -17633,28 +15448,30 @@ 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 ssh.Load(filename, True) - + Me.domName.Text = ssh.tempDomName + 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) @@ -17665,123 +15482,123 @@ 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() 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() @@ -17791,19 +15608,19 @@ 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 If My.Settings.ClearWishlist = True Then - 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) + 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 @@ -17825,12 +15642,12 @@ 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 - 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 @@ -17879,7 +15696,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!" @@ -17889,7 +15706,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!" @@ -17910,7 +15727,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 @@ -17964,7 +15781,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!" @@ -17975,7 +15792,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!" @@ -17992,7 +15809,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 @@ -18041,7 +15858,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 @@ -18059,50 +15876,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 @@ -18117,13 +15934,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 @@ -18136,7 +15953,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 @@ -18153,13 +15970,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 @@ -18179,7 +15996,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 @@ -18190,14 +16007,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 ######################### @@ -18206,21 +16023,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 @@ -18233,11 +16050,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 @@ -18272,55 +16089,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 @@ -18337,31 +16154,29 @@ restartInstantly: ssh.ScriptTick = 1 ScriptTimer.Start() - ApplyThemeColor() - End If 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() @@ -18369,28 +16184,13 @@ restartInstantly: -#End Region ' Menu +#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 - - - 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) @@ -18419,6 +16219,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" @@ -18438,33 +16240,12 @@ restartInstantly: - '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 VariableExists("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 DateFromFile As String = FormatDateTime(Now, DateFormat.ShortDate) & " " & GetDate("SYS_WakeUp").ToLongTimeString Dim DDiff As Integer - DDiff = DateDiff(DateInterval.Hour, CDate(Dates), Now) - - Dim TimeCounter As Integer = -3 + DDiff = DateDiff(DateInterval.Hour, Date.Parse(DateFromFile), Now) ssh.GeneralTime = "Night" If DDiff < -20 Then ssh.GeneralTime = "Morning" @@ -18472,9 +16253,28 @@ 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) + SetVariable("SYS_WakeUp", FormatDateTime(SetDate, DateFormat.LongTime)) + My.Settings.WakeUp = FormatDateTime(Now, DateFormat.ShortDate) & " " & GetDate("SYS_WakeUp").ToLongTimeString + + Debug.Assert(SetDate.ToLongTimeString = My.Settings.WakeUp.ToLongTimeString, + "Value for SYS_WakeUp is different after loading.") + End If - ' #DEBUG + If ssh.CountUpList.Count > 0 Then + For i As Integer = 0 To ssh.CountUpList.Count - 1 + ChangeVariable(ssh.CountUpList(i), ssh.CountUpList(i), "+", 1) + Next + End If + + If ssh.CountDownList.Count > 0 Then + For i As Integer = 0 To ssh.CountDownList.Count - 1 + ChangeVariable(ssh.CountDownList(i), ssh.CountDownList(i), "-", 1) + Next + End If End Sub @@ -18483,7 +16283,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(5, 12) Stroke123 = Stroke123 * 50 StrokePace = StrokePace - Stroke123 If StrokePace < NBMaxPace.Value Then StrokePace = NBMaxPace.Value @@ -18495,7 +16295,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 @@ -18524,8 +16324,6 @@ restartInstantly: End Sub - Public Sub ApplyThemeColor() - End Sub @@ -18574,7 +16372,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 @@ -18588,7 +16386,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 @@ -18602,7 +16400,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 @@ -18616,7 +16414,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 @@ -18630,7 +16428,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 @@ -18644,7 +16442,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 @@ -18658,7 +16456,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 @@ -18672,7 +16470,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 @@ -18686,7 +16484,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 @@ -18700,7 +16498,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 @@ -18714,7 +16512,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 @@ -18728,7 +16526,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 @@ -18742,7 +16540,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 @@ -18756,7 +16554,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 @@ -18770,7 +16568,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 @@ -18784,7 +16582,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 @@ -18798,7 +16596,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 @@ -18812,7 +16610,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 @@ -18826,7 +16624,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 @@ -18841,7 +16639,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 @@ -18855,7 +16653,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 @@ -18868,7 +16666,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 @@ -18881,7 +16679,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 @@ -18894,7 +16692,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 @@ -18908,7 +16706,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 @@ -18921,7 +16719,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) @@ -19068,11 +16866,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 @@ -19355,19 +17153,279 @@ restartInstantly: End If End Sub - -#End Region ' DommeTag APP + +#End Region ' DommeTag APP + +#Region "------------------------------------------------- GlitterFeeds APP ---------------------------------------------------" + + Sub GlitterSendPost(contactID As Integer, content As String) + Dim ConName, ConImgPath As String + Dim BodyText 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 + + '=============================================================================== + ' 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 + + Dim TextToSet As String = HtmlBuildPage("Glitter-App", Style, BodyText) + + + '=============================================================================== + ' 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) + + 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 + + ' 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.StatusText = CleanString(Lines(0)) + Lines.RemoveAt(0) + + ' ################## Set Contact updates ###################### + + ' 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) + + ' Replace Keywords and Vocabularies. + RtnVal = CleanString(RtnVal) + + ' Check if the result is empty + If String.IsNullOrWhiteSpace(RtnVal) Then GoTo TryAgain + End If + + Return RtnVal + End Function + + 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() + + 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 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 + + 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(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 " & FrmSettings.TBHonorific.Text + chatBox.Text = "Yes " & ssh.tempHonorific Catch chatBox.Text = "Yes" End Try @@ -19375,9 +17433,9 @@ 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 " & FrmSettings.TBHonorific.Text + chatBox.Text = "No " & ssh.tempHonorific Catch chatBox.Text = "No" End Try @@ -19385,32 +17443,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 - chatBox.Text = "Please let me cum!" + 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 @@ -19424,7 +17482,7 @@ restartInstantly: End If Try - chatBox.Text = "Hello " & FrmSettings.TBHonorific.Text + chatBox.Text = "Hello " & ssh.tempHonorific Catch chatBox.Text = "Hello" End Try @@ -19432,7 +17490,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 @@ -19442,7 +17500,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 @@ -19451,103 +17509,75 @@ restartInstantly: 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 - 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 @@ -19559,7 +17589,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 @@ -19570,37 +17600,46 @@ restartInstantly: End Sub - Private Sub BTNLS1Edit_Click(sender As System.Object, 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 - 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 @@ -19611,36 +17650,7 @@ restartInstantly: End Sub - Private Sub BTNLS2Edit_Click(sender As System.Object, 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(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 @@ -19651,37 +17661,7 @@ restartInstantly: End Sub - Private Sub BTNLS3Edit_Click(sender As System.Object, 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(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 @@ -19692,37 +17672,7 @@ restartInstantly: End Sub - Private Sub BTNLS4Edit_Click(sender As System.Object, 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(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 @@ -19733,40 +17683,12 @@ restartInstantly: 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 - - 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 +#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) @@ -19775,7 +17697,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) @@ -19784,22 +17706,24 @@ 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 + ssh.VideoGenre = "ALL" 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 ssh.ScriptVideoTease = "Censorship Sucks" ssh.ScriptVideoTeaseFlag = True + ssh.VideoGenre = "ALL" RandomVideo() ssh.ScriptVideoTeaseFlag = False ssh.CensorshipGame = True @@ -19808,7 +17732,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 @@ -19821,6 +17745,7 @@ restartInstantly: ssh.ScriptVideoTeaseFlag = True ssh.AvoidTheEdgeStroking = True ssh.AvoidTheEdgeGame = True + ssh.VideoGenre = "ALL" RandomVideo() ssh.ScriptVideoTeaseFlag = False ssh.VideoTease = True @@ -19832,7 +17757,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 @@ -19843,6 +17768,7 @@ restartInstantly: ssh.ScriptVideoTeaseFlag = True 'AvoidTheEdgeStroking = True ssh.RLGLGame = True + ssh.VideoGenre = "ALL" RandomVideo() ssh.ScriptVideoTeaseFlag = False ssh.VideoTease = True @@ -19856,7 +17782,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 @@ -19869,7 +17795,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.") @@ -19900,7 +17826,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 @@ -19918,7 +17844,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 @@ -19928,7 +17854,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) @@ -19943,7 +17869,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 @@ -19957,7 +17883,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 = "" @@ -20031,7 +17957,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 @@ -20094,7 +18020,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 @@ -20104,7 +18030,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 @@ -20114,7 +18040,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 @@ -20122,7 +18048,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 = "" @@ -20130,7 +18056,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" @@ -20166,11 +18092,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) @@ -20191,11 +18117,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" @@ -20205,7 +18131,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 @@ -20213,7 +18139,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 @@ -20236,7 +18162,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 @@ -20309,21 +18235,22 @@ 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() - + '××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× + ' Metronome-Thread Dim wavFilepath As String = Application.StartupPath & "\Audio\System\metronome.wav" Dim MetroSoundPlayer As Media.SoundPlayer = Nothing Dim wavStream As MemoryStream @@ -20367,27 +18294,28 @@ playLoop: '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ 'TODO: MetronomeExceptions: Add possibility to restart the thread. End Try + '°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° END of Thread °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° End Sub #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 @@ -20395,7 +18323,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 @@ -20403,7 +18331,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 @@ -20419,7 +18347,6 @@ playLoop: TimeoutTimer.Stop() ssh.YesOrNo = False ssh.InputFlag = False - ssh.SkipGotoLine = True GetGoto() @@ -20429,15 +18356,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 @@ -20451,7 +18378,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 @@ -20460,6 +18387,8 @@ playLoop: If ssh.MultipleEdgesTick < 1 Then + ssh.EdgeTauntInt = ssh.randomizer.Next(20, 31) + MultipleEdgesTimer.Stop() ssh.DomChat = "#SYS_MultipleEdgesStart" @@ -20565,27 +18494,16 @@ 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 - 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) @@ -20655,35 +18573,21 @@ 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 Public Sub ClearWriteTask() + ssh.dontCheck = True ssh.WritingTaskCurrentTime = 0 ssh.WritingTaskFlag = False + ssh.randomWriteTask = False chatBox.ShortcutsEnabled = True ChatBox2.ShortcutsEnabled = True 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 @@ -20704,14 +18608,12 @@ playLoop: 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) + If Not IsNumeric(Val1) AndAlso VariableExists(Val1) Then + Val1 = GetVariable(Val1) 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) + If Not IsNumeric(Val2) AndAlso VariableExists(Val2) Then + Val2 = GetVariable(Val2) End If If C_Operator = "=" Or C_Operator = "==" Then @@ -20754,23 +18656,549 @@ 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 + 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 + + Public Function GetLikeValue(s As String, 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 = "" + ssh.SkipGotoLine = False 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 + Private Sub handleCallReturn() + If ssh.MultiTauntPictureHold Then ssh.MultiTauntPictureHold = False + ssh.CallReturns.Pop().resumeState() + If ssh.ReturnSubState = "Stroking" Then + If ssh.SubStroking = False Then + If ssh.CallReturns.Count() = 0 Then + 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 + If Not ssh.ShowModule Then + StrokeTimer.Start() + StrokeTauntTimer.Start() + End If + Else + ssh.DomTask = "@NullResponse" + ScriptTimer.Start() + ssh.ScriptTick = 2 + End If + TypingDelayGeneric() + Else + 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 + 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() + If ssh.YesOrNo Then + ssh.DomTask = "#SYS_ReturnAnswer" + Else + ssh.DomTask = "@NullResponse" + End If + TypingDelayGeneric() + 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) + 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(False) + 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 + If My.Settings.DomName <> "" Then + ssh.tempDomName = My.Settings.DomName + domName.Text = ssh.tempDomName + ssh.tempHonorific = My.Settings.SubHonorific + ssh.tempDomHonorific = ssh.tempHonorific + ssh.shortName = My.Settings.GlitterSN + End If + If My.Settings.SubName <> "" Then subName.Text = My.Settings.SubName + FrmSettings.LBLCurrentDomme.Text = ssh.tempDomName + End Sub + + + 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 = stringToCheck.Substring(stringToCheck.IndexOf("@FollowUp")) + stringToCheck = stringToCheck.Replace(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) + 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.tempDomHonorific + If stringToCheck.Contains("@Contact1") Then + ssh.tempDomName = ssh.SlideshowContact1.TypeName + ssh.tempHonorific = ssh.SlideshowContact1.TypeHonorific + ssh.contactToUse = ssh.SlideshowContact1 + ElseIf stringToCheck.Contains("@Contact2") Then + ssh.tempDomName = ssh.SlideshowContact2.TypeName + ssh.tempHonorific = ssh.SlideshowContact2.TypeHonorific + ssh.contactToUse = ssh.SlideshowContact2 + ElseIf stringToCheck.Contains("@Contact3") Then + 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 = ssh.SlideshowContact1.TypeName + ssh.tempHonorific = ssh.SlideshowContact1.TypeHonorific + ssh.contactToUse = ssh.SlideshowContact1 + Case ssh.SlideshowContact2.TypeName + ssh.tempDomName = ssh.SlideshowContact2.TypeName + ssh.tempHonorific = ssh.SlideshowContact2.TypeHonorific + ssh.contactToUse = ssh.SlideshowContact2 + Case ssh.SlideshowContact3.TypeName + ssh.tempDomName = ssh.SlideshowContact3.TypeName + ssh.tempHonorific = ssh.SlideshowContact3.TypeHonorific + ssh.contactToUse = ssh.SlideshowContact3 + Case Else + End Select + End If + 'Return stringToCheck + End Function + + Private Sub checkForPunish() + If ssh.nameErrors >= 2 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(ByVal 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 + 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 + 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 + '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 + 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(ssh.ChatString).Contains(UCase(SplitParts(n))) + End If + + If condition Then + 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 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)) + 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 + 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 + End If + Next + Next + Next + Return -1 + End Function + + 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 + 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[]") + End Try + Return tmpImgLoc + End Function + + Private Sub updateMode(ByVal 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 + + Private Sub setWriteTask() + LBLWritingTaskText.Text = PoundClean(ssh.currentWriteTask) + LBLWritingTaskText.Text = StripCommands(LBLWritingTaskText.Text) + LBLWritingTaskText.Text = StripFormat(LBLWritingTaskText.Text) + LBLWritingTaskText.Text = LBLWritingTaskText.Text.Replace(" ", " ") + LBLWritingTaskText.Text = LBLWritingTaskText.Text.Trim + End Sub End Class diff --git a/Tease AI/Form1/Chat.vb b/Tease AI/Form1/Chat.vb new file mode 100644 index 0000000..b02081e --- /dev/null +++ b/Tease AI/Form1/Chat.vb @@ -0,0 +1,356 @@ +'=========================================================================================== +' +' 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, True) + End Sub + + Public Sub ChatAddWritingTaskInfo(message As String, Optional delayOutput As Boolean = False) + ChatAppend("
+ + " & message & " + +
", delayOutput, False) + 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 + + ''' Marks the given text as inline warning. + ''' The text to mark. + ''' Returns the given text and the necessary HTML-Tags. + Public Function ChatGetInlineWarning(textToMark As String) + Return "" & textToMark & "" + End Function + + Public Sub ChatAddWarning(msg As String) + ChatAppend("
+ WARNING: " & msg & " +
", False, True) + End Sub + + ''' Marks the given text as inline error. + ''' The text to mark. + ''' Returns the given text and the necessary HTML-Tags. + Public Function ChatGetInlineError(textToMark As String) + Return "" & textToMark & "" + End Function + + 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") & "} +.warning {" & If(My.Settings.CbChatDisplayWarnings, "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 35e764a..0bcc5b4 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 @@ -132,7 +132,7 @@ Partial Class Form1 ' All Errors '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ Log.WriteError("Failed to fetch ImageList for genre." & Name.ToString & " : " & ex.Message, ex, - "Excetion at: " & Name.ToString & ".ToList()") + "Exception at: " & Name.ToString & ".ToList()") Return New List(Of String) End Try Return rtnList @@ -185,19 +185,21 @@ Partial Class Form1 '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ ' Blog Images - End '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ElseIf Name = ImageGenre.Liked + ElseIf Name = ImageGenre.Liked Then '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ ' 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") GoTo exitEmpty @@ -205,19 +207,21 @@ Partial Class Form1 '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ ' Liked Images - End '▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ - ElseIf Name = ImageGenre.Disliked + ElseIf Name = ImageGenre.Disliked Then '▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼ ' 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") GoTo exitEmpty @@ -273,7 +277,7 @@ 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 & ")") + "Exception at: " & Name.ToString & ".ToList(" & Type.ToString & ")") Return New List(Of String) End Try exitEmpty: @@ -394,58 +398,58 @@ NoneFound: }) .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 - }) + { + .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.CBHardcore, - .UrlFile = If(My.Settings.UrlFileHardcoreEnabled, My.Settings.UrlFileHardcore, ""), - .SYS_NoPornAllowed = SysNoPornAllowed - }) + { + .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.CBSoftcore, - .UrlFile = If(My.Settings.UrlFileSoftcoreEnabled, My.Settings.UrlFileSoftcore, ""), - .SYS_NoPornAllowed = SysNoPornAllowed - }) + { + .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.CBLesbian, - .UrlFile = If(My.Settings.UrlFileLesbianEnabled, My.Settings.UrlFileLesbian, ""), - .SYS_NoPornAllowed = SysNoPornAllowed - }) + { + .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.CBBlowjob, - .UrlFile = If(My.Settings.UrlFileBlowjobEnabled, My.Settings.UrlFileBlowjob, ""), - .SYS_NoPornAllowed = SysNoPornAllowed - }) + { + .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.CBFemdom, - .UrlFile = If(My.Settings.UrlFileFemdomEnabled, My.Settings.UrlFileFemdom, ""), - .SYS_NoPornAllowed = SysNoPornAllowed - }) + { + .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 { @@ -644,7 +648,7 @@ NoNeFound: If WaitToFinish Then BWimageFetcher.WaitToFinish() Catch ex As Exception Log.WriteError("Error occurred while displaying image. Fallback Failed.", - ex, "ShowImage(String, Boolean)") + ex, "ShowImage(String, Boolean)") End Try End Sub @@ -750,8 +754,7 @@ 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.") - .ImageLocation = errorimagepath + "Error loading image. Performing fallback to errorimage.") GoTo retryLocal Catch ex As Exception '▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨▨ @@ -759,7 +762,7 @@ 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") + ex, "Error loading image") End Try End With @@ -804,8 +807,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 @@ -830,7 +831,7 @@ 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.") + ex, "Error Displaying image.") End Try End Sub @@ -911,7 +912,7 @@ 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") + ex, "MainPictureboxSetImage") End Try End Sub diff --git a/Tease AI/Form1/ScriptVariables.vb b/Tease AI/Form1/ScriptVariables.vb new file mode 100644 index 0000000..abdeefa --- /dev/null +++ b/Tease AI/Form1/ScriptVariables.vb @@ -0,0 +1,283 @@ +'=========================================================================================== +' +' ScriptVariables.vb.vb +' +' This file contains functions and methods to handle script Variables. +' +'=========================================================================================== +Imports System.IO + +Partial Public Class Form1 + + Public Function VariableFolder() As String + VariableFolder = Application.StartupPath & "\Scripts\" & dompersonalitycombobox.Text & "\System\Variables\" + Directory.CreateDirectory(VariableFolder) + End Function + + Public Function VariableExists(varName As String) + + Return File.Exists(Path.Combine(VariableFolder, varName)) + + End Function + + + Public Sub SetVariable(ByVal varName As String, ByVal value As String) + + My.Computer.FileSystem.WriteAllText(Path.Combine(VariableFolder, varName), value, False) + + End Sub + + Public Function GetVariable(ByVal varName As String) As String + + If VariableExists(varName) Then + Return TxtReadLine(Path.Combine(VariableFolder, varName)) + Else + Return 0 + End If + + End Function + + Public Sub DeleteVariable(ByVal varName As String) + + File.Delete(Path.Combine(VariableFolder, varName)) + + End Sub + + Public Function ChangeVariable(ByVal varName As String, ByVal operand1 As String, ByVal mathOperator As String, ByVal operand2 As String) + Dim Val1, Val2, Result As Integer + + ' Integer.TryParse will return 0 if conversion failed. + If Integer.TryParse(operand1, Val1) = False Then + If VariableExists(operand1) Then + Integer.TryParse(GetVariable(operand1), Val1) + End If + End If + + If Integer.TryParse(operand2, Val2) = False Then + If VariableExists(operand2) Then + Integer.TryParse(GetVariable(operand2), Val2) + End If + End If + + If mathOperator.Contains("+") Then + Result = Val1 + Val2 + ElseIf mathOperator.Contains("-") Then + Result = Val1 - Val2 + ElseIf mathOperator.Contains("*") Then + Result = Val1 * Val2 + ElseIf mathOperator.Contains("/") Then + If Val2 = 0 Then + Val2 = 1 + ChatAddWarning("""" & operand2 & """ has returned zero. Modified to ""1"" to avoid an DivideByZeroException.") + End If + Result = Val1 / Val2 + Else + Result = 0 + End If + + SetVariable(varName, Result) + + Return Result + 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) + 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 + + 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 + + Return AndCheck + + 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, "@Variable[", 2) & "]") = True Then + OrCheck = True + Exit For + End If + SCGotVar = SCGotVar.Replace("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]Or", "") + Next + + Return OrCheck + + Else + + If GetIf("[" & GetParentheses(SCGotVar, "@Variable[", 2) & "]") = True Then + + Return True + + Else + + Return False + + End If + + End If + + Loop Until Not StringCLean.Contains("@Variable") + + + End Function + +#Region "---------------------------------------- Script-Dates ------------------------------------------" + + Public Function GetDate(ByVal VarName As String) As Date + + If VariableExists(VarName) Then + Date.TryParse(GetVariable(VarName), GetDate) + Else + Return FormatDateTime(Now, DateFormat.GeneralDate) + End If + + End Function + + Public Function GetTime(ByVal VarName As String) As String + + Return GetDate(VarName).ToLongTimeString + + 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 + + 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 + + Return False + + End Function + + Public Function GetDateDifference(ByVal DateVar As String, ByVal DateString As String) As Long + + 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 + + Public Function GetDateCompare(ByVal DateVar As String, ByVal DateString As String) As Long + + 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 + + Return DDiff + + End Function + +#End Region ' Script-Dates + + + + +End Class diff --git a/Tease AI/Form2.Designer.vb b/Tease AI/Form2.Designer.vb index 56bfe65..1db45c9 100644 --- a/Tease AI/Form2.Designer.vb +++ b/Tease AI/Form2.Designer.vb @@ -28,10 +28,15 @@ Partial Class FrmSettings 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() @@ -39,7 +44,6 @@ Partial Class FrmSettings 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() @@ -69,13 +73,11 @@ Partial Class FrmSettings 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() @@ -86,6 +88,8 @@ Partial Class FrmSettings 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() @@ -153,9 +157,8 @@ Partial Class FrmSettings 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.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() @@ -193,9 +196,24 @@ Partial Class FrmSettings 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() @@ -306,77 +324,12 @@ Partial Class FrmSettings 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() @@ -569,29 +522,17 @@ Partial Class FrmSettings 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() @@ -600,39 +541,21 @@ Partial Class FrmSettings 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() @@ -641,116 +564,62 @@ Partial Class FrmSettings 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() @@ -781,20 +650,13 @@ Partial Class FrmSettings 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() @@ -809,8 +671,6 @@ Partial Class FrmSettings 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() @@ -818,26 +678,16 @@ Partial Class FrmSettings 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() @@ -891,15 +741,10 @@ Partial Class FrmSettings 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() @@ -988,6 +833,8 @@ Partial Class FrmSettings 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() @@ -996,6 +843,14 @@ Partial Class FrmSettings 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() @@ -1006,12 +861,12 @@ Partial Class FrmSettings 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() @@ -1062,24 +917,13 @@ 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.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() @@ -1107,41 +951,240 @@ 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.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() + Me.CbxWarningsToChat = 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() @@ -1158,7 +1201,9 @@ Partial Class FrmSettings 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() @@ -1230,43 +1275,22 @@ Partial Class FrmSettings 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() @@ -1285,21 +1309,10 @@ Partial Class FrmSettings 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() @@ -1321,10 +1334,6 @@ Partial Class FrmSettings 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() @@ -1345,6 +1354,7 @@ Partial Class FrmSettings Me.Panel11.SuspendLayout() Me.GroupBox62.SuspendLayout() Me.GroupBox33.SuspendLayout() + Me.GroupBox8.SuspendLayout() Me.GroupBox27.SuspendLayout() Me.GroupBox20.SuspendLayout() Me.GroupBox15.SuspendLayout() @@ -1360,12 +1370,49 @@ Partial Class FrmSettings 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() + 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 @@ -1416,6 +1463,8 @@ Partial Class FrmSettings ' 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) @@ -1432,6 +1481,74 @@ Partial Class FrmSettings 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 @@ -1473,20 +1590,6 @@ Partial Class FrmSettings 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 @@ -1538,7 +1641,7 @@ Partial Class FrmSettings 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.Location = New System.Drawing.Point(4, 100) Me.CBNewSlideshow.Name = "CBNewSlideshow" Me.CBNewSlideshow.Size = New System.Drawing.Size(200, 17) Me.CBNewSlideshow.TabIndex = 18 @@ -1563,9 +1666,9 @@ Partial Class FrmSettings 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.Location = New System.Drawing.Point(10, 45) Me.BTNDomImageDir.Name = "BTNDomImageDir" - Me.BTNDomImageDir.Size = New System.Drawing.Size(198, 22) + Me.BTNDomImageDir.Size = New System.Drawing.Size(190, 22) Me.BTNDomImageDir.TabIndex = 17 Me.BTNDomImageDir.Text = "Set Domme Images Directory" Me.BTNDomImageDir.UseVisualStyleBackColor = False @@ -1581,20 +1684,6 @@ Partial Class FrmSettings 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 @@ -1946,20 +2035,6 @@ Partial Class FrmSettings 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 @@ -2019,20 +2094,6 @@ Partial Class FrmSettings 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 @@ -2147,6 +2208,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) @@ -2164,6 +2226,28 @@ Partial Class FrmSettings 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 @@ -2411,16 +2495,16 @@ Partial Class FrmSettings 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.Location = New System.Drawing.Point(440, 299) Me.GBDomRanges.Name = "GBDomRanges" - Me.GBDomRanges.Size = New System.Drawing.Size(259, 94) + 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, 11) + 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" @@ -2430,7 +2514,7 @@ Partial Class FrmSettings ' 'NBDomMoodMin ' - Me.NBDomMoodMin.Location = New System.Drawing.Point(134, 11) + 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" @@ -2443,7 +2527,7 @@ Partial Class FrmSettings 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.Location = New System.Drawing.Point(184, 19) Me.Label37.Name = "Label37" Me.Label37.Size = New System.Drawing.Size(10, 17) Me.Label37.TabIndex = 166 @@ -2455,7 +2539,7 @@ Partial Class FrmSettings 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.Location = New System.Drawing.Point(12, 19) Me.Label39.Name = "Label39" Me.Label39.Size = New System.Drawing.Size(116, 17) Me.Label39.TabIndex = 165 @@ -2464,7 +2548,7 @@ Partial Class FrmSettings ' 'NBSubAgeMax ' - Me.NBSubAgeMax.Location = New System.Drawing.Point(200, 68) + 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" @@ -2474,7 +2558,7 @@ Partial Class FrmSettings ' 'NBSubAgeMin ' - Me.NBSubAgeMin.Location = New System.Drawing.Point(134, 68) + 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" @@ -2487,7 +2571,7 @@ Partial Class FrmSettings 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.Location = New System.Drawing.Point(184, 94) Me.Label31.Name = "Label31" Me.Label31.Size = New System.Drawing.Size(10, 17) Me.Label31.TabIndex = 162 @@ -2499,7 +2583,7 @@ Partial Class FrmSettings 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.Location = New System.Drawing.Point(12, 94) Me.Label36.Name = "Label36" Me.Label36.Size = New System.Drawing.Size(113, 17) Me.Label36.TabIndex = 161 @@ -2508,7 +2592,7 @@ Partial Class FrmSettings ' 'NBSelfAgeMax ' - Me.NBSelfAgeMax.Location = New System.Drawing.Point(200, 49) + 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" @@ -2518,7 +2602,7 @@ Partial Class FrmSettings ' 'NBSelfAgeMin ' - Me.NBSelfAgeMin.Location = New System.Drawing.Point(134, 49) + 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" @@ -2531,7 +2615,7 @@ Partial Class FrmSettings 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.Location = New System.Drawing.Point(184, 69) Me.Label21.Name = "Label21" Me.Label21.Size = New System.Drawing.Size(10, 17) Me.Label21.TabIndex = 154 @@ -2543,7 +2627,7 @@ Partial Class FrmSettings 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.Location = New System.Drawing.Point(12, 69) Me.Label22.Name = "Label22" Me.Label22.Size = New System.Drawing.Size(116, 17) Me.Label22.TabIndex = 153 @@ -2552,7 +2636,7 @@ Partial Class FrmSettings ' 'NBAvgCockMax ' - Me.NBAvgCockMax.Location = New System.Drawing.Point(200, 30) + 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" @@ -2562,7 +2646,7 @@ Partial Class FrmSettings ' 'NBAvgCockMin ' - Me.NBAvgCockMin.Location = New System.Drawing.Point(134, 30) + 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" @@ -2575,7 +2659,7 @@ Partial Class FrmSettings 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.Location = New System.Drawing.Point(184, 44) Me.Label23.Name = "Label23" Me.Label23.Size = New System.Drawing.Size(10, 17) Me.Label23.TabIndex = 150 @@ -2587,7 +2671,7 @@ Partial Class FrmSettings 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.Location = New System.Drawing.Point(12, 44) Me.Label30.Name = "Label30" Me.Label30.Size = New System.Drawing.Size(116, 17) Me.Label30.TabIndex = 149 @@ -2623,7 +2707,7 @@ Partial Class FrmSettings 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.Location = New System.Drawing.Point(18, 33) Me.GBDomStats.Name = "GBDomStats" Me.GBDomStats.Size = New System.Drawing.Size(171, 263) Me.GBDomStats.TabIndex = 62 @@ -2937,7 +3021,7 @@ Partial Class FrmSettings 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.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) @@ -2952,7 +3036,7 @@ Partial Class FrmSettings 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.Location = New System.Drawing.Point(79, 43) Me.degradingCheckBox.Name = "degradingCheckBox" Me.degradingCheckBox.Size = New System.Drawing.Size(75, 17) Me.degradingCheckBox.TabIndex = 40 @@ -2976,7 +3060,7 @@ Partial Class FrmSettings 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.Location = New System.Drawing.Point(155, 20) Me.supremacistCheckBox.Name = "supremacistCheckBox" Me.supremacistCheckBox.Size = New System.Drawing.Size(84, 17) Me.supremacistCheckBox.TabIndex = 38 @@ -2988,7 +3072,7 @@ Partial Class FrmSettings 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.Location = New System.Drawing.Point(79, 20) Me.vulgarCheckBox.Name = "vulgarCheckBox" Me.vulgarCheckBox.Size = New System.Drawing.Size(56, 17) Me.vulgarCheckBox.TabIndex = 37 @@ -3007,16 +3091,17 @@ Partial Class FrmSettings Me.crazyCheckBox.Text = "Crazy" Me.crazyCheckBox.UseVisualStyleBackColor = True ' - 'condescendingCheckBox + 'CFNMCheckBox ' - 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 + 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 ' @@ -3042,19 +3127,6 @@ Partial Class FrmSettings 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 @@ -3385,6 +3457,7 @@ Partial Class FrmSettings 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) @@ -3404,7 +3477,7 @@ Partial Class FrmSettings 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.Location = New System.Drawing.Point(440, 391) Me.GroupBox22.Name = "GroupBox22" Me.GroupBox22.Size = New System.Drawing.Size(259, 39) Me.GroupBox22.TabIndex = 158 @@ -3450,7 +3523,7 @@ Partial Class FrmSettings 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.Location = New System.Drawing.Point(12, 18) Me.Label77.Name = "Label77" Me.Label77.Size = New System.Drawing.Size(126, 17) Me.Label77.TabIndex = 165 @@ -3466,7 +3539,7 @@ Partial Class FrmSettings 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(439, 335) Me.GroupBox45.Name = "GroupBox45" Me.GroupBox45.Size = New System.Drawing.Size(259, 50) Me.GroupBox45.TabIndex = 155 @@ -3515,29 +3588,185 @@ Partial Class FrmSettings 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, 30) + Me.GroupBox35.Location = New System.Drawing.Point(440, 22) Me.GroupBox35.Name = "GroupBox35" - Me.GroupBox35.Size = New System.Drawing.Size(259, 263) + 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, 168) + 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, 96) Me.GroupBox39.TabIndex = 3 Me.GroupBox39.TabStop = False Me.GroupBox39.Tag = "" @@ -3547,18 +3776,29 @@ Partial Class FrmSettings ' 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 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, 66) + 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 @@ -3576,7 +3816,7 @@ Partial Class FrmSettings 'GroupBox38 ' Me.GroupBox38.Controls.Add(Me.TBNo) - Me.GroupBox38.Location = New System.Drawing.Point(6, 116) + 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 @@ -3590,12 +3830,12 @@ Partial Class FrmSettings Me.TBNo.Name = "TBNo" Me.TBNo.Size = New System.Drawing.Size(229, 20) Me.TBNo.TabIndex = 0 - Me.TBNo.Text = "no, nah, nope, not" + Me.TBNo.Text = "no, nah, nope" ' 'GroupBox37 ' Me.GroupBox37.Controls.Add(Me.TBYes) - Me.GroupBox37.Location = New System.Drawing.Point(6, 64) + 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 @@ -3614,7 +3854,7 @@ Partial Class FrmSettings 'GroupBox36 ' Me.GroupBox36.Controls.Add(Me.TBGreeting) - Me.GroupBox36.Location = New System.Drawing.Point(6, 12) + 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 @@ -3636,9 +3876,9 @@ Partial Class FrmSettings 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" @@ -3650,18 +3890,18 @@ Partial Class FrmSettings 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 @@ -3858,7 +4098,6 @@ Partial Class FrmSettings '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) @@ -4877,397 +5116,7 @@ Partial Class FrmSettings 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 + 'GbxImagesGenre ' Me.GbxImagesGenre.Controls.Add(Me.TableLayoutPanel1) Me.GbxImagesGenre.Location = New System.Drawing.Point(6, 8) @@ -5371,9408 +5220,10060 @@ Partial Class FrmSettings Me.BTNIHardcore.Text = "1" Me.BTNIHardcore.UseVisualStyleBackColor = False ' - 'TbxIHardcore + 'BTNISoftcore ' - 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 + 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 ' - 'CBIHardcoreSD + 'BTNILesbian ' - 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.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 + ' + '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 + ' + '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 ' - 'CBIHardcore + 'TabPage34 ' - 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.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" ' - 'CBISoftcore + 'CBTagSeeThrough ' - 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.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 ' - 'TbxISoftcore + 'CBTagAllFours ' - 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 + 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 ' - 'CBButtSubDir + 'CBTagGlaring ' - 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.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 ' - 'CBISoftcoreSD + 'CBTagSmiling ' - 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.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 ' - 'CBBoobSubDir + 'TBTagDir ' - 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.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" ' - 'CBILezdomSD + 'CBTagPiercing ' - 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.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 ' - 'CBIGeneralSD + 'CBTagLegs ' - 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.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 ' - 'CBILesbianSD + 'TBTagFurniture ' - 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.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 ' - 'CBICaptionsSD + 'CBTagFurniture ' - 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.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 ' - 'CBILesbian + 'CBTagSexToy ' - 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.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 ' - 'CBIMaledomSD + 'TBTagTattoo ' - 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.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 ' - 'CBIBlowjob + 'CBTagTattoo ' - 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.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 ' - 'CBIGaySD + 'TBTagUnderwear ' - 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.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 ' - 'CBIHentaiSD + 'CBTagUnderwear ' - 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.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 ' - 'CBIBlowjobSD + 'TBTagGarment ' - 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.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 ' - 'CBIFemdomSD + 'CBTagGarment ' - 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.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 ' - 'TbxIButts + 'Label72 ' - 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 + 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 ' - 'CBIFemdom + 'CBTagHandsCovering ' - 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.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 ' - 'TbxILesbian + 'CBTagGarmentCovering ' - 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 + 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 ' - 'BTNISoftcore + 'CBTagCloseUp ' - 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 + 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 ' - 'CBILezdom + 'CBTagNaked ' - 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.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 ' - 'TbxIBoobs + 'CBTagSideView ' - 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 + 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 ' - 'CBIHentai + 'BTNTagPrevious ' - 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.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 ' - 'TbxIBlowjob + 'CBTagHalfDressed ' - 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 + 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 ' - 'CBIGay + 'BTNTagNext ' - 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.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 ' - 'TbxIGeneral + 'CBTagFullyDressed ' - 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 + 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 ' - 'CBIMaledom + 'LBLTagCount ' - 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.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 ' - 'TbxIFemdom + 'CBTagSucking ' - 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 + 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 ' - 'BTNILesbian + 'CBTagMasturbating ' - 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 + 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 ' - 'TbxICaptions + 'CBTagFeet ' - 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 + 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 ' - 'CBICaptions + 'CBTagBoobs ' - 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.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 ' - 'TbxILezdom + 'CBTagAss ' - 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 + 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 ' - 'TbxIMaledom + 'CBTagPussy ' - 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 + 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 ' - 'BTNButtPath + 'BTNTagSave ' - 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 + 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 ' - 'TbxIHentai + 'BTNTagDir ' - 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 + 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 ' - 'CBIGeneral + 'ImageTagPictureBox ' - 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.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 ' - 'TbxIGay + 'CBTagFace ' - 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 + 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 ' - 'CBIBoobs + 'TabPage35 ' - 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.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" ' - 'CBIButts + 'GroupBox55 ' - 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.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" ' - 'BTNIBlowjob + 'CBTagNurse ' - 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 + 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 ' - 'BTNIFemdom + 'CBTagSchoolgirl ' - 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 + 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 ' - 'BTNBoobPath + 'CBTagMaid ' - 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 + 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 ' - 'BTNILezdom + '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.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 + 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 ' - 'BTNIHentai + 'GroupBox53 ' - 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 + 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" ' - 'BTNIGay + 'CBTagTrap ' - 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 + 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 ' - 'BTNIMaledom + 'CBTagTentacles ' - 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 + 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 ' - 'BTNICaptions + 'CBTagMonsterGirl ' - 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 + 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 ' - 'BTNIGeneral + 'CBTagBukkake ' - 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 + 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 ' - 'TabPage33 + 'CBTagGanguro ' - 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.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 ' - 'TabControl5 + 'CBTagBodyWriting ' - 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.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 ' - 'TabPage34 + 'CBTagMahouShoujo ' - 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.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 ' - 'CBTagSeeThrough + 'CBTagBakunyuu ' - 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.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 ' - 'CBTagAllFours + 'CBTagAhegao ' - 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.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 ' - 'CBTagGlaring + 'CBTagShibari ' - 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.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 ' - 'CBTagSmiling + 'GroupBox49 ' - 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.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" ' - 'TBTagDir + 'CBTagBodyMouth ' - 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.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 ' - 'CBTagPiercing + 'CBTagBodyAss ' - 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.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 ' - 'CBTagLegs + 'CBTagBodyFace ' - 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.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 ' - 'TBTagFurniture + 'CBTagBodyLegs ' - 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.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 ' - 'CBTagFurniture + 'CBTagBodyBalls ' - 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.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 ' - 'TBTagSexToy + 'CBTagBodyCock ' - 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.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 ' - 'CBTagSexToy + 'CBTagBodyFeet ' - 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.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 ' - 'TBTagTattoo + 'CBTagBodyNipples ' - 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.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 ' - 'CBTagTattoo + 'CBTagBodyPussy ' - 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.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 ' - 'TBTagUnderwear + 'CBTagBodyTits ' - 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.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 ' - 'CBTagUnderwear + 'CBTagBodyFingers ' - 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.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 ' - 'TBTagGarment + 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.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 + 'CBTagMultiSub ' - 'CBTagGarment + 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.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 + 'CBTagMultiDom ' - 'Label72 + 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.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 + 'CBTagFemdom ' - 'CBTagHandsCovering + 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.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 + 'CBTag2M ' - 'CBTagGarmentCovering + 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.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 + 'CBTagFutadom ' - 'CBTagCloseUp + 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.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 + 'CBTagFemsub ' - 'CBTagNaked + 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.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 + 'CBTag2Futa ' - 'CBTagSideView + 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.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 + 'CBTagMaledom ' - 'BTNTagPrevious + 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.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 + 'CBTag3M ' - 'CBTagHalfDressed + 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.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 + 'CBTagFutasub ' - 'BTNTagNext + 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.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 + 'CBTag3Futa ' - 'CBTagFullyDressed + 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.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 + '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 ' - 'LBLTagCount + 'CBTag2F ' - 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.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 ' - 'CBTagSucking + 'CBTag1Futa ' - 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.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 ' - 'CBTagMasturbating + 'CBTag1M ' - 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.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 ' - 'CBTagFeet + 'CBTag1F ' - 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.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 ' - 'CBTagBoobs + 'CBTag3F ' - 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.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 ' - 'CBTagAss + 'GroupBox54 ' - 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.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" ' - 'CBTagPussy + 'CBTagTattoos ' - 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.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 ' - 'BTNTagSave + 'CBTagAnalToy ' - 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.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 ' - 'BTNTagDir + 'CBTagDomme ' - 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 + 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 ' - 'ImageTagPictureBox + 'CBTagPocketPussy ' - 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.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 ' - 'CBTagFace + 'CBTagWatersports ' - 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.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 ' - 'TabPage35 + 'CBTagStockings ' - 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.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 ' - 'GroupBox55 + 'CBTagCumshot ' - 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.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 ' - 'CBTagNurse + 'CBTagCumEating ' - 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.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 ' - 'CBTagSchoolgirl + 'CBTagVibrator ' - 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.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 ' - 'CBTagMaid + 'CBTagDildo ' - 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.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 ' - 'CBTagTeacher + 'CBTagKissing ' - 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.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 ' - 'CBTagSuperhero + 'GroupBox51 ' - 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.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" ' - 'GroupBox53 + 'CBTagBallTorture ' - 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.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 ' - 'CBTagTrap + 'CBTagGag ' - 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.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 ' - 'CBTagBodyAss + 'CBTagFacesitting ' - 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.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 ' - 'CBTagBodyFace + 'CBTagMissionary ' - 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.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 ' - 'CBTagBodyLegs + 'CBTagMasturbation ' - 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.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 ' - 'CBTagBodyBalls + 'CBTagRCowgirl ' - 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.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 ' - '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.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.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 + 'CBTagArtwork ' - 'CBTagFemsub + 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.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 + 'CBTagOutdoors ' - 'CBTag2Futa + 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.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 + 'CBTagPOV ' - 'CBTagMaledom + 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.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 + 'CBTagHardcore ' - 'CBTag3M + 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.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 + 'CBTagTD ' - 'CBTagFutasub + 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.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 + 'CBTagGay ' - 'CBTag3Futa + 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.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 + 'CBTagBath ' - 'CBTagMalesub + 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.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 + 'CBTagBisexual ' - 'CBTag2F + 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.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 + '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 ' - 'CBTagCumEating + 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.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 + 'BTNLocalTagSave ' - 'CBTagVibrator + 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.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 + 'BTNLocalTagDir ' - 'CBTagDildo + 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 ' - 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 + 'TabPage11 ' - 'CBTagKissing + 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.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 + '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 ' - '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.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 ' - '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.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 ' - '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.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 ' - '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.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 ' - '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.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 ' - '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.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 ' - '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.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 ' - '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.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 ' - '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.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 ' - '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.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 ' - '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.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 ' - '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.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 ' - '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.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 ' - '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.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 ' - '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.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 ' - '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.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 ' - '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.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 ' - '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.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 ' - '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.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 ' - '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" + ' + '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 ' - 'CBTagChastity + 'GbxVideoGeneral ' - 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.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" ' - 'CBTagShower + 'LblVideoGeneralTotal ' - 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.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 ' - 'TBLocalTagDir + 'BTNVideoGeneral ' - 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.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 ' - 'BTNLocalTagPrevious + 'GbxVideoSpecial ' - 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.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" ' - 'BTNLocalTagNext + 'LblVideoCHTotal ' - 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.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 ' - 'LBLLocalTagCount + 'LblVideoJOITotal ' - 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.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 ' - 'BTNLocalTagSave + 'BTNVideoCH ' - 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.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 ' - 'BTNLocalTagDir + 'BTNVideoJOI ' - 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 + 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 ' - 'TabPage11 + 'GbxVideoGenre ' - 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.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" ' - 'Panel7 + 'LblVideoFemsubTotal ' - 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.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 + ' + '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 ' - 'BTNWIContinue + 'LblVideoBlowjobTotal ' - 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.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 ' - 'BTNWIAddandContinue + 'LblVideoLesbianTotal ' - 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.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 ' - 'BTNWICancel + 'BTNVideoFemSub ' - 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.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 ' - 'CBWIReview + 'LblVideoSoftCoreTotal ' - 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.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 ' - 'BTNWIBrowse + 'BTNVideoFemDom ' - 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.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 ' - 'TBWIDirectory + 'BTNVideoBlowjob ' - 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.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 ' - 'BTNWIDisliked + 'LblVideoHardCoreTotal ' - 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.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 ' - 'BTNWILiked + 'BTNVideoLesbian ' - 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.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 ' - 'BTNWIRemove + 'BTNVideoSoftCore ' - 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.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 ' - 'CBWISaveToDisk + 'BTNVideoHardCore ' - 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.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 ' - 'PictureBox5 + 'LblVideoHeader ' - 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.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 ' - 'WebImageProgressBar + 'TabPage20 ' - 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.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" ' - 'BTNWICreateURL + 'PNLGlitter ' - 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.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 ' - 'LBLWebImageCount + '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 ' - 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 + 'Button15 ' - 'BTNWISave + 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.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 + 'Button16 ' - 'BTNWIOpenURL + 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.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 + 'Label121 ' - 'BTNWIPrevious + 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 ' - 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 + 'Label122 ' - 'BTNWINext + 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 ' - 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 + 'GBGlitterD ' - 'WebPictureBox + 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.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 + 'GrbGlitterfeed ' - 'Label71 + 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.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 + 'BTNGlitterD ' - 'TpVideoSettings + 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.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" + 'LBLGlitterSlider ' - 'PnlVideoSettings + 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 ' - 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 + 'GlitterAV ' - 'PbBannerVideoSettings + 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.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 + '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" ' - 'BTNRefreshVideos + 'Label167 ' - 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.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 ' - 'GbxVideoGeneralD + 'G1Honorific ' - 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.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 ' - 'LblVideoGeneralTotalD + 'BtnContact1ImageDirClear ' - 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 + 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 ' - 'TxbVideoGeneralD + 'BtnContact1ImageDir ' - 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 + 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 ' - 'BTNVideoGeneralD + 'BTNGlitter1 ' - 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 + 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 ' - 'CBVideoGeneralD + 'LBLGlitterSlider1 ' - 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.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 ' - 'GbxVideoSpecialD + 'GlitterAV1 ' - 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.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 ' - 'LblVideoCHTotalD + 'GBGlitter3 ' - 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 + 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" ' - 'LblVideoJOITotalD + 'Label168 ' - 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 + 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 ' - 'TxbVideoCHD + 'G3Honorific ' - 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 + 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 ' - 'TxbVideoJOID + 'BtnContact3ImageDirClear ' - 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 + 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 ' - 'BTNVideoCHD + 'BtnContact3ImageDir ' - 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 + 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 ' - 'BTNVideoJOID + 'BTNGlitter3 ' - 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 + 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 + ' + 'LBLGlitterSlider3 ' - 'CBVideoJOID + 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 ' - 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 + 'GlitterAV3 ' - 'CBVideoCHD + 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.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 + 'GBGlitter2 ' - 'GbxVideoGenreD + 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.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" + 'Label169 ' - 'LblVideoFemsubTotalD + 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 ' - 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 + 'G2Honorific ' - 'TxbVideoFemsubD + 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 ' - 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 + 'BtnContact2ImageDirClear ' - 'LblVideoFemdomTotalD + 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.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 + 'BtnContact2ImageDir ' - 'TxbVideoFemdomD + 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.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 + 'BTNGlitter2 ' - 'TxbVideoBlowjobD + 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.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 + 'LBLGlitterSlider2 ' - 'LblVideoBlowjobTotalD + 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 ' - 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 + 'GlitterAV2 ' - 'TxbVideoLesbianD + 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.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 + 'TpGames ' - 'TxbVideoSoftCoreD + 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.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 + '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 ' - 'LblVideoLesbianTotalD + 'CBGameSounds ' - 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 + 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 ' - 'TxbVideoHardCoreD + 'GbxCardsGold ' - 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 + 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" ' - 'BTNVideoFemSubD + 'GbxCardsBackground ' - 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 + 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" ' - 'LblVideoSoftCoreTotalD + 'GbxCardsBronze ' - 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 + 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" ' - 'BTNVideoFemDomD + 'GbxCardsSilver ' - 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 + 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" ' - 'BTNVideoBlowjobD + 'TabPage6 ' - 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 + 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" ' - 'LblVideoHardCoreTotalD + 'Panel10 ' - 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 + 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 ' - 'BTNVideoLesbianD + 'TBWishlistComment ' - 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 + 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 ' - 'BTNVideoSoftCoreD + 'Label32 ' - 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 + 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" ' - 'BTNVideoHardCoreD + 'TBWishlistItem ' - 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 + 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 ' - 'CBVideoHardcoreD + 'radioGold ' - 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.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" ' - 'CBVideoSoftCoreD + 'radioSilver ' - 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.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 ' - 'CBVideoLesbianD + 'TBWishlistURL ' - 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.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 ' - 'CBVideoBlowjobD + 'NBWishlistCost ' - 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.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}) ' - 'CBVideoFemsubD + 'Label48 ' - 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.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" ' - 'CBVideoFemdomD + 'Label73 ' - 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.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" ' - 'GbxVideoDescription + 'Label107 ' - 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.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 ' - 'VideoDescriptionLabel + 'BTNWishlistCreate ' - 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 + 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 ' - 'GbxVideoGeneral + 'Label18 ' - 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.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 ' - 'LblVideoGeneralTotal + 'PNLWishList ' - 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 + 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 ' - 'TxbVideoGeneral + 'WishlistCostSilver ' - 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 + 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 ' - 'BTNVideoGeneral + 'LBLWishListText ' - 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 + 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 ' - 'CBVideoGeneral + 'LBLWishlistCost ' - 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.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 ' - 'GbxVideoSpecial + 'WishlistCostGold ' - 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.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 ' - 'LblVideoCHTotal + 'LBLWishListName ' - 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 + 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 ' - 'LblVideoJOITotal + 'WishlistPreview ' - 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 + 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 ' - 'TxbVideoCH + 'TabPage26 ' - 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 + 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" ' - 'TxbVideoJOI + 'Panel12 ' - 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 + 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 ' - 'BTNVideoCH + 'GroupBox9 ' - 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 + 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" ' - 'BTNVideoJOI + 'Button32 ' - 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 + 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 ' - 'CBVideoJOI + 'Button31 ' - 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.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 ' - 'CBVideoCH + 'PictureBox10 ' - 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.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 ' - 'GbxVideoGenre + 'GroupBox5 ' - 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.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" ' - 'LblVideoFemsubTotal + 'CBTransparentTime ' - 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 + 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 + ' + '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 ' - 'TxbVideoFemsub + 'Label138 ' - 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 + 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 ' - 'LblVideoFemdomTotal + 'LBLTextColor ' - 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 + 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 ' - 'TxbVideoFemdom + 'LBLChatTextColor ' - 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 + 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 ' - 'TxbVideoBlowjob + 'LBLButtonColor ' - 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 + 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 ' - 'LblVideoBlowjobTotal + 'LBLChatWindowColor ' - 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 + 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 ' - 'TxbVideoLesbian + 'LBLBackColor ' - 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 + 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 ' - 'TxbVideoSoftCore + 'GroupBox11 ' - 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 + 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" ' - 'LblVideoLesbianTotal + 'Label144 ' - 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 + 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 ' - 'TxbVideoHardCore + 'GroupBox1 ' - 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 + 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" ' - 'BTNVideoFemSub + 'CBFlipBack ' - 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 + 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 ' - 'LblVideoSoftCoreTotal + 'PBBackgroundPreview ' - 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 + 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 ' - 'BTNVideoFemDom + 'Button17 ' - 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 + 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 ' - 'BTNVideoBlowjob + 'CBStretchBack ' - 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 + 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 ' - 'LblVideoHardCoreTotal + 'Button18 ' - 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 + 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 ' - 'BTNVideoLesbian + 'Label164 ' - 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 + 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 ' - 'BTNVideoSoftCore + 'TabPage4 ' - 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 + 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" ' - 'BTNVideoHardCore + 'Panel6 ' - 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 + 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 ' - 'CBVideoHardcore + 'GroupBox69 ' - 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.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" ' - 'CBVideoSoftCore + 'TypesSpeedVal ' - 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.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 ' - 'CBVideoLesbian + 'TypeSpeedLabel ' - 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.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:" ' - 'CBVideoBlowjob + 'GroupBox68 ' - 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.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" ' - 'CBVideoFemsub + 'NBTasksMax ' - 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.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}) ' - 'CBVideoFemdom + 'NBTasksMin ' - 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.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}) ' - 'LblVideoHeader + 'Label165 ' - 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 + 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 ' - 'TabPage20 + 'Label166 ' - 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.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 ' - 'TabControl1 + 'GroupBox67 ' - 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.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" ' - 'TabPage22 + 'Label161 ' - 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.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 ' - 'PNLGlitter + 'Label162 ' - 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 + 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 ' - 'Button15 + 'Label163 ' - 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.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 ' - 'Button16 + 'Label158 ' - 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.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 ' - 'Label121 + 'Label159 ' - 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 + 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 ' - 'Label122 + 'Label160 ' - 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 + 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 ' - 'GBGlitterD + 'Label119 ' - 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.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 ' - 'GrbGlitterfeed + 'Label157 ' - 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.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 ' - 'CBGlitterFeedScripts + 'Label151 ' - 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.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 + ' + '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 ' - 'CBGlitterFeed + 'Label155 ' - 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.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 ' - 'CBGlitterFeedOff + 'Label146 ' - 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.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 ' - 'BTNGlitterD + 'Label149 ' - 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.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 ' - 'LBLGlitterNCDomme + 'GroupBox10 ' - 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 + 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" ' - 'LBLGlitterSlider + 'Label112 ' - 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 + 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 ' - 'CBCustom2 + 'NBNextImageChance ' - 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.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}) ' - 'GlitterSlider + 'Label6 ' - 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.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 ' - 'CBCustom1 + 'GroupBox57 ' - 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.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" ' - 'CBDaily + 'Label139 ' - 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.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 ' - 'CBTrivia + 'NBTauntEdging ' - 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.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}) ' - 'TBGlitterShortName + 'LBLVtf ' - 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 + 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 ' - 'CBEgotist + 'SliderSTF ' - 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.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 ' - 'CBTease + 'TauntSlider ' - 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.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 ' - 'GlitterAV + 'Label106 ' - 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.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 ' - 'GBGlitter1 + 'CBTauntCycleDD ' - 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.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 ' - 'BtnContact1ImageDirClear + 'CBTeaseLengthDD ' - 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.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 ' - 'BtnContact1ImageDir + 'Label103 ' - 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.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 ' - 'TbxContact1ImageDir + 'NBTauntCycleMax ' - 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 + 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}) ' - 'BTNGlitter1 + 'Label105 ' - 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.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 ' - 'LBLGlitterNC1 + 'Label101 ' - 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 + 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 ' - 'LBLGlitterSlider1 + 'NBTauntCycleMin ' - 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 + 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}) ' - 'GlitterSlider1 + 'Label102 ' - 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.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 ' - 'CBGlitter1 + 'Label97 ' - 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.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}) ' - 'TBGlitter1 + 'Label99 ' - 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 + 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 ' - 'GlitterAV1 + 'Label96 ' - 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.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 ' - 'GBGlitter3 + 'NBTeaseLengthMin ' - 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.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}) ' - 'BtnContact3ImageDirClear + 'Label95 ' - 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.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 ' - 'BtnContact3ImageDir + 'Label49 ' - 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.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 ' - 'TbxContact3ImageDir + 'Label141 ' - 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 + 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 ' - 'BTNGlitter3 + 'GBRangeRuinChance ' - 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.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" ' - 'LBLGlitterNC3 + 'Label90 ' - 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 + 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 ' - 'LBLGlitterSlider3 + 'NBRuinSometimes ' - 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 + 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}) ' - 'GlitterSlider3 + 'Label91 ' - 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.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 ' - 'CBGlitter3 + 'Label92 ' - 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.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 ' - 'TBGlitter3 + 'NBRuinRarely ' - 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 + 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}) ' - 'GlitterAV3 + '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}) ' - 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 + 'CBRangeRuin ' - 'GBGlitter2 + 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.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" + 'GroupBox17 ' - 'BtnContact2ImageDirClear + 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.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 + 'GroupBox19 ' - 'BtnContact2ImageDir + 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.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 + 'Label110 ' - 'TbxContact2ImageDir + 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 ' - 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 + 'Label111 ' - 'BTNGlitter2 + 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 ' - 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 + 'NBGreenLightMax ' - 'LBLGlitterNC2 + 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.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 + 'NBGreenLightMin ' - 'LBLGlitterSlider2 + 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.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 + 'NBRedLightMax ' - 'GlitterSlider2 + 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.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 + 'Label26 ' - 'CBGlitter2 + 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 ' - 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 + 'NBRedLightMin ' - 'TBGlitter2 + 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.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 + 'Label28 ' - 'GlitterAV2 + 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 ' - 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 + 'Label27 ' - 'TpGames + 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 ' - 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" + 'Label29 ' - 'CBIncludeGifs + 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 ' - 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 + 'GroupBox18 ' - 'LblCardsSetupNote + 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.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 + 'Label108 ' - 'CBGameSounds + 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 ' - 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 + 'Label109 ' - 'GbxCardsGold + 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 ' - 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" + 'Label25 ' - 'GN6 + 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 ' - 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 + 'Label20 ' - 'GP6 + 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 ' - 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 + 'Label19 ' - 'GN2 + 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 ' - 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 + 'Label24 ' - 'GP2 + 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 ' - 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 + 'GBRangeOrgasmChance ' - 'GP5 + 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.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 + 'Label89 ' - 'GN1 + 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 ' - 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 + 'NBAllowSometimes ' - 'GP1 + 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.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 + '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 ' - 'GN5 + 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 ' - 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 + 'NBAllowRarely ' - 'GN3 + 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.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 + 'NBAllowOften ' - 'GP3 + 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.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 + 'CBRangeOrgasm ' - 'GP4 + 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.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 + 'PictureBox8 ' - 'GN4 + 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.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 + 'Label38 ' - 'GbxCardsBackground + 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 ' - 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 + ' + 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 ' - 'BN2 + 'BTNPlaylistEnd ' - 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.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 ' - 'BN5 + 'BTNPlaylistClearAll ' - 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.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 ' - 'BP5 + 'BTNPlaylistSave ' - 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.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 ' - 'BP2 + 'Button7 ' - 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.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 ' - 'BN1 + 'WBPlaylist ' - 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.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 ' - 'BN4 + 'Label80 ' - 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.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" ' - 'BP4 + 'LBLPlaylIstLink ' - 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.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 ' - 'BP1 + 'LBLPlaylistModule ' - 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.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 ' - 'GbxCardsSilver + 'LBLPLaylistStart ' - 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.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 ' - 'SN6 + 'LBPlaylist ' - 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.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 ' - 'SP6 + 'TabPage14 ' - 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.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" ' - 'SN2 + 'LBLKeywordPreview ' - 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.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 ' - 'SP2 + 'Label88 ' - 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.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 ' - 'SN1 + 'TBKeywordPreview ' - 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.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 ' - 'SP5 + 'Button37 ' - 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.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 ' - 'SP1 + 'Button50 ' - 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.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 ' - 'SN5 + 'Button22 ' - 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.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 ' - 'SN3 + 'TBKeyWords ' - 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.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 ' - 'SN4 + 'LBKeyWords ' - 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.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 ' - 'SP3 + 'RTBKeyWords ' - 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.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 = "" ' - 'SP4 + 'TabPage24 ' - 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.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" ' - 'TabPage6 + 'Button9 ' - 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.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 ' - 'Panel10 + 'RTBResponsesKEY ' - 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.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 = "" ' - 'TBWishlistComment + 'Button4 ' - 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.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 ' - 'Label32 + 'Button5 ' - 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.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 ' - 'TBWishlistItem + 'TBResponses ' - 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.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 ' - 'radioGold + 'LBResponses ' - 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.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 ' - 'Label42 + 'RTBResponses ' - 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.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 = "" ' - 'radioSilver + 'TabPage8 ' - 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.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" ' - 'TBWishlistURL + 'RTBVideoMod ' - 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.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 = "" ' - 'NBWishlistCost + 'GroupBox29 ' - 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.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" ' - 'Label48 + 'Label51 ' - 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.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 ' - 'Label73 + 'BTNVideoModClear ' - 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.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 ' - 'Label107 + 'GroupBox28 ' - 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 + 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.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 + 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.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 + 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.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 + 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.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 + 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.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.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 + 'Label58 ' - 'TabPage26 + 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.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" + 'Label60 ' - 'Panel12 + 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.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 + 'TBGlitModFileName ' - 'GroupBox9 + 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.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" + 'GroupBox34 ' - 'Button32 + 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.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 + 'Label52 ' - 'Button31 + 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 ' - 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 + 'RTBGlitModDommePost ' - 'PictureBox10 + 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.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 + 'Button26 ' - 'GroupBox5 + 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.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" + 'Label56 ' - 'CBTransparentTime + 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.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 + 'RTBGlitModResponses ' - 'LBLDateTimeColor2 + 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.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 + 'LBGlitModScripts ' - 'Label137 + 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.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 + 'LBLGlitModScriptCount ' - 'Label138 + 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.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 + 'LBLGlitModDomType ' - 'LBLDateBackColor2 + 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.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 + 'Button29 ' - 'LBLTextColor + 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.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 + 'CBGlitModType ' - 'LBLChatWindowColor2 + 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.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 + 'Label59 ' - 'LBLTextColor2 + 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.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 + 'Label50 ' - 'LBLChatTextColor + 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.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 + 'TabPage25 ' - 'LBLBackColor2 + 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.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 + 'Panel11 ' - 'LBLButtonColor + 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.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 + 'GroupBox62 ' - 'LBLChatWindowColor + 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.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 + 'RBGerman ' - 'LBLBackColor + 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.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 + 'RBEnglish ' - 'LBLChatTextColor2 + 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.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 + 'GroupBox33 ' - 'LBLButtonColor2 + 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.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 + 'BTNOfflineMode ' - 'GroupBox11 + 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.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" + 'LBLOfflineMode ' - 'Label144 + 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.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 + 'Label140 ' - 'GroupBox1 + 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 ' - 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" + 'Button11 ' - 'CBFlipBack + 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.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 + 'LBLChastityState ' - 'PBBackgroundPreview + 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.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 + 'Label120 ' - 'Button17 + 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.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 + 'GroupBox8 + ' + Me.GroupBox8.Controls.Add(Me.CbxWarningsToChat) + 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, 63) + 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 ' - 'CBStretchBack + 'GroupBox27 ' - 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.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" ' - 'Button18 + 'Button6 ' - 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.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 ' - 'Label164 + 'LBLSesSpace ' - 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 + 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 ' - 'TabPage4 + 'Button3 ' - 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.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 ' - 'Panel6 + 'LBLSesFiles ' - 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.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 ' - 'GroupBox69 + 'Label125 ' - 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.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:" ' - 'TypesSpeedVal + 'Label124 ' - 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.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:" ' - 'TypeSpeedLabel + 'GroupBox20 ' - 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.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" ' - 'TimedWriting + 'BTNURLFileReplace ' - 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.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 ' - 'TypeSpeedSlider + 'Label87 ' - 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.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" ' - 'GroupBox68 + 'TBURLFileWith ' - 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.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 ' - 'NBTasksMax + 'Label118 ' - 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.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" ' - 'NBTasksMin + 'Label85 ' - 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.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" ' - 'Label165 + 'TBURLFileReplace ' - 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 + 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 ' - 'Label166 + 'Label53 ' - 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 + 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" ' - 'GroupBox67 + 'Label8 ' - 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.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 " ' - 'Label161 + 'Button1 ' - 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 + 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 ' - 'NBTaskCBTTimeMax + 'BTNMaintenanceScripts ' - 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.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 ' - 'NBTaskCBTTimeMin + 'BTNMaintenanceRefresh ' - 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.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 ' - 'Label162 + 'Label117 ' - 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 + 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" ' - 'Label163 + 'Label116 ' - 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 + 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" ' - 'Label158 + 'PBCurrent ' - 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 + 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 ' - 'NBTaskEdgeHoldTimeMax + 'BTNMaintenanceCancel ' - 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.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 ' - 'NBTaskEdgeHoldTimeMin + 'PBMaintenance ' - 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.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 ' - 'Label159 + 'LBLMaintenance ' - 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 + 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 ' - 'Label160 + 'BTNMaintenanceRebuild ' - 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 + 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 ' - 'NBTaskEdgesMax + 'GroupBox15 ' - 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.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" ' - 'NBTaskEdgesMin + 'Label115 ' - 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.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" ' - 'Label119 + 'TBWebStop ' - 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 + 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 ' - 'Label157 + 'TBWebStart ' - 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 + 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 ' - 'Label151 + 'Label114 ' - 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 + 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" ' - 'NBTaskStrokingTimeMax + 'WebToy ' - 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.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 ' - 'NBTaskStrokingTimeMin + '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.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 + 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 ' - 'Label155 + 'TabPage28 ' - 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 + 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.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 + 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.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 + 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.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 + 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.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 + 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.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 + 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.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 + 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.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 + 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.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 + 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.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 + 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.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 + 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.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 + 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.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 + 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.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 + 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() {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.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.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 + 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.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 + 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() {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.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.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 + 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.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 + 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.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 + 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.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 + 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.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 + 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.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 + 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 ' - '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.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 ' - '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.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." ' - 'CBRangeRuin + 'Label40 ' - 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.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 ' - 'GroupBox17 + 'Label35 ' - 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.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 ' - 'GroupBox19 + 'Label33 ' - 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.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 ' - 'Label110 + 'Label17 ' - 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 + 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" ' - 'Label111 + 'Label3 ' - 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 + 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" ' - 'NBGreenLightMax + 'PictureBox3 ' - 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.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 ' - 'NBGreenLightMin + 'Label41 ' - 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.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 ' - 'NBRedLightMax + 'BtnRandomImageDirClear ' - 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.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 ' - 'Label26 + 'GroupBox47 ' - 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 + 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" ' - 'NBRedLightMin + 'GroupBox41 ' - 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.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" ' - 'Label28 + 'Button34 ' - 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 + 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 ' - 'Label27 + 'GroupBox40 ' - 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 + 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" ' - 'Label29 + 'GroupBox44 ' - 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 + 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" ' - 'GroupBox18 + 'Label100 ' - 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.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 ' - 'Label108 + 'GroupBox21 ' - 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 + 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" ' - 'Label109 + 'Label153 ' - 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 + 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 ' - 'NBCensorShowMin + 'LBLRangeSettingsDescription ' - 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.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 ' - 'NBCensorHideMax + 'Label156 ' - 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.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 ' - 'NBCensorHideMin + 'GroupBox12 ' - 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.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" ' - 'CBCensorConstant + 'LBLSubSettingsDescription ' - 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.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." ' - 'Label25 + 'OpenFileDialog1 ' - 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 + 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" ' - 'Label20 + 'GetColor ' - 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 + Me.GetColor.Color = System.Drawing.Color.SteelBlue ' - 'Label19 + 'WebImageFileDialog ' - 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 + Me.WebImageFileDialog.Filter = "TXT Files (*.txt)|*.txt" + Me.WebImageFileDialog.Title = "Please select a URL File" ' - 'Label24 + 'OpenScriptDialog ' - 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 + Me.OpenScriptDialog.Filter = "TXT Files (*.txt)|*.txt" + Me.OpenScriptDialog.Title = "Please select a script" ' - 'NBCensorShowMax + 'OpenSettingsDialog ' - 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.OpenSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" + Me.OpenSettingsDialog.Title = "Please select a settings file to open" ' - 'GBRangeOrgasmChance + 'SaveSettingsDialog ' - 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.SaveSettingsDialog.Filter = "TXT Files (*.txt)|*.txt" + Me.SaveSettingsDialog.Title = "Select a location to save current Domme settings" ' - 'Label89 + 'GroupBox65 ' - 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 + 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" ' - 'NBAllowSometimes + 'Label136 ' - 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.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:" ' - 'Label86 + 'Label132 ' - 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 + 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 ' - 'Label82 + 'TrackBar1 ' - 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 + 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 ' - 'NBAllowRarely + 'ComboBox1 ' - 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.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 ' - 'NBAllowOften + 'CheckBox1 ' - 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.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 ' - 'CBRangeOrgasm + 'Label135 ' - 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.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 ' - 'PictureBox8 + 'TrackBar2 ' - 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.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 ' - 'Label38 + 'TxbImgUrlHardcore ' - 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 + 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 ' - 'TabPage13 + 'TextBox2 ' - 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.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 ' - 'TabControl2 + 'BWURLFiles ' - 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.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 ' - 'TabPage27 + 'CbxWarningsToChat ' - 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.CbxWarningsToChat.AutoSize = True + Me.CbxWarningsToChat.Checked = Global.Tease_AI.My.MySettings.Default.CbChatDisplayWarnings + Me.CbxWarningsToChat.CheckState = System.Windows.Forms.CheckState.Checked + Me.CbxWarningsToChat.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Tease_AI.My.MySettings.Default, "CbChatDisplayWarnings", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CbxWarningsToChat.Location = New System.Drawing.Point(17, 40) + Me.CbxWarningsToChat.Name = "CbxWarningsToChat" + Me.CbxWarningsToChat.Size = New System.Drawing.Size(184, 17) + Me.CbxWarningsToChat.TabIndex = 30 + Me.CbxWarningsToChat.Text = "Output Warnings to chat Window" + Me.CbxWarningsToChat.UseVisualStyleBackColor = True ' - 'TBPlaylistSave + 'CBMuteMedia ' - 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.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 ' - 'BTNPlaylistCtrlZ + 'TbxDomImageDir ' - 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.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 ' - 'RadioPlaylistRegScripts + 'LBLSubColor ' - 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.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 ' - 'RadioPlaylistScripts + 'LBLDomColor ' - 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.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 ' - 'BTNPlaylistEnd + 'CBLockOrgasmChances ' - 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.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 ' - 'BTNPlaylistClearAll + 'ChbImageUrlHardcore ' - 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.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 ' - 'BTNPlaylistSave + 'ChbImageUrlButts ' - 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.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 ' - 'Button7 + 'ChbImageUrlMaledom ' - 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.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 ' - 'WBPlaylist + 'ChbImageUrlGay ' - 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.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 ' - 'Label80 + 'ChbImageUrlSoftcore ' - 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.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 ' - 'LBLPlaylIstLink + 'ChbImageUrlBoobs ' - 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.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 ' - 'LBLPlaylistModule + 'ChbImageUrlLesbian ' - 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.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 ' - 'LBLPLaylistStart + 'ChbImageUrlBlowjob ' - 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.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 ' - 'LBPlaylist + 'ChbImageUrlCaptions ' - 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.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 ' - 'TabPage14 + 'ChbImageUrlGeneral ' - 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.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 ' - 'LBLKeywordPreview + 'ChbImageUrlFemdom ' - 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.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 ' - 'Label88 + 'ChbImageUrlHentai ' - 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.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 ' - 'TBKeywordPreview + 'ChbImageUrlLezdom ' - 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.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 ' - 'Button37 + 'TxbImageUrlBlowjob ' - 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 + 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 ' - 'Button50 + 'TxbImageUrlSoftcore ' - 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.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 ' - 'Button22 + 'TxbImageUrlLezdom ' - 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.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 ' - 'TBKeyWords + 'TxbImageUrlFemdom ' - 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.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 ' - 'LBKeyWords + 'TxbImageUrlHardcore ' - 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.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 ' - 'RTBKeyWords + 'TxbImageUrlHentai ' - 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.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 ' - 'TabPage24 + 'TxbImageUrlGay ' - 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.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 ' - 'Button9 + 'TxbImageUrlLesbian ' - 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.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 ' - 'RTBResponsesKEY + 'TxbImageUrlMaledom ' - 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.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 ' - 'Button4 + 'TxbImageUrlCaptions ' - 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.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 ' - 'Button5 + 'TxbImageUrlGeneral ' - 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.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 ' - 'TBResponses + 'TxbImageUrlBoobs ' - 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.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 ' - 'LBResponses + 'TxbImageUrlButts ' - 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.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 ' - 'RTBResponses + 'TbxIHardcore ' - 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.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 ' - 'TabPage8 + 'CBIHardcoreSD ' - 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.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 ' - 'RTBVideoMod + 'CBIHardcore ' - 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.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 ' - 'GroupBox29 + 'CBISoftcore ' - 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.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 ' - 'Label51 + 'TbxISoftcore ' - 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 + 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 ' - 'BTNVideoModClear + 'CBButtSubDir ' - 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.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 ' - 'GroupBox28 + 'CBISoftcoreSD ' - 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.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 ' - 'CBVTType + 'CBBoobSubDir ' - 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.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 ' - 'BTNVideoModLoad + 'CBILezdomSD ' - 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.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 ' - 'GroupBox30 + 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.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" + 'CBILesbianSD ' - 'LBVidScript + 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.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 + 'CBICaptionsSD ' - 'BTNVideoModSave + 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.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 + 'CBILesbian ' - 'TabPage15 + 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.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" + 'CBIMaledomSD ' - 'Label62 + 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.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 + 'CBIBlowjob ' - 'Label61 + 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.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 + 'CBIGaySD ' - 'Label57 + 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.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 + 'CBIHentaiSD ' - 'Label58 + 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.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 + 'CBIBlowjobSD ' - 'Label60 + 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.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 + 'CBIFemdomSD ' - 'TBGlitModFileName + 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.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 + 'TbxIButts ' - 'GroupBox34 + 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 ' - 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" + 'CBIFemdom ' - 'Label52 + 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.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 + '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 ' - 'RTBGlitModDommePost + 'CBILezdom ' - 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.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 ' - 'Button26 + 'TbxIBoobs ' - 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.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 ' - 'Label56 + 'CBIHentai ' - 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.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 ' - 'RTBGlitModResponses + 'TbxIBlowjob ' - 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.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 ' - 'LBGlitModScripts + 'CBIGay ' - 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.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 ' - 'LBLGlitModScriptCount + 'TbxIGeneral ' - 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.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 ' - 'LBLGlitModDomType + 'CBIMaledom ' - 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.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 ' - 'Button29 + 'TbxIFemdom ' - 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.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 ' - 'CBGlitModType + 'TbxICaptions ' - 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.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 ' - 'Label59 + 'CBICaptions ' - 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.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 ' - 'Label50 + 'TbxILezdom ' - 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.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 ' - 'TabPage25 + 'TbxIMaledom ' - 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.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 ' - 'Panel11 + 'TbxIHentai ' - 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.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 ' - 'GroupBox62 + 'CBIGeneral ' - 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.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 ' - 'RBGerman + 'TbxIGay ' - 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.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 ' - 'RBEnglish + 'CBIBoobs ' - 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.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 ' - 'GroupBox33 + 'CBIButts ' - 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.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 ' - 'BTNOfflineMode + 'TxbVideoGeneralD ' - 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.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 ' - 'LBLOfflineMode + 'CBVideoGeneralD ' - 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.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 ' - 'Label140 + 'TxbVideoCHD ' - 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 + 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 ' - 'Button11 + 'TxbVideoJOID ' - 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.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 ' - 'LBLChastityState + 'CBVideoJOID ' - 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.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 ' - 'Label120 + 'CBVideoCHD ' - 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.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 ' - 'GroupBox27 + 'TxbVideoFemsubD ' - 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.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 ' - 'Button6 + 'TxbVideoFemdomD ' - 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.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 ' - 'LBLSesSpace + 'TxbVideoBlowjobD ' - 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.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 ' - 'Button3 + 'TxbVideoLesbianD ' - 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.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 ' - 'LBLSesFiles + 'TxbVideoSoftCoreD ' - 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.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 ' - 'Label125 + 'TxbVideoHardCoreD ' - 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.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 ' - 'Label124 + 'CBVideoHardcoreD ' - 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.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 ' - 'GroupBox20 + 'CBVideoSoftCoreD ' - 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.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 + ' + '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 ' - 'Label116 + 'CBVideoGeneral ' - 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.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 ' - 'PBCurrent + 'TxbVideoCH ' - 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.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 ' - 'BTNMaintenanceCancel + 'TxbVideoJOI ' - 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.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 ' - 'PBMaintenance + 'CBVideoJOI ' - 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.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 ' - 'LBLMaintenance + 'CBVideoCH ' - 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.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 ' - 'BTNMaintenanceRebuild + 'TxbVideoFemsub ' - 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.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 ' - 'WebToy + 'TxbVideoFemdom ' - 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.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 ' - 'GroupBox15 + 'TxbVideoBlowjob ' - 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.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 ' - 'Label115 + 'TxbVideoLesbian ' - 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.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 ' - 'TBWebStop + 'TxbVideoSoftCore ' - 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.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 ' - 'TBWebStart + 'TxbVideoHardCore ' - 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.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 ' - 'Label114 + 'CBVideoHardcore ' - 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.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 ' - 'PictureBox9 + 'CBVideoSoftCore ' - 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.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 ' - 'Label148 + 'CBVideoLesbian ' - 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 + 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 ' - 'TabPage28 + 'CBVideoBlowjob ' - 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.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.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 ' - '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.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 ' - 'RBDebugTaunts3 + 'CBEgotist ' - 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.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 ' - 'RBDebugTaunts2 + 'CBTease ' - 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.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 ' - 'RBDebugTaunts1 + 'TbxContact1ImageDir ' - 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.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 ' - 'CBDebugTauntsEndless + 'LBLGlitterNC1 ' - 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.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 ' - 'CBDebugTaunts + 'GlitterSlider1 ' - 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.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 ' - 'BTNDebugStrokeTauntTimer + 'CBGlitter1 ' - 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.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 ' - 'LBLDebugHoldEdgeTime + 'TBGlitter1 ' - 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.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 ' - 'Label145 + 'TbxContact3ImageDir ' - 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.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 ' - 'BTNDebugStrokeTime + 'LBLGlitterNC3 ' - 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.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 ' - 'BTNDebugEdgeTauntTimer + 'GlitterSlider3 ' - 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.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 ' - 'LBLDebugTeaseTime + 'CBGlitter3 ' - 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.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 ' - 'LBLDebugStrokeTime + 'TbxContact2ImageDir ' - 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.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 ' - 'LBLDebugEdgeTauntTime + 'LBLGlitterNC2 ' - 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.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 ' - 'BTNDebugTeaseTimer + 'GlitterSlider2 ' - 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.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 ' - 'Label142 + 'CBGlitter2 ' - 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.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 ' - 'Label150 + 'TBGlitter2 ' - 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.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 ' - 'Label152 + 'CBIncludeGifs ' - 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.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 ' - 'LBLDebugStrokeTauntTime + 'GN6 ' - 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.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 ' - 'Label147 + 'GP6 ' - 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.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 ' - 'TabPage30 + 'GN2 ' - 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.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 ' - 'Button33 + 'GP2 ' - 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.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 ' - 'Button24 + 'GP5 ' - 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.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 ' - 'TabPage5 + 'GN1 ' - 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.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 ' - 'Panel5 + 'GP1 ' - 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.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 ' - 'Label130 + 'GN3 ' - 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 + 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 ' - 'Label123 + 'GP3 ' - 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 + 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 ' - 'Label69 + 'GP4 ' - 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 + 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 ' - 'Label113 + 'GN4 ' - 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.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 ' - 'Label40 + 'CardBack ' - 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 + 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 ' - 'Label35 + 'BN6 ' - 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 + 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 ' - 'Label33 + 'BN3 ' - 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 + 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 ' - 'Label17 + 'BP3 ' - 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.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 ' - 'Label3 + 'BP6 ' - 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.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 ' - 'PictureBox3 + 'BN2 ' - 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.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 ' - 'Label41 + 'BN5 ' - 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 + 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.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 + 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.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 + 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.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 + 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.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 + 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.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 + 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.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 + 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.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 + 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.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 + 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.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." + 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 ' - 'BWURLFiles + 'NBCensorShowMax ' - 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 + 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 ' @@ -14783,6 +15284,7 @@ Partial Class FrmSettings 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) @@ -14798,6 +15300,9 @@ Partial Class FrmSettings 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) @@ -14823,6 +15328,8 @@ Partial Class FrmSettings 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() @@ -14859,7 +15366,11 @@ Partial Class FrmSettings 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) @@ -14958,52 +15469,32 @@ 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() 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() @@ -15025,21 +15516,10 @@ Partial Class FrmSettings 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) @@ -15064,10 +15544,6 @@ Partial Class FrmSettings 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() @@ -15094,6 +15570,8 @@ Partial Class FrmSettings 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) @@ -15114,14 +15592,50 @@ Partial Class FrmSettings 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() + 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 @@ -15220,9 +15734,16 @@ Partial Class FrmSettings 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 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 + 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 @@ -15806,6 +16327,8 @@ 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 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 @@ -15855,7 +16378,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 @@ -16208,4 +16731,35 @@ 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 + 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 Label170 As Label + Friend WithEvents GroupBox14 As GroupBox + Friend WithEvents alwaysNewSlideshow As System.Windows.Forms.CheckBox + Friend WithEvents Label169 As System.Windows.Forms.Label + Friend WithEvents CbxWarningsToChat As CheckBox End Class diff --git a/Tease AI/Form2.vb b/Tease AI/Form2.vb index 031ebb4..fe7ded9 100644 --- a/Tease AI/Form2.vb +++ b/Tease AI/Form2.vb @@ -12,20 +12,18 @@ 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 - Public URLFileIncludeList As New List(Of String) Public FrmSettingsLoading As Boolean Public AvailFail As Boolean Public AvailList As New List(Of String) Dim ScriptList As New List(Of String) Dim ScriptFile As String - Dim LocalImageDir As New List(Of String) Dim ImageTagDir As New List(Of String) Dim LocalImageTagDir As New List(Of String) @@ -37,28 +35,16 @@ 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 Dim CheckImgDir As New List(Of String) - 'Dim Fringe As New SpeechSynthesizer - Dim TagImageFolder As String - ' Protected Overrides ReadOnly Property CreateParams() As CreateParams - ' Get - ' Dim param As CreateParams = MyBase.CreateParams - ' param.ClassStyle = param.ClassStyle Or &H200 - ' Return param - ' End Get - 'End Property - Private Sub frmProgramma_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Me.Visible = False @@ -68,7 +54,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 @@ -77,15 +63,13 @@ Public Class FrmSettings FrmSettingsLoading = True - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Checking installed voices..." - FrmSplash.Refresh() + FrmSplash.UpdateText("Checking installed voices...") 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 @@ -98,9 +82,8 @@ Public Class FrmSettings - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Checking URL Files..." - FrmSplash.Refresh() + + FrmSplash.UpdateText("Checking URL Files...") If File.Exists(Application.StartupPath & "\Images\System\URLFileCheckList.cld") Then URLFileList.Items.Clear() @@ -136,9 +119,7 @@ Public Class FrmSettings End If - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Checking Local Image settings..." - FrmSplash.Refresh() + FrmSplash.UpdateText("Checking Local Image settings...") Debug.Print("Checking Local image Settings...") @@ -163,16 +144,12 @@ Public Class FrmSettings Debug.Print("FrmSettingsLoading = " & FrmSettingsLoading) - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Checking installed fonts..." - FrmSplash.Refresh() + FrmSplash.UpdateText("Checking installed fonts...") BindCombo() BindCombo2() - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Checking available scripts..." - FrmSplash.Refresh() + FrmSplash.UpdateText("Checking available scripts...") Try @@ -184,12 +161,10 @@ Public Class FrmSettings Catch End Try - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Populating available voices..." - FrmSplash.Refresh() + FrmSplash.UpdateText("Populating available voices...") + Dim voicecheck As Integer - 'Dim voices = Fringe.GetInstalledVoices() For Each v As InstalledVoice In installedVoices Debug.Print("Voice " & v.ToString()) voicecheck += 1 @@ -206,9 +181,8 @@ Public Class FrmSettings Debug.Print("Voicecheck = " & voicecheck) - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Loading Sub settings..." - FrmSplash.Refresh() + FrmSplash.UpdateText("Loading Sub settings...") + If My.Settings.CBTCock = True Then @@ -275,9 +249,8 @@ Public Class FrmSettings CBSubPierced.Checked = False End If - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Loading Domme settings..." - FrmSplash.Refresh() + FrmSplash.UpdateText("Loading Domme settings...") + domlevelNumBox.Value = My.Settings.DomLevel @@ -333,17 +306,13 @@ Public Class FrmSettings '=============================================================================== ' Card images & names '=============================================================================== - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Loading card images..." - FrmSplash.Refresh() + FrmSplash.UpdateText("Loading card images...") Form1.GamesToolStripMenuItem1.Enabled = CardGameCheck() '=============================================================================== ' User settings '=============================================================================== - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Checking user settings..." - FrmSplash.Refresh() + FrmSplash.UpdateText("Checking user settings...") NBNextImageChance.Value = My.Settings.NextImageChance @@ -405,12 +374,17 @@ Public Class FrmSettings 'If My.Settings.SlideshowMode = "Manual" Then offRadio.Checked = True 'If My.Settings.SlideshowMode = "Timer" Then timedRadio.Checked = True - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Auditing scripts..." - FrmSplash.Refresh() + FrmSplash.UpdateText("Auditing scripts...") 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 + alwaysNewSlideshow.Checked = My.Settings.AlwaysNewSlideshow + giveupCheckBox.Checked = My.Settings.GiveUpReturn If CBAuditStartup.Checked = True Then AuditScripts() @@ -421,16 +395,11 @@ Public Class FrmSettings CBBallsToPussy.Checked = My.Settings.BallsToPussy - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Calculating space of saved session images..." - FrmSplash.Refresh() - + FrmSplash.UpdateText("Calculating space of saved session images...") CalculateSessionImages() - FrmSplash.PBSplash.Value += 1 - FrmSplash.LBLSplash.Text = "Loading Settings Menu options..." - FrmSplash.Refresh() + FrmSplash.UpdateText("Loading Settings Menu options...") SaveSettingsDialog.InitialDirectory = Application.StartupPath & "\System" OpenSettingsDialog.InitialDirectory = Application.StartupPath & "\System" @@ -447,17 +416,19 @@ 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 + TbxRandomImageDir.Text = My.Settings.RandomImageDir + If My.Settings.TeaseAILanguage = "English" Then EnglishMenu() If My.Settings.TeaseAILanguage = "German" Then GermanMenu() @@ -502,7 +473,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) @@ -511,12 +482,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 @@ -529,7 +500,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 @@ -539,7 +510,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 @@ -550,7 +521,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 @@ -561,7 +532,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 @@ -569,7 +540,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 @@ -577,7 +548,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 @@ -585,12 +556,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") @@ -599,16 +570,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.") @@ -621,15 +592,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") @@ -641,10 +612,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") @@ -654,12 +625,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\""." @@ -667,39 +638,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" _ @@ -709,54 +680,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" _ @@ -769,28 +740,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." @@ -798,40 +769,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." @@ -839,16 +810,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.") @@ -866,7 +837,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 @@ -874,7 +845,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 @@ -882,7 +853,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 @@ -890,7 +861,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 @@ -898,16 +869,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.") @@ -918,7 +889,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 @@ -926,12 +897,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." @@ -939,16 +910,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 " & _ @@ -959,14 +930,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 " & _ @@ -976,12 +947,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." @@ -989,13 +960,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." @@ -1003,17 +974,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" _ @@ -1024,7 +995,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.") @@ -1039,7 +1010,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 @@ -1047,7 +1018,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 @@ -1058,7 +1029,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 @@ -1070,45 +1041,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() @@ -1120,164 +1091,33 @@ 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 - - Dim BlankName As String - BlankName = "stroker" - Dim NameVal As Integer - NameVal = Form1.ssh.randomizer.Next(1, 6) - - If NameVal = 1 Then BlankName = "stroker" - If NameVal = 2 Then BlankName = "loser" - If NameVal = 3 Then BlankName = "slave" - If NameVal = 4 Then BlankName = "bitch boy" - If NameVal = 5 Then BlankName = "wanker" - - If petnameBox1.Text = "" Then petnameBox1.Text = BlankName - - SavePetNames() - - End Sub - - - Private Sub petnameBox2_LostFocus(sender As System.Object, e As System.EventArgs) Handles petnameBox3.LostFocus - - Dim BlankName As String - BlankName = "stroker" - Dim NameVal As Integer - NameVal = Form1.ssh.randomizer.Next(1, 6) - - If NameVal = 1 Then BlankName = "stroker" - If NameVal = 2 Then BlankName = "loser" - If NameVal = 3 Then BlankName = "slave" - If NameVal = 4 Then BlankName = "bitch boy" - If NameVal = 5 Then BlankName = "wanker" - - If petnameBox3.Text = "" Then petnameBox3.Text = BlankName - - SavePetNames() - - End Sub - - Private Sub petnameBox3_LostFocus(sender As System.Object, e As System.EventArgs) Handles petnameBox4.LostFocus - - Dim BlankName As String - BlankName = "stroker" - Dim NameVal As Integer - NameVal = Form1.ssh.randomizer.Next(1, 6) - - If NameVal = 1 Then BlankName = "stroker" - If NameVal = 2 Then BlankName = "loser" - If NameVal = 3 Then BlankName = "slave" - If NameVal = 4 Then BlankName = "bitch boy" - If NameVal = 5 Then BlankName = "wanker" - - If petnameBox4.Text = "" Then petnameBox4.Text = BlankName - - SavePetNames() - - End Sub - - Private Sub petnameBox4_LostFocus(sender As System.Object, e As System.EventArgs) Handles petnameBox7.LostFocus - - Dim BlankName As String - BlankName = "stroker" - Dim NameVal As Integer - NameVal = Form1.ssh.randomizer.Next(1, 6) - - If NameVal = 1 Then BlankName = "stroker" - If NameVal = 2 Then BlankName = "loser" - If NameVal = 3 Then BlankName = "slave" - If NameVal = 4 Then BlankName = "bitch boy" - If NameVal = 5 Then BlankName = "wanker" - - If petnameBox7.Text = "" Then petnameBox7.Text = BlankName - - SavePetNames() - - End Sub - - Private Sub petnameBox5_LostFocus(sender As System.Object, e As System.EventArgs) Handles petnameBox2.LostFocus - - Dim BlankName As String - BlankName = "stroker" - Dim NameVal As Integer - NameVal = Form1.ssh.randomizer.Next(1, 6) - - If NameVal = 1 Then BlankName = "stroker" - If NameVal = 2 Then BlankName = "loser" - If NameVal = 3 Then BlankName = "slave" - If NameVal = 4 Then BlankName = "bitch boy" - If NameVal = 5 Then BlankName = "wanker" - - If petnameBox2.Text = "" Then petnameBox2.Text = BlankName - - SavePetNames() - - End Sub - - Private Sub petnameBox6_LostFocus(sender As System.Object, e As System.EventArgs) Handles petnameBox5.LostFocus - - Dim BlankName As String - BlankName = "stroker" - Dim NameVal As Integer - NameVal = Form1.ssh.randomizer.Next(1, 6) - - If NameVal = 1 Then BlankName = "stroker" - If NameVal = 2 Then BlankName = "loser" - If NameVal = 3 Then BlankName = "slave" - If NameVal = 4 Then BlankName = "bitch boy" - If NameVal = 5 Then BlankName = "wanker" - - If petnameBox5.Text = "" Then petnameBox5.Text = BlankName - - SavePetNames() - - End Sub - - Private Sub petnameBox7_LostFocus(sender As System.Object, e As System.EventArgs) Handles petnameBox6.LostFocus - - Dim BlankName As String - BlankName = "stroker" - Dim NameVal As Integer - NameVal = Form1.ssh.randomizer.Next(1, 6) - - If NameVal = 1 Then BlankName = "stroker" - If NameVal = 2 Then BlankName = "slave" - If NameVal = 3 Then BlankName = "pet" - If NameVal = 4 Then BlankName = "bitch boy" - If NameVal = 5 Then BlankName = "wanker" + Private Sub PetNameBoxes_Validating(sender As Object, e As CancelEventArgs) Handles petnameBox1.Validating, petnameBox2.Validating, petnameBox3.Validating, + petnameBox4.Validating, petnameBox5.Validating, petnameBox6.Validating, + petnameBox7.Validating, petnameBox8.Validating + With CType(sender, TextBox) + If String.IsNullOrWhiteSpace(.Text) Then - If petnameBox6.Text = "" Then petnameBox6.Text = BlankName + Dim BlankName As String = "stroker" + Dim NameVal As Integer = New Random().Next(1, 6) - SavePetNames() + If NameVal = 1 Then BlankName = "stroker" + If NameVal = 2 Then BlankName = "loser" + If NameVal = 3 Then BlankName = "slave" + If NameVal = 4 Then BlankName = "bitch boy" + If NameVal = 5 Then BlankName = "wanker" + .Text = BlankName + End If + SavePetNames() + End With End Sub - Private Sub petnameBox8_LostFocus(sender As System.Object, e As System.EventArgs) Handles petnameBox8.LostFocus - - Dim BlankName As String - BlankName = "stroker" - Dim NameVal As Integer - NameVal = Form1.ssh.randomizer.Next(1, 6) - - If NameVal = 1 Then BlankName = "stroker" - If NameVal = 2 Then BlankName = "slave" - If NameVal = 3 Then BlankName = "pet" - If NameVal = 4 Then BlankName = "bitch boy" - If NameVal = 5 Then BlankName = "wanker" - - If petnameBox8.Text = "" Then petnameBox8.Text = BlankName - - SavePetNames() - - End Sub Public Sub SavePetNames() @@ -1312,18 +1152,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 @@ -1333,11 +1173,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).") @@ -1346,44 +1186,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.") @@ -1391,11 +1231,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.") @@ -1403,11 +1243,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.") @@ -1415,11 +1255,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.") @@ -1427,11 +1267,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.") @@ -1440,7 +1280,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 @@ -1448,16 +1288,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 @@ -1465,7 +1305,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.") @@ -1474,7 +1314,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 @@ -1482,7 +1322,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.") @@ -1490,7 +1330,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 @@ -1498,16 +1338,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 @@ -1515,17 +1355,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 @@ -1533,33 +1373,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 @@ -1567,14 +1407,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 @@ -1582,14 +1422,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 @@ -1597,14 +1437,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 @@ -1612,37 +1452,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 @@ -1650,13 +1490,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 @@ -1664,62 +1504,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.") @@ -1727,16 +1567,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.") @@ -1744,150 +1584,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 @@ -1903,7 +1743,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" @@ -1913,7 +1753,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" @@ -1923,7 +1763,7 @@ Public Class FrmSettings End If End Sub -#End Region ' Domme +#End Region ' Domme #Region "-------------------------------------- Scripts -------------------------------------------------" @@ -1932,7 +1772,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() @@ -1945,10 +1785,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 @@ -2010,10 +1850,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 @@ -2128,7 +1968,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 = "" @@ -2446,6 +2286,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 @@ -2457,6 +2298,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 @@ -2501,7 +2343,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 @@ -2517,7 +2359,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 @@ -2529,7 +2371,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 @@ -2839,6 +2681,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 @@ -2848,6 +2691,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 @@ -2874,13 +2718,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() @@ -2892,7 +2736,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() @@ -2904,7 +2748,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() @@ -2916,7 +2760,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() @@ -2930,57 +2774,64 @@ 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(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) + TbxRandomImageDir.Text = My.Settings.RandomImageDir + 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. @@ -3003,93 +2854,105 @@ 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 - Private Sub LBLContact1ImageDir_MouseHover(sender As Object, 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 - Private Sub Button2_MouseHover(sender As System.Object, 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 & -"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.") + 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.") 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 Button16_Click(sender As System.Object, e As System.EventArgs) Handles Button16.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(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\" @@ -3140,7 +3003,8 @@ 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) + SettingsList.Add("Always New Contact Slideshow: " & My.Settings.AlwaysNewSlideshow) Dim SettingsString As String = "" @@ -3155,7 +3019,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\" @@ -3241,7 +3105,8 @@ SkipDeserializing: My.Settings.GlitterAV3 = SettingsList(28).Replace("Contact 3 AV: ", "") 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) @@ -3250,7 +3115,7 @@ SkipDeserializing: End If End Sub -#End Region ' Glitter +#End Region ' Glitter #Region "----------------------------------------- Games ------------------------------------------------" @@ -3269,7 +3134,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 @@ -3286,13 +3151,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") @@ -3308,12 +3173,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") @@ -3339,12 +3204,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 @@ -3369,28 +3234,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 @@ -3399,10 +3264,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 @@ -3411,19 +3276,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 @@ -3432,148 +3297,35 @@ SkipDeserializing: End If End If - 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 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(ByVal sender As System.Object, ByVal 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 @@ -3585,10 +3337,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 @@ -3598,74 +3347,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(ByVal sender As System.Object, ByVal 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(ByVal sender As System.Object, ByVal 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(ByVal sender As System.Object, ByVal 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(ByVal sender As System.Object, ByVal 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(ByVal sender As Object, ByVal 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 Button37_Click(sender As System.Object, e As System.EventArgs) Handles BTNWISave.Click + 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 + 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 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!") @@ -3679,8 +3491,7 @@ trypreviousimage: Try - - WebImage = WebImageLines(WebImageLine) + Dim WebImage As String = WebImageLines(WebImageLine) Dim DirSplit As String() = WebImage.Split("/") WebImage = DirSplit(DirSplit.Length - 1) @@ -3710,150 +3521,150 @@ 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} + 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.MaintainUrlResult = 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-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 + 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 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) + MessageBox.Show(Me, "URL files have been refreshed!" & + 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.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-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 + 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 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) + 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) 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 @@ -3866,73 +3677,76 @@ 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 - ''' ========================================================================================================= - ''' - ''' 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.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) + ' 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 URL_File_Tasks.CreateURLFile - '=============================================================================== - ' Create URL-File - '=============================================================================== - Select Case e.ActStage - ' ------------------------ Image Approval ------------------------------- - Case WorkingStages.ImageApproval + Case Tasks.CreateURLFile + '=============================================================================== + ' 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 + 1 + ' ---------------------- 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} ({2})", e.BlogPage, e.BlogPageTotal, e.ImageCount) + ' 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() PBMaintenance.Maximum = e.OverallProgressTotal PBMaintenance.Value = e.OverallProgress End Select @@ -3941,14 +3755,14 @@ trypreviousimage: #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. @@ -3959,9 +3773,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 @@ -3978,7 +3792,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 @@ -4007,7 +3821,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 " & @@ -4031,7 +3845,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() @@ -4042,10 +3856,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 @@ -4058,11 +3872,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() @@ -4073,10 +3887,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 @@ -4089,11 +3903,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() @@ -4104,10 +3918,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 @@ -4120,11 +3934,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() @@ -4135,10 +3949,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 @@ -4151,11 +3965,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() @@ -4166,10 +3980,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 @@ -4182,11 +3996,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() @@ -4197,10 +4011,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 @@ -4213,11 +4027,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() @@ -4228,10 +4042,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 @@ -4244,11 +4058,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() @@ -4259,10 +4073,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 @@ -4275,11 +4089,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() @@ -4290,10 +4104,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 @@ -4306,11 +4120,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() @@ -4321,10 +4135,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 @@ -4337,11 +4151,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() @@ -4352,10 +4166,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 @@ -4368,11 +4182,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() @@ -4383,10 +4197,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 @@ -4399,11 +4213,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() @@ -4414,10 +4228,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 @@ -4430,132 +4244,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 _ @@ -4590,14 +4404,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 -------------------------------------------------" @@ -4609,9 +4423,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. @@ -4622,7 +4436,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 @@ -4658,16 +4472,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 @@ -4675,7 +4489,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 @@ -4685,10 +4499,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 @@ -4700,11 +4514,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 @@ -4714,10 +4528,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 @@ -4729,11 +4543,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 @@ -4743,10 +4557,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 @@ -4758,11 +4572,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 @@ -4772,10 +4586,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 @@ -4787,11 +4601,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 @@ -4801,10 +4615,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 @@ -4816,11 +4630,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 @@ -4830,10 +4644,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 @@ -4845,11 +4659,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 @@ -4859,10 +4673,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 @@ -4874,11 +4688,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 @@ -4888,10 +4702,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 @@ -4903,11 +4717,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 @@ -4917,10 +4731,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 @@ -4932,15 +4746,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 @@ -4950,10 +4764,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 @@ -4965,11 +4779,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 @@ -4979,10 +4793,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 @@ -4994,11 +4808,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 @@ -5008,10 +4822,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 @@ -5023,11 +4837,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 @@ -5037,10 +4851,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 @@ -5052,11 +4866,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 @@ -5066,10 +4880,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 @@ -5081,11 +4895,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 @@ -5095,10 +4909,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 @@ -5110,11 +4924,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 @@ -5124,10 +4938,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 @@ -5139,11 +4953,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 @@ -5153,10 +4967,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 @@ -5168,11 +4982,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 @@ -5182,10 +4996,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 @@ -5197,16 +5011,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() @@ -5301,29 +5115,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 @@ -5338,65 +5152,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 @@ -5411,7 +5225,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" @@ -5468,11 +5282,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 @@ -5482,7 +5296,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 @@ -5526,7 +5340,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 = "" @@ -5534,7 +5348,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 @@ -5555,7 +5369,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" @@ -5606,7 +5420,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!") @@ -5657,22 +5471,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))) @@ -5689,7 +5503,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" @@ -5698,7 +5512,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" @@ -5709,40 +5523,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 NBWritingTaskMin_LostFocus(sender As Object, e As System.EventArgs) Handles NBWritingTaskMin.LostFocus + 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(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 @@ -5839,7 +5651,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 @@ -5949,7 +5761,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() @@ -6046,7 +5858,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 @@ -6080,7 +5892,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 @@ -6118,7 +5930,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 = "" @@ -6133,7 +5945,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" @@ -6180,12 +5992,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 @@ -6221,24 +6033,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(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(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles G1Honorific.LostFocus + My.Settings.G1Honorific = G1Honorific.Text + End Sub + + 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(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles G3Honorific.LostFocus + My.Settings.G3Honorific = G3Honorific.Text End Sub - Private Sub CBHonorificInclude_LostFocus(sender As System.Object, e As System.EventArgs) Handles CBHonorificInclude.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(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 +6083,15 @@ checkFolder: End If End Sub - Private Sub CBHonorificCapitalized_LostFocus(sender As System.Object, e As System.EventArgs) Handles CBHonorificCapitalized.LostFocus + 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 Else @@ -6254,42 +6099,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 +6155,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 +6179,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 +6192,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 +6284,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 +6301,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 +6323,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 +6331,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 +6391,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 +7132,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 +7164,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 +7181,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 +7199,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 +7210,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 +7228,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 +7239,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 +7250,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 +7260,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 +7270,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 +7348,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\" @@ -7615,6 +7460,8 @@ checkFolder: My.Settings.DomSupremacist = supremacistCheckBox.Checked My.Settings.DomSadistic = sadisticCheckBox.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 My.Settings.pnSetting3 = petnameBox3.Text @@ -7671,6 +7518,8 @@ checkFolder: supremacistCheckBox.Checked = My.Settings.DomSupremacist sadisticCheckBox.Checked = My.Settings.DomSadistic 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 petnameBox3.Text = My.Settings.pnSetting3 @@ -7704,7 +7553,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 @@ -7722,7 +7571,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() @@ -7742,7 +7591,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 @@ -7812,7 +7661,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 @@ -7824,7 +7673,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 @@ -7836,44 +7685,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 = "" @@ -7892,7 +7741,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" @@ -7964,7 +7813,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 @@ -8012,7 +7861,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) @@ -8054,56 +7903,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.") @@ -8111,145 +7960,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 CBHonorificInclude_MouseHover(sender As Object, e As System.EventArgs) Handles CBHonorificInclude.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(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(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(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(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) @@ -8261,10 +8138,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 @@ -8328,7 +8205,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) @@ -8338,7 +8215,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 @@ -8442,7 +8319,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 @@ -8469,138 +8346,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 @@ -8614,29 +8491,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) @@ -8691,42 +8568,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 @@ -8863,8 +8740,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 @@ -8879,7 +8756,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 @@ -8896,11 +8773,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 @@ -8916,27 +8793,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 @@ -9011,8 +8867,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 @@ -9023,15 +8879,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 @@ -9066,10 +8922,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 @@ -9088,10 +8944,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 @@ -9101,25 +8957,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 @@ -9137,7 +8993,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 @@ -9167,7 +9023,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 @@ -9185,7 +9041,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??") @@ -9228,7 +9084,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) @@ -9269,7 +9125,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 @@ -9298,7 +9154,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 @@ -9396,7 +9252,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 @@ -9482,10 +9338,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" @@ -9611,7 +9467,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 @@ -9626,7 +9482,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 @@ -9634,7 +9490,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() @@ -9647,7 +9503,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() @@ -9661,7 +9517,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\" @@ -9707,21 +9563,20 @@ 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 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 @@ -9733,16 +9588,18 @@ 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 Form1.ApplyThemeColor() + If Form1.FormLoading = False And Form1.ApplyingTheme = False Then + 'TODO: implement Flip Background + End If Catch End Try 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\" @@ -9780,137 +9637,134 @@ 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 + Dim Sys_WakeUpPath As String = Application.StartupPath & "\Scripts\" & Form1.dompersonalitycombobox.Text & "\System\Variables\SYS_WakeUp" Dim SetDate As Date = FormatDateTime(TimeBoxWakeUp.Value, DateFormat.LongTime) + My.Computer.FileSystem.WriteAllText(Sys_WakeUpPath, FormatDateTime(SetDate, DateFormat.LongTime), False) + My.Settings.WakeUp = FormatDateTime(Now, DateFormat.ShortDate) & " " & Form1.GetDate("SYS_WakeUp").ToLongTimeString - My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Scripts\" & Form1.dompersonalitycombobox.Text & "\System\Variables\SYS_WakeUp", FormatDateTime(SetDate, DateFormat.LongTime), False) - - - - 'Debug.Print("Dates = " & Dates) - - ' Github Patch My.Settings.WakeUp = Form1.GetTime("SYS_WakeUp") - My.Settings.WakeUp = FormatDateTime(Now, DateFormat.ShortDate) & " " & Form1.GetTime("SYS_WakeUp") - - - - Debug.Print(Form1.ssh.GeneralTime) - - - + Debug.Assert(SetDate.ToLongTimeString = My.Settings.WakeUp.ToLongTimeString, + "Value for SYS_WakeUp is different after saving.") 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 + 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 CBWebtease_CheckedChanged_1(sender As System.Object, e As System.EventArgs) Handles CBWebtease.CheckedChanged + 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(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 @@ -9925,28 +9779,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" @@ -9958,7 +9812,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 @@ -9966,27 +9820,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 @@ -9994,74 +9848,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() @@ -10282,4 +10136,179 @@ 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 + + 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 + + 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 alwaysNewSlideshow_CheckedChanged(ByVal sender As Object, ByVal 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 + 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 diff --git a/Tease AI/Form6.vb b/Tease AI/Form6.vb deleted file mode 100644 index 9a06825..0000000 --- a/Tease AI/Form6.vb +++ /dev/null @@ -1,7 +0,0 @@ -Public Class FrmSplash - Private Sub LBLSplash_TextChanged(sender As Object, e As EventArgs) Handles LBLSplash.TextChanged -#If TRACE Then - Trace.WriteLine(LBLSplash.Text) -#End If - End Sub -End Class \ No newline at end of file diff --git a/Tease AI/Form7.vb b/Tease AI/Form7.vb deleted file mode 100644 index f7f33ac..0000000 --- a/Tease AI/Form7.vb +++ /dev/null @@ -1,30 +0,0 @@ -Public Class Form7 - - Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click - - My.Settings.TC2Agreed = True - My.Settings.Save() - - Me.Close() - Me.Dispose() - - - 'ClearAgree() - - - End Sub - - - - - - Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click - Me.Close() - FrmSplash.LBLSplash.Text = "Closing program..." - FrmSplash.Refresh() - Application.Exit() - End - - - End Sub -End Class \ No newline at end of file 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 = "" diff --git a/Tease AI/Form6.Designer.vb b/Tease AI/FrmSplash.Designer.vb similarity index 98% rename from Tease AI/Form6.Designer.vb rename to Tease AI/FrmSplash.Designer.vb index 80350c3..ff56ca7 100644 --- a/Tease AI/Form6.Designer.vb +++ b/Tease AI/FrmSplash.Designer.vb @@ -31,7 +31,7 @@ Partial Class FrmSplash ' Me.PBSplash.BackColor = System.Drawing.Color.Black Me.PBSplash.Location = New System.Drawing.Point(53, 244) - Me.PBSplash.Maximum = 45 + Me.PBSplash.Maximum = 40 Me.PBSplash.Name = "PBSplash" Me.PBSplash.Size = New System.Drawing.Size(466, 23) Me.PBSplash.TabIndex = 0 @@ -61,6 +61,7 @@ Partial Class FrmSplash Me.Name = "FrmSplash" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Form6" + Me.TopMost = True Me.ResumeLayout(False) End Sub diff --git a/Tease AI/Form6.resx b/Tease AI/FrmSplash.resx similarity index 99% rename from Tease AI/Form6.resx rename to Tease AI/FrmSplash.resx index f50e226..e42883c 100644 --- a/Tease AI/Form6.resx +++ b/Tease AI/FrmSplash.resx @@ -121,7 +121,7 @@ iVBORw0KGgoAAAANSUhEUgAABEQAAALYCAYAAAB18SchAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAACxIAAAsSAdLdfvwAAAAGYktHRAD/AP8A/6C9p5MAAAAHdElNRQffBQsAJAG2st0b + YQUAAAAJcEhZcwAACw8AAAsPAZL5A6UAAAAGYktHRAD/AP8A/6C9p5MAAAAHdElNRQffBQsAJAG2st0b AAAAHWlUWHRDb21tZW50AAAAAABDcmVhdGVkIHdpdGggR0lNUGQuZQcAADrZSURBVHhe7d0HuCVVmS7g ISiIYkYxo5jDeAezGDCMYdQx6yhiGjEgKiZAQcyOOoaLOWEY0wioYxyzqCgOqIgJFQOIiFfEgORU17WH jae7v3P6dO/qfar+ftfzvA/0V//Za62qXVXn1FO79t/9tXUAAAAAG5kYAgAAAFQWQwAAAIDKYggAAABQ diff --git a/Tease AI/FrmSplash.vb b/Tease AI/FrmSplash.vb new file mode 100644 index 0000000..4e5a5aa --- /dev/null +++ b/Tease AI/FrmSplash.vb @@ -0,0 +1,30 @@ +Public Class FrmSplash + + Dim ProgressSteps As Integer = 0 + + Public Sub UpdateText(displayText As String) + If InvokeRequired Then + Me.BeginInvoke(Sub() UpdateText(displayText)) + Exit Sub + End If + + LBLSplash.Text = displayText + ProgressSteps += 1 + If PBSplash.Value < PBSplash.Maximum Then PBSplash.Value += 1 + + Refresh() + + End Sub + + Private Sub FrmSplash_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + If Debugger.IsAttached AndAlso PBSplash.Value <> PBSplash.Maximum Then + MessageBox.Show(Me, "Progressbar maximum value needs to be readjusted. " & ProgressSteps & " steps have been executed.") + End If + End Sub + + Private Sub LBLSplash_TextChanged(sender As Object, e As EventArgs) Handles LBLSplash.TextChanged +#If TRACE Then + Trace.WriteLine(LBLSplash.Text) +#End If + End Sub +End Class \ No newline at end of file diff --git a/Tease AI/Form7.Designer.vb b/Tease AI/FrmTaC.Designer.vb similarity index 94% rename from Tease AI/Form7.Designer.vb rename to Tease AI/FrmTaC.Designer.vb index a1d42cb..8694a4a 100644 --- a/Tease AI/Form7.Designer.vb +++ b/Tease AI/FrmTaC.Designer.vb @@ -1,5 +1,5 @@  _ -Partial Class Form7 +Partial Class FrmTaC Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. @@ -22,7 +22,7 @@ Partial Class Form7 'Do not modify it using the code editor. Private Sub InitializeComponent() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form7)) + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmTaC)) Me.Label85 = New System.Windows.Forms.Label() Me.RichTextBox1 = New System.Windows.Forms.RichTextBox() Me.Button1 = New System.Windows.Forms.Button() @@ -52,6 +52,7 @@ Partial Class Form7 ' 'Button1 ' + Me.Button1.DialogResult = System.Windows.Forms.DialogResult.Yes Me.Button1.Location = New System.Drawing.Point(66, 389) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(109, 23) @@ -61,6 +62,7 @@ Partial Class Form7 ' 'Button2 ' + Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Abort Me.Button2.Location = New System.Drawing.Point(228, 389) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(109, 23) @@ -68,7 +70,7 @@ Partial Class Form7 Me.Button2.Text = "Decline" Me.Button2.UseVisualStyleBackColor = True ' - 'Form7 + 'TermsAndConditions ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font @@ -81,7 +83,7 @@ Partial Class Form7 Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog Me.MaximizeBox = False Me.MinimizeBox = False - Me.Name = "Form7" + Me.Name = "TermsAndConditions" Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Tease AI Terms & Conditions" diff --git a/Tease AI/Form7.resx b/Tease AI/FrmTaC.resx similarity index 100% rename from Tease AI/Form7.resx rename to Tease AI/FrmTaC.resx diff --git a/Tease AI/FrmTaC.vb b/Tease AI/FrmTaC.vb new file mode 100644 index 0000000..dd659ee --- /dev/null +++ b/Tease AI/FrmTaC.vb @@ -0,0 +1,3 @@ +Public Class FrmTaC + +End Class \ No newline at end of file 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/Application.Designer.vb b/Tease AI/My Project/Application.Designer.vb index 705dc49..d137714 100644 --- a/Tease AI/My Project/Application.Designer.vb +++ b/Tease AI/My Project/Application.Designer.vb @@ -1,7 +1,7 @@ '------------------------------------------------------------------------------ ' ' This code was generated by a tool. -' Runtime Version:4.0.30319.34209 +' Runtime Version:4.0.30319.42000 ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. @@ -34,5 +34,10 @@ Namespace My Protected Overrides Sub OnCreateMainForm() Me.MainForm = Global.Tease_AI.Form1 End Sub + + _ + Protected Overrides Sub OnCreateSplashScreen() + Me.SplashScreen = Global.Tease_AI.FrmSplash + End Sub End Class End Namespace diff --git a/Tease AI/My Project/Application.myapp b/Tease AI/My Project/Application.myapp index 0f12f32..681eee5 100644 --- a/Tease AI/My Project/Application.myapp +++ b/Tease AI/My Project/Application.myapp @@ -6,5 +6,6 @@ 0 true 0 + FrmSplash true \ No newline at end of file diff --git a/Tease AI/My Project/AssemblyInfo.vb b/Tease AI/My Project/AssemblyInfo.vb index 260ca36..06118f9 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/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/My Project/Settings.Designer.vb b/Tease AI/My Project/Settings.Designer.vb index 66bdb21..218a294 100644 --- a/Tease AI/My Project/Settings.Designer.vb +++ b/Tease AI/My Project/Settings.Designer.vb @@ -665,3662 +665,3674 @@ 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 CBUseName() As Boolean + Get + Return CType(Me("CBUseName"),Boolean) + End Get + Set + Me("CBUseName") = 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 +4754,7 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute("498")> _ Public Property SplitterPosition() As Integer Get Return CType(Me("SplitterPosition"),Integer) @@ -5747,6 +5759,150 @@ Namespace My 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 + + _ + 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 + + _ + Public Property CbChatDisplayWarnings() As Boolean + Get + Return CType(Me("CbChatDisplayWarnings"),Boolean) + End Get + Set + Me("CbChatDisplayWarnings") = 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 508fe6c..9e4c710 100644 --- a/Tease AI/My Project/Settings.settings +++ b/Tease AI/My Project/Settings.settings @@ -496,6 +496,9 @@ False + + + False False @@ -1029,7 +1032,7 @@ - True + False @@ -1176,7 +1179,7 @@ True - 706 + 498 False @@ -1428,5 +1431,41 @@ True + + False + + + False + + + + + + False + + + True + + + + + + + + + + + + + + + sorry, apologize, excuse + + + False + + + True + \ 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..734ed9b --- /dev/null +++ b/Tease AI/Resources/CSS/ChatFallbackStyle.css @@ -0,0 +1,24 @@ +/* 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, .inlineError {color: Red; background-color: #FFE6E6;} +.exception .msg {Display:Block; font-weight: bold;} +.exception .exMessage {Display: none;} +.scriptPosInfo {color:green;} +.warning, .inlineWarning {color:orange; font-weight:bold;} + +.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 6aec9ff..3ce0ba6 100644 --- a/Tease AI/Tease AI.vbproj +++ b/Tease AI/Tease AI.vbproj @@ -105,6 +105,8 @@ Component + + @@ -117,6 +119,8 @@ + + Component @@ -133,9 +137,15 @@ Form + + Form + Form + + Form + Form2.vb @@ -148,16 +158,16 @@ Form - - Form6.vb + + FrmSplash.vb - + Form - - Form7.vb + + FrmTaC.vb - + Form @@ -215,11 +225,11 @@ Form3.vb Designer - - Form6.vb + + FrmSplash.vb - - Form7.vb + + FrmTaC.vb Form8.vb @@ -241,6 +251,7 @@ Designer + MyApplicationCodeGenerator Application.Designer.vb @@ -301,6 +312,10 @@ + + + + - + - True + False @@ -1225,7 +1225,7 @@ True - 706 + 498 False @@ -1479,6 +1479,42 @@ True + + False + + + False + + + + + + False + + + True + + + + + + + + + + + + + + + sorry, apologize, excuse + + + False + + + True +