D2Loader.ps1

<#
Author: Shupershuff
Usage:
Happy for you to make any modifications to this script for your own needs providing:
- Any variants of this script are never sold.
- Any variants of this script published online should always be open source.
- Any variants of this script are never modifed to enable or assist in any game altering or malicious behaviour including (but not limited to): Bannable Mods, Cheats, Exploits, Phishing
Purpose:
	Script will allow opening multiple Diablo 2 resurrected instances and will automatically close the 'DiabloII Check For Other Instances' handle."
	Script will import account details from CSV. Alternatively you can run script parameters (see Github readme): -AccountUsername, -PW, -Region, -All, -Batch, -ManualSettingSwitcher
Instructions: See GitHub readme https://github.com/shupershuff/Diablo2RLoader

Notes:
- Multiple failed attempts (eg wrong Password) to sign onto a particular Realm via this method may temporarily lock you out. You should still be able to get in via the battlenet client if this occurs.

Servers:
 NA - us.actual.battle.net
 EU - eu.actual.battle.net
 Asia - kr.actual.battle.net

Changes since 1.16.0 (next version edits):
Make sure only numbers can be entered as batch in accounts.csv
Fixed other apps from having maximise button disabled by accident.
Improved validation for emails/tokens.
Partially added China capability (except for TZ).
Made it so if token is selected as the auth method, passwords aren't required in accounts.csv.
Added the abilty to announce upcoming Terrorzone alarms for your preferred TZ's.
Add ability for another alternative layout. Name the file AltLayout2.csv
Fixed DClone features with ROTW changes.
Added in menu option to force close all open instances. Enable via config.xml. Use with care!
Fixed how Invoke-Webrequest works in accordance with CVE-2025-54100

1.17.0+ to do list:
Consider having dclone check 5 seconds before refresh instead of afterwards
Add config option to disable cow.
if upcoming/active tz is cow, say moo
Improve Closure options (Batch, by account).
Look to implement CTRL + Shift + number as a shortcut to switch between D2r windows. Some basic investigations show that this is possible with PowerShell. Look to build a background powershell agent that runs while the loader runs to detect key combos.
Remove diablo2.io dclone API as it's problematic and uses D2Emu data now anyway. Possibly replace with d2tz.info
Investigate building a TZ overlay now that there's capability built to auto check TZs.
Potentially look at being able to launch a Single Steam instance.
Fix whatever I broke or poorly implemented in the last update :)

The "I can't be bothered" to do list:
Investigate RAMDisk for faster loading https://sourceforge.net/projects/imdisk-toolkit/files/latest/download
Couldn't write :) in release notes without it adding a new line, some minor issue with formatfunction regex. Complex to resolve.
If I can be bothered, investigate the possibility of realtime DClone Alarms (using websocket connection to d2emu instead).
In line with the above, perhaps investigate putting TZ details on main menu and using the TZ screen for recent TZ's only.
To reduce lines, Tidy up all the import/export csv bits for stat updates into a function rather than copy paste the same commands throughout the script. Can't really be bothered though :)
#>

param($AccountUsername,$PW,$Region,$All,$Batch,$ManualSettingSwitcher,$Close) #used to capture parameters sent to the script, if anyone even wants to do that.
$CurrentVersion = "1.17.1"
###########################################################################################################################################
# Script itself
###########################################################################################################################################
$host.ui.RawUI.WindowTitle = "Diablo 2 Resurrected Loader"
if (($Null -ne $PW -or $Null -ne $AccountUsername) -and ($Null -ne $Batch -or $Null -ne $All)){#If someone sends through incompatible parameters, prioritise $All and $Batch (in that order).
	$PW = $Null
	$AccountUsername = $Null
	if ($Null -ne $Batch -and $Null -ne $All){
		$Batch = $Null
	}
}
if ($Null -ne $AccountUsername){
	$ScriptArguments = "-accountusername $AccountUsername" #This passes the value back through to the script when it's relaunched as admin mode.
}
if ($Null -ne $PW){
	$ScriptArguments += " -PW $PW"
}
if ($Null -ne $Region){
	$ScriptArguments += " -region $Region"
}
if ($Null -ne $All){
	$ScriptArguments += " -all $All"
	$Script:OpenAllAccounts = $true
}
if ($Null -ne $Batch){
	$ScriptArguments += " -batch $Batch"
	$Script:OpenBatches = $True
}
if ($Null -ne $ManualSettingSwitcher){
	$ScriptArguments += " -ManualSettingSwitcher $ManualSettingSwitcher"
	$Script:AskForSettings = $True
}
if ($Null -ne $Close){
	$ScriptArguments += " -close $Close"
}
#check if parameters were used
if ($Null -ne $ScriptArguments){
	$Script:ParamsUsed = $true
}
Else {
	$Script:ParamsUsed = $false
}
#run script as admin
if (!([Security.Principal.WindowsPrincipal][Security.Principal.WindowsIdentity]::GetCurrent()).IsInRole([Security.Principal.WindowsBuiltInRole] "Administrator")){ Start-Process powershell.exe "-NoProfile -ExecutionPolicy Bypass -File `"$PSCommandPath`" $ScriptArguments"  -Verb RunAs;exit }
#DebugMode
#$DebugMode = $True # Uncomment to enable
if ($DebugMode -eq $True){
	$DebugPreference = "Continue"
	$VerbosePreference = "Continue"
}
#set window size
[console]::WindowWidth=77; #script has been designed around this width. Adjust at your own peril.
$WindowHeight=52 #Can be adjusted to preference, but not less than 42
do {
	Try{
		[console]::WindowHeight = $WindowHeight;
		$HeightSuccessfullySet = $True
	}
	Catch {
		$WindowHeight --
	}
} Until ($HeightSuccessfullySet -eq $True)
[console]::BufferWidth=[console]::WindowWidth
#set misc vars
$Script:X = [char]0x1b #escape character for ANSI text colors
$ProgressPreference = "SilentlyContinue"
$Script:WorkingDirectory = ((Get-ChildItem -Path $PSScriptRoot)[0].fullname).substring(0,((Get-ChildItem -Path $PSScriptRoot)[0].fullname).lastindexof('\')) #Set Current Directory path.
$Script:StartTime = Get-Date #Used for elapsed time. Is reset when script refreshes.
$Script:MOO = "%%%"
$Script:JobIDs = @()
$MenuRefreshRate = 30 #How often the script refreshes in seconds. This should be set to 30, don't change this please.
$Script:ScriptFileName = Split-Path $MyInvocation.MyCommand.Path -Leaf #find the filename of the script in case a user renames it.
$Script:SessionTimer = 0 #set initial session timer to avoid errors in info menu.
$Script:NotificationHasBeenChecked = $False
#Baseline of acceptable characters for ReadKey functions. Used to prevents receiving inputs from folk who are alt tabbing etc.
$Script:AllowedKeyList = @(48,49,50,51,52,53,54,55,56,57) #0 to 9
$Script:AllowedKeyList += @(96,97,98,99,100,101,102,103,104,105) #0 to 9 on numpad
$Script:AllowedKeyList += @(65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90) # A to Z
$Script:MenuOptions = @(65,66,67,68,71,73,74,79,82,83,84,88) #a, b, c, d, g, i, j, o, r, s, t and x. Used to detect singular valid entries where script can have two characters entered.
$EnterKey = 13
try {
	$Script:SettingsProfilePath = ((Get-ItemProperty -Path "HKCU:\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" -name "{4C5C32FF-BB9D-43B0-B5B4-2D72E54EAAA4}" -ErrorAction Stop)."{4C5C32FF-BB9D-43B0-B5B4-2D72E54EAAA4}" + "\Diablo II Resurrected\") #Get Saved Games folder from registry rather than assume it's in C:\Users\Username\Saved Games
}
Catch {
	$Script:SettingsProfilePath = ("C:\Users\" + $Env:UserName + "\Saved Games\Diablo II Resurrected\")
}
Function RemoveMaximiseButton { # I'm removing the maximise button on the script as sometimes I misclick maximise instead of minimise and it annoys me. Get's process ID of the script to ensure we don't remove maximise button from another app by accident.
	Add-Type @"
		using System;
		using System.Runtime.InteropServices;
		public class WindowAPI {
			public const int GWL_STYLE = -16;
			public const int WS_MAXIMIZEBOX = 0x10000;
			public const int WS_THICKFRAME = 0x40000;  // Window has a sizing border
			[DllImport("user32.dll", SetLastError = true)]
			public static extern int GetWindowLong(IntPtr hWnd, int nIndex);
			[DllImport("user32.dll", SetLastError = true)]
			public static extern int SetWindowLong(IntPtr hWnd, int nIndex, int dwNewLong);
		}
"@
	# Get the handle for the PowerShell window
	$hWnd = (Get-Process -Id $PID).MainWindowHandle
	# Get the current window style
	$style = [WindowAPI]::GetWindowLong($hWnd, [WindowAPI]::GWL_STYLE)
	# Disable the maximize button by removing the WS_MAXIMIZEBOX style. Also disable resizing the width.
	$newStyle = $style -band -bnot ([WindowAPI]::WS_MAXIMIZEBOX -bor [WindowAPI]::WS_THICKFRAME)
	[WindowAPI]::SetWindowLong($hWnd, [WindowAPI]::GWL_STYLE, $newStyle) | out-null
}
Function IdleTimeChecker { #Get Windows Idle time. Used for optional feature to stop adding to game timers when there is no system input. Added this feature in for me in case I'm parking DClone or have leave the house to zip down to the shops to run errands for the wife lol.
	if (-not ("IdleTime" -as [type])){
		Add-Type @"
		using System;
		using System.Runtime.InteropServices;
		public static class IdleTime {
			[StructLayout(LayoutKind.Sequential)]
			public struct LASTINPUTINFO {
				public uint cbSize;
				public uint dwTime;
			}
			[DllImport("user32.dll")]
			public static extern bool GetLastInputInfo(ref LASTINPUTINFO plii);
			public static uint GetIdleTime() {
				LASTINPUTINFO lii = new LASTINPUTINFO(); //Get the Last Input Info (LII)
				lii.cbSize = (uint)Marshal.SizeOf(lii);
				GetLastInputInfo(ref lii);
				return ((uint)Environment.TickCount - lii.dwTime) / 1000; // This returns idle time in seconds. We'll calculate to minutes elswhere.
			}
		}
"@
	}
	return [IdleTime]::GetIdleTime() #when function is called, return the seconds since last keyboard/mouse activity was detected so we can see if user is active/idle in case user wants to pause time tracking stats.
}
Function ReadKey([string]$message=$Null,[bool]$NoOutput,[bool]$AllowAllKeys){#used to receive user input
	$key = $Null
	$Host.UI.RawUI.FlushInputBuffer()
	if (![string]::IsNullOrEmpty($message)){
		Write-Host -NoNewLine $message
	}
	$AllowedKeyList = $Script:AllowedKeyList + @($EnterKey,27) #Add Enter & Escape to the allowedkeylist as acceptable inputs.
	while ($Null -eq $key){
	if ($Host.UI.RawUI.KeyAvailable){
			$key_ = $host.UI.RawUI.ReadKey("NoEcho,IncludeKeyDown,IncludeKeyUp")
			if ($True -ne $AllowAllKeys){
				if ($key_.KeyDown -and $key_.VirtualKeyCode -in $AllowedKeyList){
					$key = $key_
				}
			}
			else {
				if ($key_.KeyDown){
					$key = $key_
				}
			}
		}
		else {
			Start-Sleep -m 200  # Milliseconds
		}
	}
	if ($key_.VirtualKeyCode -ne $EnterKey -and -not ($Null -eq $key) -and [bool]$NoOutput -ne $true){
		Write-Host ("$X[38;2;255;165;000;22m" + "$($key.Character)" + "$X[0m") -NoNewLine
	}
	if (![string]::IsNullOrEmpty($message)){
		Write-Host "" # newline
	}
	return $(
		if ($Null -eq $key -or $key.VirtualKeyCode -eq $EnterKey){
			""
		}
		ElseIf ($key.VirtualKeyCode -eq 27){ #if key pressed was escape
			"Esc"
		}
		else {
			$key.Character
		}
	)
}
Function ReadKeyTimeout([string]$message=$Null, [int]$timeOutSeconds=0, [string]$Default=$Null, [object[]]$AdditionalAllowedKeys = $null, [bool]$TwoDigitAcctSelection = $False,[bool]$AllowYesNoOnly){
	$key = $Null
	$inputString = ""
	$Host.UI.RawUI.FlushInputBuffer()
	if (![string]::IsNullOrEmpty($message)){
		Write-Host -NoNewLine $message
	}
	$Counter = $timeOutSeconds * 1000 / 250
	$AllowedKeyList = $Script:AllowedKeyList + $AdditionalAllowedKeys #Add any other specified allowed key inputs (eg Enter).
	if ($AllowYesNoOnly){
		$AllowedKeyList = @($EnterKey,78,89)
	}
	while ($Null -eq $key -and ($timeOutSeconds -eq 0 -or $Counter-- -gt 0)){
		if ($TwoDigitAcctSelection -eq $True -and $inputString.length -ge 1){
			$AllowedKeyList = $AllowedKeyList + 13 + 8 # Allow enter and backspace to be used if 1 character has been typed.
		}
		if (($timeOutSeconds -eq 0) -or $Host.UI.RawUI.KeyAvailable){
			$key_ = $host.UI.RawUI.ReadKey("NoEcho,IncludeKeyDown,IncludeKeyUp")
			if ($key_.KeyDown -and $key_.VirtualKeyCode -in $AllowedKeyList){
				if ($key_.VirtualKeyCode -eq [System.ConsoleKey]::Backspace){
					$Counter = $timeOutSeconds * 1000 / 250 #reset counter
					if ($inputString.Length -gt 0){
						$inputString = $inputString.Substring(0, $inputString.Length - 1) #remove last added character/number from variable
						# Clear the last character from the console
						$Host.UI.RawUI.CursorPosition = @{
							X = [Math]::Max($Host.UI.RawUI.CursorPosition.X - 1, 0)
							Y = $Host.UI.RawUI.CursorPosition.Y
						}
						Write-Host -NoNewLine " " #-ForegroundColor Black
						$Host.UI.RawUI.CursorPosition = @{
							X = [Math]::Max($Host.UI.RawUI.CursorPosition.X - 1, 0)
							Y = $Host.UI.RawUI.CursorPosition.Y
						}
					}
				}
				ElseIf ($TwoDigitAcctSelection -eq $True -and ($inputString -eq "" -and $key_.VirtualKeyCode -notin $Script:MenuOptions + 27) -or $inputString.length -gt 0){
					$Counter = $timeOutSeconds * 1000 / 250 #reset counter
					if ($key_.VirtualKeyCode -eq $EnterKey -or $key_.VirtualKeyCode -eq 27){
						break
					}
					$inputString += $key_.Character
					Write-Host ("$X[38;2;255;165;000;22m" + $key_.Character + "$X[0m") -nonewline
					if ($inputString.length -eq 2){#if 2 characters have been entered
						break
					}
				}
				Else {
					$key = $key_
					$inputString = $key_.Character
				}
			}
		}
		else {
			Start-Sleep -m 250 # Milliseconds
		}
	}
	if ($Counter -le 0){
		if ($InputString.Length -gt 0){# if it timed out, revert to no input if one character was entered.
			$InputString = "" #remove last added character/number from variable
		}
	}
	if ($TwoDigitAcctSelection -eq $False -or ($TwoDigitAcctSelection -eq $True -and $inputString.length -eq 1 -and $key_.VirtualKeyCode -in $Script:MenuOptions)){
		Write-Host ("$X[38;2;255;165;000;22m" + "$inputString" + "$X[0m")
	}
	if (![string]::IsNullOrEmpty($message) -or $TwoDigitAcctSelection -eq $True){
		Write-Host "" # newline
	}
	Write-Host #prevent follow up text from ending up on the same line.
	return $(
		If ($key.VirtualKeyCode -eq $EnterKey -and $EnterKey -in $AllowedKeyList){
			""
		}
		ElseIf ($key.VirtualKeyCode -eq 27){ #if key pressed was escape
			"Esc"
		}
		ElseIf ($inputString.Length -eq 0){
			$Default
		}
		else {
			$inputString
		}
	)
}
Function PressTheAnyKey {#Used instead of Pause so folk can hit any key to continue
	Write-Host "  Press any key to continue..." -nonewline
	readkey -NoOutput $True -AllowAllKeys $True | out-null
	Write-Host
}
Function PressTheAnyKeyToExit {#Used instead of Pause so folk can hit any key to exit
	Write-Host "  Press Any key to exit..." -nonewline
	readkey -NoOutput $True -AllowAllKeys $True | out-null
	remove-job * -force
	Exit
}
Function Red {
	process { Write-Host $_ -ForegroundColor Red }
}
Function Yellow {
	process { Write-Host $_ -ForegroundColor Yellow }
}
Function Green {
	process { Write-Host $_ -ForegroundColor Green }
}
Function NormalText {
	process { Write-Host $_ }
}
Function FormatFunction { # Used to get long lines formatted nicely within the CLI. Can handle ANSI text. Possibly the most difficult thing I've created in this script. Hooray for Regex!
	param (
		[string] $Text,
		[int] $Indents,
		[int] $SubsequentLineIndents,
		[switch] $IsError,
		[switch] $IsWarning,
		[switch] $IsSuccess
	)
	if ($IsError -eq $True){
		$Colour = "Red"
	}
	ElseIf ($IsWarning -eq $True){
		$Colour = "Yellow"
	}
	ElseIf ($IsSuccess -eq $True){
		$Colour = "Green"
	}
	Else {
		$Colour = "NormalText"
	}
	$MaxLineLength = 76
	If ($Indents -ge 1){
		while ($Indents -gt 0){
			$Indent += " "
			$Indents --
		}
	}
	If ($SubsequentLineIndents -ge 1){
		while ($SubsequentLineIndents -gt 0){
			$SubsequentLineIndent += " "
			$SubsequentLineIndents --
		}
	}	
	$Text -split "`n" | ForEach-Object {
		$Line = " " + $Indent + $_
		$SecondLineDeltaIndent = ""
		if ($Line -match '^[\s]*-'){ #For any line starting with any preceding spaces and a dash.
			$SecondLineDeltaIndent = "  "
		}
		if ($Line -match '^[\s]*\d+\.\s'){ #For any line starting with any preceding spaces, a number, a '.' and a space. Eg "1. blah".
			$SecondLineDeltaIndent = "   "
		}
		Function Formatter ([string]$line){
			$pattern = "[\e]?[\[]?[`"-,`.!']?\b[\w\-,'`"]+(\S*)" # Regular expression pattern to find the last word including any trailing non-space characters. Also looks to include any preceding special characters or ANSI escape character.
			$WordMatches = [regex]::Matches($Line, $pattern) # Find all matches of the pattern in the string
			# Initialize variables to track the match with the highest index
			$highestIndex = -1
			$SelectedMatch = $Null
			$PatternLengthCount = 0
			
			
			#$Script:X = [char]0x1b
			#$X[38;2;165;146;99;48;2;1;1;1;4m   $X[0m#    .replace([char]0x1b,"F")
			#$ANSITEXT -replace '\x1b\[[0-9;]*m',''
							
			                    #  38      2     165    146      99      48       2       1       1      1        2       4m
			#$ANSIPatterns = "\x1b\[38;\d{1,3};\d{1,3};\d{1,3};\d{1,3};\d{1,3};\d{1,3};\d{1,3};\d{1,3};\d{1,3};\d{1,3}m","\x1b\[0m","\x1b\[4m"
			#$ANSIPatterns = "(?:\x1b|\$X)\[[0-9;]*m","\x1b\[0m","\x1b\[4m"
			
			# Need to adjust this function so one of 2 ways, whatevers easiest/fastest
			# the easiest way would be to identify the previous opening ANSI statement, close off the ANSI at the end of the first line $X[0m then add spaces for indent and then readd the opening ANSI statement at the beginning of next line
			

			
			$ANSIPatterns = "\x1b\[38;\d{1,3};\d{1,3};\d{1,3};\d{1,3};\d{1,3}m","\x1b\[38;\d{1,3};\d{1,3};\d{1,3};\d{1,3};\d{1,3};\d{1,3};\d{1,3};\d{1,3};\d{1,3};\d{1,3}m","\x1b\[0m","\x1b\[4m"
			ForEach ($WordMatch in $WordMatches){# Iterate through each match (match being a block of characters, ie each word).
				ForEach ($ANSIPattern in $ANSIPatterns){ #iterate through each possible ANSI pattern to find any text that might have ANSI formatting.
					$ANSIMatches = $WordMatch.value | Select-String -Pattern $ANSIPattern -AllMatches
					ForEach ($ANSIMatch in $ANSIMatches){
						if ($line -ne "  $ContinueANSI"){
							$Script:ANSIUsed = $True	
						}
						$PatternLengthCount = $PatternLengthCount + (($ANSIMatch.matches | ForEach-Object {$_.Value}) -join "").length #Calculate how many characters in the text are ANSI formatting characters and thus won't be displayed on screen, to prevent skewing word count.
					}
				}
				$matchIndex = $WordMatch.Index
				$matchLength = $WordMatch.Length
				$matchEndIndex = $matchIndex + $matchLength - 1
				if ($matchEndIndex -lt ($MaxLineLength + $PatternLengthCount)){# Check if the match ends within the first $MaxLineLength characters
					if ($matchIndex -gt $highestIndex){# Check if this match has a higher index than the current highest
						$highestIndex = $matchIndex # This word has a higher index and is the winner thus far.
						$SelectedMatch = $WordMatch
						$lastspaceindex = $SelectedMatch.Index + $SelectedMatch.Length - 1 #Find the index (the place in the string) where the last word can be used without overflowing the screen.
					}
				}
			}
			try {
				$script:chunk = $Line.Substring(0, $lastSpaceIndex + 1) #Chunk of text to print to screen. Uses all words from the start of $line up until $lastspaceindex so that only text that fits on a single line is printed. Prevents words being cut in half and prevents loss of indenting.
			}
			catch {
				$script:chunk = $Line.Substring(0, [Math]::Min(($MaxLineLength), ($Line.Length))) #If the above fails for whatever reason. Can't exactly remember why I put this in here but leaving it in to be safe LOL.
			}
		}
		Formatter $Line
		if ($Script:ANSIUsed -eq $True){ #if fancy pants coloured text (ANSI) is used, write out the first line. Check if ANSI was used in any overflow lines.	
			do {
				if ($Chunk -match "(?:\x1b|\$X)\[[0-9;]*m" -and $Chunk -notmatch '\x1b\[0m'){#Open ANSI without a closing tag
					$ANSIStillActive = $True
					$ContinueANSI = [regex]::Matches($Chunk, "\x1b\[(?!0m)[0-9;]+m") | select-object -last 1
				}
				elseif ($Chunk -match "(?:\x1b|\$X)\[[0-9;]*m" -and $Chunk -match '\x1b\[0m'){#open and closing ANSI tags. Lets assess if there's an equal amount of both to determine if ANSI is open or not.
					$openCount  = 0
					$closeCount = 0
					$Pattern = '(?:\x1b|\$X)\[[0-9;]+m' #pattern to identify all opening or closing statements.
					$AllANSI = [regex]::Matches($Chunk, $Pattern)
					foreach ($Rakanishu in $AllANSI) {
						if ($Rakanishu.Value -match '\[0m$'){
							$CloseCount++
						}
						else {
							$OpenCount++
						}
					}
					if ($OpenCount -gt $CloseCount){ #if there's more opening statements than closed statements, we should capture the current formatting so we can use this on the following text.
						$ANSIStillActive = $True
						$ContinueANSI = [regex]::Matches($Chunk, "\x1b\[(?!0m)[0-9;]+m") | select-object -last 1
					}
					Else {
						$ANSIStillActive = $False
					}
				}
				elseif ($Chunk -notmatch "(?:\x1b|\$X)\[[0-9;]*m" -and $Chunk -match '\x1b\[0m'){ #closing ansi with no open tag
					$ANSIStillActive = $False
				}				
				$Script:ANSIUsed = $False
				if ($ANSIStillActive -eq $True){#output with a closing statement and then insert the ANSI formatting into the next line to process
					Write-Output ($Chunk + "$X[0m") | out-host #have to use out-host due to pipeline shenanigans and at this point was too lazy to do things properly :)
					$Line = " " + $SubsequentLineIndent + $Indent + $ContinueANSI + $Line.Substring($chunk.Length).trimstart() #$Line is equal to $Line but without the text that's already been outputted.
				}
				Else {
					Write-Output $Chunk | out-host #have to use out-host due to pipeline shenanigans and at this point was too lazy to do things properly :)
					$Line = " " + $SubsequentLineIndent + $Indent + $Line.Substring($chunk.Length).trimstart() #$Line is equal to $Line but without the text that's already been outputted.
				}
				Formatter $Line
			} until ($Script:ANSIUsed -eq $False)
			if ($Chunk -ne " " -and $Chunk.length -ne 0){#print any remaining text.
				Write-Output $Chunk | out-host
			}
		}
		Else { #if line has no ANSI formatting.
			Write-Output $Chunk | &$Colour
		}
		$Line = $Line.Substring($chunk.Length).trimstart() #remove the string that's been printed on screen from variable.
		if ($Line.length -gt 0){ # I see you're reading my comment. How thorough of you! This whole function was an absolute mindf#$! to come up with and took probably 30 hours of trial, error and rage (in ascending order of frequency). Odd how the most boring of functions can take up the most time :)
			Write-Output ($Line -replace "(.{1,$($MaxLineLength - $($Indent.length) - $($SubsequentLineIndent.length) -1 - $($SecondLineDeltaIndent.length))})(\s+|$)", " $SubsequentLineIndent$SecondLineDeltaIndent$Indent`$1`n").trimend() | &$Colour
		}
	} 
}
Function CommaSeparatedList {
	param (
		[object] $Values,
		[switch] $NoOr,
		[switch] $AndText
	)
	ForEach ($Value in $Values){ #write out each account option, comma separated but show each option in orange writing. Essentially output overly complicated fancy display options :)
		if ($Value -ne $Values[-1]){
			Write-Host "$X[38;2;255;165;000;22m$Value$X[0m" -nonewline
			if ($Value -ne $Values[-2]){Write-Host ", " -nonewline}
		}
		else {
			if ($Values.count -gt 1){
				$AndOr = "or"
				if ($AndText -eq $True){
					$AndOr = "and"
				}
				if ($NoOr -eq $False){
					Write-Host " $AndOr " -nonewline
				}
				Else {
					Write-Host ", " -nonewline
				}
			}
			Write-Host "$X[38;2;255;165;000;22m$Value$X[0m" -nonewline
		}
	}
}
Function GetEmuToken { #For connecting to D2Emu for TZ and/or DClone data
	write-host " Getting D2Emu Connection details..."
	Try {
		if ($PSVersionTable.psversion.major -ge 7){# Run a PowerShell 5.1 script from within PowerShell 7.x, for whatever reason no content is returned on PS 7.x. Identified in https://github.com/shupershuff/Diablo2RLoader/issues/51
			write-host "  Getting D2Emu AES key..."
			$AES = & "C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe" -ExecutionPolicy Bypass -Command {(invoke-webrequest https://d2emu.com/api/v1/shupertoken/aes -TimeoutSec 5 -UseBasicParsing).content | convertfrom-json}
			write-host "  Getting D2Emu token..."
			$EncryptedToken = & "C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe" -ExecutionPolicy Bypass -Command {((invoke-webrequest https://d2emu.com/api/v1/shupertoken/token -TimeoutSec 5 -UseBasicParsing).content | convertfrom-json).token}
		}
		Else {
			write-host "  Getting D2Emu AES key..."
			$AES = invoke-restmethod https://d2emu.com/api/v1/shupertoken/aes -TimeoutSec 5
			write-host "  Getting D2Emu AES token..."
			$EncryptedToken = (invoke-restmethod https://d2emu.com/api/v1/shupertoken/token -TimeoutSec 5).token
		}
		$Key = $AES.key
		$IV = $AES.iv
		$bytes = [System.Convert]::FromBase64String($EncryptedToken);
		$aes = [System.Security.Cryptography.Aes]::Create();
		$utf8 = [System.Text.Encoding]::Utf8;
		$aes.Key = $utf8.GetBytes($key);
		$aes.IV  = $utf8.GetBytes($iv);
		$decryptor = $aes.CreateDecryptor();
		$unencryptedData = $decryptor.TransformFinalBlock($bytes, 0, $bytes.Length);
		$aes.Dispose();
		$Script:EmuToken = [System.Text.Encoding]::UTF8.GetString($unencryptedData); #Decrypted token
		write-host "  D2Emu Connection successful."
	}
	Catch {
		$Script:EmuOfflineMode = $True
		$Script:EmuToken = ""
		FormatFunction -IsError -indents 1 "`n`nCouldn't get D2Emu.com connection token, D2Emu API is possibly down."
		if ($Script:Config.DCloneTrackerSource -eq "d2emu.com"){
			$D2EmuErrorText = "Terror Zones and DClone"
		}
		Else {
			$D2EmuErrorText = "Terror Zones"
		}
		FormatFunction -IsError -indents 1 "Features for $D2EmuErrorText have been disabled.`n"
		PressTheAnyKey
	}
}
Function Create-Shortcut {# Create Shortcut Function
	param (
		[string]$shortcutPath,
		[string]$targetPath,
		[string]$arguments
	)
	$shell = New-Object -ComObject WScript.Shell
	$shortcut = $shell.CreateShortcut($shortcutPath)
	$shortcut.TargetPath = $targetPath
	$shortcut.Arguments = $arguments
	$shortcut.Save()
}
Function DisplayPreviousAccountOpened {
		Write-Host "Account previously opened was:" -foregroundcolor yellow -backgroundcolor darkgreen
		$Lastopened = @(
			[pscustomobject]@{Account=$Script:AccountFriendlyName;region=$Script:LastRegion}
		)
		Write-Host " " -NoNewLine
		Write-Host ("Account:  " + $Lastopened.Account) -foregroundcolor yellow -backgroundcolor darkgreen
		Write-Host " " -NoNewLine
		Write-Host "Region:  " $Lastopened.Region -foregroundcolor yellow -backgroundcolor darkgreen
}
Function InitialiseCurrentStats {
	if ((Test-Path -Path "$Script:WorkingDirectory\Stats.csv") -ne $true){#Create Stats CSV if it doesn't exist
		$Null = {} | Select-Object "TotalGameTime","TimesLaunched","LastUpdateCheck","HighRunesFound","UniquesFound","SetItemsFound","RaresFound","MagicItemsFound","NormalItemsFound","Gems","CowKingKilled","PerfectGems" | Export-Csv "$Script:WorkingDirectory\Stats.csv" -NoTypeInformation
		Write-Host " Stats.csv created!"
	}
	do {
		Try {
			Write-Host " Importing Stats.csv..."
			$Script:CurrentStats = import-csv "$Script:WorkingDirectory\Stats.csv" #Get current stats csv details
		}
		Catch {
			Write-Host " Unable to import stats.csv. File corrupt or missing." -foregroundcolor red
		}
		if ($null -ne $CurrentStats){
			#Todo: In the Future add CSV validation checks
			$StatsCSVImportSuccess = $True
		}
		else {#Error out and exit if there's a problem with the csv.
				if ($StatsCSVRecoveryAttempt -lt 1){
					try {
						Write-Host " Attempting Autorecovery of stats.csv from backup..." -foregroundcolor red
						Copy-Item -Path $Script:WorkingDirectory\Stats.backup.csv -Destination $Script:WorkingDirectory\Stats.csv -ErrorAction stop
						Write-Host " Autorecovery successful!" -foregroundcolor Green
						$StatsCSVRecoveryAttempt ++
						PressTheAnyKey
					}
					Catch {
						$StatsCSVImportSuccess = $False
					}
				}
				Else {
					$StatsCSVRecoveryAttempt = 2
				}
				if ($StatsCSVImportSuccess -eq $False -or $StatsCSVRecoveryAttempt -eq 2){
					Write-Host "`n Stats.csv is corrupted or empty." -foregroundcolor red
					Write-Host " Replace with data from stats.backup.csv or delete stats.csv`n" -foregroundcolor red
					PressTheAnyKeyToExit
				}
			}
	} until ($StatsCSVImportSuccess -eq $True)
	if (-not ($CurrentStats | Get-Member -Name "LastUpdateCheck" -MemberType NoteProperty -ErrorAction SilentlyContinue)){#For update 1.8.1+. If LastUpdateCheck column doesn't exist, add it to the CSV data
		$Script:CurrentStats | ForEach-Object {
			$_ | Add-Member -NotePropertyName "LastUpdateCheck" -NotePropertyValue "2000.06.28 12:00:00" #previously "28/06/2000 12:00:00 pm"
		}
	}
	ElseIf ($CurrentStats.LastUpdateCheck -eq "" -or $CurrentStats.LastUpdateCheck -like "*/*"){# If script has just been freshly downloaded or has the old Date format.
		$Script:CurrentStats.LastUpdateCheck = "2000.06.28 12:00:00" #previously "28/06/2000 12:00:00 pm"
		$CurrentStats | Export-Csv "$Script:WorkingDirectory\Stats.csv" -NoTypeInformation
	}
}
Function CheckForUpdates {
	#Only Check for updates if updates haven't been checked in last 12 hours. Reduces API requests.
	if ($Script:CurrentStats.LastUpdateCheck -lt (Get-Date).addHours(-12).ToString('yyyy.MM.dd HH:mm:ss')){# Compare current date and time to LastUpdateCheck date & time.
		try {
			# Check for Updates
			Write-Host " Checking for updates..."
			$Releases = Invoke-RestMethod -Uri "https://api.github.com/repos/shupershuff/Diablo2RLoader/releases"
			$ReleaseInfo = ($Releases | Sort-Object id -desc)[0] #find release with the highest ID.
			$Script:LatestVersion = [version[]]$ReleaseInfo.Name.Trim('v')
			if ($Script:LatestVersion -gt $Script:CurrentVersion){ #If a newer version exists, prompt user about update details and ask if they want to update.
				Clear-Host
				Write-Host "`n Update available! See Github for latest version and info" -foregroundcolor Yellow -nonewline
				if ([version]$CurrentVersion -in (($Releases.name.Trim('v') | ForEach-Object { [version]$_ } | Sort-Object -desc)[2..$releases.count])){
					Write-Host ".`n There have been several releases since your version." -foregroundcolor Yellow
					Write-Host " Checkout Github releases for fixes/features added. " -foregroundcolor Yellow
					Write-Host " $X[38;2;69;155;245;4mhttps://github.com/shupershuff/Diablo2RLoader/releases/$X[0m`n"
				}
				Else {
					Write-Host ":`n $X[38;2;69;155;245;4mhttps://github.com/shupershuff/Diablo2RLoader/releases/latest$X[0m`n"
				}
				FormatFunction -Text $ReleaseInfo.body #Output the latest release notes in an easy to read format.
				Write-Host; Write-Host
				Do {
					Write-Host " Your Current Version is v$CurrentVersion."
					Write-Host (" Would you like to update to v" + $Script:LatestVersion + "? $X[38;2;255;165;000;22mY$X[0m/$X[38;2;255;165;000;22mN$X[0m: ") -nonewline
					$ShouldUpdate = ReadKey
					if ($ShouldUpdate -eq "y" -or $ShouldUpdate -eq "yes" -or $ShouldUpdate -eq "n" -or $ShouldUpdate -eq "no"){
						$UpdateResponseValid = $True
					}
					Else {
						Write-Host "`n Invalid response. Choose $X[38;2;255;165;000;22mY$X[0m $X[38;2;231;072;086;22mor$X[0m $X[38;2;255;165;000;22mN$X[0m.`n" -ForegroundColor red
					}
				} Until ($UpdateResponseValid -eq $True)
				if ($ShouldUpdate -eq "y" -or $ShouldUpdate -eq "yes"){#if user wants to update script, download .zip of latest release, extract to temporary folder and replace old D2Loader.ps1 with new D2Loader.ps1
					Write-Host "`n Updating... :)" -foregroundcolor green
					try {
						New-Item -ItemType Directory -Path ($Script:WorkingDirectory + "\UpdateTemp\") -ErrorAction stop | Out-Null #create temporary folder to download zip to and extract
					}
					Catch {#if folder already exists for whatever reason.
						Remove-Item -Path ($Script:WorkingDirectory + "\UpdateTemp\") -Recurse -Force
						New-Item -ItemType Directory -Path ($Script:WorkingDirectory + "\UpdateTemp\") | Out-Null #create temporary folder to download zip to and extract
					}
					$ZipURL = $ReleaseInfo.zipball_url #get zip download URL
					$ZipPath = ($WorkingDirectory + "\UpdateTemp\D2Loader_" + $ReleaseInfo.tag_name + "_temp.zip")
					Invoke-WebRequest -Uri $ZipURL -UseBasicParsing -OutFile $ZipPath
					if ($Null -ne $releaseinfo.assets.browser_download_url){#Check If I didn't forget to make a version.zip file and if so download it. This is purely so I can get an idea of how many people are using the script or how many people have updated. I have to do it this way as downloading the source zip file doesn't count as a download in github and won't be tracked.
						Invoke-WebRequest -Uri $releaseinfo.assets.browser_download_url -UseBasicParsing -OutFile $null | out-null #identify the latest file only.
					}
					$ExtractPath = ($Script:WorkingDirectory + "\UpdateTemp\")
					Expand-Archive -Path $ZipPath -DestinationPath $ExtractPath -Force
					$FolderPath = Get-ChildItem -Path $ExtractPath -Directory -Filter "shupershuff*" | Select-Object -ExpandProperty FullName
					Copy-Item -Path ($FolderPath + "\D2Loader.ps1") -Destination ($Script:WorkingDirectory + "\" + $Script:ScriptFileName) #using $Script:ScriptFileName allows the user to rename the file if they want
					Remove-Item -Path ($Script:WorkingDirectory + "\UpdateTemp\") -Recurse -Force #delete update temporary folder
					Write-Host " Updated :)" -foregroundcolor green
					Start-Sleep -milliseconds 850
					& ($Script:WorkingDirectory + "\" + $Script:ScriptFileName)
					exit
				}
			}
			$Script:CurrentStats.LastUpdateCheck = (get-date).tostring('yyyy.MM.dd HH:mm:ss')
			$Script:LatestVersionCheck = $CurrentStats.LastUpdateCheck
			$CurrentStats | Export-Csv -Path "$Script:WorkingDirectory\Stats.csv" -NoTypeInformation #update stats.csv with the new time played.
		}
		Catch {
			Write-Host "`n Couldn't check for updates. GitHub API limit may have been reached..." -foregroundcolor Yellow
			Start-Sleep -milliseconds 3500
		}
	}
	#Update (or replace missing) SetTextV2.bas file. This is an newer version of SetText (built by me and ChatGPT) that allows windows to be closed by process ID.
	if ((Test-Path -Path ($workingdirectory + '\SetText\SetTextv2.bas')) -ne $True){#if SetTextv2.bas doesn't exist, download it.
		try {
			New-Item -ItemType Directory -Path ($Script:WorkingDirectory + "\UpdateTemp\") -ErrorAction stop | Out-Null #create temporary folder to download zip to and extract
		}
		Catch {#if folder already exists for whatever reason.
			Remove-Item -Path ($Script:WorkingDirectory + "\UpdateTemp\") -Recurse -Force
			New-Item -ItemType Directory -Path ($Script:WorkingDirectory + "\UpdateTemp\") | Out-Null #create temporary folder to download zip to and extract
		}
		$Releases = Invoke-RestMethod -Uri "https://api.github.com/repos/shupershuff/Diablo2RLoader/releases"
		$ReleaseInfo = ($Releases | Sort-Object id -desc)[0] #find release with the highest ID.
		$ZipURL = $ReleaseInfo.zipball_url #get zip download URL
		$ZipPath = ($WorkingDirectory + "\UpdateTemp\D2Loader_" + $ReleaseInfo.tag_name + "_temp.zip")
		Invoke-WebRequest -Uri $ZipURL -UseBasicParsing -OutFile $ZipPath
		if ($Null -ne $releaseinfo.assets.browser_download_url){#Check If I didn't forget to make a version.zip file and if so download it. This is purely so I can get an idea of how many people are using the script or how many people have updated. I have to do it this way as downloading the source zip file doesn't count as a download in github and won't be tracked.
			Invoke-WebRequest -Uri $releaseinfo.assets.browser_download_url -UseBasicParsing -OutFile $null | out-null #identify the latest file only.
		}
		$ExtractPath = ($Script:WorkingDirectory + "\UpdateTemp\")
		Expand-Archive -Path $ZipPath -DestinationPath $ExtractPath -Force
		$FolderPath = Get-ChildItem -Path $ExtractPath -Directory -Filter "shupershuff*" | Select-Object -ExpandProperty FullName
		Copy-Item -Path ($FolderPath + "\SetText\SetTextv2.bas") -Destination ($Script:WorkingDirectory + "\SetText\SetTextv2.bas")
		Write-Host "  SetTextV2.bas was missing and was downloaded."
		Remove-Item -Path ($Script:WorkingDirectory + "\UpdateTemp\") -Recurse -Force #delete update temporary folder
	}
}
Function ImportXML { #Import Config XML
	param(
		[Switch]$NoOutput
	)
	try {
		if (!$NoOutput){
			Write-Host " Importing Config.xml..."
		}
		$Script:Config = ([xml](Get-Content "$Script:WorkingDirectory\Config.xml" -ErrorAction Stop)).D2loaderconfig
		Write-Verbose "Config imported successfully."
	}
	Catch {
		Write-Host "`n Config.xml Was not able to be imported. This could be due to a typo or a special character such as `'&`' being incorrectly used." -foregroundcolor red
		Write-Host " The error message below will show which line in the config.xml is invalid:" -foregroundcolor red
		Write-Host (" " + $PSitem.exception.message + "`n") -foregroundcolor red
		PressTheAnyKeyToExit
	}
}
Function SetDCloneAlarmLevels {
	if ($Script:Config.DCloneAlarmLevel -eq "All"){
		$Script:DCloneAlarmLevel = "1,2,3,4,5,6"
	}
	ElseIf ($Script:Config.DCloneAlarmLevel -eq "Close"){
		$Script:DCloneAlarmLevel = "1,4,5,6"
	}
	ElseIf ($Script:Config.DCloneAlarmLevel -eq "Imminent"){
		$Script:DCloneAlarmLevel = "1,5,6"
	}
	else {#if user has typo'd the config file or left it blank.
		$DCloneErrorMessage = ("  Error: DClone Alarm Levels have been misconfigured in config.xml. ###  Check that the value for DCloneAlarmLevel is entered correctly.").Replace("###", "`n")
		Write-Host ("`n" + $DCloneErrorMessage + "`n") -Foregroundcolor red
		PressTheAnyKeyToExit
	}
}
Function ValidationAndSetup {
	write-host  " Validating Config..."
	#Perform some validation on config.xml. Helps avoid errors for people who may be on older versions of the script and are updating. Will look to remove all of this in a future update.
	Function UpdateXML {
		param (
			[String]$Pattern,
			[String]$Replacement,
			[object[]]$XML,
			[Switch]$Pause
		)
		($XML -replace [regex]::Escape($Pattern), $Replacement) | Set-Content -Path "$Script:WorkingDirectory\Config.xml"
		if ($Pause){
			Start-Sleep -milliseconds 1500
			PressTheAnyKey
		}
	}
	if (Select-String -path $Script:WorkingDirectory\Config.xml -pattern "multiple game installs"){#Sort out an incorrect description text that will have been in folks config.xml for some time. This description was never valid and was from when the setting switcher feature was being developed and tested.
		$XML = Get-Content "$Script:WorkingDirectory\Config.xml"
		$Pattern = ";;`t`tNote, if using multiple game installs \(to keep client specific config persistent for each account\), ensure these are referenced in the CustomGamePath field in accounts.csv."
		$Pattern += ";;`t`tOtherwise you can use a single install instead by linking the path below.-->;;"
		$NewXML = [string]::join(";;",($XML.Split("`r`n")))
		$NewXML = $NewXML -replace $Pattern, "-->;;"
		$NewXML = $NewXML -replace ";;","`r`n"
		$NewXML | Set-Content -Path "$Script:WorkingDirectory\Config.xml"
		Write-Host "`n Corrected the description for GamePath in config.xml." -foregroundcolor Green
		Start-Sleep -milliseconds 1500
	}
	if ($Null -ne $Script:Config.CommandLineArguments){#remove this config option as arguments are now stored in accounts.csv so that different arguments can be set for each account
		Write-Host "`n Config option 'CommandLineArguments' is being moved to accounts.csv" -foregroundcolor Yellow
		Write-Host " This is to enable different CMD arguments per account." -foregroundcolor Yellow
		$XML = Get-Content "$Script:WorkingDirectory\Config.xml"
		$Pattern = ";;\t<!--Optionally add any command line arguments that you'd like the game to start with-->;;\t<CommandLineArguments>.*?</CommandLineArguments>;;"
		$NewXML = [string]::join(";;",($XML.Split("`r`n")))
		$NewXML = $NewXML -replace $Pattern, ""
		$NewXML = $NewXML -replace ";;","`r`n"
		$NewXML | Set-Content -Path "$Script:WorkingDirectory\Config.xml"
		$Script:OriginalCommandLineArguments = $Script:Config.CommandLineArguments
		Write-Host " CommandLineArguments has been removed from config.xml" -foregroundcolor green
		Start-Sleep -milliseconds 1500
	}
	if ($Null -eq $Script:Config.ManualSettingSwitcherEnabled){#not to be confused with the AutoSettingSwitcher.
		Write-Host "`n Config option 'ManualSettingSwitcherEnabled' missing from config.xml" -foregroundcolor Yellow
		Write-Host " This is due to the config.xml recently being updated." -foregroundcolor Yellow
		Write-Host " This is an optional config option to allow you to manually select which " -foregroundcolor Yellow
		Write-Host " config file you want to use for each account when launching." -foregroundcolor Yellow
		Write-Host " Added this missing option into the config.xml file :)`n" -foregroundcolor green
		$XML = Get-Content "$Script:WorkingDirectory\Config.xml"
		$Pattern = "</SettingSwitcherEnabled>"
		$Replacement = "</SettingSwitcherEnabled>`n`n`t<!--Can be used standalone or in conjunction with the standard setting switcher above.`n`t"
		$Replacement +=	"This enables the menu option to enter 's' and manually pick between settings config files. Use this if you want to select Awesome or Poo graphics settings for an account.`n`t"
		$Replacement +=	"Any setting file with a number after it will not be an available option (eg settings1.json will not be an option).`n`t"
		$Replacement +=	"To make settings option, you can load from, call the file settings.<name>.json eg(settings.Awesome Graphics.json) which will appear as `"Awesome Graphics`" in the menu.-->`n`t"
		$Replacement +=	"<ManualSettingSwitcherEnabled>False</ManualSettingSwitcherEnabled>" #add option to config file if it doesn't exist.
		UpdateXML -Pattern $Pattern -Replacement $Replacement -XML $XML -Pause
	}	
	if ($Null -eq $Script:Config.ShowCloseOptionInMenu){
		Write-Host "`n Config option 'ShowCloseOptionInMenu' missing from config.xml" -foregroundcolor Yellow
		Write-Host " This is due to the config.xml recently being updated." -foregroundcolor Yellow
		formatfunction -IsWarning -Indents 0 -text "This will enable/disable a menu option to force shut all d2r instances."
		Write-Host " Added this missing option into the config.xml file :)`n" -foregroundcolor green
		$XML = Get-Content "$Script:WorkingDirectory\Config.xml"
		$Pattern = "</ManualSettingSwitcherEnabled>"
		$Replacement = "</ManualSettingSwitcherEnabled>`n`n`t<!--If enabled this will show a menu option to be able to force close all D2r instances. Enter True if you want to enable this. Blank (disabled) by default.-->"
		$Replacement += "`n`t<ShowCloseOptionInMenu>False</ShowCloseOptionInMenu>" #add option to config file if it doesn't exist.
		UpdateXML -Pattern $Pattern -Replacement $Replacement -XML $XML -Pause
	}
	if ($Null -eq $Script:Config.TrackAccountUseTime){
		Write-Host "`n Config option 'TrackAccountUseTime' missing from config.xml" -foregroundcolor Yellow
		Write-Host " This is due to the config.xml recently being updated." -foregroundcolor Yellow
		Write-Host " This is an optional config option to track time played per account." -foregroundcolor Yellow
		Write-Host " Added this missing option into the config.xml file :)`n" -foregroundcolor green
		$XML = Get-Content "$Script:WorkingDirectory\Config.xml"
		$Pattern = "</ShowCloseOptionInMenu>"
		$Replacement = "</ShowCloseOptionInMenu>`n`n`t<!--This allows you to roughly track how long you've used each account while using this script. "
		$Replacement += "Choose False if you want to disable this.-->`n`t<TrackAccountUseTime>True</TrackAccountUseTime>" #add option to config file if it doesn't exist.
		UpdateXML -Pattern $Pattern -Replacement $Replacement -XML $XML -Pause
	}
	if ($Null -eq $Script:Config.IdleLimitForAccountUseTime){
		Write-Host "`n Config option 'IdleLimitForAccountUseTime' missing from config.xml" -foregroundcolor Yellow
		Write-Host " This is due to the config.xml recently being updated." -foregroundcolor Yellow
		Write-Host " This is an optional config option to track time played per account." -foregroundcolor Yellow
		Write-Host " Added this missing option into the config.xml file :)`n" -foregroundcolor green
		$XML = Get-Content "$Script:WorkingDirectory\Config.xml"
		$Pattern = "</TrackAccountUseTime>"
		$Replacement = "</TrackAccountUseTime>`n`n`t<!--If set, this automatically pauses time tracking if you are idle for a certain amount of minutes. Set to a number (eg 5 for 5 minutes). Blank (disabled) by default.-->"
		$Replacement += "`n`t<IdleLimitForAccountUseTime></IdleLimitForAccountUseTime>" #add option to config file if it doesn't exist.
		UpdateXML -Pattern $Pattern -Replacement $Replacement -XML $XML -Pause
	}
	if ($Null -eq $Script:Config.DisableIconStacking){
		Write-Host "`n Config option 'DisableIconStacking' missing from config.xml" -foregroundcolor Yellow
		Write-Host " This is due to the config.xml recently being updated." -foregroundcolor Yellow
		formatfunction -IsWarning -Indents 0 -text "This is an optional config option to disable D2r icons stacking in the taskbar."
		Write-Host " Added this missing option into the config.xml file :)`n" -foregroundcolor green
		$XML = Get-Content "$Script:WorkingDirectory\Config.xml"
		$Pattern = "</ShortcutCustomIconPath>"
		$Replacement = "</ShortcutCustomIconPath>`n`n`t<!--If enabled, this option prevents D2r icons from stacking in the taskbar. "
		$Replacement += "Set to True if you want to enable this feature.-->`n`t<DisableIconStacking>False</DisableIconStacking>" #add option to config file if it doesn't exist.
		UpdateXML -Pattern $Pattern -Replacement $Replacement -XML $XML -Pause
	}
	if ($Null -ne $Script:Config.ConvertPlainTextPasswords){
		Write-Host "`n Renaming ConvertPlainTextPasswords to ConvertPlainTextSecrets in config.xml" -foregroundcolor Yellow
		$XML = Get-Content "$Script:WorkingDirectory\Config.xml"
		$Pattern = "<!--Whether script should convert plain text passwords in accounts.csv to a secure string, recommend leaving this set to True.-->"
		$Replacement = "<!--Whether script should convert plain text tokens and passwords in accounts.csv to a secure string. Recommend leaving this set to True.-->"
		$XML = $XML -replace [regex]::Escape($Pattern), $Replacement
		$Pattern = "ConvertPlainTextPasswords"
		$Replacement = "ConvertPlainTextSecrets"
		UpdateXML -Pattern $Pattern -Replacement $Replacement -XML $XML -Pause
		ImportXML -NoOutput
	}
	if ($Null -eq $Script:Config.ConvertPlainTextSecrets){
		Write-Host "`n Config option 'ConvertPlainTextSecrets' missing from config.xml" -foregroundcolor Yellow
		$XML = Get-Content "$Script:WorkingDirectory\Config.xml"
		$Pattern = "</DisableIconStacking>"
		$Replacement = "</DisableIconStacking>`n`n`t<!--Whether script should convert plain text passwords in accounts.csv to a secure string, recommend leaving this set to True.-->`n`t"
		$Replacement += "<ConvertPlainTextSecrets>True</ConvertPlainTextSecrets>" #add option to config file if it doesn't exist.
		UpdateXML -Pattern $Pattern -Replacement $Replacement -XML $XML -Pause
	}
	if ($Null -ne $Script:Config.EnableBatchFeature){ # remove from config.xml. Not needed anymore as script checks accounts.csv to see if batches are used.
		Write-Host "`n Config option 'EnableBatchFeature' is no longer needed." -foregroundcolor Yellow
		Write-Host " Removed this option from config.xml file :)`n" -foregroundcolor green
		$XML = Get-Content "$Script:WorkingDirectory\Config.xml"
		$Pattern = ";;\t<!--Enable the ability to open a group of accounts.*?</EnableBatchFeature>;;"
		$NewXML = [string]::join(";;",($XML.Split("`r`n")))
		$NewXML = $NewXML -replace $Pattern, ""
		$NewXML = $NewXML -replace ";;","`r`n"
		$NewXML | Set-Content -Path "$Script:WorkingDirectory\Config.xml"
		Start-Sleep -milliseconds 1500
		PressTheAnyKey
	}
	if ($Null -ne $Script:Config.CheckForNextTZ){
		Write-Host "`n Config option 'CheckForNextTZ' is no longer needed." -foregroundcolor Yellow
		Write-Host " Removed this option from config.xml file :)`n" -foregroundcolor green
		$XML = Get-Content "$Script:WorkingDirectory\Config.xml"
		$Pattern = ";;\t<!--Choose whether or not TZ checker.*?</CheckForNextTZ>;;"
		$NewXML = [string]::join(";;",($XML.Split("`r`n")))
		$NewXML = $NewXML -replace $Pattern, ""
		$NewXML = $NewXML -replace ";;","`r`n"
		$NewXML | Set-Content -Path "$Script:WorkingDirectory\Config.xml"
		Start-Sleep -milliseconds 1500
		PressTheAnyKey
	}
	if ($Null -ne $Script:Config.AskForRegionOnceOnly){
		Write-Host "`n Config option 'AskForRegionOnceOnly' is no longer needed." -foregroundcolor Yellow
		Write-Host " Removed this option from config.xml file :)`n" -foregroundcolor green
		$XML = Get-Content "$Script:WorkingDirectory\Config.xml"
		$Pattern = ";;\t<!--Whether script should only prompt you once for region.*?</AskForRegionOnceOnly>;;"
		$NewXML = [string]::join(";;",($XML.Split("`r`n")))
		$NewXML = $NewXML -replace $Pattern, ""
		$NewXML = $NewXML -replace ";;","`r`n"
		$NewXML | Set-Content -Path "$Script:WorkingDirectory\Config.xml"
		Start-Sleep -milliseconds 1500
		PressTheAnyKey
	}
	if ($Null -eq $Script:Config.DisableOpenAllAccountsOption){
		Write-Host "`n Config option 'DisableOpenAllAccountsOption' missing from config.xml" -foregroundcolor Yellow
		Write-Host " This is due to the config.xml recently being updated." -foregroundcolor Yellow
		Write-Host " This is an optional config option to disable the functionality for opening all accounts." -foregroundcolor Yellow
		Write-Host " Added this missing option into the config.xml file :)`n" -foregroundcolor green
		$XML = Get-Content "$Script:WorkingDirectory\Config.xml"
		$Pattern = "</DefaultRegion>"
		$Replacement = "</DefaultRegion>`n`n`t<!--Disable the functionality of being able to open all accounts at once. This is for any crazy people who have a lot of accounts and want to prevent accidentally opening all at once.-->`n`t"
		$Replacement += "<DisableOpenAllAccountsOption>False</DisableOpenAllAccountsOption>" #add option to config file if it doesn't exist.
		UpdateXML -Pattern $Pattern -Replacement $Replacement -XML $XML -Pause
	}
	if ($Null -eq $Script:Config.RememberWindowLocations){
		Write-Host "`n Config option 'RememberWindowLocations' missing from config.xml" -foregroundcolor Yellow
		Write-Host " This is due to the config.xml recently being updated." -foregroundcolor Yellow
		Write-Host " This is an optional config option to remember game window locations/sizes." -foregroundcolor Yellow
		Write-Host " Added this missing option into the config.xml file :)`n" -foregroundcolor green
		$XML = Get-Content "$Script:WorkingDirectory\Config.xml"
		$Pattern = "</ConvertPlainTextSecrets>"
		$Replacement = "</ConvertPlainTextSecrets>`n`n`t<!--Make game launch each instance in the same screen location so you don't have to move your game windows around when starting the game.-->`n`t"
		$Replacement += "<RememberWindowLocations>False</RememberWindowLocations>" #add option to config file if it doesn't exist.
		UpdateXML -Pattern $Pattern -Replacement $Replacement -XML $XML -Pause
	}
	if ($Null -eq $Script:Config.DCloneTrackerSource){
		Write-Host "`n Config option 'DCloneTrackerSource' missing from config.xml" -foregroundcolor Yellow
		Write-Host " This is due to the config.xml recently being updated." -foregroundcolor Yellow
		Write-Host " This is a required config option to determine which source should be used" -foregroundcolor Yellow
		Write-Host " for obtaining current DClone status." -foregroundcolor Yellow
		Write-Host " Added this missing option into the config.xml file :)`n" -foregroundcolor green
		$XML = Get-Content "$Script:WorkingDirectory\Config.xml"
		$Pattern = "</TrackAccountUseTime>"
		$Replacement = "</TrackAccountUseTime>`n`n`t<!--Options are d2emu.com, D2runewizard.com and diablo2.io.`n`t"
		$Replacement += "Default and recommended option is d2emu.com as this pulls live data from the game as opposed to crowdsourced data.-->`n`t"
		$Replacement += "<DCloneTrackerSource>d2emu.com</DCloneTrackerSource>" #add option to config file if it doesn't exist.
		UpdateXML -Pattern $Pattern -Replacement $Replacement -XML $XML -Pause
	}
	if ($Null -eq $Script:Config.DCloneAlarmLevel){
		Write-Host "`n Config option 'DCloneAlarmLevel' missing from config.xml" -foregroundcolor Yellow
		Write-Host " This is due to the config.xml recently being updated." -foregroundcolor Yellow
		Write-Host " This field determines if alarms should activate for all DClone status " -foregroundcolor Yellow
		Write-Host " changes or just when DClone is about to walk." -foregroundcolor Yellow
		Write-Host " Added this missing option into the config.xml file :)`n" -foregroundcolor green
		$XML = Get-Content "$Script:WorkingDirectory\Config.xml"
		$Pattern = "</DCloneTrackerSource>"
		$Replacement = "</DCloneTrackerSource>`n`n`t<!--Specify what Statuses you want to be alarmed on.`n`t"
		$Replacement +=	"Enter `"All`" to be alarmed of all status changes`n`t"
		$Replacement +=	"Enter `"Close`" to be only alarmed when status is 4/6, 5/6 or has just walked.`n`t"
		$Replacement +=	"Enter `"Imminent`" to be only alarmed when status is 5/6 or has just walked.`n`t"
		$Replacement +=	"Recommend setting to `"All`"-->`n`t"
		$Replacement +=	"<DCloneAlarmLevel>All</DCloneAlarmLevel>" #add option to config file if it doesn't exist.
		UpdateXML -Pattern $Pattern -Replacement $Replacement -XML $XML -Pause
	}
	if ($Null -eq $Script:Config.DCloneAlarmList){
		Write-Host "`n Config option 'DCloneAlarmList' missing from config.xml" -foregroundcolor Yellow
		Write-Host " This is due to the config.xml recently being updated." -foregroundcolor Yellow
		Write-Host " This is an optional config option to enable both audible and text based" -foregroundcolor Yellow
		Write-Host " alarms for DClone Status changes." -foregroundcolor Yellow
		Write-Host " Added this missing option into the config.xml file :)`n" -foregroundcolor green
		$XML = Get-Content "$Script:WorkingDirectory\Config.xml"
		$Pattern = "</DCloneTrackerSource>"
		$Replacement = "</DCloneTrackerSource>`n`n`t<!--Allow you to have the script audibly warn you of upcoming dclone walks.`n`t"
		$Replacement +=	"Specify as many of the following options as you like: SCL-NA, SCL-EU, SCL-KR, SC-NA, SC-EU, SC-KR, HCL-NA, HCL-EU, HCL-KR, HC-NA, HC-EU, HC-KR`n`t"
		$Replacement +=	"EG if you want to be notified for all Softcore ladder walks on all regions, enter <DCloneAlarmList>SCL-NA, SCL-EU, SCL-KR</DCloneAlarmList>`n`t"
		$Replacement +=	"If left blank, this feature is disabled. Default is blank as this may be annoying for some people.-->`n`t"
		$Replacement +=	"<DCloneAlarmList></DCloneAlarmList>" #add option to config file if it doesn't exist.
		UpdateXML -Pattern $Pattern -Replacement $Replacement -XML $XML -Pause
	}
	if ($Null -ne $Script:Config.DCloneAlarmList -and $Script:Config.DCloneAlarmList -ne ""){#validate data to prevent errors from typos
		if ($Script:Config.UseChinaRegion -ne $True){
			$pattern = "^(HC|SC)(L?)-(NA|EU|KR)(-ROTW)?$" #set pattern: must start with HC or SC, optionally has L after it, must end in -NA -EU or -KR
		}
		Else {
			$pattern = "^(HC|SC)(L?)-(CN)(-ROTW)?$" #set pattern: must start with HC or SC, optionally has L after it, must end in -NA -EU or -KR
		}
		ForEach ($Alarm in $Script:Config.DCloneAlarmList.split(",").trim()){
			if ($Alarm -notmatch $pattern){
				Write-Host "`n $Alarm is not a valid Alarm entry."  -foregroundcolor Red
				Write-Host " See valid options in Config.xml`n"  -foregroundcolor Red
				PressTheAnyKeyToExit
			}
		}
	}
	if ($Null -ne $Script:Config.DCloneAlarmVoice){
		$XML = Get-Content "$Script:WorkingDirectory\Config.xml"
		$Pattern = "DCloneAlarmVoice"
		$Replacement = "AlarmVoice"
		UpdateXML -Pattern $Pattern -Replacement $Replacement -XML $XML
		ImportXML -NoOutput
	}
	if ($Null -ne $Script:Config.DCloneAlarmVolume){
		$XML = Get-Content "$Script:WorkingDirectory\Config.xml"
		$Pattern = "DCloneAlarmVolume"
		$Replacement = "AlarmVolume"
		UpdateXML -Pattern $Pattern -Replacement $Replacement -XML $XML
		ImportXML -NoOutput
	}
	if ($Null -eq $Script:Config.AlarmVoice){
		Write-Host "`n Config option 'AlarmVoice' missing from config.xml" -foregroundcolor Yellow
		Write-Host " This is due to the config.xml recently being updated." -foregroundcolor Yellow
		Write-Host " This config allows you to choose between a Woman or Man's robot voice." -foregroundcolor Yellow
		Write-Host " Added this missing option into the config.xml file :)`n" -foregroundcolor green
		$XML = Get-Content "$Script:WorkingDirectory\Config.xml"
		$Pattern = "</DCloneAlarmLevel>"
		$Replacement = "</DCloneAlarmLevel>`n`n`t<!--Specify what voice you want. Choose 'Paladin' for David (Man) or 'Amazon' for Zira (Woman).-->`n`t"
		$Replacement +=	"<AlarmVoice>Paladin</AlarmVoice>" #add option to config file if it doesn't exist.
		UpdateXML -Pattern $Pattern -Replacement $Replacement -XML $XML -Pause
	}
	if ($Null -eq $Script:Config.AlarmVolume){
		Write-Host "`n Config option 'AlarmVolume' missing from config.xml" -foregroundcolor Yellow
		Write-Host " This is due to the config.xml recently being updated." -foregroundcolor Yellow
		Write-Host " Added this missing option into the config.xml file :)`n" -foregroundcolor green
		$XML = Get-Content "$Script:WorkingDirectory\Config.xml"
		$Pattern = "</AlarmVoice>"
		$Replacement = "</AlarmVoice>`n`t<!--Specify how loud notifications can be. Range from 1 to 100.-->`n`t"
		$Replacement +=	"<AlarmVolume>69</AlarmVolume>" #add option to config file if it doesn't exist.
		UpdateXML -Pattern $Pattern -Replacement $Replacement -XML $XML -Pause
	}
	if ($Null -eq $Script:Config.TerrorZoneAlertAreas){
		Write-Host "`n Config option 'TerrorZoneAlertAreas' missing from config.xml" -foregroundcolor Yellow
		Write-Host " This is due to the config.xml recently being updated." -foregroundcolor Yellow
		Write-Host " This config allows you to be notified for upcoming TZ's (eg WSK, Tombs)." -foregroundcolor Yellow
		Write-Host " Added this missing option into the config.xml file :)`n" -foregroundcolor green
		$XML = Get-Content "$Script:WorkingDirectory\Config.xml"
		$Pattern = "</AlarmVolume>"
		$Replacement =	"</AlarmVolume>`n`n`t<!--This allows you to be alerted for upcoming Terror Zones.`n`t"
		$Replacement +=	"Alerting will occur when TZ data is available (10min after the hour) and when the TZ becomes active.`n`t"
		$Replacement +=	"Set the level ID's separated by commas for levels you want to be alerted on.`n`t"
		$Replacement +=	"Level ID's can be seen here: https://github.com/shupershuff/Diablo2RLoader/blob/main/levels.txt`n`t"
		$Replacement +=	"For example, for Catacombs, Tombs, Chaos and WSK this would be: '34,66,108,131'.-->`n`t"
		$Replacement +=	"<TerrorZoneAlertAreas></TerrorZoneAlertAreas>" #add option to config file if it doesn't exist.
		UpdateXML -Pattern $Pattern -Replacement $Replacement -XML $XML -Pause
	}
	if ($Null -eq $Script:Config.ForceAuthTokenForRegion){
		Write-Host "`n Config option 'ForceAuthTokenForRegion' missing from config.xml" -foregroundcolor Yellow
		Write-Host " This is due to the config.xml recently being updated." -foregroundcolor Yellow
		Write-Host " This config allows you to force AuthToken based authentication for any." -foregroundcolor Yellow
		Write-Host " regions specified in config. Useful for when Blizzard have bricked." -foregroundcolor Yellow
		Write-Host " their authentication servers on a particular region." -foregroundcolor Yellow
		Write-Host " Added this missing option into the config.xml file :)`n" -foregroundcolor green
		$XML = Get-Content "$Script:WorkingDirectory\Config.xml"
		$Pattern = "</TerrorZoneAlertAreas>"
		$Replacement = "</TerrorZoneAlertAreas>`n`t<!--Select regions which should be forced to use Tokens over parameters (overrides config in accounts.csv).`n`t"
		$Replacement += "Only use this if connecting via Parameters is down for a particular region and you don't want to have to manually toggle.`n`t"
		$Replacement +=	"Valid options are NA, EU and KR. Default is blank.-->`n`t"
		$Replacement +=	"<ForceAuthTokenForRegion></ForceAuthTokenForRegion>" #add option to config file if it doesn't exist.
		UpdateXML -Pattern $Pattern -Replacement $Replacement -XML $XML -Pause
	}
	#if ($Null -eq $Script:Config.UseChinaRegion){
	#	Write-Verbose "`n Config option 'UseChinaRegion' missing from config.xml" #verbose as no point notifying folk for a feature so few people will use.
	#	Write-Verbose " This is due to the config.xml recently being updated."
	#	Write-Verbose " This config uses China region instead of NA, KR and EU."
	#	Write-Verbose " Added this missing option into the config.xml file :)`n"
	#	$XML = Get-Content "$Script:WorkingDirectory\Config.xml"
	#	$Pattern = "</TerrorZoneAlertAreas>"
	#	$Replacement =	"</TerrorZoneAlertAreas>`n`n`t<!--If you want to use this for China region instead, set this to True.-->`n`t"
	#	$Replacement +=	"<UseChinaRegion>False</UseChinaRegion>" #add option to config file if it doesn't exist.
	#	UpdateXML -Pattern $Pattern -Replacement $Replacement -XML $XML
	#}
	$XML = Get-Content "$Script:WorkingDirectory\Config.xml" -raw
	$Pattern = "d2rapi.fly.dev"
	if ($Null -ne (Select-Xml -Content $xml -XPath "//*[contains(.,'$pattern')]")){
		Write-Host "`n Replaced 'd2rapi.fly.dev' in config with 'd2emu.com'." -foregroundcolor Yellow
		$Replacement = "d2emu.com"
		UpdateXML -Pattern $Pattern -Replacement $Replacement -XML $XML -Pause
	}
	ImportXML
	if ($Script:Config.DCloneAlarmList -ne ""){
		$ValidVoiceOptions =
			"Amazon",
			"Paladin",
			"Woman",
			"Man",
			"Wench",
			"Bloke"
		if ($Script:Config.AlarmVoice -notin $ValidVoiceOptions){
			Write-Host "`n Error: AlarmVoice in config has an invalid option set." -Foregroundcolor red
			Write-Host " Open config.xml and set this to either Paladin or Amazon.`n" -Foregroundcolor red
			PressTheAnyKeyToExit
		}
		SetDCloneAlarmLevels
	}
	$Script:Config = ([xml](Get-Content "$Script:WorkingDirectory\Config.xml" -ErrorAction Stop)).D2loaderconfig #import config.xml again for any updates made by the above.
	#Check if there's any missing config.xml options, if so user has an out of date config file.
	$AvailableConfigs = #add to this if adding features.
	"GamePath",
	"DefaultRegion",
	"ShortcutCustomIconPath",
	"DCloneTrackerSource",
	"DCloneAlarmList",
	"DCloneAlarmLevel",
	"AlarmVoice",
	"AlarmVolume",
	"ForceAuthTokenForRegion",
	"IdleLimitForAccountUseTime",
	"TerrorZoneAlertAreas"
	$BooleanConfigs =
	"ConvertPlainTextSecrets",
	"ManualSettingSwitcherEnabled",
	"RememberWindowLocations",
	"DisableOpenAllAccountsOption",
	"CreateDesktopShortcut",
	"ForceWindowedMode",
	"SettingSwitcherEnabled",
	"TrackAccountUseTime",
	"DisableIconStacking",
	"ShowCloseOptionInMenu"
	#"UseChinaRegion"
	$AvailableConfigs = $AvailableConfigs + $BooleanConfigs
	$ConfigXMLlist = ($Config | Get-Member | Where-Object {$_.membertype -eq "Property" -and $_.name -notlike "#comment"}).name
	ForEach ($Option in $AvailableConfigs){#Config validation
		if ($Option -notin $ConfigXMLlist -and $Option -ne "UseChinaRegion"){
			Write-Host " Config.xml file is missing a config option for $Option." -foregroundcolor yellow
			Start-Sleep 1
			PressTheAnyKey
			$ConfigOptionMissing = $True
		}
	}
	if ($ConfigOptionMissing -eq $True){
		FormatFunction -text "`nIf unsure how to resolve, try grabbing the latest version of config.xml from GitHub" -IsWarning -indents 1
		Write-Host " $X[38;2;69;155;245;4mhttps://github.com/shupershuff/Diablo2RLoader/blob/main/config.xml$X[0m`n"
		PressTheAnyKey
	}
	if ($Config.GamePath -match "`""){#Remove any quotes from path in case someone ballses this up.
		$Script:GamePath = $Config.GamePath.replace("`"","")
	}
	else {
		$Script:GamePath = $Config.GamePath
	}
	ForEach ($ConfigCheck in $BooleanConfigs){#validate all configs that require "True" or "False" as the setting.
		if ($Null -ne $Config.$ConfigCheck -and ($Config.$ConfigCheck -ne $true -and $Config.$ConfigCheck -ne $false)){#if config is invalid
			Write-Host " Config option '$ConfigCheck' is invalid." -foregroundcolor Red
			Write-Host " Ensure this is set to either True or False.`n" -foregroundcolor Red
			PressTheAnyKeyToExit
		}
	}
	if ($Config.ShortcutCustomIconPath -match "`""){#Remove any quotes from path in case someone ballses this up.
		$ShortcutCustomIconPath = $Config.ShortcutCustomIconPath.replace("`"","")
	}
	else {
		$ShortcutCustomIconPath = $Config.ShortcutCustomIconPath
	}
	if ($Config.TerrorZoneAlertAreas -ne ""){
		$Areas = $Config.TerrorZoneAlertAreas -split ',' | ForEach-Object {$_.Trim()} #split levels
		foreach ($Area in $Areas) {
			$IsInteger = [int]::TryParse($Area, [ref]0) #iterate through each of the Areas to ensure it's a number and not someone typing in a level name
			if (!$IsInteger -and $Area -ne "" -or $Area -notin 1..137) {
				FormatFunction -Text "`nYou've made an error in the config file for TerrorZoneAlertAreas." -IsError
				FormatFunction -Text "One of the values '$Area' is not a valid level ID." -IsError
				if ($Area -notin 1..137){
					FormatFunction -Text "Valid level ID's are between 1 and 137." -IsError
				}
				if (!$IsInteger){
					FormatFunction -Text "TerrorZoneAlertAreas config cannot be a name, it needs to be the number of the level ID." -IsError
				}
				FormatFunction -Text "`nLevel ID's can be seen here: https://github.com/shupershuff/Diablo2RLoader/blob/main/levels.txt." -IsError
				FormatFunction -Text "`nPlease adjust config.xml so that the TerrorZoneAlertAreas are valid.`n" -IsError
				PressTheAnyKeyToExit
			}
		}
		$Script:EnableBatchFeature = $True
		$Script:BatchOption = "b" #specified here as well as in the ChooseAccounts section so that this works when being passed as a parameter
	}
	#Check Windows Game Path for D2r.exe is accurate.
	if ((Test-Path -Path "$GamePath\d2r.exe") -ne $True){
		Write-Host " Gamepath is incorrect. Looks like you have a custom D2r install location!" -foregroundcolor red
		Write-Host " Edit the GamePath variable in the config.xml file.`n" -foregroundcolor red
		PressTheAnyKeyToExit
	}
	#Check IdleLimitForAccountUseTime is an integer
	if ($Config.IdleLimitForAccountUseTime -ne ""){#if this config option isn't blank and isn't number, have a big moan about it.
		try {
			$Script:IdleLimitForAccountUseTime = [int]$Config.IdleLimitForAccountUseTime  
		}
		Catch {
			Write-Host "`n Config Option 'IdleLimitForAccountUseTime' is invalid." -foregroundcolor red
			Write-Host " This should be a number." -foregroundcolor red
			Write-Host " Edit this variable to a number in the config.xml file.`n" -foregroundcolor red
			PressTheAnyKeyToExit
		}
		if ($Script:IdleLimitForAccountUseTime -eq 0){
			Write-Host "`n Config Option 'IdleLimitForAccountUseTime' is invalid." -foregroundcolor red
			Write-Host " This needs to be a number larger than 0." -foregroundcolor red
			Write-Host " Edit this variable to a number in the config.xml file.`n" -foregroundcolor red
			PressTheAnyKeyToExit
		}
	}
	# Create Shortcut
	if ($Config.CreateDesktopShortcut -eq $True){
		$DesktopPath = [Environment]::GetFolderPath("Desktop")
		$Targetfile = "-ExecutionPolicy Bypass -File `"$WorkingDirectory\$ScriptFileName`""
		$ShortcutFile = "$DesktopPath\D2R Loader.lnk"
		$WScriptShell = New-Object -ComObject WScript.Shell
		$Shortcut = $WScriptShell.CreateShortcut($ShortcutFile)
		$Shortcut.TargetPath = "powershell.exe"
		$Shortcut.Arguments = $TargetFile
		if ($ShortcutCustomIconPath.length -eq 0){
			$Shortcut.IconLocation = "$Script:GamePath\D2R.exe"
		}
		Else {
			$Shortcut.IconLocation = $ShortcutCustomIconPath
		}
		$Shortcut.Save()
	}
	#Check if SetTextv2.exe exists, if not, compile from SetTextv2.bas. SetTextv2.exe is what's used to rename the windows.
	if ((Test-Path -Path ($workingdirectory + '\SetText\SetTextv2.exe')) -ne $True){ #-PathType Leaf check windows renamer is configured.
		Write-Host "`n First Time run!`n" -foregroundcolor Yellow
		Write-Host " SetTextv2.exe not in .\SetText\ folder and needs to be built."
		if ((Test-Path -Path "C:\Windows\Microsoft.NET\Framework\v4.0.30319\vbc.exe") -ne $True){#check that .net4.0 is actually installed or compile will fail.
			Write-Host " .Net v4.0 not installed. This is required to compile the Window Renamer for Diablo." -foregroundcolor red
			Write-Host " Download and install it from Microsoft here:" -foregroundcolor red
			Write-Host " https://dotnet.microsoft.com/en-us/download/dotnet-framework/net40" #actual download link https://dotnet.microsoft.com/en-us/download/dotnet-framework/thank-you/net40-web-installer
			PressTheAnyKeyToExit
		}
		Write-Host " Compiling SetTextv2.exe from SetTextv2.bas..."
		& "C:\Windows\Microsoft.NET\Framework\v4.0.30319\vbc.exe" -target:winexe -out:"`"$WorkingDirectory\SetText\SetTextv2.exe`"" "`"$WorkingDirectory\SetText\SetTextv2.bas`"" | out-null #/verbose  #actually compile the bastard
		if ((Test-Path -Path ($workingdirectory + '\SetText\SetTextv2.exe')) -ne $True){#if it fails for some reason and settextv2.exe still doesn't exist.
			Write-Host " SetTextv2 Could not be built for some reason :/"
			PressTheAnyKeyToExit
		}
		Write-Host " Successfully built SetTextv2.exe for Diablo 2 Launcher script :)" -foregroundcolor green
		Start-Sleep -milliseconds 4000 #a small delay so the first time run outputs can briefly be seen
	}
	#Check Handle64.exe downloaded and placed into correct folder
	$Script:WorkingDirectory = ((Get-ChildItem -Path $PSScriptRoot)[0].fullname).substring(0,((Get-ChildItem -Path $PSScriptRoot)[0].fullname).lastindexof('\'))
	if ((Test-Path -Path ($workingdirectory + '\Handle\Handle64.exe')) -ne $True){ #-PathType Leaf check windows renamer is configured.
		try {
			Write-Host "`n Handle64.exe not in .\Handle\ folder. Downloading now..." -foregroundcolor Yellow
			try {
				New-Item -ItemType Directory -Path ($Script:WorkingDirectory + "\Handle\ExtractTemp\") -ErrorAction stop | Out-Null #create temporary folder to download zip to and extract
			}
			Catch {#if folder already exists for whatever reason.
				Remove-Item -Path ($Script:WorkingDirectory + "\Handle\ExtractTemp\") -Recurse -Force
				New-Item -ItemType Directory -Path ($Script:WorkingDirectory + "\Handle\ExtractTemp\") | Out-Null #create temporary folder to download zip to and extract
			}
			$ZipURL = "https://download.sysinternals.com/files/Handle.zip" #get zip download URL
			$ZipPath = ($WorkingDirectory + "\Handle\ExtractTemp\")
			Invoke-WebRequest -Uri $ZipURL -UseBasicParsing -OutFile ($ZipPath + "\Handle.zip")
			Expand-Archive -Path ($ZipPath + "\Handle.zip") -DestinationPath $ZipPath -Force
			Copy-Item -Path ($ZipPath + "Handle64.exe") -Destination ($Script:WorkingDirectory + "\Handle\")
			Remove-Item -Path ($Script:WorkingDirectory + "\Handle\ExtractTemp\") -Recurse -Force #delete update temporary folder
			Write-Host " Successfully downloaded Handle64.exe :)" -ForeGroundcolor Green
			Start-Sleep -milliseconds 2024
		}
		Catch {
			Write-Host " Handle.zip couldn't be downloaded." -foregroundcolor red
			FormatFunction -text "It's possible the download link changed. Try checking the Microsoft page or SysInternals.com site for a download link and ensure that handle64.exe is placed in the .\Handle\ folder." -IsError
			Write-Host "`n $X[38;2;69;155;245;4mhttps://learn.microsoft.com/sysinternals/downloads/handle$X[0m"
			Write-Host " $X[38;2;69;155;245;4mhttps://download.sysinternals.com/files/Handle.zip$X[0m`n"
			PressTheAnyKeyToExit
		}
	}
	#Set Region Array
	$Script:ServerOptions = @(
		[pscustomobject]@{Option='1';region='NA';region_server='us.actual.battle.net'} #Americas
		[pscustomobject]@{Option='2';region='EU';region_server='eu.actual.battle.net'} #Europe
		[pscustomobject]@{Option='3';region='Asia';region_server='kr.actual.battle.net'} #Asia
	)
}
Function ValidateTokenInput { #For Authentication
	param (
		[bool] $ManuallyEntered,
		[string] $TokenInput,
		[string] $AccountLabel
	)
	do {
		$extractedInfo = $null
		if ($ManuallyEntered){
			$TokenInput = Read-host (" Enter your token URL or enter the token for account '" + $AccountLabel + "'")
		}
		$pattern = "(?<=\?ST=|&ST=|^|http://localhost:0/\?ST=)([^&]+)"
		if ($tokeninput -match $pattern){
			$extractedInfo = ($matches[1]).replace("http://localhost:0/?ST=","")
			return $extractedInfo
		}
		Else {
			Write-Host " Token details are incorrect." -foregroundcolor red
			if (!$ManuallyEntered){
				Write-Host " Please review the setup instructions.`n" -foregroundcolor red
				PressTheAnyKeyToExit
			}
			Else {
				Write-Host " Please enter the full URL." -foregroundcolor red
			}
		}
	}
	until ($null -ne $extractedInfo)
}
Function ImportCSV { #Import Account CSV
	if (-not ($Script:ParamsUsed -eq $True -and $Null -ne $Script:AccountUsername -and $Null -ne $Script:PW)) {#Do this if no parameters are used or parameters that are used don't depend on info in accounts.csv
		do {
			try {
				write-host " Importing accounts.csv..."
				$Script:AccountOptionsCSV = import-csv "$Script:WorkingDirectory\Accounts.csv" #import all accounts from csv
			}
			Catch {
				FormatFunction -text "`nAccounts.csv does not exist. Make sure you create this and populate with accounts first." -IsError
				PressTheAnyKeyToExit
			}
			if ($Null -ne $Script:AccountOptionsCSV){ #if accounts.csv isn't empty
				#check Accounts.csv has been updated and doesn't contain the example account.
				if ($Script:AccountOptionsCSV -match "yourbnetemailaddress"){
					Write-Host "`n You haven't setup accounts.csv with your accounts." -foregroundcolor red
					Write-Host " Add your account details to the CSV file and run the script again :)`n" -foregroundcolor red
					PressTheAnyKeyToExit
				}
				if ($Null -ne ($AccountOptionsCSV | Where-Object {$_.id -eq ""})){
					if ($Null -ne ($AccountOptionsCSV | Where-Object {$_.id -eq "" -and $_.Acct -eq ""})){
						$Script:AccountOptionsCSV = $Script:AccountOptionsCSV | Where-Object {$_.id -ne "" -or $_.Acct -ne ""} # To account for user error, remove any empty rows from accounts.csv
						$Script:AccountOptionsCSV | Export-Csv -Path "$Script:WorkingDirectory\Accounts.csv" -NoTypeInformation
					}
					if ($Null -ne ($AccountOptionsCSV | Where-Object {$_.id -eq "" -and $_.Acct -ne ""})){
						formatfunction -IsError -text "Accounts.csv is misconfigured: One or more of the accounts doesn't have an ID assigned (it was left blank)."
						formatfunction -IsError -text "Fix this by editing the accounts.csv file and adding the missing ID number. Once done, rerun the script.`n"
						Start-Sleep -milliseconds 1234
						PressTheAnyKeyToExit
					}
				}
				ForEach ($Account in $AccountOptionsCSV){
					if ($Account.accountlabel -eq ""){ # if user doesn't specify a friendly name, use id. Prevents display issues later on.
						$Account.accountlabel = ("Account " + $Account.id)
						$Script:AccountOptionsCSV | Export-Csv -Path "$Script:WorkingDirectory\Accounts.csv" -NoTypeInformation
					}
					if ($Account.Acct.length -gt 1 -and $Account.Acct -notmatch "@" -and $Entry.AuthenticationMethod -ne "Token"){
						FormatFunction -Text "`nAccount $($Account.id) '$($Account.accountlabel)' has an invalid email address: '$($Account.Acct)'" -IsError
						FormatFunction -Text "Please adjust Accounts.csv so that the 'Acct column' is a valid email address.`n" -IsError
						PressTheAnyKeyToExit
					}
				}
				$DuplicateIDs = $AccountOptionsCSV | Where-Object {$_.id -ne ""} | Group-Object -Property ID | Where-Object { $_.Count -gt 1 }
				if ($duplicateIDs.Count -gt 0){
					$duplicateIDs = ($DuplicateIDs.name | out-string).replace("`r`n",", ").trim(", ") #outputs more meaningful error.
					Write-Host "`n Accounts.csv has duplicate IDs: $duplicateIDs" -foregroundcolor red
					FormatFunction -Text "Please adjust Accounts.csv so that the ID numbers against each account are unique.`n" -IsError
					PressTheAnyKeyToExit
				}
				if (-not ($Script:AccountOptionsCSV | Get-Member -Name "Batches" -MemberType NoteProperty -ErrorAction SilentlyContinue)){#For update 1.7.0. If batch column doesn't exist, add it
					# Column does not exist, so add it to the CSV data
					$Script:AccountOptionsCSV | ForEach-Object {
						$_ | Add-Member -NotePropertyName "Batches" -NotePropertyValue $Null
					}
					# Export the updated CSV data back to the file
					$Script:AccountOptionsCSV | Export-Csv -Path "$Script:WorkingDirectory\Accounts.csv" -NoTypeInformation
				}
				$BatchesInCSV = ($AccountOptionsCSV | group-object batches | where-object {$_.name -ne ""}).count
				if ($BatchesInCSV -ge 1 -or $Null -ne $Batch){
					foreach ($Entry in $Script:AccountOptionsCSV) { #validate that batches are numbers.
						$Batches = $Entry.batches -split ',' | ForEach-Object {$_.Trim()} #split batches if there are multiple
						foreach ($Batch in $Batches) {
							$IsInteger = [int]::TryParse($Batch, [ref]0) #iterate through each of the batches to ensure it's a number and not some wonky typo
							if (!$IsInteger -and $Batch -ne "") {
								FormatFunction -Text "`nAccount $($Entry.id) has an invalid batch value set: '$Batch'" -IsError
								FormatFunction -Text "Please adjust Accounts.csv so that the batch value(s) are numbers.`n" -IsError
								PressTheAnyKeyToExit
							}
						}
					}
					$Script:EnableBatchFeature = $True
					$Script:BatchOption = "b" #specified here as well as in the ChooseAccounts section so that this works when being passed as a parameter
				}
				if (-not ($Script:AccountOptionsCSV | Get-Member -Name "Token" -MemberType NoteProperty -ErrorAction SilentlyContinue) -or -not ($Script:AccountOptionsCSV | Get-Member -Name "AuthenticationMethod" -MemberType NoteProperty -ErrorAction SilentlyContinue)){#For update 1.10.0. If token columns don't exist, add them. As of 1.12.0 onwards, TokenSecureString is no longer used.
					# Column does not exist, so add it to the CSV data
					if (-not ($Script:AccountOptionsCSV | Get-Member -Name "Token" -MemberType NoteProperty -ErrorAction SilentlyContinue)){
						$Script:AccountOptionsCSV | ForEach-Object {$_ | Add-Member -NotePropertyName "Token" -NotePropertyValue $Null}
					}
					if (-not ($Script:AccountOptionsCSV | Get-Member -Name "AuthenticationMethod" -MemberType NoteProperty -ErrorAction SilentlyContinue)){
						$Script:AccountOptionsCSV | ForEach-Object {$_ | Add-Member -NotePropertyName "AuthenticationMethod" -NotePropertyValue "Parameter"}
					}
					# Export the updated CSV data back to the file
					$Script:AccountOptionsCSV | Export-Csv -Path "$Script:WorkingDirectory\Accounts.csv" -NoTypeInformation
				}
				$OldColumnsToRemove = @("PWIsSecureString","TokenIsSecureString") #Old Account.csv columns that are now unused.
				$ExistingColumns = $Script:AccountOptionsCSV | Select-Object -First 1 | Get-Member -MemberType Properties | Select-Object -ExpandProperty Name
				$ColumnsRemoved = $ExistingColumns | Where-Object { $OldColumnsToRemove -contains $_ }
				$DesiredColumnOrder = @("ID","Acct","AccountLabel","Batches","TimeActive","CustomLaunchArguments","AuthenticationMethod","PW","Token","WindowXCoordinates","WindowYCoordinates","WindowHeight","WindowWidth") # Update with your desired column order
				if ($ColumnsRemoved.Count -gt 0){
					$Script:AccountOptionsCSV = $Script:AccountOptionsCSV | Select-Object -Property $DesiredColumnOrder
					$Script:AccountOptionsCSV | Export-Csv -Path "$Script:WorkingDirectory\Accounts.csv" -NoTypeInformation #rewrite to accounts.csv to remove unused columns.
					FormatFunction -text ("Unused Columns were removed from Accounts.csv: " + ($columnsRemoved -join ", ") + ".`n") -IsWarning
					start-sleep -milliseconds 3000
				}
				else {
					Write-Verbose "No columns were removed as they do not exist in the CSV."
				}
				if (-not ($Script:AccountOptionsCSV | Get-Member -Name "CustomLaunchArguments" -MemberType NoteProperty -ErrorAction SilentlyContinue)){#For update 1.8.0. If CustomLaunchArguments column doesn't exist, add it
					# Column does not exist, so add it to the CSV data
					$Script:AccountOptionsCSV | ForEach-Object {
						$_ | Add-Member -NotePropertyName "CustomLaunchArguments" -NotePropertyValue $Script:OriginalCommandLineArguments
					}
					# Export the updated CSV data back to the file
					$Script:AccountOptionsCSV | Export-Csv -Path "$Script:WorkingDirectory\Accounts.csv" -NoTypeInformation
					Write-Host " Added CustomLaunchArguments column to accounts.csv.`n" -foregroundcolor green
					Start-Sleep -milliseconds 1200
					PressTheAnyKey
				}
				if (-not ($Script:AccountOptionsCSV | Get-Member -Name "TimeActive" -MemberType NoteProperty -ErrorAction SilentlyContinue)){#For update 1.8.0. If TimeActive column doesn't exist, add it
					# Column does not exist, so add it to the CSV data
					$Script:AccountOptionsCSV | ForEach-Object {
						$_ | Add-Member -NotePropertyName "TimeActive" -NotePropertyValue $Null
					}
					# Export the updated CSV data back to the file
					$Script:AccountOptionsCSV | Export-Csv -Path "$Script:WorkingDirectory\Accounts.csv" -NoTypeInformation
					Write-Host " Added TimeActive column to accounts.csv." -foregroundcolor Green
					PressTheAnyKey
				}
				#Secure any plain text tokens. Ask for tokens on accounts that don't have any if Config is configured to use Token Authentication.
				$NewCSV = ForEach ($Entry in $Script:AccountOptionsCSV){
					if 	($Entry.AuthenticationMethod -eq ""){
						$Entry.AuthenticationMethod = "Parameter"
						$UpdateAccountsCSV = $True
					}
					if ($Entry.AuthenticationMethod -ne "Token" -and $Entry.AuthenticationMethod -ne "Parameter"){
						Write-Host ("`n Error: AuthenticationMethod in accounts.csv for " + $Entry.AccountLabel + " is invalid.") -Foregroundcolor red
						Write-Host " Open accounts.csv and set this to either 'Parameter' or 'Token'.`n" -Foregroundcolor red
						PressTheAnyKeyToExit
					}
					if ($Entry.Token.length -ge 200){#if nothing needs converting, make sure existing entries still make it into the updated CSV
						$UpdateEntry = $True
					}
					#if ($Entry.Token.length -eq 0){#If no token is populated, lets automatically get it so user doesn't have too!
						#Implement in the future if possible. Can't see a way to do this currently without using python, an external .exe or sending keypresses which this script will never do.
					#}
					if ($Entry.Token.length -lt 200 -and $Entry.Token.length -ne 0 -and $Config.ConvertPlainTextSecrets -eq $True){#if accounts.csv has a Token and it's less than 200 chars long, it hasn't been secured yet.
						$ValidatedToken = ValidateTokenInput -TokenInput $Entry.Token
						$Entry.Token = ConvertTo-SecureString -String $ValidatedToken -AsPlainText -Force
						$Entry.Token = $Entry.Token | ConvertFrom-SecureString
						Write-Host (" Secured Token for " + $Entry.AccountLabel) -foregroundcolor green
						Start-Sleep -milliseconds 100
						$UpdateEntry = $True
						$TokensUpdated = $true
					}
					if ($Entry.Token.length -eq 0 -and $Entry.AuthenticationMethod -eq "Token"){#if csv has account details but Token field has been left blank
						Write-Host ("`n The account " + $Entry.AccountLabel + " doesn't yet have a Token defined.") -foregroundcolor yellow
						Write-Host " See the readme on Github for how to obtain Auth token.`n" -foregroundcolor yellow
						Write-Host " https://github.com/shupershuff/Diablo2RLoader/#3-setup-your-accounts`n" -foregroundcolor cyan
						while ($Entry.Token.length -eq 0){#prevent empty entries as this will cause errors.
							$Entry.Token = ValidateTokenInput -ManuallyEntered $True -AccountLabel $Entry.AccountLabel
						}
						if ($Config.ConvertPlainTextSecrets -eq $True){
							$Entry.Token = ConvertTo-SecureString -String $Entry.Token -AsPlainText -Force
							$Entry.Token = $Entry.Token | ConvertFrom-SecureString
							Write-Host (" Secured Token for " + $Entry.AccountLabel) -foregroundcolor green
							Start-Sleep -milliseconds 100
						}
						$UpdateEntry = $True
						$TokensUpdated = $true
					}
					if ($Entry.Token.length -ge 200 -or ($Config.ConvertPlainTextSecrets -eq $False -and $Entry.Token.length -gt 10)){
						$Script:TokensConfigured = $True
					}
					#Check CSV for Plain text Passwords, convert to encryptedstrings and replace values in CSV
					if ($Entry.PW.length -ge 300 -and $Entry.Acct.length -ge 1 -and $Config.ConvertPlainTextSecrets -eq $True){#if nothing needs converting, make sure existing entries still make it into the updated CSV
						$UpdateEntry = $True
					}
					ElseIf ($Entry.PW.length -ge 1 -and $Entry.Acct.length -ge 1 -and $Config.ConvertPlainTextSecrets -eq $False){#if nothing needs converting, make sure existing entries still make it into the updated CSV
						$UpdateEntry = $True
					}
					if ($Entry.PW.length -lt 300 -and $Entry.PW.length -ne 0 -and $Config.ConvertPlainTextSecrets -ne $False){#if accounts.csv has a password and it isn't over 300characters, this means it's not converted yet. As such, convert PW to secure string and update CSV.
						$Entry.PW = ConvertTo-SecureString -String $Entry.PW -AsPlainText -Force
						$Entry.PW = $Entry.PW | ConvertFrom-SecureString
						Write-Host (" Secured Password for " + $Entry.AccountLabel) -foregroundcolor green
						Start-Sleep -milliseconds 100
						$UpdateEntry = $True
						$PWsUpdated = $true
					}
					if ($Entry.Acct.length -eq 0 -and $Entry.AuthenticationMethod -ne "Token"){#if csv has account details and uses parameter Auth but email sign in field has been left blank
						Write-Host ("`n The account " + $Entry.AccountLabel + " doesn't yet have an email address defined.`n") -foregroundcolor yellow
						while ($Entry.Acct.length -eq 0 -or $Entry.Acct -notmatch "@"){#prevent empty entries as this will cause errors.
							$Entry.Acct = read-host " Enter the Battle.net email address for"$Entry.AccountLabel
							if ($Entry.Acct -notmatch "@"){
									FormatFunction "Please enter a valid email address.`n" -IsError
							}
						}
						Write-Host (" Saved Email Address for " + $Entry.AccountLabel) -foregroundcolor green
						Start-Sleep -milliseconds 100
						$UpdateEntry = $True
						$PWsUpdated = $true
					}
					if ($Entry.PW.length -eq 0 -and $Entry.AuthenticationMethod -ne "Token"){#if csv has account details and uses parameter Auth but password field has been left blank
						Write-Host ("`n The account " + $Entry.AccountLabel + " doesn't yet have a password defined.`n") -foregroundcolor yellow
						if ($Config.ConvertPlainTextSecrets -eq $True){
							while ($Entry.PW.length -eq 0){#prevent empty entries as this will cause errors.
								$Entry.PW = read-host -AsSecureString " Enter the Battle.net password for"$Entry.AccountLabel
							}
							$Entry.PW = $Entry.PW | ConvertFrom-SecureString
							Write-Host (" Secured Password for " + $Entry.AccountLabel) -foregroundcolor green
						}
						Else { #if passwords aren't to be secured
							while ($Entry.PW.length -eq 0){#prevent empty entries as this will cause errors.
								$Entry.PW = read-host " Enter the Battle.net password for"$Entry.AccountLabel
							}
							Write-Host (" Saved Password for " + $Entry.AccountLabel) -foregroundcolor green
						}
						Start-Sleep -milliseconds 100
						$UpdateEntry = $True
						$PWsUpdated = $true
					}
					if ($UpdateEntry -eq $True){
						$Entry
					}
				}
				if ($PWsUpdated -eq $true -or $TokensUpdated -eq $True -or $UpdateAccountsCSV -eq $True){#if CSV needs to be updated
					Try {
						$NewCSV | Export-CSV "$Script:WorkingDirectory\Accounts.csv" -NoTypeInformation #update CSV file
						if ($Config.ConvertPlainTextSecrets -eq $True){$SavedOrSecured = "Secured"}Else{$SavedOrSecured = "Saved"}
						if ($TokensUpdated -eq $True){
							Write-Host " Accounts.csv updated: Tokens have been $SavedOrSecured." -foregroundcolor green
						}
						if ($PWsUpdated -eq $True){
							Write-Host " Accounts.csv updated: Passwords have been $SavedOrSecured." -foregroundcolor green
						}
						Start-Sleep -milliseconds 3000
					}
					Catch {
						Write-Host "`n Couldn't update Accounts.csv, probably because the file is open & locked." -foregroundcolor red
						Write-Host " Please close accounts.csv and run the script again!" -foregroundcolor red
						Write-Host "`n If Accounts.csv isn't open, then there must be a permission issue." -foregroundcolor red
						Write-Host " Try moving your install folder to a different location." -foregroundcolor red
						PressTheAnyKeyToExit
					}
				}
				$AccountCSVImportSuccess = $True
				$Script:NumberOfAccounts = ($AccountOptionsCSV | Where-Object {$_.id -ne ""}).count
			}
			elseif ($Null -eq $Script:AccountUsername){# If script parameters haven't been used, Error out and exit if there's a problem with the csv.
				if ($AccountCSVRecoveryAttempt -lt 1){
					try {
						Write-Host " Issue with accounts.csv. Attempting Autorecovery from backup..." -foregroundcolor red
						Copy-Item -Path $Script:WorkingDirectory\Accounts.backup.csv -Destination $Script:WorkingDirectory\Accounts.csv -ErrorAction stop
						Write-Host " Autorecovery successful!" -foregroundcolor Green
						$AccountCSVRecoveryAttempt ++
						PressTheAnyKey
					}
					Catch {
						$AccountCSVImportSuccess = $False
					}
				}
				Else {
					$AccountCSVRecoveryAttempt = 2
				}
				if ($AccountCSVImportSuccess -eq $False -or $AccountCSVRecoveryAttempt -eq 2){
					Write-Host "`n There's an issue with accounts.csv." -foregroundcolor red
					Write-Host " Please ensure that this is filled out correctly and rerun the script." -foregroundcolor red
					Write-Host " Alternatively, rebuild CSV from scratch or restore from accounts.backup.csv`n" -foregroundcolor red
					PressTheAnyKeyToExit
				}
			}
		} until ($AccountCSVImportSuccess -eq $True)
		$Script:CurrentStats = import-csv "$Script:WorkingDirectory\Stats.csv"
		([int]$Script:CurrentStats.TimesLaunched) ++
		if ($CurrentStats.TotalGameTime -eq ""){
			$Script:CurrentStats.TotalGameTime = 0 #prevents errors from happening on first time run.
		}
		try {
			$CurrentStats | Export-Csv -Path "$Script:WorkingDirectory\Stats.csv" -NoTypeInformation #update Stats.csv with Total Time played.
		}
		Catch {
			Write-Host "  Couldn't update stats.csv" -foregroundcolor yellow
		}
		#Make Backup of CSV.
		 # Added this in as I had BSOD on my PC and noticed that this caused the files to get corrupted.
		Copy-Item -Path ($Script:WorkingDirectory + "\stats.csv") -Destination ($Script:WorkingDirectory + "\stats.backup.csv")
		Copy-Item -Path ($Script:WorkingDirectory + "\accounts.csv") -Destination ($Script:WorkingDirectory + "\accounts.backup.csv")
	}
	else {
		$Script:ParamLaunchAndAccountNotInAccountsCSV = $True
		write-verbose "Parameters used with account and PW specified. Accounts.csv not imported."
	}
}
Function SetQualityRolls {
	#Set item quality array for randomizing quote colours. A stupid addition to script but meh.
	$Script:QualityArray = @(#quality and chances for things to drop based on 0MF values in D2r (I think?)
		[pscustomobject]@{Type='HighRune';Probability=1}
		[pscustomobject]@{Type='Unique';Probability=50}
		[pscustomobject]@{Type='SetItem';Probability=124}
		[pscustomobject]@{Type='Rare';Probability=200}
		[pscustomobject]@{Type='Magic';Probability=588}
		[pscustomobject]@{Type='Normal';Probability=19036}
	)
	if ($Script:GemActivated -eq $True){#small but noticeable MF boost
		$Script:QualityArray | Where-Object { $_.Type -eq 'Normal' } | ForEach-Object {
			$_.Probability = 16384  # New probability value
		}
	}
	Else {
		$Script:QualityArray | Where-Object { $_.Type -eq 'Normal' } | ForEach-Object {
			$_.Probability = 19036  # Original probability value
		}
	}
	if ($Script:CowKingActivated -eq $True){#big MF boost
		$Script:QualityArray | Where-Object { $_.Type -eq 'Normal' } | ForEach-Object {
			$_.Probability = 2048  # New probability value
			$Script:MOO = "MOO"
		}
	}
	if ($Script:PGemActivated -eq $True){#huuge MF boost
		$Script:QualityArray | Where-Object { $_.Type -eq 'Normal' } | ForEach-Object {
			$_.Probability = 192  # New probability value
		}
	}
	$QualityHash = @{};
	ForEach ($Object in $Script:QualityArray | select-object type,probability){#convert PSOobjects to hashtable for enumerator
		$QualityHash.add($Object.type,$Object.probability) #add each PSObject to hash
	}
	$Script:ItemLookup = ForEach ($Entry in $QualityHash.GetEnumerator()){
		[System.Linq.Enumerable]::Repeat($Entry.Key, $Entry.Value) #This creates a hash table with 19036 normal items, 588 magic items, 200 rare items etc etc. Used later as a list to randomly pick from.
	}
}
Function CowKingKilled {
	Write-Host "`n                          You Killed the Cow King!" -foregroundcolor green
	Write-Host "                                $X[38;2;165;146;99;22mMoo.$X[0m"
	Write-Host "                                    $X[38;2;165;146;99;22mMoooooooo!$X[0m"
	$voice = New-Object -ComObject Sapi.spvoice
	$voice.rate = -4 #How quickly the voice message should be
	$voice.volume = $Config.AlarmVolume
	$voice.voice = $voice.getvoices() | Where-Object {$_.id -like "*David*"}
	$voice.speak("MooMoo-moo moo-moo, moo-moo, moo moo.") | out-null
	$CowLogo = @"
 -)[<-
   +[[[*
     *)}]>>=-----                   +:                   =-
      :=]#}[[[]))])>-               [>-     :------     =)*:
     :<]<<<][[]))][<*=              <]<>]]<>[%%%##}<><<<]]*
   :=*)))**)))[[]]>:                 -<)[}#%%%%%%%%%%%%[<
     -*><)]))))<)][[*:                    -[#%%%%%%%%%}-
       =*>><<<)<->[}}[*:                 *}#<>%%%)=)%%%}*
        :+>><)]])]]<[##[*:              *@@%%#[[[[}%%%%%}
          :-<<)))<)*  *#}[):            -}%@#[]]]]#%%%%%%>
              -=+><-   :>[#})+          :}%%#[[[]]###%%%%%>
                          -]#}}-:      -]%#}}[}}[[[[}#%%%%):
                            :>}})-    +#%%%#}}[][[)[}#%%%%#+
                               =##%%<=}}}}}}}}}}[[])}#%%%%%#+
                            :>[[##}}[[}[[[[[][]]]))))]]]]}#%%-
                            :]##}]<)][}[}#}}}}}[[[]])]][[}##%}:
                             =<}]>****+<[[}}}}[[[]]]]]][}}}###<
                                       :#%#[[[]]])))))][%%}[}}[-
                                       :#%###}[]]]))))][#%}]][]-
                                       :#%##}}}}[[[]]][[#}))<>-:
                                       :#####}}}}}[[[[]<>)}[:
                                         [#}}}}}}}}[}}##}%%+
                                         :#}}}}}}}}}[[[}}}}>-
                                         >##}}}}}}}}[[[[[}#[[<
                                        =}}}##}}}[[[[[[])]##<+
                                        >#}}#}}[[[[][]]]))#%*
                                       :]#}}###}[[[[[][[)]#[:
                                        *#}}#}}}}}}}[[[}[}#[:
          (__)                          *###}##}}}}}}}}}}#%):
          (oo)                          :[}}}}<]][[[}###}##+
   /-------\/                            :}}}}>    :)###}}#]-
  / |     ||                              +}}}>      +}%#}#%>
  * ||----||                              >}}[:        -=]}#<
    ||    ||                             -####*          )}]<:
                                        +#%%%}           -[]]>
                                        :-*+-:           -][])
                                                         =[]))+
                                                         =}##}):
"@
	Write-Host "  $X[38;2;255;165;0;22m$CowLogo$X[0m"
	$Script:CowKingActivated = $True
	([int]$Script:CurrentStats.CowKingKilled) ++
	SetQualityRolls
	start-sleep -milliseconds 4550
	try {
		$CurrentStats | Export-Csv -Path "$Script:WorkingDirectory\Stats.csv" -NoTypeInformation #update Stats.csv with Total Time played and cow stats.
	}
	Catch {
		Write-Host "  Couldn't update stats.csv" -foregroundcolor yellow
	}
}
Function HighRune {
	process { Write-Host "  $X[38;2;255;165;000;48;2;1;1;1;4m$_$X[0m"}
}
Function Unique {
	process { Write-Host "  $X[38;2;165;146;99;48;2;1;1;1;4m$_$X[0m"}
}
Function SetItem {
	process { Write-Host "  $X[38;2;0;225;0;48;2;1;1;1;4m$_$X[0m"}
}
Function Rare {
	process { Write-Host "  $X[38;2;255;255;0;48;2;1;1;1;4m$_$X[0m"}
}
Function Magic {#ANSI text colour formatting for "magic" quotes. The variable $X (for the escape character) is defined earlier in the script.
	process { Write-Host "  $X[38;2;65;105;225;48;2;1;1;1;4m$_$X[0m" }
}
Function Normal {
	process { Write-Host "  $X[38;2;255;255;255;48;2;1;1;1;4m$_$X[0m"}
}
Function QuoteRoll {#stupid thing to draw a random quote but also draw a random quality.
	$Quality = get-random $Script:ItemLookup #pick a random entry from ItemLookup hashtable.
	Write-Host
	$LeQuote = (Get-Random -inputobject $Script:quotelist) #pick a random quote.
	$ConsoleWidth = $Host.UI.RawUI.BufferSize.Width
	$DesiredIndent = 2  # indent spaces
	$ChunkSize = $ConsoleWidth - $DesiredIndent
	[RegEx]::Matches($LeQuote, ".{$ChunkSize}|.+").Groups.Value | ForEach-Object {
		Write-Output $_ | &$Quality #write the quote and write it in the quality colour
	}
	if ($LeQuote -match "Moo" -and $Quality -eq "Unique"){
		CowKingKilled
	}
	$Script:CurrentStats = import-csv "$Script:WorkingDirectory\Stats.csv"
	if ($Quality -eq "HighRune"){([int]$Script:CurrentStats.HighRunesFound) ++}
	if ($Quality -eq "Unique"){([int]$Script:CurrentStats.UniquesFound) ++}
	if ($Quality -eq "SetItem"){([int]$Script:CurrentStats.SetItemsFound) ++}
	if ($Quality -eq "Rare"){([int]$Script:CurrentStats.RaresFound) ++}
	if ($Quality -eq "Magic"){([int]$Script:CurrentStats.MagicItemsFound) ++}
	if ($Quality -eq "Normal"){([int]$Script:CurrentStats.NormalItemsFound) ++}
	try {
		$CurrentStats | Export-Csv -Path "$Script:WorkingDirectory\Stats.csv" -NoTypeInformation #update Stats.csv
	}
	Catch {
		Write-Host "  Couldn't update stats.csv" -foregroundcolor yellow
		Start-Sleep -Milliseconds 256
	}
}
Function Inventory {#Info screen
	Clear-Host
	Write-Host "`n          Stay a while and listen! Here's your D2r Loader info.`n`n" -foregroundcolor yellow
	Write-Host "  $X[38;2;255;255;255;4mNote:$X[0m D2r Playtime is based on the time the script has been running"
	Write-Host "  whilst D2r is running. In other words, if you use this script when you're"
	Write-Host "  playing the game, it will give you a reasonable idea of the total time"
	Write-Host "  you've spent receiving disappointing drops from Mephisto :)`n"
	$QualityArraySum = 0
	$Script:QualityArray | ForEach-Object {
		$QualityArraySum += $_.Probability
	}
	$NormalProbability = ($QualityArray | where-object {$_.type -eq "Normal"} | Select-Object Probability).probability
	$Script:CurrentStats = import-csv "$Script:WorkingDirectory\Stats.csv"
	$Line1 =   "                    ----------------------------------"
	$Line2 =  ("                   |  $X[38;2;255;255;255;22mD2r Playtime (Hours):$X[0m " +  ((($time =([TimeSpan]::Parse($CurrentStats.TotalGameTime))).hours + ($time.days * 24)).tostring() + ":" + ("{0:D2}" -f $time.minutes)))
	$Line3 =  ("                   |  $X[38;2;255;255;255;22mCurrent Session (Hours):$X[0m" + ((($time =([TimeSpan]::Parse($Script:SessionTimer))).hours + ($time.days * 24)).tostring() + ":" + ("{0:D2}" -f $time.minutes)))
	$Line4 =  ("                   |  $X[38;2;255;255;255;22mScript Launch Counter:$X[0m " + $CurrentStats.TimesLaunched)
	$Line5 =   "                    ----------------------------------"
	$Line6 =  ("                   |  $X[38;2;255;165;000;22mHigh Runes$X[0m Found: " + $(if ($CurrentStats.HighRunesFound -eq ""){"0"} else {$CurrentStats.HighRunesFound}))
	$Line7 =  ("                   |  $X[38;2;165;146;99;22mUnique$X[0m Quotes Found: " + $(if ($CurrentStats.UniquesFound -eq ""){"0"} else {$CurrentStats.UniquesFound}))
	$Line8 =  ("                   |  $X[38;2;0;225;0;22mSet$X[0m Quotes Found: " + $(if ($CurrentStats.SetItemsFound -eq ""){"0"} else {$CurrentStats.SetItemsFound}))
	$Line9 =  ("                   |  $X[38;2;255;255;0;22mRare$X[0m Quotes Found: " + $(if ($CurrentStats.RaresFound -eq ""){"0"} else {$CurrentStats.RaresFound}))
	$Line10 = ("                   |  $X[38;2;65;105;225;22mMagic$X[0m Quotes Found: " + $(if ($CurrentStats.MagicItemsFound -eq ""){"0"} else {$CurrentStats.MagicItemsFound}))
	$Line11 = ("                   |  $X[38;2;255;255;255;22mNormal$X[0m Quotes Found: " + $(if ($CurrentStats.NormalItemsFound -eq ""){"0"} else {$CurrentStats.NormalItemsFound}))
	$Line12 =  "                    ----------------------------------"
	$Line13 = ("                   |  $X[38;2;165;146;99;22mCow King Killed:$X[0m " + $(if ($CurrentStats.CowKingKilled -eq ""){"0"} else {$CurrentStats.CowKingKilled}))
	$Line14 = ("                   |  $X[38;2;255;0;255;22mGems Activated:$X[0m  " + $(if ($CurrentStats.Gems -eq ""){"0"} else {$CurrentStats.Gems}))
	$Line15 = ("                   |  $X[38;2;255;0;255;22mPerfect Gem Activated:$X[0m " + $(if ($CurrentStats.PerfectGems -eq ""){"0"} else {$CurrentStats.PerfectGems}))
	$Line16 =  "                    ----------------------------------"
	$Lines = @($Line1,$Line2,$Line3,$Line4,$Line5,$Line6,$Line7,$Line8,$Line9,$Line10,$Line11,$Line12,$Line13,$Line14,$Line15,$Line16)
	# Loop through each object in the array to find longest line (for formatting)
	ForEach ($Line in $Lines){
		if (($Line -replace '\[.*?22m', '' -replace '\[0m','').Length -gt $LongestLine){
			$LongestLine = ($Line -replace '\[.*?22m', '' -replace '\[0m','').Length
		}
	}
	ForEach ($Line in $Lines){#Formatting nonsense to indent things nicely
		$Indent = ""
		$Dash = ""
		if (($Line -replace '\[.*?22m', '' -replace '\[0m','').Length -lt $LongestLine + 2){
			if ($Line -notmatch "-"){
				while ((($Line -replace '\[.*?22m', '' -replace '\[0m','').Length + $Indent.length) -lt ($LongestLine + 2)){
					$Indent = $Indent + " "
				}
				Write-Host $Line.replace(":$X[0m",":$X[0m$Indent").replace(" Found:"," Found:$Indent") -nonewline
				Write-Host "  |" -nonewline
				Write-Host
			}
			else {
				while (($Line.Length + $Dash.length) -le ($LongestLine +1)){
					$Dash = $Dash + "-"
				}
				Write-Host $Line -nonewline
				Write-Host $Dash
			}
		}
		Else {
			Write-Host " |"
		}
	}
	Write-Host ("`n  Chance to find $X[38;2;65;105;225;22mMagic$X[0m quality quote or better: " + [math]::Round((($QualityArraySum - $NormalProbability + 1) * (1/$QualityArraySum) * 100),2) + "%" )
	Write-Host ("`n  $X[4mD2r Game Version:$X[0m    " + (Get-Command "$GamePath\D2R.exe").FileVersionInfo.FileVersion)
	Write-Host "  $X[4mScript Install Path:$X[0m " -nonewline
	Write-Host ("`"$Script:WorkingDirectory`"" -replace "((.{1,52})(?:\\|\s|$)|(.{1,53}))", "`n                        `$1").trim() #add two spaces before any line breaks for indenting. Add line break for paths that are longer than 53 characters.
	Write-Host "  $X[4mYour Script Version:$X[0m v$CurrentVersion"
	Write-Host "  $X[38;2;69;155;245;4mhttps://github.com/shupershuff/Diablo2RLoader/releases/v$CurrentVersion$X[0m"
	if ($null -eq $Script:LatestVersionCheck -or $Script:LatestVersionCheck.tostring() -lt (Get-Date).addhours(-4).ToString('yyyy.MM.dd HH:mm:ss')){ #check for updates. Don't check if this has been checked in the last 4 hours.
		try {
			$Releases = Invoke-RestMethod -Uri "https://api.github.com/repos/shupershuff/Diablo2RLoader/releases"
			$ReleaseInfo = ($Releases | Sort-Object id -desc)[0] #find release with the highest ID.
			$Script:LatestVersionCheck = (get-date).tostring('yyyy.MM.dd HH:mm:ss')
			$Script:LatestVersion = [version[]]$ReleaseInfo.Name.Trim('v')
		}
		Catch {
			Write-Output "  Couldn't check for updates :(" | Red
		}
	}
	if ($Null -ne $Script:LatestVersion -and $Script:LatestVersion -gt $Script:CurrentVersion){
		Write-Host "`n  $X[4mLatest Script Version:$X[0m v$LatestVersion" -foregroundcolor yellow
		Write-Host "  $X[38;2;69;155;245;4mhttps://github.com/shupershuff/Diablo2RLoader/releases/latest$X[0m"
	}
	Write-Host "`n  $X[38;2;0;225;0;22mConsider donating as a way to say thanks via an option below:$X[0m"
	Write-Host "    - $X[38;2;69;155;245;4mhttps://www.buymeacoffee.com/shupershuff$X[0m"
	Write-Host "    - $X[38;2;69;155;245;4mhttps://paypal.me/Shupershuff$X[0m"
	Write-Host "    - $X[38;2;69;155;245;4mhttps://github.com/sponsors/shupershuff?frequency=one-time&amount=5$X[0m`n"
	if ($Script:NotificationsAvailable -eq $True){
		Write-Host "  -------------------------------------------------------------------------"
		Write-Host "  $X[38;2;255;165;000;48;2;1;1;1;4mNotification:$X[0m" -nonewline
		Notifications -check $False
		$Script:NotificationHasBeenChecked = $True
		Write-Host "  -------------------------------------------------------------------------"
	}
	Write-Host
	PressTheAnyKey
}
Function LoadWindowClass { #Used to get window locations and place them in the same screen locations at launch. Code courtesy of Sir-Wilhelm and Microsoft.
	try {
		[void][Window]
	}
	catch {
		Add-Type @"
		using System;
		using System.Runtime.InteropServices;
		public class Window {
			[DllImport("user32.dll")]
			[return: MarshalAs(UnmanagedType.Bool)]
			public static extern bool GetWindowRect(IntPtr hWnd, out RECT lpRect); //get window coordinates
			[DllImport("user32.dll")]
			[return: MarshalAs(UnmanagedType.Bool)]
			public extern static bool MoveWindow(IntPtr handle, int x, int y, int width, int height, bool redraw); //set window coordinates
			[DllImport("user32.dll")]
			[return: MarshalAs(UnmanagedType.Bool)]
			public static extern bool SetForegroundWindow(IntPtr hWnd); //Bring window to front
			[DllImport("user32.dll")]
			[return: MarshalAs(UnmanagedType.Bool)]
			public static extern bool ShowWindow(IntPtr handle, int state); //used in this script to restore minimized window (state 9)
			// Add SetWindowPos
			[DllImport("user32.dll", SetLastError = true)]
			public static extern bool SetWindowPos(IntPtr hWnd, IntPtr hWndInsertAfter, int X, int Y, int cx, int cy, uint uFlags);
		}
		public struct RECT {
			public int Left;        // x position of upper-left corner
			public int Top;         // y position of upper-left corner
			public int Right;       // x position of lower-right corner
			public int Bottom;      // y position of lower-right corner
		}
"@	}
}
Function SaveWindowLocations {# Get Window Location coordinates and save to Accounts.csv
	LoadWindowClass
	FormatFunction -indents 2 -text "Saving locations of each open account so that they the windows launch in the same place next time. Assumes you've configured the game to launch in windowed mode."
	CheckActiveAccounts
	#If Feature is enabled, add 'WindowXCoordinates' and 'WindowYCoordinates' columns to accounts.csv with empty values.
	if (-not ($Script:AccountOptionsCSV | Get-Member -Name "WindowXCoordinates" -MemberType NoteProperty -ErrorAction SilentlyContinue) -or -not ($Script:AccountOptionsCSV | Get-Member -Name "WindowYCoordinates" -MemberType NoteProperty -ErrorAction SilentlyContinue) -or -not ($Script:AccountOptionsCSV | Get-Member -Name "WindowWidth" -MemberType NoteProperty -ErrorAction SilentlyContinue) -or -not ($Script:AccountOptionsCSV | Get-Member -Name "WindowHeight" -MemberType NoteProperty -ErrorAction SilentlyContinue)){
		# Column does not exist, so add it to the CSV data
		if (-not ($Script:AccountOptionsCSV | Get-Member -Name "WindowXCoordinates" -MemberType NoteProperty -ErrorAction SilentlyContinue)){
			$Script:AccountOptionsCSV | ForEach-Object {$_ | Add-Member -NotePropertyName "WindowXCoordinates" -NotePropertyValue $Null}
		}
		if (-not ($Script:AccountOptionsCSV | Get-Member -Name "WindowYCoordinates" -MemberType NoteProperty -ErrorAction SilentlyContinue)){
			$Script:AccountOptionsCSV | ForEach-Object {$_ | Add-Member -NotePropertyName "WindowYCoordinates" -NotePropertyValue $Null}
		}
		if (-not ($Script:AccountOptionsCSV | Get-Member -Name "WindowHeight" -MemberType NoteProperty -ErrorAction SilentlyContinue)){
			$Script:AccountOptionsCSV | ForEach-Object {$_ | Add-Member -NotePropertyName "WindowHeight" -NotePropertyValue $Null}
		}
		if (-not ($Script:AccountOptionsCSV | Get-Member -Name "WindowWidth" -MemberType NoteProperty -ErrorAction SilentlyContinue)){
			$Script:AccountOptionsCSV | ForEach-Object {$_ | Add-Member -NotePropertyName "WindowWidth" -NotePropertyValue $Null}
		}
		# Export the updated CSV data back to the file
		$Script:AccountOptionsCSV | Export-Csv -Path "$Script:WorkingDirectory\Accounts.csv" -NoTypeInformation
	}
	if ($null -eq $Script:ActiveAccountsList){
		FormatFunction -text "`nThere are no open accounts to save coordinates from.`nTo save Window positions, you need to launch one or more instances first.`n" -indents 2 -IsError
		PressTheAnyKey
		Return $False
	}
	$NewCSV = ForEach ($Account in $Script:AccountOptionsCSV){
		if ($account.id -in $Script:ActiveAccountsList.id){
			$process = Get-Process -Id ($Script:ActiveAccountsList | where-object {$_.id -eq $account.id}).ProcessID
			$handle = $process.MainWindowHandle
			Write-Verbose "$($process.ProcessName) `(Id=$($process.ID), Handle=$handle`, Path=$($process.Path))"
			$rectangle = New-Object RECT
			[Window]::GetWindowRect($handle, [ref]$rectangle) | Out-Null
			FormatFunction -indents 2 -text "`nSaved Coordinates for account $($account.id) ($($account.AccountLabel))" -IsSuccess
			Write-Host "     X Position = $($rectangle.Left)" -Foregroundcolor Green
			Write-Host "     Y Position = $($rectangle.Top)" -Foregroundcolor Green
			write-Host "     Width = $($rectangle.Right - $rectangle.Left)" -Foregroundcolor Green
			write-Host "     Height = $($rectangle.Bottom - $rectangle.Top)" -Foregroundcolor Green
			$Account.WindowXCoordinates = $rectangle.Left
			$Account.WindowYCoordinates = $rectangle.Top
			$Account.WindowWidth = $rectangle.Right - $rectangle.Left
			$Account.WindowHeight = $rectangle.Bottom - $rectangle.Top
			$Account
		}
		Else {#Leave as is.
			$Account
			write-Verbose "Account $($account.id) ($($account.AccountLabel)) isn't running."
		}
	}
	$NewCSV | Export-CSV "$Script:WorkingDirectory\Accounts.csv" -NoTypeInformation
	Write-Host "`n   Updated CSV with window positions." -foregroundcolor green
	start-sleep -milliseconds 2500
}
Function SetWindowLocations {# Move windows to preferred location/layout
	param(
		[int]$Id,
		[int]$X,
		[int]$Y,
		[int]$Width,
		[int]$Height
	)
	LoadWindowClass
	$handle = (Get-Process -Id $Id).MainWindowHandle
	# Constants for SetWindowPos
	$HWND_TOPMOST = [IntPtr]::Zero # Change this to [IntPtr]::Zero to avoid topmost if you don't want it to be
	#$SWP_NOMOVE = 0x0002
	#$SWP_NOSIZE = 0x0001
	$SWP_SHOWWINDOW = 0x0040
	$SWP_NOREDRAW = 0x0008
	# Restore the window (if minimized)
	[Window]::ShowWindow($handle, 9)
	Start-Sleep -Milliseconds 10
	# Move the window and set its position
	[Window]::SetWindowPos($handle, $HWND_TOPMOST, $X, $Y, $Width, $Height, $SWP_SHOWWINDOW -bor $SWP_NOREDRAW)
	Start-Sleep -Milliseconds 10
	# Optionally, bring it to the foreground
	[Window]::SetForegroundWindow($handle)
}
Function Options {
	ImportXML -NoOutput
	Clear-Host
	Write-Host "`n This screen allows you to change script config options."
	Write-Host " Note that you can also change these settings (and more) in config.xml."
	Write-Host " Options you can change/toggle below:`n"
	$XML = Get-Content "$Script:WorkingDirectory\Config.xml"
	if ($Script:Config.UseChinaRegion -ne $True){
		if ($Script:Config.DefaultRegion -eq 1){
			$CurrentDefaultRegion = "NA"
		}
		ElseIf ($Script:Config.DefaultRegion -eq 2){
			$CurrentDefaultRegion = "EU"
		}
		ElseIf ($Script:Config.DefaultRegion -eq 3){
			$CurrentDefaultRegion = "Asia"
		}
		ElseIf ($Script:Config.DefaultRegion -eq ""){
			$CurrentDefaultRegion = "None Specified"
		}
		Write-Host "  $X[38;2;255;165;000;22m1$X[0m - $X[4mDefaultRegion$X[0m (Currently $X[38;2;255;165;000;22m$CurrentDefaultRegion$X[0m)"
	}
	Write-Host "`n  $X[38;2;255;165;000;22m2$X[0m - $X[4mSettingSwitcherEnabled$X[0m (Currently $X[38;2;255;165;000;22m$(if($Script:Config.SettingSwitcherEnabled -eq 'True'){'Enabled'}else{'Disabled'})$X[0m)"
	Write-Host "  $X[38;2;255;165;000;22m3$X[0m - $X[4mManualSettingSwitcherEnabled$X[0m (Currently $X[38;2;255;165;000;22m$(if($Script:Config.ManualSettingSwitcherEnabled -eq 'True'){'Enabled'}else{'Disabled'})$X[0m)"
	Write-Host "  $X[38;2;255;165;000;22m4$X[0m - $X[4mRememberWindowLocations$X[0m (Currently $X[38;2;255;165;000;22m$(if($Script:Config.RememberWindowLocations -eq 'True'){'Enabled'}else{'Disabled'})$X[0m)"
	Write-Host "`n  $X[38;2;255;165;000;22m5$X[0m - $X[4mDCloneTrackerSource$X[0m (Currently $X[38;2;255;165;000;22m$($Script:Config.DCloneTrackerSource)$X[0m)"
	FormatFunction -indents 1 -SubsequentLineIndents 4 -text ("$X[38;2;255;166;000;22m6$X[0m - $X[4mDCloneAlarmList$X[0m (Currently $X[38;2;255;165;000;22m" + $(if ($Script:Config.DCloneAlarmList -eq ""){"Alarms are disabled"}Else{$Script:Config.DCloneAlarmList}) + "$X[0m)")
	if ($Script:Config.DCloneAlarmList -ne ""){
		Write-Host "  $X[38;2;255;165;000;22m7$X[0m - $X[4mDCloneAlarmLevel$X[0m (Currently $X[38;2;255;165;000;22m$($Script:Config.DCloneAlarmLevel)$X[0m)"
	}
	Write-Host
	if ($Script:Config.TerrorZoneAlertAreas -eq ""){
		$CurrentTerrorZoneAlertAreas = "Alarms are disabled"
	}
	Else {
		ForEach ($Level in $Script:Config.TerrorZoneAlertAreas -split ','){
			ForEach ($LevelID in $D2rLevels){
				if ($LevelID[0] -eq $Level){
					$MapNames += $LevelID[1] + ", "
					$IDandName += "($($LevelID[0])) " + $LevelID[1] + ", "
				}
			}
		}
		if (($Script:Config.TerrorZoneAlertAreas -split ',').count -eq 137){
			$CurrentTerrorZoneAlertAreasAndName = "enabled for every level"
			$CurrentTerrorZoneAlertAreas = "enabled for every level"
		}
		else {
			$CurrentTerrorZoneAlertAreasAndName = $IDandName -replace '..$', ''
			$CurrentTerrorZoneAlertAreas = $MapNames -replace '..$', ''
		}
	}
	FormatFunction -indents 1 -SubsequentLineIndents 4 -text ("$X[38;2;255;166;000;22m8$X[0m - $X[4mTerrorZoneAlertAreas$X[0m (Currently $X[38;2;255;165;000;22m" + $CurrentTerrorZoneAlertAreas + "$X[0m)")
	if ($Script:Config.DCloneAlarmList -ne "" -or $Script:Config.TerrorZoneAlertAreas -ne ""){
		Write-Host
		Write-Host "  $X[38;2;255;165;000;22m9$X[0m - $X[4mAlarmVoice$X[0m (Currently $X[38;2;255;165;000;22m$($Script:Config.AlarmVoice)$X[0m)"
		Write-Host "  $X[38;2;255;165;000;22m0$X[0m - $X[4mAlarmVolume$X[0m (Currently $X[38;2;255;165;000;22m$($Script:Config.AlarmVolume)$X[0m)"
	}
	if ($Script:TokensConfigured -eq $True){
		foreach ($row in $Script:AccountOptionsCSV){
			if ($row.AuthenticationMethod -eq "Parameter"){$ParametersUsed = $True}
		}
		if ($ParametersUsed -eq $True){
			Write-Host "`n  $X[38;2;255;165;000;22mt$X[0m - Temporarily force token authentication (for configured accounts ONLY)."
			if ($Script:ForceAuthToken -eq $True){
				Write-Host "      $X[4mForceAuthToken$X[0m (Currently $X[38;2;5;250;5;22mEnabled$X[0m)."
			}
			else {
				Write-Host "      $X[4mForceAuthToken$X[0m (Currently $X[38;2;255;165;000;22mDisabled$X[0m)."
			}
			$AllowTokenConfigMenuOption = $True
		}
	}
	Write-Host "`n Enter one of the above options to change the setting."
	Write-Host " Otherwise, press any other key to return to main menu... " -nonewline
	$Option = (ReadKeyTimeout "" $MenuRefreshRate "c" -AdditionalAllowedKeys 27).tostring() #Add -TwoDigitAcctSelection $True
	Write-Host;Write-Host
	Function OptionSubMenu {
		param (
			[String]$Description,
			[hashtable]$OptionsList,
			[String]$OptionsText,
			[String]$Current,
			[String]$ConfigName,
			[switch]$OptionInteger
		)
		$XML = Get-Content "$Script:WorkingDirectory\Config.xml" -Raw
		FormatFunction -text "Changing setting for $X[4m$($ConfigName)$X[0m (Currently $X[38;2;255;165;000;22m$($Current)$X[0m).`n" -indents 1
		FormatFunction -text $Description -indents 1
		Write-Host;Write-Host $OptionsText
		do {
			if ($OptionInteger -eq $True){
				Write-Host "   Enter a number between $X[38;2;255;165;000;22m1$X[0m and $X[38;2;255;165;000;22m99$X[0m or '$X[38;2;255;165;000;22mc$X[0m' to cancel: " -nonewline
				$AcceptableOptions = 1..99 # Allow user to enter 1 to 99
				$NewOptionValue = (ReadKeyTimeout "" $MenuRefreshRate "c" -AdditionalAllowedKeys 27 -TwoDigitAcctSelection $True).tostring()
				$NewValue = $NewOptionValue
			}
			Else {
				Write-Host "   Enter " -nonewline;CommaSeparatedList -NoOr ($OptionsList.keys | sort-object); Write-Host " or '$X[38;2;255;165;000;22mc$X[0m' to cancel: " -nonewline
				$AcceptableOptions = $OptionsList.keys
				$NewOptionValue = (ReadKeyTimeout "" $MenuRefreshRate "c" -AdditionalAllowedKeys 27).tostring()
				$NewValue = $($OptionsList[$NewOptionValue])
			}
			if ($NewOptionValue -notin $AcceptableOptions + "c" + "Esc"){
				Write-Host "   Invalid Input. Please enter one of the options above.`n" -foregroundcolor red
			}
		} until ($NewOptionValue -in $AcceptableOptions + "c" + "Esc")
		if ($NewOptionValue -in $AcceptableOptions){
			if ($NewOptionValue -ne "s" -and $NewOptionValue -ne "r" -and $NewOptionValue -ne "a" -and $NewOptionValue -ne "b"){
				try {
					$Pattern = "(<$ConfigName>)([^<]*)(</$ConfigName>)"
					$ReplaceString = '{0}{1}{2}' -f '${1}', $NewValue, '${3}'
					$NewXML = ([regex]::Replace($Xml, $Pattern, $ReplaceString)).trim()
					$NewXML | Set-Content -Path "$Script:WorkingDirectory\Config.xml"
					return $True
				}
				Catch {
					Write-Host "`n  Was unable to update config :(" -foregroundcolor red
					start-sleep -milliseconds 2500
					return $False
				}
			}
			ElseIf ($NewOptionValue -eq "s"){
				$PositionsRecorded = SaveWindowLocations
				if ($PositionsRecorded -ne $False){#redundant?
					return $False
				}
			}
			ElseIf ($NewOptionValue -eq "r"){
				LoadWindowClass
				CheckActiveAccounts
				if ($null -eq $Script:ActiveAccountsList){
					FormatFunction -text "`nThere are no open games.`nTo reset window positions, you need to launch one or more instances first.`n" -indents 2 -IsWarning
					PressTheAnyKey
					Return $False
				}
				ForEach ($Account in $Script:AccountOptionsCSV){
					if ($account.id -in $Script:ActiveAccountsList.id){
						if ($account.WindowXCoordinates -ne "" -and $account.WindowYCoordinates -ne ""){
							SetWindowLocations -X $Account.WindowXCoordinates -Y $Account.WindowYCoordinates -Width $Account.WindowWidth -height $Account.WindowHeight -Id ($Script:ActiveAccountsList | where-object {$_.id -eq $account.id}).ProcessID | out-null
						}
					}
				}
				FormatFunction -indents 2 -text "Moved game windows back to their saved screen coordinates and reset window sizes.`n" -IsSuccess
				start-sleep -milliseconds 1500
				Return $False
			}
			ElseIf ($NewOptionValue -eq "a"){
				LoadWindowClass
				CheckActiveAccounts
				if ($null -eq $Script:ActiveAccountsList){
					FormatFunction -text "`nThere are no open games.`nTo set window positions to alternative layout, you need to launch one or more instances first.`n" -indents 2 -IsWarning
					PressTheAnyKey
					Return $False
				}
				ForEach ($Account in $Script:AltWindowLayoutCoords){
					if ($account.id -in $Script:ActiveAccountsList.id){
						if ($account.WindowXCoordinates -ne "" -and $account.WindowYCoordinates -ne ""){
							SetWindowLocations -X $Account.WindowXCoordinates -Y $Account.WindowYCoordinates -Width $Account.WindowWidth -height $Account.WindowHeight -Id ($Script:ActiveAccountsList | where-object {$_.id -eq $account.id}).ProcessID | out-null
						}
					}
				}
				FormatFunction -indents 2 -text "Moved game windows to alternative coordinates and window sizes.`n" -IsSuccess
				start-sleep -milliseconds 1500
				Return $False
			}
			ElseIf ($NewOptionValue -eq "b"){
				LoadWindowClass
				CheckActiveAccounts
				if ($null -eq $Script:ActiveAccountsList){
					FormatFunction -text "`nThere are no open games.`nTo set window positions to alternative layout, you need to launch one or more instances first.`n" -indents 2 -IsWarning
					PressTheAnyKey
					Return $False
				}
				ForEach ($Account in $Script:AltWindowLayout2Coords){
					if ($account.id -in $Script:ActiveAccountsList.id){
						if ($account.WindowXCoordinates -ne "" -and $account.WindowYCoordinates -ne ""){
							SetWindowLocations -X $Account.WindowXCoordinates -Y $Account.WindowYCoordinates -Width $Account.WindowWidth -height $Account.WindowHeight -Id ($Script:ActiveAccountsList | where-object {$_.id -eq $account.id}).ProcessID | out-null
						}
					}
				}
				FormatFunction -indents 2 -text "Moved game windows to alternative coordinates and window sizes.`n" -IsSuccess
				start-sleep -milliseconds 1500
				Return $False
			}
		}
		else {
			Return $False
		}
	}
	if ($Option -eq "1" -and $Script:Config.UseChinaRegion -ne $True){ #DefaultRegion
		$Options = @{
			"1" = 1
			"2" = 2
			"3" = 3
			"4" = ""
		}
		$XMLChanged = OptionSubMenu -ConfigName "DefaultRegion" -OptionsList $Options -Current $CurrentDefaultRegion `
		-Description "This option is used so you can press enter instead of manually entering region on region select screen." `
		-OptionsText "    Choose '$X[38;2;255;165;000;22m1$X[0m' for NA (Americas)`n    Choose '$X[38;2;255;165;000;22m2$X[0m' for EU (Europe)`n    Choose '$X[38;2;255;165;000;22m3$X[0m' for Asia (Also known as KR)`n    Choose '$X[38;2;255;165;000;22m4$X[0m' for None`n"
	}
	ElseIf ($Option -eq "2"){ #SettingSwitcherEnabled
		If ($Script:Config.SettingSwitcherEnabled -eq "False"){
			$Options = @{"1" = "True"}
			$OptionsSubText = "enable"
			$CurrentState = "Disabled"
		}
		Else {
			$Options = @{"1" = "False"}
			$OptionsSubText = "disable"
			$CurrentState = "Enabled"
		}
		$XMLChanged = OptionSubMenu -ConfigName "SettingSwitcherEnabled" -OptionsList $Options -Current $CurrentState `
		-Description "This enables the script to automatically switch which settings file to use when launching the game based on the account you're launching.`nA very cool feature!`nPlease see GitHub for instructions on setting this up/editing settings." `
		-OptionsText "    Choose '$X[38;2;255;165;000;22m1$X[0m' to $OptionsSubText`n"
	}
	ElseIf ($Option -eq "3"){ #ManualSettingSwitcherEnabled
		If ($Script:Config.ManualSettingSwitcherEnabled -eq "False"){
			$Options = @{"1" = "True"}
			$OptionsSubText = "enable"
			$CurrentState = "Disabled"
		}
		Else {
			$Options = @{"1" = "False"}
			$OptionsSubText = "disable"
			$Script:AskForSettings = $False
			$CurrentState = "Enabled"
		}
		$XMLChanged = OptionSubMenu -ConfigName "ManualSettingSwitcherEnabled" -OptionsList $Options -Current $CurrentState `
		-Description "This enables you to manually choose which settings file the game should use launching another game instance.`nFor example if you want to choose to launch with potato graphics or good graphics.`nPlease see GitHub for instructions on how to set this up and how to edit settings." `
		-OptionsText "    Choose '$X[38;2;255;165;000;22m1$X[0m' to $OptionsSubText`n"
	}
	ElseIf ($Option -eq "4"){ #RememberWindowLocations
		If ($Script:Config.RememberWindowLocations -eq "False"){
			$Options = @{"1" = "True"}
			$OptionsSubText = "enable"
			$DescriptionSubText = "`nOnce enabled, return to this menu and choose the '$X[38;2;255;165;000;22ms$X[0m' option to save coordinates of any open game instances."
			$CurrentState = "Disabled"
		}
		Else {
			$Options = @{"1" = "False";"S" = "PlaceholderValue Only :)"} # SaveWindowLocations function used if user chooses "S"
			$OptionsSubText = "disable"
			$OptionsSubTextAgain = "    Choose '$X[38;2;255;165;000;22ms$X[0m' to save current window locations and sizes.`n"
			if ($Script:AccountOptionsCSV | Get-Member -Name "WindowXCoordinates" -MemberType NoteProperty -ErrorAction SilentlyContinue){
				$OptionsSubTextAgain += "    Choose '$X[38;2;255;165;000;22mr$X[0m' to reset window locations and sizes.`n"
				$Options += @{"R" = "PlaceholderValue Only :)"}
				if (Test-Path -Path "$Script:WorkingDirectory\AltLayout.csv"){
					$Script:AltWindowLayoutCoords = import-csv "$Script:WorkingDirectory\AltLayout.csv"
					$OptionsSubTextAgain += "    Choose '$X[38;2;255;165;000;22ma$X[0m' to set window locations to alternative layout A.`n"
					$Options += @{"A" = "PlaceholderValue Only :)"}
				}
				if (Test-Path -Path "$Script:WorkingDirectory\AltLayout1.csv"){
					$Script:AltWindowLayoutCoords = import-csv "$Script:WorkingDirectory\AltLayout1.csv"
					$OptionsSubTextAgain += "    Choose '$X[38;2;255;165;000;22ma$X[0m' to set window locations to alternative layout A.`n"
					$Options += @{"A" = "PlaceholderValue Only :)"}
				}
				if (Test-Path -Path "$Script:WorkingDirectory\AltLayout2.csv"){
					$Script:AltWindowLayout2Coords = import-csv "$Script:WorkingDirectory\AltLayout2.csv"
					$OptionsSubTextAgain += "    Choose '$X[38;2;255;165;000;22mb$X[0m' to set window locations to alternative layout B.`n"
					$Options += @{"B" = "PlaceholderValue Only :)"}
				}
			}
			$DescriptionSubText = "`nChoosing the '$X[38;2;255;165;000;22ms$X[0m' option will save coordinates (and window sizes) of any open game instances.`nChoosing the '$X[38;2;255;165;000;22mr$X[0m' option will move your windows back to their default placements."
			$CurrentState = "Enabled"
		}
		$XMLChanged = OptionSubMenu -ConfigName "RememberWindowLocations" -OptionsList $Options -Current $CurrentState `
		-Description "For those that have configured the game to launch in windowed mode, this setting is used to make the script move the window locations at launch, so that you never have to rearrange your windows when launching accounts.$DescriptionSubText" `
		-OptionsText "    Choose '$X[38;2;255;165;000;22m1$X[0m' to $OptionsSubText`n$OptionsSubTextAgain"
	}
	ElseIf ($Option -eq "5"){ #DCloneTrackerSource
		$Options = @{
			"1" = "D2Emu.com"
			"2" = "D2runewizard.com"
			"3" = "diablo2.io"
		}
		$XMLChanged = OptionSubMenu -ConfigName "DCloneTrackerSource" -OptionsList $Options -Current $Script:Config.DCloneTrackerSource `
		-Description "Choose the API source for DClone Data.`nRecommend D2Emu.com as it pulls data directly from the game." `
		-OptionsText "    Choose '$X[38;2;255;165;000;22m1$X[0m' for D2Emu.com (Recommended)`n    Choose '$X[38;2;255;165;000;22m2$X[0m' for D2runewizard.com`n    Choose '$X[38;2;255;165;000;22m3$X[0m' for diablo2.io`n"
	}
	ElseIf ($Option -eq "6"){ #DCloneAlarmList
		if ($Script:Config.UseChinaRegion -ne $True){
			$Options = @{
				"1" = "SCL-NA, SCL-EU, SCL-KR"
				"2" = "SC-NA, SC-EU, SC-KR"
				"3" = "HCL-NA, HCL-EU, HCL-KR"
				"4" = "HC-NA, HC-EU, HC-KR"
				"5" = "SCL-NA-ROTW, SCL-EU-ROTW, SCL-KR-ROTW"
				"6" = "SC-NA-ROTW, SC-EU-ROTW, SC-KR-ROTW"
				"7" = "HCL-NA-ROTW, HCL-EU-ROTW, HCL-KR-ROTW"
				"8" = "HC-NA-ROTW, HC-EU-ROTW, HC-KR-ROTW"
				"9" = "SCL-NA, SCL-EU, SCL-KR, SC-NA, SC-EU, SC-KR, HCL-NA, HCL-EU, HCL-KR, HC-NA, HC-EU, HC-KR, SCL-NA-ROTW, SCL-EU-ROTW, SCL-KR-ROTW, SC-NA-ROTW, SC-EU-ROTW, SC-KR-ROTW, HCL-NA-ROTW, HCL-EU-ROTW, HCL-KR-ROTW, HC-NA-ROTW, HC-EU-ROTW, HC-KR-ROTW"
				"0" = ""
			}
		}
		Else {
		$Options = @{ # SCL-CN, HCL-CN, SC-CN, HC-CN
				"1" = "SCL-CN"
				"2" = "SC-CN"
				"3" = "HCL-CN"
				"4" = "HC-CN"
				"5" = "SCL-CN-ROTW"
				"6" = "SC-CN-ROTW"
				"7" = "HCL-CN-ROTW"
				"8" = "HC-CN-ROTW"
				"9" = "SCL-CN, SC-CN, HCL-CN, HC-CN, SCL-CN-ROTW, SC-CN-ROTW, HCL-CN-ROTW, HC-CN-ROTW"
				"0" = ""
			}
		}
		$OptionsText = "    Choose '$X[38;2;255;165;000;22m1$X[0m' to enable alarms for Softcore Ladder`n    Choose '$X[38;2;255;165;000;22m2$X[0m' to enable alarms for Softcore Non-Ladder`n    Choose '$X[38;2;255;165;000;22m3$X[0m' to enable alarms for Hardcore Ladder`n    Choose '$X[38;2;255;165;000;22m4$X[0m' to enable alarms for Hardcore Non-Ladder`n"
		$OptionsText += "    Choose '$X[38;2;255;165;000;22m5$X[0m' to enable alarms for Softcore Ladder (ROTW)`n    Choose '$X[38;2;255;165;000;22m6$X[0m' to enable alarms for Softcore Non-Ladder (ROTW)`n    Choose '$X[38;2;255;165;000;22m7$X[0m' to enable alarms for Hardcore Ladder (ROTW)`n    Choose '$X[38;2;255;165;000;22m8$X[0m' to enable alarms for Hardcore Non-Ladder (ROTW)`n"
		$OptionsText += "    Choose '$X[38;2;255;165;000;22m9$X[0m' to enable alarms for all game modes`n    Choose '$X[38;2;255;165;000;22m0$X[0m' to disable all Alarms`n"
		$XMLChanged = OptionSubMenu -ConfigName "DCloneAlarmList" -OptionsList $Options -Current $(if ($Script:Config.DCloneAlarmList -eq ""){"Alarms are disabled"}Else{$Script:Config.DCloneAlarmList}) `
		-Description "Use this to change what game modes you'd like to have DClone alarms on.`nThis will select all regions for a given game mode. To make fine tuned adjustments (eg multiple game modes), edit config.xml directly." `
		-OptionsText $OptionsText
		$Script:DCloneChangesCSV = $Null #Reset DClone tracking to remove old notifications appearing that may no longer be applicable.
		SetDCloneAlarmLevels
	}
	ElseIf ($Option -eq "7" -and $Script:Config.DCloneAlarmList -ne ""){ #DCloneAlarmLevel
		$Options = @{
			"1" = "All"
			"2" = "Close"
			"3" = "Imminent"
		}
		$XMLChanged = OptionSubMenu -ConfigName "DCloneAlarmLevel" -OptionsList $Options -Current $Script:Config.DCloneAlarmLevel `
		-Description "This allows you to customise what DClone status changes you want to be alarmed for if you only want specific alerts.`nBe aware that if you set it to immminent, you will likely miss DClone walks due to fast status changes (SOJ's are often sold in bulk all at once)." `
		-OptionsText "    Choose '$X[38;2;255;165;000;22m1$X[0m' to alarm on all status changes`n    Choose '$X[38;2;255;165;000;22m2$X[0m' to alarm on Close status changes (4/6, 5/6)`n    Choose '$X[38;2;255;165;000;22m3$X[0m' to alarm on imminent walks only (5/6)`n"
		$Script:DCloneChangesCSV = $Null #Reset DClone tracking to remove old notifications appearing that may no longer be applicable.
		SetDCloneAlarmLevels
	}
	ElseIf ($Option -eq "8"){ #TerrorZoneAlertAreas
		$Options = @{
			"1" = "37,73,102,108,132"
			"2" = "12,16,25,37,39,66,73,74,83,102,108,123,131,132"
			"3" = "1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,130,131,132,133,134,135,136,137"
			"0" = ""
		}
		$XMLChanged = OptionSubMenu -ConfigName "TerrorZoneAlertAreas" -OptionsList $Options -Current $CurrentTerrorZoneAlertAreasAndName `
		-Description "This allows you to customise what Terror Zones you want to be alarmed for.`nBasic options below, if you'd like to specify other levels, add the level ID into config.xml manually for 'TerrorZoneAlertAreas'.`n`nFor a list of level ID's and what areas they relate to, copy the link below and paste it into your browser:`n$X[38;2;69;155;245;4mhttps://github.com/shupershuff/Diablo2RLoader/blob/main/levels.txt$X[0m" `
		-OptionsText "    Choose '$X[38;2;255;165;000;22m1$X[0m' to alarm on Act Boss levels`n    Choose '$X[38;2;255;165;000;22m2$X[0m' to alarm on popular XP and MF areas`n    Choose '$X[38;2;255;165;000;22m3$X[0m' to alarm on every Terror Zone`n    Choose '$X[38;2;255;165;000;22m0$X[0m' to alarm on nothing`n"
	}
	ElseIf ($Option -eq "9" -and ($Script:Config.DCloneAlarmList -ne "" -or $Script:Config.TerrorZoneAlertAreas -ne "")){ #AlarmVoice
		$Options = @{
			"1" = "Amazon"
			"2" = "Paladin"
		}
		$XMLChanged = OptionSubMenu -ConfigName "AlarmVoice" -OptionsList $Options -Current $Script:Config.AlarmVoice `
		-Description "This option allows you to change the voice for the Text to Speech TZ/DClone Alarms." `
		-OptionsText "    Choose '$X[38;2;255;165;000;22m1$X[0m' for Amazon (Female Voice)`n    Choose '$X[38;2;255;165;000;22m2$X[0m' for Paladin (Male Voice)`n"
	}
	ElseIf ($Option -eq "0" -and ($Script:Config.DCloneAlarmList -ne "" -or $Script:Config.TerrorZoneAlertAreas -ne "")){ #AlarmVolume
		$XMLChanged = OptionSubMenu -ConfigName "AlarmVolume" -OptionInteger -Current $Script:Config.AlarmVolume `
		-Description "This option allows you to adjust the volume level for TZ/DClone alarms in case they're too loud or quiet."
	}
	ElseIf ($Option -eq "t" -and $AllowTokenConfigMenuOption -eq $True){
		if ($Script:ForceAuthToken -ne $True){
			$Script:ForceAuthToken = $True
			Write-Host "  ForceAuthToken now $X[38;2;5;250;5;22menabled$X[0m." -foregroundcolor yellow
			Write-Host "  For authentication, script will now force usage of AuthTokens (where " -foregroundcolor green
			Write-Host "  accounts have been configured)." -foregroundcolor green
		}
		else {
			$Script:ForceAuthToken = $False
			Write-Host "  ForceAuthToken now $X[38;2;255;165;000;22mdisabled$X[0m." -foregroundcolor yellow
			Write-Host "  For authentication, script will now use what's configured in the " -foregroundcolor green
			Write-Host "  AuthenticationMethod column in accounts.csv" -foregroundcolor green
		}
		start-sleep -milliseconds 3000
	}
	else {#go to main menu if no valid option was specified.
		return
	}
	if ($XMLChanged -eq $True){
		Write-Host "   Config Updated!" -foregroundcolor green
		ImportXML -NoOutput
		If ($Option -eq "4" -and $Script:Config.RememberWindowLocations -eq $True -and -not ($Script:AccountOptionsCSV | Get-Member -Name "WindowXCoordinates" -MemberType NoteProperty -ErrorAction SilentlyContinue)){#if this is the first time it's been enabled display a setup message
			Formatfunction -indents 2 -IsWarning -Text "`nYou've enabled RememberWindowsLocations but you still need to set it up. To set this up you need to perform the following steps:"
			FormatFunction -indents 3 -iswarning -text "`n1. Open all of your D2r account instances.`n2. Move the window for each game instance to your preferred layout and size."
			FormatFunction -indents 3 -iswarning -text "3. Come back to this options menu and go into the 'RememberWindowLocations' setting.`n4. Once in this menu, choose the option 's' to save coordinates of any open game instances."
			FormatFunction -indents 2 -iswarning -text  "`n`nNow when you open these accounts they will open in this screen location each time :)`n"
			PressTheAnyKey
		}
		start-sleep -milliseconds 2500
	}
}
Function Notifications {
	param (
		[bool] $Check
	)
if ($Check -eq $True -and $Script:LastNotificationCheck -lt (Get-Date).addminutes(-30).ToString('yyyy.MM.dd HH:mm:ss')){#check for notifications once every 30mins
		try {
			$URI = "https://raw.githubusercontent.com/shupershuff/Diablo2RLoader/main/Notifications.txt"
			$Script:Notifications = Invoke-RestMethod -Uri $URI
			if ($Notifications.notification -ne ""){
				if ($Script:PrevNotification -ne $Notifications.notification){#if message has changed since last check
					$Script:PrevNotification = $Notifications.notification
					$Script:NotificationHasBeenChecked = $False
					if ((get-date).tostring('yyyy.MM.dd HH:mm:ss') -lt $Notifications.ExpiryDate -and (get-date).tostring('yyyy.MM.dd HH:mm:ss') -gt $Notifications.PublishDate){
						$Script:NotificationsAvailable = $True
					}
				}
			}
			Else {
				$Script:NotificationsAvailable = $False
			}
			$Script:LastNotificationCheck = (get-date).tostring('yyyy.MM.dd HH:mm:ss')
		}
		Catch {
			Write-Debug "  Couldn't check for notifications." # If this fails in production don't show any errors/warnings.
		}
	}
	ElseIf ($Check -eq $False){
		Write-Host
		formatfunction -text $Notifications.notification -indents 1
	}
	if ($Check -eq $True -and $Script:NotificationHasBeenChecked -eq $False -and $Script:NotificationsAvailable -eq $True){#only show message if user hasn't seen notification yet.
		Write-Host "     $X[38;2;255;165;000;48;2;1;1;1;4mNotification available. Press 'i' to go to info screen for details.$X[0m"
	}
}
Function D2rLevels {
	$Script:D2rLevels = @(
@(1, "Rogue Encampment",""),
		@(2, "Blood Moor",""),
		@(3, "Cold Plains",""),
		@(4, "Stony Field",""),
		@(5, "Dark Wood",""),
		@(6, "Black Marsh",""),
		@(7, "Tamoe Highland",""),
		@(8, "Den of Evil",""),
		@(9, "Cave 1","Cave"),
		@(10, "Underground Passage 1","Underground Passage"),
		@(11, "Hole 1","Hole"),
		@(12, "Pit 1","Pit"),
		@(13, "Cave 2","Cave"),
		@(14, "Underground Passage 2","Underground Passage"),
		@(15, "Hole 2","Hole"),
		@(16, "Pit 2","Pit"),
		@(17, "Burial Grounds",""),
		@(18, "Crypt",""),
		@(19, "Mausoleum",""),
		@(20, "Forgotten Tower","Forgotten Tower"),
		@(21, "Tower Cellar 1","Forgotten Tower"),
		@(22, "Tower Cellar 2","Forgotten Tower"),
		@(23, "Tower Cellar 3","Forgotten Tower"),
		@(24, "Tower Cellar 4","Forgotten Tower"),
		@(25, "Tower Cellar 5","Forgotten Tower"),
		@(26, "Monastery Gate",""),
		@(27, "Outer Cloister",""),
		@(28, "Barracks",""),
		@(29, "Jail 1","Jail"),
		@(30, "Jail 2","Jail"),
		@(31, "Jail 3","Jail"),
		@(32, "Inner Cloister",""),
		@(33, "Cathedral","Catacombs"),
		@(34, "Catacombs 1","Catacombs"),
		@(35, "Catacombs 2","Catacombs"),
		@(36, "Catacombs 3","Catacombs"),
		@(37, "Catacombs 4","Catacombs"),
		@(38, "Tristram",""),
		@(39, "The Secret Cow Level",""),
		@(40, "Lut Gholein",""),
		@(41, "Rocky Waste",""),
		@(42, "Dry Hills",""),
		@(43, "Far Oasis",""),
		@(44, "Lost City",""),
		@(45, "Valley of Snakes",""),
		@(46, "Canyon of the Magi",""),
		@(47, "Sewers 1","Act 2 Sewers"),
		@(48, "Sewers 2","Act 2 Sewers"),
		@(49, "Sewers 3","Act 2 Sewers"),
		@(50, "Harem 1","Harem"),
		@(51, "Harem 2","Harem"),
		@(52, "Palace Cellar 1","Palace Cellar"),
		@(53, "Palace Cellar 2","Palace Cellar"),
		@(54, "Palace Cellar 3","Palace Cellar"),
		@(55, "Stony Tomb 1","Stony Tomb"),
		@(56, "Halls of the Dead 1","Halls of the Dead"),
		@(57, "Halls of the Dead 2","Halls of the Dead"),
		@(58, "Claw Viper Temple 1","Claw Viper Temple"),
		@(59, "Stony Tomb 2","Stony Tomb"),
		@(60, "Halls of the Dead 3","Halls of the Dead"),
		@(61, "Claw Viper Temple 2","Claw Viper Temple"),
		@(62, "Maggot Lair 1","Maggot Lair"),
		@(63, "Maggot Lair 2","Maggot Lair"),
		@(64, "Maggot Lair 3","Maggot Lair"),
		@(65, "Ancient Tunnels",""),
		@(66, "Tal Rashas Tomb 1","Tal Rashas Tomb"),
		@(67, "Tal Rashas Tomb 2","Tal Rashas Tomb"),
		@(68, "Tal Rashas Tomb 3","Tal Rashas Tomb"),
		@(69, "Tal Rashas Tomb 4","Tal Rashas Tomb"),
		@(70, "Tal Rashas Tomb 5","Tal Rashas Tomb"),
		@(71, "Tal Rashas Tomb 6","Tal Rashas Tomb"),
		@(72, "Tal Rashas Tomb 7","Tal Rashas Tomb"),
		@(73, "Tal Rashas Chamber","Tal Rashas Tomb"),
		@(74, "Arcane Sanctuary",""),
		@(75, "Kurast Docks",""),
		@(76, "Spider Forest",""),
		@(77, "Great Marsh",""),
		@(78, "Flayer Jungle",""),
		@(79, "Lower Kurast",""),
		@(80, "Kurast Bazaar",""),
		@(81, "Upper Kurast",""),
		@(82, "Kurast Causeway",""),
		@(83, "Travincal",""),
		@(84, "Archnid Lair",""),
		@(85, "Spider Cavern",""),
		@(86, "Swampy Pit 1","Swampy Pit"),
		@(87, "Swampy Pit 2","Swampy Pit"),
		@(88, "Flayer Dungeon 1","Flayer Dungeon"),
		@(89, "Flayer Dungeon 2","Flayer Dungeon"),
		@(90, "Swampy Pit 3","Swampy Pit"),
		@(91, "Flayer Dungeon 3","Flayer Dungeon"),
		@(92, "Sewers 1","Act 3 Sewers"),
		@(93, "Sewers 2","Act 3 Sewers"),
		@(94, "Ruined Temple",""),
		@(95, "Disused Fane",""),
		@(96, "Forgotten Reliquary",""),
		@(97, "Forgotten Temple",""),
		@(98, "Ruined Fane",""),
		@(99, "Disused Reliquary",""),
		@(100, "Durance of Hate 1","Durance of Hate"),
		@(101, "Durance of Hate 2","Durance of Hate"),
		@(102, "Durance of Hate 3","Durance of Hate"),
		@(103, "Pandemonium Fortress",""),
		@(104, "Outer Steppes",""),
		@(105, "Plains of Despair",""),
		@(106, "City of the Damned",""),
		@(107, "River of Flame",""),
		@(108, "Chaos Sanctuary",""),
		@(109, "Harrogath",""),
		@(110, "Bloody Foothills",""),
		@(111, "Frigid Highlands",""),
		@(112, "Arreat Plateau",""),
		@(113, "Crystalline Passage",""),
		@(114, "Frozen River",""),
		@(115, "Glacial Trail",""),
		@(116, "Drifter Cavern",""),
		@(117, "Frozen Tundra",""),
		@(118, "The Ancients Way",""),
		@(119, "Icy Cellar",""),
		@(120, "Arreat Summit",""),
		@(121, "Nihlathaks Temple",""),
		@(122, "Halls of Anguish",""),
		@(123, "Halls of Pain",""),
		@(124, "Halls of Vaught",""),
		@(125, "Abaddon",""),
		@(126, "Pit of Acheron",""),
		@(127, "Infernal Pit",""),
		@(128, "Worldstone Keep 1","Worldstone Keep"),
		@(129, "Worldstone Keep 2","Worldstone Keep"),
		@(130, "Worldstone Keep 3","Worldstone Keep"),
		@(131, "Throne of Destruction","Worldstone Keep"),
		@(132, "Worldstone Chamber","Worldstone Keep"),
		@(133, "Matron's Den",""),
		@(134, "Forgotten Sands",""),
		@(135, "Furnace of Pain",""),
		@(136, "Uber Tristram",""),
		@(137, "Colossal Summit","")
	)
}
Function QuoteList {
$Script:QuoteList =
"Stay a while and listen..",
"My brothers will not have died in vain!",
"My brothers have escaped you...",
"Not even death can save you from me.",
"Good Day!",
"You have quite a treasure there in that Horadric Cube.",
"There's nothing the right potion can't cure.",
"Well, what the hell do you want? Oh, it's you. Uh, hi there.",
"Your souls shall fuel the Hellforge!",
"What do you need?",
"Your presence honors me.",
"I'll put that to good use.",
"Good to see you!",
"Looking for Baal?",
"All who oppose me, beware",
"Greetings",
"We live...AGAIN!",
"Ner. Ner! Nur. Roah. Hork, Hork.",
"Greetings, stranger. I'm not surprised to see your kind here.",
"There is a place of great evil in the wilderness.",
"East... Always into the east...",
"I shall make weapons from your bones",
"I am overburdened",
"This magic ring does me no good.",
"The siege has everything in short supply...except fools.",
"Beware, foul demons and beasts.",
"They'll never see me coming.",
"I will cleanse this wilderness.",
"I shall purge this land of the shadow.",
"I hear foul creatures about.",
"Ahh yes, ruins, the fate of all cities.",
"I'm never gunna give you up, never gunna let you down - Griswold, 1996.",
"I have no grief for him. Oblivion is his reward.",
"The catapults have been silenced.",
"The staff of kings, you astound me!",
"What's the matter, hero? Questioning your fortitude? I know we are.",
"This whole place is one big ale fog.",
"So, this is daylight... It's over-rated.",
"When - or if - I get to Lut Gholein, I'm going to find the largest bowl`nof Narlant weed and smoke 'til all earthly sense has left my body.",
"I've just about had my fill of the walking dead.",
"Oh I hate staining my hands with the blood of foul Sorcerers!",
"Damn it, I wish you people would just leave me alone!",
"Beware! Beyond lies mortal danger for the likes of you!",
"Beware! The evil is strong ahead.",
"Only the darkest Magics can turn the sun black.",
"You are too late! HAA HAA HAA",
"You now speak to Ormus. He was once a great mage, but now lives like a`nrat in a sinking vessel",
"I knew there was great potential in you, my friend. You've done a`nfantastic job.",
"Hi there. I'm Charsi, the Blacksmith here in camp. It's good to see some`nstrong adventurers around here.",
"Whatcha need?",
"Good day to you partner!",
"Moomoo, moo, moo. Moo, Moo Moo Moo Mooo.",
"Moo.",
"Moooooooooooooo",
"So cold and damp under the earth...",
"Good riddance, Blood Raven.",
"I shall meet death head-on.",
"The land here is dead and lifeless.",
"Let the gate be opened!",
"It is good to know that the sun shines again.",
"Maybe now the world will have peace.",
"Eternal suffering would be too brief for you, Diablo!",
"All that's left of proud Tristram are ghosts and ashes.",
"Ahh, the slow torture of caged starvation.",
"What a waste of undead flesh.",
"Good journey, Mephisto. Give my regards to the abyss.",
"My my, what a messy little demon!",
"Ah, the familiar scent of death.",
"What evil taints the light of the sun?",
"Light guide my way in this accursed place.",
"I shall honor Tal Rasha's sacrifice by destroying all the Prime Evils.",
"Oops...did I do that?",
"Death becomes you Andariel.",
"You dark mages are all alike, obsessed with power.",
"Planting the dead. How odd.",
"'Live, Laugh, Love' - Andariel, 1264.",
"Oh no, snakes. I hate snakes.",
"Who would have thought that such primitive beings could cause so much `ntrouble.",
"Hail to you champion",
"Help us! LET US OUT!",
"'I cannot carry anymore' - Me, carrying my teammates.",
"You're an even greater warrior than I expected...Sorry for `nunderestimating you.",
"Cut them down, warrior. All of them!",
"How can one kill what is already dead?",
"The Ancients must be close...",
"...That which does not kill you makes you stronger.",
"Our Monastery is filled with voracious hellspawn. You'd best be careful, my friend.",
"'I can't use that yet' - Emilio, 2025",
"This is what happens when half measures are taken with demons.",
"The shadows churn with the touch of Anguish",
"These creatures of darkness shall yield to me or perish"
}
Function BannerLogo {
	if ($Script:IdleLimitForAccountUseTime -ne "" -and $Script:IdleLimitForAccountUseTime -gt 0 -and $Script:ActiveAccountsList.id.length -ne 0){#If Idlelimitfeature is used and there are active accounts, calc idle time to check if we should add idle status to banner
		$IdleText = ""
		$Script:IdleMinutes = [int](IdleTimeChecker)/60
		if ($IdleMinutes -gt $Script:IdleLimitForAccountUseTime){#If we've been idle longer than what's configured in config.xml then show a wee message under banner
			$IdleText = ("`n" +  $(if ([math]::floor($Script:IdleMinutes) -lt 10){' '}) + "    You have been idle for $([math]::floor($Script:IdleMinutes)) minute" + $(if ([math]::floor($Script:IdleMinutes) -gt 1){'s'}) + ". Hours Played will not be updated.")
		}
	}
	$BannerLogo = @"

  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%#%%%%%%%%%%%%%%%%%%%%
  %%%%%%%#%%%%%%%/%%%%%%%%%%%#%%%%%$Script:MOO%%%%##%%%%%%%%%#/##%%%%%%%%%%%%%%%%%%
  %%#(%/(%%%//(/*#%%%%%%%%%%%###%%%%#%%%%%###%%%%%###(*####%##%%%#%%*%%%%%%
  %%%( **/*///%%%%%%%%%###%%#(######%%#########%####/*/*.,#((#%%%#*,/%%%%%%
  %%%#*/.,*/,,*/#/%%%/(*#%%#*(%%(*/%#####%###%%%#%%%(///*,**/*/*(.&,%%%%%%%
  %%%%%%// % ,***(./*/(///,/(*,./*,*####%#*/#####/,/(((/.*.,.. (@.(%%%%%%%%
  %%%%%%%#%* &%%#..,,,,**,.,,.,,**///.*(#(*.,.,,*,,,,.,*, .&%&&.*%%%%%%%%%%
  %%%%%%%%%%%#.@&&%&&&%%%%&&%%,.(((//,,/*,,*.%&%&&&&&&&&%%&@%,#%%%%%%%%%%%%
  %%%%%%%%%%%%%(.&&&&&%&&&%(.,,*,,,,,.,,,,.,.*,%&&&%&&%&&&@*##%%%%%%%%%%%%%
  %%%%%%%%%%%%%%# @@@&&&&&(  @@&&@&&&&&&&&&*..,./(&&&&&&&&*####%%%%%%%%%%%%
  %%%%%%%%%%%%%%# &@@&&&&&(*, @@@&.,,,,. %@@&&*.,(%&&&&&&&/%%%%%%%%%%%%%%%%
  %%%%%%%%%%%%%%#.&@@&&&&&(*, @@@@,((#&&%#.&@@&&.*#&&@&&&&/#%%%%%%%%%%%%%%%
  %%%%%%%%%%%%%%%*&@@@&&&&#*, @@@@,*(#%&&%#,@@@&@,(%&&&&&&(%%%%%%%%%%%%%%%%
  %%%%%$Script:MOO%%%%%%%*&@&&&%&&(,. @@@@,(%%%%%%#/,@@@& *#&&@&&%(%%%%%%%$Script:MOO%%%%%%
  %%%%%%%%%%%%%%%*&&&@&%&&(,. @@@@,%&%%%%%%(.@@@@ /#&&&&&&(%%%%%%%%%%%%%%%%
  %%%%%%%%%%%%%%%,&&&&&%%&(*, @@@@,&&&&&&&%//@@@@./%&&&&@&(%%%%%%%%%%%%%%%%
  %%%%%%%%%%%%%%(*&&&&&&&%(,, @@@@,%&&&#(/*.@@@@&./%&&&&@&(%%%%%%%%%%%%%%%%
  %%%%%%%%%%%%%%%,&&&&&&&%(,, @@@@,/##/(// @@&@@,/#&&&&&&&(%%%%%%%%%%%%%%%%
  %%%%%%%%%%%%%%(,&&&&&&&%(,, @@@@.*,,..*@@@&&*./#&&%&&&&&(%#%%#%%%%%%%%%%%
  %%%%%%%%%%%#%%#.&&&&&%%#* @@@&&&@@@&&%&&&% */*%&&%#&&&&&/((#%%%%%%%%%%%%%
  %%%%%%%%(#//*/.&&&#%#%#.@&& ..,,****,,*//((/*#%%%####%%%#/#/#%%%%%%%%%%%%
  %%%%%##***.,**////*(//,&.*/***.*/%%#%/%#*.***/*/***//**/(((/.,*(//*/(##%%
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%$IdleText
"@

	if ($Script:NumberOfAccounts -gt 9){#If user has a boat load of accounts, lets shorten the banner slightly to reclaim vertical space.
		$BannerLogo = $BannerLogo -replace "^(.*)\r?\n.*\r?\n", "`$1`r`n" -replace '(?s)(.*?\r?\n)([^\r\n]+)\r?\n([^\r\n]+)$', '$1$3'
	}
	if ($Script:PGemActivated -eq $True -or $Script:CowKingActivated -eq $True ){
		Write-Host "  $X[38;2;255;165;0;22m$BannerLogo$X[0m"
	}
	Else {
		Write-Host $BannerLogo -foregroundcolor yellow
	}
}
Function JokeMaster ([int]$JokeProviderRoll=""){
	#If you're going to leech and not provide any damage value in the Throne Room then at least provide entertainment value right?
	Write-Host "  Copy these mediocre jokes into the game while doing Baal Comedy Club runs`r`n  to mislead everyone into believing you have a personality:`n"
	do {
		$Joke = $Null
		$JokeType = "Joke"
		if ($JokeProviderRoll -eq "" -or $JokeProviderRoll -eq 69){
			$JokeProviderRoll = get-random -min 1 -max 3 #Randomly roll for first two joke providers
		}
		$attempt = 0
		do {
			$attempt ++
			if ($JokeProviderRoll -eq 1){
				if ((Get-Date).Month -eq 12 -or ((Get-Date).Month -eq 10 -and (Get-Date).Day -ge 24 -and (Get-Date).Day -le 31)){#If December or A week leading up to Halloween.
					if ((Get-Date).Month -eq 12){ #If December
						try {
							$Joke = Invoke-RestMethod -uri https://v2.jokeapi.dev/joke/Christmas -Method GET -header $headers -ErrorAction Stop #get absolutely punishing xmas jokes during December
							$JokeObtained = $true
						}
						catch {
							Write-Host "  Couldn't Reach v2.jokeapi.dev :( Trying alternate provider..." -foregroundcolor Red
							$JokeObtained = $false
							$JokeProviderRoll = 2
						}
					}
					Else {#else if it's around Halloweeen
						try {
							$Joke = Invoke-RestMethod -uri https://v2.jokeapi.dev/joke/Spooky -Method GET -header $headers -ErrorAction Stop #get absolutely punishing 'spooky' jokes in the week leading up to Halloween.
							$JokeObtained = $true
						}
						Catch {
							Write-Host "  Couldn't Reach v2.jokeapi.dev :( Trying alternate provider..." -foregroundcolor Red
							$JokeObtained = $false
							$JokeProviderRoll = 2
						}
					}
				}
				else {#For non seasonal jokes.
					try {
						$Joke = Invoke-RestMethod -uri "https://v2.jokeapi.dev/joke/Miscellaneous,Dark,Pun?blacklistFlags=racist,sexist" -Method GET -header $headers -ErrorAction Stop #exclude any racist/sexist jokes as we're not 75+ years old. Exclude IT/Programmer jokes that folk won't understand and also exclude, xmas & halloween themed jokes
						$JokeObtained = $true
					}
					catch {
						Write-Host "  Couldn't Reach v2.jokeapi.dev :( Trying alternate provider..." -foregroundcolor Red
						$JokeObtained = $false
						$JokeProviderRoll = 2
					}
				}
				if ($JokeObtained -eq $true){
					if ($Joke.Type -eq "twopart"){#some jokes are come through as two parters with two variables
						$JokeSetup = ($Joke.setup -replace "(.{1,73})(?:\s|$)", "`n   `$1").trim() #add two spaces before any line breaks for indenting. Add line break for lines that are longer than 73 characters.
						$JokeDelivery = ($Joke.delivery -replace "(.{1,73})(?:\s|$)", "`n   `$1").trim() #add two spaces before any line breaks for indenting. Add line break for lines that are longer than 73 characters.
						Write-Host "   $X[38;2;255;165;000;22m$JokeSetup$X[0m"
						Write-Host "   $X[38;2;255;165;000;22m$JokeDelivery$X[0m"
					}
					else {#else if single liner joke.
						$SingleJoke =  ($joke.joke -replace "(.{1,73})(?:\s|$)", "`n   `$1").trim() #add two spaces before any line breaks for indenting. Add line break for lines that are longer than 73 characters.
						Write-Host "   $X[38;2;255;165;000;22m$SingleJoke$X[0m"
					}
					$JokeProvider = "v2.jokeapi.dev"
				}
			}
			if ($JokeProviderRoll -eq 2){
				try {
					$Joke = Invoke-RestMethod -uri https://official-joke-api.appspot.com/random_joke -Method GET -header $headers -ErrorAction Stop
					$JokeObtained = $true
					$JokeSetup = ($Joke.setup -replace "(.{1,73})(?:\s|$)", "`n   `$1").trim() #add two spaces before any line breaks for indenting. Add line break for lines that are longer than 73 characters.
					$JokeDelivery = ($Joke.punchline -replace "(.{1,73})(?:\s|$)", "`n   `$1").trim() #add two spaces before any line breaks for indenting. Add line break for lines that are longer than 73 characters.
					Write-Host "   $X[38;2;255;165;000;22m$JokeSetup$X[0m"
					Write-Host "   $X[38;2;255;165;000;22m$JokeDelivery$X[0m"
					$JokeProvider = "official-joke-api.appspot.com"
				}
				catch {
					$JokeProviderRoll = 1
					Write-Host "  Couldn't Reach official-joke-api.appspot.com :( Trying alternate provider..." -foregroundcolor Red
				}
			}
			if ($JokeProviderRoll -eq 3){
				try {
					$headers = @{
						"User-Agent" = "github.com/shupershuff/Diablo2RLoader"
						"Accept" = "application/json"
					}
					$Joke = (Invoke-RestMethod -uri https://icanhazdadjoke.com -Method GET -header $headers -ErrorAction Stop).joke
					$JokeObtained = $true
					$SingleJoke =  ($joke -replace "(.{1,73})(?:\s|$)", "`n   `$1").trim() #add two spaces before any line breaks for indenting. Add line break for lines that are longer than 73 characters.
					Write-Host "   $X[38;2;255;165;000;22m$SingleJoke$X[0m"
					$JokeProvider = "icanhazdadjoke.com"
				}
				catch {
					$JokeProviderRoll = 1
					Write-Host "  Couldn't reach icanhazdadjoke.com :( API might be down." -foregroundcolor Red
				}
			}
			if ($JokeProviderRoll -eq 4){
				try {
					$Joke = (Invoke-RestMethod -uri https://api.chucknorris.io/jokes/random -ErrorAction Stop).value
					$JokeObtained = $true
					$SingleJoke =  ($joke -replace "(.{1,73})(?:\s|$)", "`n   `$1").trim() #add two spaces before any line breaks for indenting. Add line break for lines that are longer than 73 characters.
					Write-Host "   $X[38;2;255;165;000;22m$SingleJoke$X[0m"
					$JokeProvider = "api.chucknorris.io"
					$JokeType = "Fact"
				}
				catch {
					$JokeProviderRoll = 1
					Write-Host "  Couldn't reach api.chucknorris.io :( API might be down." -foregroundcolor Red
				}
			}
		} until ($JokeObtained -eq $true -or $attempt -eq 3)
		Write-Host
		if ($Null -ne $Joke){
			Write-Host "  $JokeType courtesy of $JokeProvider`n`n"
		}
		Write-Host "  Press '$X[38;2;255;165;000;22mj$X[0m' for more, '$X[38;2;255;165;000;22md$X[0m' for a Dad joke or '$X[38;2;255;165;000;22mc$X[0m' for a Chuck Norris fact."
		Write-Host "  Otherwise, press any other key to return to main menu... " -nonewline
		$JokeOption = readkey
		Write-Host;Write-Host
		if ($JokeOption -eq "j" -or $JokeOption -eq "d" -or $JokeOption -eq "c"){
			if ($JokeOption -eq "j"){
				$JokeProviderRoll = 69 #fish out another cringey joke.
			}
			if ($JokeOption -eq "d"){
				$JokeProviderRoll = 3
			}
			if ($JokeOption -eq "c"){
				$JokeProviderRoll = 4
			}
			# Clear faff from the console so more jokes show.
			$InputLength = 138
			$Host.UI.RawUI.CursorPosition = @{
				X = [Math]::Max($Host.UI.RawUI.CursorPosition.X - $InputLength, 0)
				Y = $Host.UI.RawUI.CursorPosition.Y -3
			}
			Write-Host -NoNewLine (" " * ($InputLength)) #-ForegroundColor Black
			$Host.UI.RawUI.CursorPosition = @{
				X = [Math]::Max($Host.UI.RawUI.CursorPosition.X - $InputLength, 0)
				Y = $Host.UI.RawUI.CursorPosition.Y -2
			}
		}
	} until ($JokeOption -ne "j" -and $JokeOption -ne "d" -and $JokeOption -ne "c")
}
Function DClone {# Display DClone Status.
	param (
		[bool] $DisableOutput,
		[String] $DCloneTrackerSource,
		[String] $Taglist,
		[object] $DCloneChanges,
		[String] $DCloneAlarmLevel,
		[String] $EmuToken
	)
	if ($DCloneTrackerSource -eq "d2emu.com"){
		$headers = @{
			'x-emu-username' = 'shupershuff'
			'x-emu-token' = $EmuToken
		}
		$URI = "https://d2emu.com/api/v1/dclone"
		try {
			$D2RDCloneResponse = WebRequestWithTimeOut -InitiatingFunction "DClone" -DCloneSource $DCloneTrackerSource -ScriptBlock {
				Invoke-RestMethod -Uri $using:URI -Method GET -Headers $using:Headers
			} -TimeoutSeconds 4
			$D2RDCloneResponse = $D2RDCloneResponse.PSObject.Properties | ForEach-Object {
				[PSCustomObject]@{
					Name = $_.Name
					Progress = $_.Value.status
					Updated_at = $_.Value.updated_at
				}
			}
			$CurrentStatus = $D2RDCloneResponse | Select-Object @{Name='Server'; Expression={$_.name}},@{Name='Progress'; Expression={($_.Progress + 1)}} #| sort server #add +1 as this source counts status from 0
			if ($Script:Config.UseChinaRegion -ne $True){
				$CurrentStatus = $CurrentStatus | where-object {$_.Server -notmatch "cn"} #Remove chinese statuses.
			}			Else {
				$CurrentStatus = $CurrentStatus | where-object {$_.Server -notmatch "us" -and $_.Server -notmatch "kr" -and $_.Server -notmatch "eu"} #Remove NA, EU and KR statuses.
			}
		}
		Catch {#catch commands captured in WebRequestWithTimeOut function
			Write-Debug "Problem connecting to $URI"
		}
	}
	ElseIf ($DCloneTrackerSource -eq "D2runewizard.com"){
		$QLC = "zouaqcSTudL"
		$tokreg = ("QLC" + $qlc + 1 + "fnbttzP")
		$D2RWref = ""
		for ($i = $tokreg.Length - 1; $i -ge 0; $i--){
			$D2RWref += $tokreg[$i]
		}
		$headers = @{
			"D2R-Contact" = "placeholderemail@email.com"
			"D2R-Platform" = "GitHub"
			"D2R-Repo" = "https://github.com/shupershuff/Diablo2RLoader"
		}
		$URI = "https://d2runewizard.com/api/diablo-clone-progress/all?token=$D2RWref"
		try {
			$D2RDCloneResponse = WebRequestWithTimeOut -InitiatingFunction "DClone" -DCloneSource $DCloneTrackerSource -Headers -$headers -ScriptBlock {
				Invoke-RestMethod -Uri $using:URI -Method GET -Headers $using:Headers
			} -TimeoutSeconds 3
			$CurrentStatus = $D2RDCloneResponse.servers | Select-Object @{Name='Server'; Expression={$_.server}},@{Name='Progress'; Expression={$_.progress}} #| sort server
		}
		Catch {#catch commands captured in WebRequestWithTimeOut function
			Write-Debug "Problem connecting to $URI"
		}
	}
	ElseIf ($DCloneTrackerSource -eq "Diablo2.io"){
		$headers = @{
			"User-Agent" = "github.com/shupershuff/Diablo2RLoader"
		}
		$URI = "https://diablo2.io/dclone_api.php"
		try {
			$D2RDCloneResponse = WebRequestWithTimeOut -InitiatingFunction "DClone" -DCloneSource $DCloneTrackerSource -ScriptBlock {
				Invoke-RestMethod -Uri $using:URI -Method GET -Headers $using:Headers
			} -TimeoutSeconds 3
			$CurrentStatus = $D2RDCloneResponse | Select-Object @{Name='Server'; Expression={$_.region}},@{Name='Ladder'; Expression={$_.ladder}},@{Name='Core'; Expression={$_.hc}},@{Name='Progress'; Expression={$_.progress}}
		}
		Catch {#catch commands captured in WebRequestWithTimeOut function
			Write-Debug "Problem connecting to $URI"
		}
	}
	Else {#if XML is invalid for DCloneTrackerSource
		$DCloneErrorMessage = ("  Error: Couldn't check for DClone Status. ###  Check DCloneTrackerSource in config.xml is entered correctly.").Replace("###", "`n")
		Write-Host
		Write-Host $DCloneErrorMessage -Foregroundcolor red
		if ($DisableOutput -ne $True){
			Write-Host
			$Script:AccountID = $null
			Presstheanykey
		}
		Return
	}
	if ($null -ne $DCloneErrorMessage){
		Write-Host $DCloneErrorMessage -Foregroundcolor red
		if ($DisableOutput -ne $True){
			Write-Host
			$Script:AccountID = $null
			Presstheanykey
		}
		Return
	}
	if ($Null -ne $CurrentStatus){ #don't perform remaining steps if there was a connection issue
		$DCloneLadderTable = New-Object -TypeName System.Collections.ArrayList
		$DCloneNonLadderTable = New-Object -TypeName System.Collections.ArrayList
		if ($DCloneChanges -eq "" -or $null -eq $DCloneChanges){
			$DCloneChangesArray = New-Object -TypeName System.Collections.ArrayList
		}
		Else {
			$DCloneChangesArray = $DCloneChanges | ConvertFrom-Csv -ErrorAction silentlycontinue #temporarily convert to array
		}
		ForEach ($Status in $CurrentStatus){
			$DCloneLadderInfo = New-Object -TypeName psobject
			$DCloneNonLadderInfo = New-Object -TypeName psobject
			#Convert data from all sources into consistent names and tags to be sorted and filtered.
			if ($Status.server -like "*us*" -or $Status.server -like "*americas*" -or $Status.Server -eq "1"){$Tag = "-NA";$ServerName = "Americas"}
			ElseIf ($Status.server -like "*eu*" -or $Status.server -like "*europe*" -or $Status.Server -eq "2"){$Tag = "-EU";$ServerName = "Europe"}
			ElseIf ($Status.server -like "*kr*" -or $Status.server -like "*asia*" -or $Status.Server -eq "3"){$Tag = "-KR";$ServerName = "Asia"}
			ElseIf ($Status.server -like "*cn*" -or $Status.server -like "*china*" -or $Status.Server -eq "4"){$Tag = "-CN";$ServerName = "China"} #Will be a bit of faffing around to add China in. Will only do so if someone actually asks for it.
			if (($Status.server -notlike "*nonladder*" -and -not [int]::TryParse($Status.server,[ref]$null)) -or $Status.Ladder -eq "1"){
				if ($Status.server -match "hardcore" -or $Status.Core -eq "1"){$Tag = ("HCL" + $Tag);$ServerName = ("HCL - " + $ServerName)}
				else {$Tag = ("SCL" + $Tag);$ServerName = ("SCL - " + $ServerName)}
				if ($Status.server -match "ROTW"){$Tag = $Tag + "-ROTW";$ServerName = $ServerName + " (ROTW)"}
				$DCloneLadderInfo | Add-Member -MemberType NoteProperty -Name Tag -Value $Tag
				$DCloneLadderInfo | Add-Member -MemberType NoteProperty -Name LadderServer -Value $ServerName
				$DCloneLadderInfo | Add-Member -MemberType NoteProperty -Name LadderProgress -Value $Status.progress
				[VOID]$DCloneLadderTable.Add($DCloneLadderInfo)
			}
			Else {
				if ($Status.server -match "hardcore" -or $Status.Core -eq "1"){$Tag = ("HC" + $Tag);$ServerName = ("HC - " + $ServerName)}
				else {$Tag = ("SC" + $Tag);$ServerName = ("SC - " + $ServerName)}
				if ($Status.server -match "ROTW"){$Tag = $Tag + "-ROTW";$ServerName = $ServerName + " (ROTW)"}
				$DCloneNonLadderInfo | Add-Member -MemberType NoteProperty -Name Tag -Value $Tag
				$DCloneNonLadderInfo | Add-Member -MemberType NoteProperty -Name NonLadderServer -Value $ServerName
				$DCloneNonLadderInfo | Add-Member -MemberType NoteProperty -Name NonLadderProgress -Value $Status.progress
				[VOID]$DCloneNonLadderTable.Add($DCloneNonLadderInfo)
			}
			if ($True -eq $DisableOutput){
				if ($TagList.Split(',') -contains $Tag){#if D Dclone region and server matches what's in config, check for changes.
					if ($DCloneChangesArray | where-object {$_.Tag -eq $Tag}){
						ForEach ($Item in $DCloneChangesArray | where-object {$_.Tag -eq $Tag}){#for each tag specified in config.xml...
							$item.VoiceAlarmStatus = $False
							$item.TextAlarmStatus = $False
							if ($item.Status -ne $Status.progress){
								if ($Status.progress -ge 5 -and ($DCloneAlarmLevel -match 5)){#if DClone walk is imminent
									$item.VoiceAlarmStatus = $True
								}
								ElseIf ($Status.progress -eq 1 -or $Status.progress -eq 6){#if DClone walk has just happened
									$item.VoiceAlarmStatus = $True
								}
								ElseIf ($DCloneAlarmLevel -match $Status.progress){#if User has configured alarms to happen for lower DClone status levels (2,3,4)
									$item.VoiceAlarmStatus = $True
								}
								$item.TextAlarmStatus = $True
								if ($item.Status -ne "" -and $null -ne $item.Status){
									$item.PreviousStatus = $item.Status
								}
								$item.Status = $Status.progress
								$item.LastUpdate = (get-date).tostring('yyyy.MM.dd HH:mm:ss')
							}
							ElseIf ($Status.progress -eq 5){#if status hasn't changed, but status is 5 (imminent), show alarm text on main menu
								$item.TextAlarmStatus = $True
							}
							ElseIf ($Status.progress -lt 5 -and $item.LastUpdate -gt (get-date).addminutes(-5).ToString('yyyy.MM.dd HH:mm:ss')){#if status is less than 5 and has changed within the last 5 minutes, enable text alarm
								$item.TextAlarmStatus = $True
							}
							ElseIf ($null -ne $item.LastUpdate -and $item.LastUpdate -lt (get-date).addminutes(-5).ToString('yyyy.MM.dd HH:mm:ss')){#after 5 minutes remove the text alarm
								$item.LastUpdate = $null
								$item.TextAlarmStatus = $False
							}
						}
					}
					Else {
						try {
							if ($Status.progress -ge 5){
								$VoiceAlarmStatus = $True
								$TextAlarmStatus = $True
							}
							Else {
								$VoiceAlarmStatus = $False
								$TextAlarmStatus = $False
							}
							$DCloneChangesArray += [PSCustomObject]@{Tag = $Tag; PreviousStatus = $null; Status = $Status.progress; VoiceAlarmStatus = $VoiceAlarmStatus; TextAlarmStatus = $TextAlarmStatus; LastUpdate = $null}
						}
						Catch {#if script is refreshed too quick and $DCloneChangesArray gets corrupted, reset it.
							$DCloneChangesArray = $null
							Return
						}
					}
				}
			}
		}
		if ($True -ne $DisableOutput){
			$DCloneLadderTable = $DCloneLadderTable | Sort-Object LadderServer
			$DCloneNonLadderTable = $DCloneNonLadderTable | Sort-Object NonLadderServer
			$Count = 0
			Do {
				if ($Count -eq 0){
					Write-Host "                         Current DClone Status:"
					Write-Host
					Write-Host " ##########################################################################"
					Write-Host " #             Ladder               |             Non-Ladder              #"
					Write-Host " ###################################|######################################"
					Write-Host " #  Server                  Status  |  Server                     Status  #"
					Write-Host " #----------------------------------|-------------------------------------#"
				}
				if ($Count -eq $(if ($CurrentStatus.server.count -eq 12){3} Else{6}) -and $Script:Config.UseChinaRegion -ne $True){Write-Host " #----------------------------------|-------------------------------------#"}
				$LadderServer = ($DCloneLadderTable.LadderServer[$Count]).tostring()
				do { # formatting nonsense.
					$LadderServer = ($LadderServer + " ")
				}
				until ($LadderServer.length -ge 26)
				$NonLadderServer = ($DCloneNonLadderTable.NonLadderServer[$Count]).tostring()
				do { # formatting nonsense.
					$NonLadderServer = ($NonLadderServer + " ")
				}
				until ($NonLadderServer.length -ge 29)
				Write-Host (" #  " + $LadderServer + " " + $DCloneLadderTable.LadderProgress[$Count] + "    |  " + $NonLadderServer + " " + $DCloneNonLadderTable.NonLadderProgress[$Count]+ "    #")
				$Count = $Count + 1
				if ($Count -eq ($CurrentStatus.server.length/2) -or ($Script:Config.UseChinaRegion -eq $True -and $Count -eq 2)){
					Write-Host " #                                  |                                     #"
					Write-Host " ##########################################################################"
					Write-Host "`n   DClone Status provided by $DCloneTrackerSource`n"
				}
			}
			Until ($Count -eq ($CurrentStatus.server.length/2) -or ($Script:Config.UseChinaRegion -eq $True -and $Count -eq 2))
			PressTheAnyKey
		}
		ElseIf ($Taglist -ne "" -and $null -ne $DCloneChangesArray){#Else if Output is disabled and taglist has been specified, output dclone changes for alarm
			$DCloneChangesArray | ConvertTo-Csv -NoTypeInformation
		}
	}
	Else {
		start-sleep -milliseconds 2000 #allow a bit of time for error message to be shown saying that we couldn't connect to DClone API.
	}
}
Function DCloneVoiceAlarm {
	ForEach ($Item in ($Script:DCloneChangesCSV | ConvertFrom-Csv) | where-object {$_.VoiceAlarmStatus -Match "True" -or $_.TextAlarmStatus -Match "True"}){
		if ($item.tag -match "l"){#if mode contains "L"
			$LadderText = "Ladder"
		}
		else {#else it's non ladder
			$LadderText = "NonLadder"
		}
		if ($item.tag -match "HC"){
			$CoreText = "Hardcore"
		}
		Else {#if mode contains "SC"
			$CoreText = "Softcore"
		}
		if ($item.tag -match "NA"){
			$DCloneRegion = "Americas"
		}
		ElseIf ($item.tag -match "KR"){
			$DCloneRegion = "Asia"
		}
		elseif ($item.tag -match "EU"){
			$DCloneRegion = "Europe"
		}
		elseif ($item.tag -match "cn"){
			$DCloneRegion = "China"
		}
		if ($item.tag -match "ROTW"){
			$ExpansionVoice = " R O T W"
			$ExpansionText = " ROTW"
		}
		Else {#if mode contains "SC"
			$ExpansionVoice = ""
		}
		if ($Item.Status -eq 5){
			Write-Host "  $X[38;2;165;146;99;48;2;1;1;1;4mDClone is about to walk in $DCloneRegion on $CoreText $LadderText$ExpansionText!$X[0m"
			$Message = ("D Clone Imminent! DClone is about to walk in $DCloneRegion on " + $CoreText + " " + $LadderText + $ExpansionVoice)
		}
		ElseIf (($Item.Status -eq 1 -and $Item.PreviousStatus -ne 6) -or $Item.Status -eq 6){#check if status has just changed to 6 or it has changed to 1 from any number other than 6 (to prevent duplicate alarms.
			Write-Host "  $X[38;2;165;146;99;48;2;1;1;1;4mDClone has just walked in $DCloneRegion on $CoreText $LadderText$ExpansionText ($($item.tag)).$X[0m"
			$Message = ("D Clone has just walked in $DCloneRegion on " + $CoreText + " " + $LadderText + $ExpansionVoice)
		}
		ElseIf ($Script:DCloneAlarmLevel -match $Item.Status){
			Write-Host "  $X[38;2;165;146;99;48;2;1;1;1;4mDClone Update! DClone is now $($Item.Status)/6 in $DCloneRegion on $CoreText $LadderText$ExpansionText$X[0m"
			$Message = ("D Clone is now " + $Item.Status + " out of 6 in $DCloneRegion on " + $CoreText + " " + $LadderText + $ExpansionVoice)
		}
		if ($item.VoiceAlarmStatus -eq $True){
			$VoiceMessages = $VoiceMessages + $Message + ". "
		}
	}
	if ($Null -ne $VoiceMessages){#if there are voice messages to play
		function Start-Speech {#Function to play these asynchronously so it doesn't hold up the rest of the script. Makes loading up games in a hurry a bit less stressful :)
			param(
			[string]$Text,
			[int]$Volume = 100,
			[int]$Rate = -2,
			[String]$Voice
			)
			$ps = [powershell]::Create().AddScript({#Create a PS runspace that runs asynchronously
				param($Message,$Vol,$Rate,$VoiceToUse)
				$voice = New-Object -ComObject Sapi.SpVoice
				$voice.Volume = $vol
				$voice.Rate   = $rate
				if ($VoiceToUse -eq "Man"){$voice.voice = $voice.getvoices() | Where-Object {$_.id -like "*David*"}}
				elseif ($VoiceToUse -eq "Woman"){$voice.voice = $voice.getvoices() | Where-Object {$_.id -like "*Zira*"}}
				else {break}# If specified voice doesn't exist
				$voice.Speak($Message)
			}).AddArgument($Text).AddArgument($Volume).AddArgument($Rate).AddArgument($Voice)
			$null = $ps.BeginInvoke()
		}
		$voice = New-Object -ComObject Sapi.spvoice
		if ($Script:Config.AlarmVoice -eq "Bloke" -or $Script:Config.AlarmVoice -eq "Man" -or $Script:Config.AlarmVoice -eq "Paladin"){$VoiceToUse = "Man"} #$voice.getvoices() | Where-Object {$_.id -like "*David*"}}
		ElseIf ($Script:Config.AlarmVoice -eq "Wench" -or $Script:Config.AlarmVoice -eq "Woman" -or $Script:Config.AlarmVoice -eq "Amazon"){$VoiceToUse = "Woman"}#$voice.getvoices() | Where-Object {$_.id -like "*ZIRA*"}}
		else {break}# If specified voice doesn't exist
		Start-Speech $VoiceMessages -Volume $Config.AlarmVolume -Rate "-2" -Voice $VoiceToUse
	}
	if ($null -ne $Message){
		Write-Host "  $X[38;2;065;105;225;48;2;1;1;1;4mDClone status provided by $($Script:Config.DCloneTrackerSource)$X[0m"
	}
}
Function WebRequestWithTimeOut {#Used to timeout web requests that take too long.
	param (
		[ScriptBlock] $ScriptBlock,
		[int] $TimeoutSeconds,
		[String] $InitiatingFunction,
		[String] $DCloneSource
	)
	$Script:DCloneErrorMessage = $null
	$TimedJob = Start-Job -ScriptBlock $ScriptBlock
	$timer = [Diagnostics.Stopwatch]::StartNew()
	while ($TimedJob.State -eq "Running" -and $timer.Elapsed.TotalSeconds -lt $TimeoutSeconds){
		Start-Sleep -Milliseconds 10
	}
	if ($TimedJob.State -eq "Running"){
		Stop-Job -Job $TimedJob
		if ($InitiatingFunction -eq "DClone"){
			$Script:DCloneErrorMessage = "   Error: Couldn't connect to $DCloneTrackerSource to check for DClone Status."
			Write-Host ("`n   Timed out connecting to DClone Data Source.") -foregroundcolor red
			Throw "Timed Out :(" #force an exception to break out of the try statement.
			Write-Host
		}
	}
	ElseIf ($TimedJob.State -eq "Completed"){
		$result = Receive-Job -Job $TimedJob
		Write-Verbose "Command completed successfully."
		ForEach ($Object in $result){#Remove Properties from Result Array inserted by the Start-Job command. This prevents skewed data for DClone status checks.
			$Object.PSObject.Properties.Remove("RunspaceId")
			$Object.PSObject.Properties.Remove("PSComputerName")
			$Object.PSObject.Properties.Remove("PSShowComputerName")
		}
		$result
	}
	else {
		if ($InitiatingFunction -eq "DClone"){
			Write-Host " Couldn't connect to $DCloneSource." -foregroundcolor red
		}
	}
	Remove-Job -Job $TimedJob
}
Function TerrorZone {
	param (
		[Switch] $GetLevelIDs
	)
	$TZProvider = "D2Emu.com"
	if ($Script:Config.UseChinaRegion -ne $True){ #This feature is unsupported for China as there is no API for CN currently
		$TZURI = "https://www.d2emu.com/api/v1/tz"
		$headers = @{
			'x-emu-username' = 'shupershuff'
			'x-emu-token' = $EmuToken
		}
		try {
			$D2TZResponse = Invoke-RestMethod -Uri $TZURI -headers $headers -TimeoutSec 5
			if ($D2TZResponse.status -eq "ERROR"){
				Throw #Error out if there's an issue with the connection
			}
		}
		catch {
			FormatFunction -indents 3 -IsError -Text "Couldn't retrieve TZ data from $TZProvider`n"
			PressTheAnyKey
			return
		}
		if ($GetLevelIDs){
			$Script:CurrentTZName = [System.Collections.Generic.HashSet[string]]::new()
			ForEach ($Level in $D2TZResponse.current){
				ForEach ($LevelID in $D2rLevels){
					if ($LevelID[0] -eq $Level){
						$Counter ++
						if ($Level -in ($Script:Config.TerrorZoneAlertAreas -split ',')){
							if ($LevelID[2] -ne ""){
								[void]$Script:CurrentTZName.add($LevelID[2]) #Return Name of Active TZ Group.
							}
							Else {
								[void]$Script:CurrentTZName.add($LevelID[1]) #Return Name of Active TZ. [void] suppresses the true/false that comes from this command.
							}
							if ($Counter -gt 1){
								$Script:TZCurrentPluralS = "s"
								$Script:TZCurrentPluralISAre = "are"
							}
							Else {
								$Script:TZCurrentPluralS = ""
								$Script:TZCurrentPluralISAre = "is"
							}
							#Break #TZ's can have multiple levels so lets leave loop after first match. EDIT, decided against this with ROTW changes.
						}
					}
				}
			}
			if (($D2TZResponse.next_available_time_utc + 1) -lt ([DateTimeOffset](Get-Date).ToUniversalTime()).ToUnixTimeSeconds()){ #Don't try pull next TZ details if they aren't available yet.
				$Counter = $Null
				$Script:UpcomingTZName = [System.Collections.Generic.HashSet[string]]::new()
				ForEach ($Level in $D2TZResponse.next){
					ForEach ($LevelID in $D2rLevels){
						if ($LevelID[0] -eq $Level){
							$Counter ++
							if ($Level -in ($Script:Config.TerrorZoneAlertAreas -split ',')){
								if ($LevelID[2] -ne ""){
									[void]$Script:UpcomingTZName.add($LevelID[2])	#Return Name of Upcoming TZ Group
								}
								Else {
									[void]$Script:UpcomingTZName.add($LevelID[1])  #Return Name of Upcoming TZ
								}							
								if ($Counter -gt 1){
									$Script:TZNextPluralS = "s"
									$Script:TZNextPluralISAre = "are"
								}
								Else {
									$Script:TZNextPluralS = ""
									$Script:TZNextPluralISAre = "is"
								}
							}
						}
					}
				}
			}
			$Script:CurrentTZName = ($Script:CurrentTZName -join ", ") -replace ', (?=[^,]+$)', ' and '
			$Script:UpcomingTZName = ($Script:UpcomingTZName -join ", ") -replace ', (?=[^,]+$)', ' and '
			return  @(($D2TZResponse.next_available_time_utc),($D2TZResponse.next_terror_time_utc))
		}
		ForEach ($Level in $D2TZResponse.current){
			Write-Debug "Level ID is: $Level"
			ForEach ($LevelID in $D2rLevels){
				if ($LevelID[0] -eq $Level){
					$CurrentTZ += $LevelID[1] + ", "
				}
			}
		}
		$CurrentTZ = $CurrentTZ -replace '..$', ''
		Function GetImmunities {
			param (
				[string]$ImmunityKey
			)
			$KeyName = "${ImmunityKey}_immunities"  # Construct the dynamic key name
			$Immunities = New-Object -TypeName System.Collections.ArrayList
			$TidiedImmunities = New-Object -TypeName System.Collections.ArrayList
			Foreach ($Immunity in $D2TZResponse.$KeyName){  # Use the dynamic key
				#The Immunity data isn't always consistent, sometimes it's 'c' for cold or sometimes it's "cold". Let's tidy it up.
				if ($Immunity -eq "p"){
					$Immunity = "Poison"
				}
				if ($Immunity -eq "ph"){
					$Immunity = "Physical"
				}
				if ($Immunity -eq "m"){
					$Immunity = "Magic"
				}
				if ($Immunity -eq "c"){
					$Immunity = "Cold"
				}
				if ($Immunity -eq "l"){
					$Immunity = "Lightning"
				}
				if ($Immunity -eq "f"){
					$Immunity = "Fire"
				}
				$Immunities += $Immunity
			}
			$Immunities = $Immunities | sort-object
			Foreach ($Immunity in $Immunities) {
				#Set some relevant colours for each of the resistances
				if ($Immunity -eq "Poison"){
					$Immunity = "$X[38;2;0;225;0;22mPoison$X[0m"
				}
				if ($Immunity -eq "Physical"){
					$Immunity = "$X[38;2;165;146;99;22mPhysical$X[0m"
				}
				if ($Immunity -eq "Magic"){
					$Immunity = "$X[38;2;165;165;164;22mMagic$X[0m"
				}
				if ($Immunity -eq "Cold"){
					$Immunity = "$X[38;2;65;105;225;22mCold$X[0m"
				}
				if ($Immunity -eq "Lightning"){
					$Immunity = "$X[38;2;255;255;0;22mLightning$X[0m"
				}
				if ($Immunity -eq "Fire"){
					$Immunity = "$X[38;2;255;10;0;22mFire$X[0m"
				}
				$TidiedImmunities += $Immunity
			}
			$TidiedImmunities = $TidiedImmunities | select-object -unique # Get rid of any duplicate entries.
			$TidiedImmunities = $TidiedImmunities -join ", "
			return $TidiedImmunities
		}
		write-host "   $X[38;2;255;165;000;4mCurrent Terror Zone Details:$X[0m"
		FormatFunction -SubsequentLineIndents 22 -text ("  Terrorized Level$(if($D2TZResponse.current.count -gt 1){'s:'}else{': '})  $X[38;2;255;0;255;22m" + $CurrentTZ + "$X[0m")
		FormatFunction -SubsequentLineIndents 22 -text ("  Immunities:         $X[38;2;255;0;255;22m" + (GetImmunities "Current") + "$X[0m")
		FormatFunction -SubsequentLineIndents 22 -text ("  Boss Packs:         Between $X[38;2;255;0;255;22m" + $D2TZResponse.current_num_boss_packs[0] + "$X[0m" + " and $X[38;2;255;0;255;22m" + $D2TZResponse.current_num_boss_packs[1] + "$X[0m boss packs $(if($D2TZResponse.current.count -gt 1){'across all TZ levels.'}else{'within this TZ level.'})")
		if ($D2TZResponse.current_superuniques.count -ge 1){
			FormatFunction -SubsequentLineIndents 22 -text ("  SuperUniques:       $X[38;2;165;146;99;22m" + ($D2TZResponse.current_superuniques -join ", ") + "$X[0m")
		}
		Else {
			FormatFunction -SubsequentLineIndents 22 -text "  SuperUniques:       No Super Unique monsters for $(if($D2TZResponse.current.count -gt 1){'these TZ levels'}else{'this TZ level'})."
		}
		write-host
		write-host "   $X[38;2;255;165;000;4mNext Terror Zone Details:$X[0m"
		if (($D2TZResponse.next_available_time_utc + 1) -lt [int]((Get-Date).ToUniversalTime() - [datetime]"1970-01-01 00:00:00").TotalSeconds){
			ForEach ($Level in $D2TZResponse.next){
				Write-Debug "Level ID is: $Level"
				ForEach ($LevelID in $D2rLevels){
					if ($LevelID[0] -eq $Level){
						$NextTZ += $LevelID[1] + ", "
					}
				}
			}
			$NextTZ = $NextTZ -replace '..$', ''
			FormatFunction -SubsequentLineIndents 22 -text ("  Terrorized Level$(if($D2TZResponse.next.count -gt 1){'s:'}else{': '})  $X[38;2;255;0;255;22m" + $NextTZ + "$X[0m")
			FormatFunction -SubsequentLineIndents 22 -text ("  Immunities:         $X[38;2;255;0;255;22m" + (GetImmunities "Next") + "$X[0m")
			FormatFunction -SubsequentLineIndents 22 -text ("  Boss Packs:         Between $X[38;2;255;0;255;22m" + $D2TZResponse.next_num_boss_packs[0] + "$X[0m" + " and $X[38;2;255;0;255;22m" + $D2TZResponse.next_num_boss_packs[1] + "$X[0m boss packs $(if($D2TZResponse.next.count -gt 1){'across all TZ levels.'}else{'within this TZ level.'})")
			if ($D2TZResponse.next_superuniques.count -ge 1){
				FormatFunction -SubsequentLineIndents 22 -text ("  SuperUniques:       $X[38;2;165;146;99;22m" + ($D2TZResponse.next_superuniques -join ", ") + "$X[0m")
			}
			Else {
				FormatFunction -SubsequentLineIndents 22 -text "  SuperUniques:       No Super Unique monsters for $(if($D2TZResponse.next.count -gt 1){'these TZ levels'}else{'this TZ level'})."
			}
		}
		else {
			$TZDetailsNotAvailableYet = $True #API details aren't available yet.
			$MinutesToWait = [int]([math]::Abs($D2TZResponse.next_available_time_utc - ([int]((Get-Date).ToUniversalTime() - [datetime]"1970-01-01 00:00:00").TotalSeconds)) / 60)
			if ($MinutesToWait -gt 1){
				$Plural = "s"
			}
			FormatFunction -SubsequentLineIndents 22 -text ("  Terrorized Level:   $X[38;2;255;0;255;22mNext TZ info is not available from TZ Provider API for another $MinutesToWait minute$Plural. If you need this info ASAP, please visit d2emu.com/tz.$X[0m")
			if ($D2TZResponse.next_superuniques.count -ge 1){
				FormatFunction -SubsequentLineIndents 22 -text ("  SuperUniques:       $X[38;2;165;146;99;22m" + ($D2TZResponse.next_superuniques -join ", ") + "$X[0m")
			}
		}
		if ($Debug){
			$D2TZResponse
			Write-Host "Current Immunities data"
			$D2TZResponse.current_immunities
		}
		Write-Host "`n  Information Retrieved at:  $(([DateTimeOffset]::FromUnixTimeSeconds([int]((Get-Date).ToUniversalTime() - [datetime]'1970-01-01 00:00:00').TotalSeconds + 1).ToLocalTime().DateTime).ToString('HH:mm:ss'))"
		if ($TZProvider -eq "D2Emu.com"){
			if ($DebugMode -eq $True -or $TZDetailsNotAvailableYet -eq $True){
				Write-Host "  Next TZ Data Available:    $(([DateTimeOffset]::FromUnixTimeSeconds(($D2TZResponse.next_available_time_utc)).ToLocalTime().DateTime).ToString("HH:mm:ss"))"
			}
			Write-Host "  Next TZ Starting time:     $(([DateTimeOffset]::FromUnixTimeSeconds(($D2TZResponse.next_terror_time_utc)).ToLocalTime().DateTime).ToString("HH:mm:ss"))"
		}
		Write-Host "  TZ info courtesy of:       $TZProvider`n"
	}
	Else { #D2Emu does not have an API for China.
		FormatFunction -indents 2 -IsError -Text "There isn't an API to retrieve China TZ information from $TZProvider yet`n"
	}
	if ($TZDetailsNotAvailableYet -eq $True -or $Script:Config.UseChinaRegion -eq $True){
		Write-Host "  Press '$X[38;2;255;165;000;22mt$X[0m' to open the D2Emu website or press any key to continue... " -nonewline
		$OpenD2EmuSite = readkey -AllowAllKeys $True
		if ($OpenD2EmuSite -eq "t"){
			# Get the default browser ProgId from registry
			$DefaultBrowserID = (Get-ItemProperty -Path "HKCU:\Software\Microsoft\Windows\Shell\Associations\UrlAssociations\http\UserChoice" -ErrorAction SilentlyContinue).ProgId
			switch -Regex ($DefaultBrowserID) {# List of common browsers. I'm not adding Safari to this list cos it's poos.
				"^ChromeHTML$" {
					$exe = "$env:ProgramFiles\Google\Chrome\Application\chrome.exe"
				}
				"^BraveHTML$" {
					$exe = "$env:Program Files\BraveSoftware\Brave-Browser\Application\brave.exe"
				}
				"^OperaStable$" {
					$exe = "$env:Program Files\Opera\opera.exe"
				}
				"^Opera GXStable$" { #for gamers, by gamers, probably.
					$exe = "$env:Program Files\Opera GX\opera.exe"
				}
				"^MSEdgeHTM$" { #Not as bad as everyone said it was.
					$exe = "$env:ProgramFiles (x86)\Microsoft\Edge\Application\msedge.exe"
				}
				"^FirefoxURL" {  # Did it this way so that it matches "FirefoxURL" and where a GUID is appended eg "FirefoxURL-123456B0AF4A98CB"
					$exe = "$env:ProgramFiles\Mozilla Firefox\firefox.exe"
				}
				"^IE\.HTTP$" { #no way is anybody still using this but here we go anyway.
					$exe = "$env:ProgramFiles\Internet Explorer\iexplore.exe"
				}
			}
			if ($Script:Config.UseChinaRegion -ne $True){
				$URL = "https://d2emu.com/tz"
			}
			Else {
				$URL = "https://d2emu.com/tz-china"
			}
			if (-not (Test-Path $exe)) {
				# Fallback to just use Start-Process with URL, which uses whatever the default browser is anyway
				Start-Process $URL
			}
			else {
				Start-Process $exe $URL
			}
		}
	}
	Else {
		PressTheAnyKey
	}
}
Function TerrorZoneVoiceAlarm {
	param(
		[string] $TZAlarmMessage
	)
	Function Start-Speech {#Function to play these asynchronously so it doesn't hold up the rest of the script. Makes loading up games in a hurry a bit less stressful :)
		param(
		[string]$Text,
		[int]$Volume = 100,
		[int]$Rate = -2,
		[String]$Voice
		)
		$ps = [powershell]::Create().AddScript({#Create a PS runspace that runs asynchronously
			param($Message,$Vol,$Rate,$VoiceToUse)
			$voice = New-Object -ComObject Sapi.SpVoice
			$voice.Volume = $vol
			$voice.Rate   = $rate
			if ($VoiceToUse -eq "Man"){$voice.voice = $voice.getvoices() | Where-Object {$_.id -like "*David*"}}
			elseif ($VoiceToUse -eq "Woman"){$voice.voice = $voice.getvoices() | Where-Object {$_.id -like "*Zira*"}}
			else {break}# If specified voice doesn't exist
			$voice.Speak($Message)
		}).AddArgument($Text).AddArgument($Volume).AddArgument($Rate).AddArgument($Voice)
		$null = $ps.BeginInvoke()
	}
	$voice = New-Object -ComObject Sapi.spvoice
	if ($Script:Config.AlarmVoice -eq "Bloke" -or $Script:Config.AlarmVoice -eq "Man" -or $Script:Config.AlarmVoice -eq "Paladin"){$VoiceToUse = "Man"} #$voice.getvoices() | Where-Object {$_.id -like "*David*"}}
	ElseIf ($Script:Config.AlarmVoice -eq "Wench" -or $Script:Config.AlarmVoice -eq "Woman" -or $Script:Config.AlarmVoice -eq "Amazon"){$VoiceToUse = "Woman"}#$voice.getvoices() | Where-Object {$_.id -like "*ZIRA*"}}
	else {break}# If specified voice doesn't exist
	Start-Speech $TZAlarmMessage -Volume $Config.AlarmVolume -Rate "-2" -Voice $VoiceToUse
}
Function KillHandle { #Thanks to sir-wilhelm for tidying this up.
	param ([Switch]$TryAgain)
	$handle64 = "$PSScriptRoot\handle\handle64.exe"
	$handle = & $handle64 -accepteula -a -p D2R.exe "Check For Other Instances" -nobanner | Out-String
	if ($TryAgain -and $Handle -match "no matching handles found"){ #If handle can't be found, perhaps the game is slow to load, try waiting half a second before trying again.
		do {
			$attempt ++
			write-debug "Handle wasn't found, trying again in 500ms..."
			start-sleep -milliseconds 500
			$handle = & $handle64 -accepteula -a -p D2R.exe "Check For Other Instances" -nobanner | Out-String
		} until ($attempt -eq 5 -or $Handle -notmatch "no matching handles found")
	}
	if ($handle -match "pid:\s+(?<d2pid>\d+)\s+type:\s+Event\s+(?<eventHandle>\w+):"){
		$d2pid = $matches["d2pid"]
		$eventHandle = $matches["eventHandle"]
		Write-Verbose "Closing handle: $eventHandle on pid: $d2pid"
		& $handle64 -c $eventHandle -p $d2pid -y #-nobanner
	}
}
Function CheckActiveAccounts {#Note: only works for accounts loaded by the script
	#check if there's any open instances and check the game title window for which account is being used.
	try {
		$Script:ActiveIDs = $Null
		$D2rRunning = $false
		$Script:ActiveIDs = New-Object -TypeName System.Collections.ArrayList
		$Script:ActiveIDs = (Get-Process | Where-Object {$_.processname -eq "D2r" -and $_.MainWindowTitle -match "- Diablo II: Resurrected$"} | Select-Object MainWindowTitle).mainwindowtitle.substring(0,2).trim() #find all diablo 2 game windows and pull the account ID from the title
		$Script:D2rRunning = $true
		Write-Verbose "There are D2r Running Instances."
	}
	catch {#if the above fails then there are no running D2r instances.
		$Script:D2rRunning = $false
		Write-Verbose "No Running D2r Instances."
		$Script:ActiveIDs = ""
	}
	if ($Script:D2rRunning -eq $True){
		$Script:ActiveAccountsList = New-Object -TypeName System.Collections.ArrayList
		ForEach ($ActiveID in $ActiveIDs){#Build list of active accounts that we can omit from being selected later
			$ActiveAccountDetails = $Script:AccountOptionsCSV | where-object {$_.id -eq $ActiveID}
			$ActiveAccount = New-Object -TypeName psobject
			$ActiveAccount | Add-Member -MemberType NoteProperty -Name ID -Value $ActiveAccountDetails.ID
			$ActiveAccount | Add-Member -MemberType NoteProperty -Name AccountName -Value $ActiveAccountDetails.accountlabel
			$InstanceProcessID = (Get-Process | Where-Object {$_.processname -eq "D2r" -and ($_.MainWindowTitle -match "$($ActiveAccountDetails.ID) - $($ActiveAccountDetails.accountlabel)" -and $_.MainWindowTitle -match "- Diablo II: Resurrected$")} | Select-Object ID).id
			write-verbose "  ProcessID for $($ActiveAccountDetails.ID) - $($ActiveAccountDetails.accountlabel) is $InstanceProcessID"
			$ActiveAccount | Add-Member -MemberType NoteProperty -Name ProcessID -Value $InstanceProcessID
			[VOID]$Script:ActiveAccountsList.Add($ActiveAccount)
		}
	}
	else {
		$Script:ActiveAccountsList = $Null
	}
}
Function DisplayActiveAccounts {
	Write-Host
	if ($Script:EnableBatchFeature -eq $true){
		$LongestAccountLabelLength = $Script:AccountOptionsCSV.accountlabel | ForEach-Object { $_.Length } | Measure-Object -Maximum | Select-Object -ExpandProperty Maximum #find out how many batches there are so table can be properly indented.
		if ($LongestAccountLabelLength -ge 28){$LongestAccountLabelLength = 28} #we will limit long display names on the main screen to prevent odd things happening.
		while ($AccountHeaderIndent.length -lt ($LongestAccountLabelLength -13)){#indent the header for batches based on how long the longest account name is
			$AccountHeaderIndent = $AccountHeaderIndent + " "
		}
	}
	if ($Script:ActiveAccountsList.id -ne ""){#if batch feature is enabled add a column to display batch number(s)
		if ($Script:Config.TrackAccountUseTime -eq $true){
			$PlayTimeHeader = "Hours Played   "
		}
		if ($Script:EnableBatchFeature -eq $true){
			foreach ($row in $Script:AccountOptionsCSV) {
				if ($row.batches -like '*,*'){
					$Plural = 'es'
					break
				}
			}
			$BatchesHeader = ("" + $AccountHeaderIndent + "Batch$Plural")
		}
		Write-Host ("  ID   Region   " + $PlayTimeHeader + "Account Label   " + $BatchesHeader) #Header
	}
	else {
		Write-Host "  ID   Account Label"
	}
	if ($Script:Config.UseChinaRegion -ne $True){
		$Pattern = "(?<=\()([a-z]+)(?=\.actual\.battle\.net\))" #Regex pattern to pull the region characters out of the window title.
	}
	Else {
		$Pattern = "(?<=\()([a-z]+)(?=\.actual\.battlenet\.com\.cn\))" #Regex pattern to pull the region characters out of the window title.
	}
	ForEach ($AccountOption in ($Script:AccountOptionsCSV | Sort-Object -Property @{ #Try sort by number first (needed for 2 digit ID's), then sort by character.
		Expression = {
			$intValue = [int]::TryParse($_.ID, [ref]$null) # Try to convert the value to an integer
			if ($intValue){# If it's not null then it's a number, so return it as an integer for sorting.
				[int]$_.ID
			}
			else {# If it's not a number, return a character and sort that.
				[char]$_.ID
			}
		}
	}))
	{
		if ($AccountOption.accountlabel.length -gt 28){ #later we ensure that strings longer than 28 chars are cut short so they don't disrupt the display.
			$AccountOption.accountlabel = $AccountOption.accountlabel.Substring(0, 28)
		}
		$RegionDisplayPostIndent = ""
		$RegionDisplayPreIndent = ""
		if ($AccountOption.ID.length -ge 2){#keep table formatting looking lovely if some crazy user has 10+ accounts.
			$IDIndent = ""
		}
		else {
			$IDIndent = " "
		}
		if ($Script:EnableBatchFeature -eq $true){
			$Batches = $AccountOption.batches
			$AccountIndent = ""
			if ($LongestAccountLabelLength -lt 13){#If longest account labels are shorter than 13 characters, set this variable to the minimum (13) so indenting works properly.
				$LongestAccountLabelLength = 13
			}
			while (($AccountOption.accountlabel.length + $AccountIndent.length) -le $LongestAccountLabelLength){#keep adding indents until account label plus the indents matches the longest account name. Keeps table nice and neat.
				$AccountIndent = $AccountIndent + " "
			}
		}
		if ($Script:Config.TrackAccountUseTime -eq $true){
			try {
				$AcctPlayTime = (" " + (($time =([TimeSpan]::Parse($AccountOption.TimeActive))).hours + ($time.days * 24)).tostring() + ":" + ("{0:D2}" -f $time.minutes) + "   ")  # Add hours + (days*24) to show total hours, then show ":" followed by minutes
			}
			catch {#if account hasn't been opened yet.
				$AcctPlayTime = "   0   "
				Write-Debug "Account not opened yet."
			}
			if ($AcctPlayTime.length -lt 15){#formatting. Depending on the amount of characters for this variable push it out until it's 15 chars long.
				while ($AcctPlayTime.length -lt 15){
					$AcctPlayTime = " " + $AcctPlayTime
				}
			}
		}
		if ($AccountOption.id -in $Script:ActiveAccountsList.id){ #if account is currently active
			$Windowname = (Get-Process | Where-Object {$_.processname -eq "D2r" -and $_.MainWindowTitle -like ($AccountOption.id + "*Diablo II: Resurrected")} | Select-Object MainWindowTitle).mainwindowtitle #Check active game instances to see which accounts are active. As this is based on checking window titles, this will only work for accounts opened from the script
			$CurrentRegion = [regex]::Match($WindowName, $Pattern).value #Check which region aka realm the active account is connected to.
			if ($CurrentRegion -eq "US"){$CurrentRegion = "NA"; $RegionDisplayPreIndent = " "; $RegionDisplayPostIndent = " "}
			if ($CurrentRegion -eq "KR"){$CurrentRegion = "Asia"}
			if ($CurrentRegion -eq "EU"){$CurrentRegion = "EU"; $RegionDisplayPreIndent = " "; $RegionDisplayPostIndent = " "}
			if ($CurrentRegion -eq "CN"){$CurrentRegion = "CN"; $RegionDisplayPreIndent = " "; $RegionDisplayPostIndent = " "}
			if ($CurrentRegion -eq ""){$CurrentRegion = "TBC"; $RegionDisplayPreIndent = ""; $RegionDisplayPostIndent = " "}
			Write-Host ("  " + $IDIndent + $AccountOption.ID + "    "  + $RegionDisplayPreIndent + $CurrentRegion + $RegionDisplayPostIndent + "    " + $AcctPlayTime + $AccountOption.accountlabel + " - Account Active.") -foregroundcolor yellow
		}
		else {#if account isn't currently active
			Write-Host ("  " + $IDIndent + $AccountOption.ID + "      -     " + $AcctPlayTime + $AccountOption.accountlabel + "  " + $AccountIndent + $Batches) -foregroundcolor green
		}
	}
}
Function Menu {
	Clear-Host
	if ($Script:ScriptHasBeenRun -eq $true){
		$Script:AccountUsername = $Null
		if ($DebugMode -eq $true){
			DisplayPreviousAccountOpened
		}
	}
	Else {
		Write-Host ("  You have quite a treasure there in that Horadric multibox script v" + $Currentversion)
	}
	Notifications -check $True
	BannerLogo
	QuoteRoll
	if ($Null -eq $Batch -and $Script:OpenAllAccounts -ne $True){#go through normal account selection screen if script hasn't been launched with parameters that already determine this.
		ChooseAccount
	}
	Else {
		CheckActiveAccounts
		$Script:PWmanualset = $False
		$Script:AcceptableValues = New-Object -TypeName System.Collections.ArrayList
		$Script:TwoDigitIDsUsed = $False
		$Script:TwoDigitBatchesUsed = $False
		ForEach ($AccountOption in $Script:AccountOptionsCSV){
			if ($AccountOption.id -notin $Script:ActiveAccountsList.id){
				$Script:AcceptableValues = $AcceptableValues + ($AccountOption.id) #+ "x"
				if ($AccountOption.id.length -eq 2){
					$Script:TwoDigitIDsUsed = $True
				}
			}
		}
	}
	if ($Null -ne $Batch -or $Script:OpenBatches -eq $true){#if batch has been passed through parameter or if batch was been selected from the menu.
		$Script:AcceptableBatchIDs = $Null #reset value
		$AcceptableBatchValues = $Null #reset value
		ForEach ($ID in $Script:AccountOptionsCSV){
			if ($ID.id -in $Script:AcceptableValues){#Find batch values to choose from based on accounts that aren't already open.
				$AcceptableBatchValues = $AcceptableBatchValues + ($ID.batches).split(',') #collate acceptable options of batch ID's
				$Script:AcceptableBatchIDs = $Script:AcceptableBatchIDs + ($ID.id).split(',') #collate acceptable options of account ID's
			}
		}
		$AcceptableBatchValues = @($AcceptableBatchValues | where-object {$_ -ne ""} | Select-Object -Unique | Sort-Object) #Unique list of available batches that can be opened. @ converts this from a PSObject into an array which fixes the issue of -notin not working on PSobjects with only 1 item.
		ForEach ($BatchValue in $AcceptableBatchValues){
			if ($BatchValue.length -eq 2){
				$Script:TwoDigitBatchesUsed = $True
			}
		}
		do {
			if ($Null -ne $Batch -and $Batch -notin $AcceptableBatchValues){#if batch specified in the parameter isn't valid
				$Script:BatchToOpen = $Batch
				$Batch = $Null
				DisplayActiveAccounts
				Write-Host "`n Batch specified in Parameter is either incorrect or all accounts in that" -foregroundcolor Yellow
				Write-Host " batch are already open. Adjust your parameter or manually specify below.`n" -foregroundcolor Yellow
				start-sleep -milliseconds 5000
				exit
			}
			if ($Null -ne $Batch -and $Batch -in $AcceptableBatchValues){#if batch is valid, set variable so that loop can be exited.
				$Script:BatchToOpen = $Batch
			}
			ElseIf ($AcceptableBatchValues.count -eq 1){
				Write-Host " Opening Batch $X[38;2;255;165;000;22m$AcceptableBatchValues$X[0m.`n"
				$Script:BatchToOpen = $AcceptableBatchValues[0]
			}
			Else {
				Write-Host " Which Batch of accounts would you like to open (" -nonewline
				CommaSeparatedList $AcceptableBatchValues #write out each account option, comma separated but show each option in orange writing. Essentially output overly complicated fancy display options :)
				Write-Host ")?"
				if ($Null -eq $Batch){
					Write-Host " Alternatively, press '$X[38;2;255;165;000;22mc$X[0m' to cancel: " -nonewline
				}
				if ($Script:TwoDigitBatchesUsed -eq $True){
					$Script:BatchToOpen = ReadKeyTimeout "" $MenuRefreshRate "c" -AdditionalAllowedKeys 27 -TwoDigitAcctSelection $True #$MenuRefreshRate represents the refresh rate of the menu in seconds (30). If no button is pressed, send "c" for cancel.
				}
				else {
					$Script:BatchToOpen = ReadKeyTimeout "" $MenuRefreshRate "c" -AdditionalAllowedKeys 27 #$MenuRefreshRate represents the refresh rate of the menu in seconds (30). If no button is pressed, send "c" for cancel.
				}
				Write-Host
			}
			if ($Script:BatchToOpen -notin $AcceptableBatchValues + "c" + "Esc"){
				Write-Host " Invalid Input. Please enter one of the options above.`n" -foregroundcolor red
				$Script:BatchToOpen = ""
			}
		} until ($Script:BatchToOpen -in $AcceptableBatchValues + "c" + "Esc")
		if ($BatchToOpen -ne "c" -and $BatchToOpen -ne "Esc"){
			$Script:BatchedAccountIDsToOpen = New-Object -TypeName System.Collections.ArrayList
			ForEach ($ID in $Script:AccountOptionsCSV){
				if ($ID.id -in $Script:AcceptableBatchIDs -and $ID.batches.split(',') -contains $Script:BatchToOpen.tostring()){
					$Script:BatchedAccountIDsToOpen = $Script:BatchedAccountIDsToOpen + $ID.id
				}
			}
		}
		Else {
			$Script:OpenBatches = $False
		}
	}
	if ($Script:ParamsUsed -eq $false -and ($Script:RegionOption.length -ne 0 -or $Script:Region.length -ne 0)){
		$Script:Region = ""
		$Script:RegionOption = ""
	}
	if ($Script:BatchToOpen -ne "c" -and $Script:BatchToOpen -ne "Esc"){#get next region unless the cancel option has been specified.
		if ($Script:region.length -eq 0){#if no region parameter has been set already.
			ChooseRegion
		}
		Else {#if region parameter has been set already.
			if ($Script:region -eq "NA" -or $Script:region -eq "us" -or $Script:region -eq 1){$Script:region = "us.actual.battle.net"}
			if ($Script:region -eq "EU" -or $Script:region -eq 2){$Script:region = "eu.actual.battle.net"}
			if ($Script:region -eq "Asia" -or $Script:region -eq "As" -or $Script:region -eq "KR" -or $Script:region -eq 3){$Script:region = "kr.actual.battle.net"}
			if ($Script:region -eq "China" -or $Script:region -eq "CN" -or $Script:region -eq 4){$Script:region = "cn.actual.battlenet.com.cn"}
			if ($Script:region -ne "us.actual.battle.net" -and $Script:region -ne "eu.actual.battle.net" -and $Script:region -ne "kr.actual.battle.net" -and $Script:region -ne "cn.actual.battlenet.com.cn"){
				Write-Host " Region $region not valid. Please choose region" -foregroundcolor red
				ChooseRegion
			}
		}
	}
	$Script:AccountOptionsCSV = import-csv "$Script:WorkingDirectory\Accounts.csv" #Import accounts.csv again in case someone has updated Auth Method without closing the script.
	if ($Script:OpenAllAccounts -eq $True){
		Write-Host "`n Opening all accounts..."
		ForEach ($ID in $Script:AcceptableValues){
			$Script:AccountChoice = $Script:AccountOptionsCSV | where-object {$_.id -eq $ID}
			$Script:AccountID = $ID
			if ($id -eq $Script:AcceptableValues[-1]){
				$Script:LastAccount = $true
			}
			Write-Host "`n Opening Account: $ID"
			Processing
		}
		$Script:LastAccount = $False
		$Script:OpenAllAccounts = $False
		if ($Script:ParamsUsed -ne $True){
			Menu
		}
	}
	Else {
		if ($Script:OpenBatches -eq $True -and $Script:RegionOption -ne "c" -and $Script:RegionOption -ne "Esc"){
			if ($Script:BatchedAccountIDsToOpen.count -gt 1){
				$BatchPlural = "s"
			}
			Write-Host "`n Opening account$BatchPlural " -nonewline
			CommaSeparatedList $Script:BatchedAccountIDsToOpen -AndText
			Write-Host " from batch $BatchToOpen..."
			ForEach ($ID in $Script:BatchedAccountIDsToOpen){
				$Script:AccountChoice = $Script:AccountOptionsCSV | where-object {$_.id -eq $ID}
				$Script:AccountID = $ID
				if ($id -eq $Script:BatchedAccountIDsToOpen[-1]){
					$Script:LastAccount = $true
				}
				Write-Host "`n Opening Account: $ID..."
				Processing
			}
			$Script:LastAccount = $False
			$Script:OpenBatches = $False
			Start-Sleep -milliseconds 500
			if ($Script:ParamsUsed -ne $True){
				Menu
			}
		}
		Else {
			if ($Script:BatchToOpen -ne "c" -and $Script:BatchToOpen -ne "Esc"){
				Processing
			}
			if ($Script:ParamsUsed -ne $true){
				Menu
			}
			else {
				Write-Host "I'm quitting LOL"
				exit
			}
		}
	}
}
Function ChooseAccount {
	if ($Null -eq $Script:AccountUsername){#if no account parameters have been set already
		do {
			$LoopMenuOptions = "r,t,d,g,j,s,i,o,c" -split ","
			if ($Script:AccountID -eq "t"){
				TerrorZone
				$Script:AccountID = "r"
			}
			if ($Script:AccountID -eq "d"){
				DClone -DisableOutput $False -DCloneTrackerSource $Script:Config.DCloneTrackerSource -TagList $Script:Config.DCloneAlarmList -EmuToken $Script:EmuToken
				$Script:AccountID = "r"
			}
			if ($Script:AccountID -eq "j"){
				JokeMaster
				$Script:AccountID = "r"
			}
			if ($Script:AccountID -eq "i"){
				Inventory #show stats
				$Script:AccountID = "r"
			}
			if ($Script:AccountID -eq "o"){ #options menu
				Options
				$Script:AccountID = "r"
			}
			if ($Script:AccountID -eq "s"){
				if ($Script:AskForSettings -eq $True){
					Write-Host "  Manual Setting Switcher Disabled." -foregroundcolor Green
					$Script:AskForSettings = $False
				}
				else {
					Write-Host "  Manual Setting Switcher Enabled." -foregroundcolor Green
					$Script:AskForSettings = $True
				}
				Start-Sleep -milliseconds 1550
				$Script:AccountID = "r"
			}
			if ($Script:AccountID -eq "g"){#silly thing to replicate in game chat gem.
				$Script:CurrentStats = import-csv "$Script:WorkingDirectory\Stats.csv"
				if ($Script:GemActivated -ne $True){
					$GibberingGemstone = get-random -minimum 0 -maximum  4095
					if ($GibberingGemstone -eq 69 -or $GibberingGemstone -eq 420){#nice
						Write-Host "  Perfect Gem Activated" -ForegroundColor magenta
						Write-Host "`n     OMG!" -foregroundcolor green
						$Script:PGemActivated = $True
						([int]$Script:CurrentStats.PerfectGems) ++
						SetQualityRolls
						Start-Sleep -milliseconds 4567
					}
					else {
						if ($GibberingGemstone -in 16..32){
							CowKingKilled
							$SkipCSVExport = $True
						}
						else {
							Write-Host "  Gem Activated" -ForegroundColor magenta
							([int]$Script:CurrentStats.Gems) ++
						}
					}
					$Script:GemActivated = $True
					SetQualityRolls
					if ($SkipCSVExport -ne $True){
						try {
							$CurrentStats | Export-Csv -Path "$Script:WorkingDirectory\Stats.csv" -NoTypeInformation #update Stats.csv with Gems/PGems.
						}
						Catch {
							Write-Host "  Couldn't update stats.csv" -foregroundcolor yellow
						}
					}
				}
				Else {
					Write-Host "  Gem Deactivated" -ForegroundColor magenta
					$Script:GemActivated = $False
					SetQualityRolls
				}
				Start-Sleep -milliseconds 850
				$Script:AccountID = "r"
			}
			if ($Script:AccountID -eq "r"){#refresh
				Clear-Host
				if ($Script:ScriptHasBeenRun -eq $true){
					if ($DebugMode -eq $true){
						DisplayPreviousAccountOpened
					}
				}
				Notifications -check $True
				BannerLogo
				QuoteRoll
			}
			CheckActiveAccounts
			if ($Null -ne $Close -or $Script:AccountID -eq "c"){
				if ($Close -eq "all" -or $Script:AccountID -eq "c"){
					if ($Script:AccountID -eq "c"){
						do {
							Write-Host "`n  $X[38;2;255;000;000;22mAre you sure you want to close all instances ($X[0m$X[38;2;255;165;000;22mY$X[0m$X[38;2;255;000;000;22m/$X[0m$X[38;2;255;165;000;22mN$X[0m$X[38;2;255;000;000;22m)?$X[0m " -nonewline
							$Confirm = (ReadKeyTimeout "" $MenuRefreshRate "n" -AllowYesNoOnly $True).tostring()
							if ($Confirm -eq "n"){
								$Script:AccountID = "r"
								Clear-Host
								BannerLogo
								QuoteRoll
							}
						} Until ($Confirm -eq "Y" -or $Confirm -eq "N")
					}
					if ($Confirm -eq "Y" -or $Close -eq "all"){
						if ($Script:D2rRunning -eq $True){
							stop-process -name d2r #Indescriminately KILL ALL D2r processes muahahaha.
							Write-Host "  All D2r instances closed."
							Start-Sleep -milliseconds 850
						}
						Else {
							write-Host "  No D2r instances to close..." -ForegroundColor Yellow
							Start-Sleep -milliseconds 850
						}
						if ($Close -eq "all"){
							Exit
						}
						Else {
							CheckActiveAccounts
						}
					}
				}
				else {
					$ProcessToKill = ($Script:ActiveAccountsList | where-object {$_.ID -eq $close}).ProcessID
					try {
						stop-process -id $ProcessToKill
						Write-Host "Process killed for account $Close."
					}
					Catch {
						write-host "Account $close isn't currently running."
					}
					Exit
				}
			}
			DisplayActiveAccounts
			$AdditionalTimeSpan = New-TimeSpan -Start $Script:StartTime -End (Get-Date) #work out elapsed time for session timer and if time tracking enabled for adding time to add to accounts.csv
			if ($Script:ActiveAccountsList.id.length -ne 0){#if there are active accounts open, add to total session time
				if ($Script:IdleLimitForAccountUseTime -ne "" -and $Script:IdleLimitForAccountUseTime -gt 0){#If Idlelimitfeature is used, calc idle time and check if we should append session time.
					$Script:IdleMinutes = [int](IdleTimeChecker)/60
					if ($IdleMinutes -lt $Script:IdleLimitForAccountUseTime){ #If we've been idle less than what's specified in config.xml, append time
						$Script:SessionTimer = $Script:SessionTimer + $AdditionalTimeSpan #track current session time but only if a game is running
					}
				}
				Else {
					$Script:SessionTimer = $Script:SessionTimer + $AdditionalTimeSpan #track current session time but only if a game is running
				}
			}
			if ($Script:Config.TrackAccountUseTime -eq $True){
				$OpenD2LoaderInstances = Get-WmiObject -Class Win32_Process | Where-Object { $_.name -eq "powershell.exe" -and $_.commandline -match $Script:ScriptFileName} | Select-Object name,processid,creationdate | Sort-Object creationdate -descending #command requires elevation to show commandline details.
				if ($OpenD2LoaderInstances.length -gt 1){#If there's more than 1 D2loader.ps1 script open, close until there's only 1 open to prevent the time played accumulating too quickly.
					ForEach ($Process in $OpenD2LoaderInstances[1..($OpenD2LoaderInstances.count -1)]){
						Stop-Process -id $Process.processid -force #Closes oldest running d2loader script
					}
				}
				if ($Script:ActiveAccountsList.id.length -ne 0){#if there are active accounts open add to total script time
					if ($Script:IdleLimitForAccountUseTime -ne "" -and $Script:IdleLimitForAccountUseTime -gt 0){#If Idlelimitfeature is used, calc idle time and check if we should skip adding time.
						$Skip = $False
						$Script:IdleMinutes = [int](IdleTimeChecker)/60
						if ($IdleMinutes -gt $Script:IdleLimitForAccountUseTime){#If we've been idle more than what's specified in config.xml, skip append time
							$Skip = $True
						}
					}
					if ($Skip -ne $True){#If computer isn't idle OR if we're not bothering with checking idle status.
						#Add time for each account that's open
						$Script:AccountOptionsCSV = import-csv "$Script:WorkingDirectory\Accounts.csv"
						ForEach ($AccountID in $Script:ActiveAccountsList.id |Sort-Object){ #$Script:ActiveAccountsList.id
							$AccountToUpdate = $Script:AccountOptionsCSV | Where-Object {$_.ID -eq $accountID}
							if ($AccountToUpdate){
								$AdditionalTimeSpan = New-TimeSpan -Start $Script:StartTime -End (Get-Date)
								try {#get current time from csv and add to it
									$AccountToUpdate.TimeActive = [TimeSpan]::Parse($AccountToUpdate.TimeActive) + $AdditionalTimeSpan
								}
								Catch {#if CSV hasn't been populated with a time yet.
									$AccountToUpdate.TimeActive = $AdditionalTimeSpan
								}
							}
							try {
								$Script:AccountOptionsCSV | Export-Csv -Path "$Script:WorkingDirectory\Accounts.csv" -NoTypeInformation #update accounts.csv with the new time played.
							}
							Catch {
								$WriteAcctCSVError = $True
							}
						}
						if ($WriteAcctCSVError -eq $true){
							Write-Host "`n  Couldn't update accounts.csv with playtime info." -ForegroundColor Red
							Write-Host "  It's likely locked for editing, please ensure you close this file." -ForegroundColor Red
							start-sleep -milliseconds 1500
							$WriteAcctCSVError = $False
						}
						#Add Time to Total Script Time only if there's an open game.
						$Script:CurrentStats = import-csv "$Script:WorkingDirectory\Stats.csv"
						try {
							$AdditionalTimeSpan = New-TimeSpan -Start $Script:StartTime -End (Get-Date)
							try {#get current time from csv and add to it
								$Script:CurrentStats.TotalGameTime = [TimeSpan]::Parse($CurrentStats.TotalGameTime) + $AdditionalTimeSpan
							}
							Catch {#if CSV hasn't been populated with a time yet.
								$Script:CurrentStats.TotalGameTime = $AdditionalTimeSpan
							}
							$CurrentStats | Export-Csv -Path "$Script:WorkingDirectory\Stats.csv" -NoTypeInformation #update Stats.csv with Total Time played.
						}
						Catch {
							Write-Host "`n  Couldn't update Stats.csv with playtime info." -ForegroundColor Red
							Write-Host "  It's likely locked for editing, please ensure you close this file." -ForegroundColor Red
							start-sleep -milliseconds 1500
						}
						Write-Debug "`n  Added time to CSV: $($AdditionalTimeSpan.minutes).$($AdditionalTimeSpan.seconds).$($AdditionalTimeSpan.milliseconds)"
					}
				}
			}
			$Script:StartTime = Get-Date #restart timer for session time (and account time if user is tracking that too).
			$Script:AcceptableValues = New-Object -TypeName System.Collections.ArrayList
			$Script:TwoDigitIDsUsed = $False
			ForEach ($AccountOption in $Script:AccountOptionsCSV){
				if ($AccountOption.id -notin $Script:ActiveAccountsList.id){
					$Script:AcceptableValues = $AcceptableValues + ($AccountOption.id) #+ "x"
					if ($AccountOption.id.length -eq 2){
						$Script:TwoDigitIDsUsed = $True
					}
				}
			}
			$AccountOptions = ($Script:AcceptableValues -join  ", ").trim()
			#Check for TZ Alarms
			if ($Script:Config.TerrorZoneAlertAreas -ne "" -and $Script:Config.UseChinaRegion -ne $True){
				if ($Null -eq $Script:LastActiveTZCheck){#set initial values so if statements don't error out.
					$Script:LastActiveTZCheck = ([DateTimeOffset](Get-Date "2000-01-01").ToUniversalTime()).ToUnixTimeSeconds()
					$Script:LastUpcomingTZCheck = ([DateTimeOffset](Get-Date "2000-01-01").ToUniversalTime()).ToUnixTimeSeconds()
					$Script:TZDataTimings = @($Null)
				}
				try {
					$UpdateCurrent = $False
					$TZAlarmTimeCheck = ([DateTimeOffset](Get-Date).ToUniversalTime()).ToUnixTimeSeconds()
					if ($Script:LastActiveTZCheck -gt $Script:CurrentTZEndTime){
						$Script:CurrentTZName = $Null
						$Script:UpcomingTZName = $Null
						$Script:TZActiveAlarmMessage = $Null
						$Script:TZUpcomingAlarmMessage = $Null
						$TZAlarmMessages = $Null
					}
					if ($Script:InitialTZCheck -ne $True -or $TZAlarmTimeCheck -gt $Script:CurrentTZEndTime -or ($TZAlarmTimeCheck -gt $Script:TZDataTimings[0] -and $Script:LastUpcomingTZCheck -lt $Script:TZDataTimings[0])){	#To prevent API spam and maintain script performance, only run TZ check when required.
						$Script:TZDataTimings = TerrorZone -GetLevelIDs #Get latest TZ detail and also return some timings to this variable	
						if ($Null -eq $Script:CurrentTZEndTime){ #If this is the first time running
							$UpdateCurrent = $True
							$Script:CurrentTZEndTime = $Script:TZDataTimings[1]
							$Script:CurrentTZStartTime = $TZAlarmTimeCheck -1 #Not actually the start time, but lets at least populate something here for comparison for the first loop.
						}
						if ($Script:CurrentTZEndTime -ne $Script:TZDataTimings[1]){ #if the time for when the next set of API details are available has changed
							$UpdateCurrent = $True
							$Script:CurrentTZStartTime = $Script:CurrentTZEndTime
							$Script:CurrentTZEndTime = $Script:TZDataTimings[1]
						}
						if ($TZAlarmTimeCheck -lt $Script:TZDataTimings[0]){ #if current time is before when the the Upcoming TZ details are available from the API.
							$Script:UpcomingTZName = $Null
						}
					}
					if ($UpdateCurrent -eq $True){ # if script has just been launched or TZ hasn't been checked this cycle lets see if our fav TZ's are active
						if ($Script:CurrentTZName){
							write-debug "Showing and Alarming active TZ"
							$ActiveTZAlert = ($Script:CurrentTZName -replace '\d+$','').trim() #remove any numbers and spaces at the end of the TZ name to make the announcement a bit nicer.
							$Script:TZActiveAlarmMessage = "Terrorzone$TZCurrentPluralS $ActiveTZAlert $TZCurrentPluralISAre active!"
							$TZAlarmMessages = $TZActiveAlarmMessage
							FormatFunction -text "$X[38;2;165;146;99;48;2;1;1;1;4m$TZActiveAlarmMessage$X[0m" -indents 1
						}
						else {
							$Script:TZActiveAlarmMessage = $Null
						}
						$Script:LastActiveTZCheck = ([DateTimeOffset](Get-Date).ToUniversalTime()).ToUnixTimeSeconds()
					}
					elseif ($Script:TZActiveAlarmMessage -and $TZAlarmTimeCheck -gt $Script:CurrentTZStartTime){
						write-debug "Only Showing active TZ"
						FormatFunction -text "$X[38;2;165;146;99;48;2;1;1;1;4m$TZActiveAlarmMessage$X[0m" -indents 1
					}
					if (($Script:InitialTZCheck -ne $True) -or ($TZAlarmTimeCheck -gt $Script:TZDataTimings[0] -and $Script:LastUpcomingTZCheck -lt $Script:TZDataTimings[0])){ #Run once if not already. Show TZ details when they're available. Voicealarm if it hasn't already been checked this cycle.
						if ($Script:UpcomingTZName){
							write-debug "Showing and alarming upcoming TZ"
							$UpcomingTZAlert = ($Script:UpcomingTZName -replace '\d+$','').trim() #remove any numbers and spaces at the end of the TZ name to make the announcement a bit nicer.
							$Script:TZUpcomingAlarmMessage = "Terrorzone$TZNextPluralS $UpcomingTZAlert $TZNextPluralISAre upcoming!"
							$TZAlarmMessages += $TZUpcomingAlarmMessage
							FormatFunction -text "$X[38;2;165;146;99;48;2;1;1;1;4m$TZUpcomingAlarmMessage$X[0m" -indents 1
						}
						else {
							$Script:TZUpcomingAlarmMessage = $Null
						}
						$Script:LastUpcomingTZCheck = ([DateTimeOffset](Get-Date).ToUniversalTime()).ToUnixTimeSeconds()
					}
					elseif ($Script:TZUpcomingAlarmMessage -and $TZAlarmTimeCheck -gt ($Script:TZDataTimings[0])){
						write-debug "Only Showing upcoming TZ"
						FormatFunction -text "$X[38;2;165;146;99;48;2;1;1;1;4m$TZUpcomingAlarmMessage$X[0m" -indents 1
					}
					if ($TZAlarmMessages){#if we need to do text to speech alarms
						TerrorZoneVoiceAlarm -TZAlarmMessage $TZAlarmMessages
						$TZAlarmMessages = $Null
					}
					$Script:InitialTZCheck = $True
				}
				Catch {
					write-debug "Couldn't retrieve Terrorzone information for TZ Alarms."
				}
			}
			#DClone Alarm check
			if (!($Script:EmuOfflineMode -eq $True -and $Script:Config.DCloneTrackerSource -eq "d2emu.com")){ #if D2Emu is down and connection source is D2Emu, disable this feature by skipping it.
				write-debug "Checking for DClone status changes."
				$GetDCloneFunc = $(Get-Command DClone).Definition
				$GetWebRequestFunc = $(Get-Command WebRequestWithTimeOut).Definition
				if ($Script:Config.DCloneAlarmList -ne ""){ # If DClone alarms should be checked on refresh
					try {
						if ($null -ne $Script:DCloneChangesCSV){
							$Script:DCloneChangesCSV = Receive-Job $Script:DCloneJob
							if ($DebugMode -eq $True){
								formatfunction -indents 1 -iswarning -text $Script:DCloneChangesCSV #debugging
							}
							if ($Script:DCloneChangesCSV -match "true"){#if any of the text contains True
								DCloneVoiceAlarm #Create Voice Alarm
							}
						}
						Else {
							$Script:DCloneChangesCSV = "" # If menu is refreshed too quick
						}
						if ($null -ne $RunOnce){ # Don't try remove job on startup for faster launch.
							Get-Job | Where-Object { $Script:JobIDs -notcontains $_.Id } | Remove-Job -Force
						}
						$Script:DCloneJob = Start-Job -ScriptBlock {
							Invoke-Expression "function Dclone {$using:GetDCloneFunc}"
							Invoke-Expression "function WebRequestWithTimeOut {$Using:GetWebRequestFunc}"
							DClone -DisableOutput $True -DCloneTrackerSource $Using:Config.DCloneTrackerSource -TagList $Using:Config.DCloneAlarmList -DCloneChanges $using:DCloneChangesCSV -DCloneAlarmLevel $Using:DCloneAlarmLevel -EmuToken $Using:EmuToken
						} #check for dclone status
					}
					catch {
						Write-Host "`n Unable to check for DClone status via $($Script:Config.DCloneTrackerSource)." -Foregroundcolor Red
						Write-Host " Try restarting script or changing the source in config.xml." -Foregroundcolor Red
					}
				}
			}
			else {
				write-debug "Not checking for DClone status changes."
			}
			if ($Script:MovedWindowLocations -ge 1){ # Tidy up any old jobs created for moving windows.
				Get-Job | Where-Object { $Script:JobIDs -contains $_.Id -and $_.state -ne "Running"} | Remove-Job -Force
				$Script:JobIDs = @()
				$Script:MovedWindowLocations = 0
			}
			do {
				Write-Host
				$Script:OpenAllAccounts = $False
				if ($accountoptions.length -gt 0){#if there are unopened account options available
					if ($Script:Config.DisableOpenAllAccountsOption -eq $true){#if end user has a stupid amount of accounts and wants to prevent accidentally opening up over 9000 accounts
						$AllAccountMenuText = ""
						$AllAccountMenuTextNoBatch = ""
					}
					else {
						$AllOption = "a"
						$AllAccountMenuText = "'$X[38;2;255;165;000;22ma$X[0m' to open All accounts, "
						$AllAccountMenuTextNoBatch = " or '$X[38;2;255;165;000;22ma$X[0m' for All."
					}
					if ($Script:EnableBatchFeature -ne $true){
						$BatchMenuText = ""
						if ($accountoptions.length -le 24){ #if so many accounts are available to be used that it's too long and impractical to display all the individual options.
							Write-Host ("  Select which account to sign into: " + "$X[38;2;255;165;000;22m$accountoptions$X[0m" + $AllAccountMenuTextNoBatch)
							Write-Host "  Alternatively choose from the following menu options:"
						}
						Else {
							Write-Host " Enter the ID# of the account you want to sign into."
							Write-Host " Alternatively choose from the following menu options:"
							Write-Host ("  " + $AllAccountMenuText)
						}
					}
					else {
						$Script:BatchToOpen = $Null
						$BatchMenuText = "'$X[38;2;255;165;000;22mb$X[0m' to open a Batch of accounts,"
						$Script:AcceptableBatchIDs = $Null #reset value
						$AcceptableBatchValues = $Null
						ForEach ($ID in $Script:AccountOptionsCSV){
							if ($ID.id -in $Script:AcceptableValues){#Find batch values to choose from based on accounts that aren't already open.
								$AcceptableBatchValues = $AcceptableBatchValues + ($ID.batches).split(',')
								$Script:AcceptableBatchIDs = $Script:AcceptableBatchIDs + ($ID.id).split(',')
							}
						}
						$AcceptableBatchValues = @($AcceptableBatchValues | where-object {$_ -ne ""} | Select-Object -Unique | Sort-Object) #Unique list of available batches that can be opened
						if ($Null -eq $AcceptableBatchValues[0]){
							$Script:BatchOption = ""
							$BatchMenuText = ""
							if ($accountoptions.length -le 24){ #if so many accounts are available to be used that it's too long and impractical to display all the individual options.
								Write-Host ("  Select which account to sign into: " + "$X[38;2;255;165;000;22m$accountoptions$X[0m" + $AllAccountMenuTextNoBatch)
								Write-Host "  Alternatively choose from the following menu options:"
							}
							Else {
								Write-Host " Enter the ID# of the account you want to sign into."
								Write-Host " Alternatively choose from the following menu options:"
								Write-Host ("  " + $AllAccountMenuText + $BatchMenuText)
							}
						}
						Else {
							$BatchOption = "b"
							Write-Host " Enter the ID# of the account you want to sign into."
							Write-Host " Alternatively choose from the following menu options:"
							Write-Host ("  " + $AllAccountMenuText + $BatchMenuText)
						}
					}
				}
				Else {#if there aren't any available options, IE all accounts are open
					$AllOption = $Null
					$BatchOption = $Null
					Write-Host " All Accounts are currently open!" -foregroundcolor yellow
				}
				$DCloneOption = "d"
				$TerrorZoneOption = "t"
				$CloseOption = ""
				$CloseText = ""
				if ($Script:Config.ShowCloseOptionInMenu -eq $true -and $Script:D2rRunning -eq $True){
					$CloseOption = "c"
					$CloseText = "'$X[38;2;255;165;000;22mc$X[0m' to force close all instances,"
				}
				Write-Host "  '$X[38;2;255;165;000;22mr$X[0m' to Refresh, " -nonewline
				if ($Script:EmuOfflineMode -ne $True){#disable TZ option if d2emu connection isn't available. If d2emu is specified as the dclone source, disable this option too.
					Write-Host "'$X[38;2;255;165;000;22mt$X[0m' for TZ info, '$X[38;2;255;165;000;22md$X[0m' for DClone status, '$X[38;2;255;165;000;22mj$X[0m' for jokes,"
				}
				Else {
					if ($Script:Config.DCloneTrackerSource -ne "d2emu.com"){
						Write-Host "'$X[38;2;255;165;000;22md$X[0m' for DClone status, " -nonewline
					}
					Else {
						$DCloneOption = ""
					}
					Write-Host "'$X[38;2;255;165;000;22mj$X[0m' for jokes,"
					$TerrorZoneOption = ""
				}
				if ($Script:Config.ManualSettingSwitcherEnabled -eq $true){
					$ManualSettingSwitcherOption = "s"
					Write-Host "  '$X[38;2;255;165;000;22mo$X[0m' for config options, '$X[38;2;255;165;000;22ms$X[0m' to toggle the Manual Setting Switcher, "
					Write-Host "  $CloseText'$X[38;2;255;165;000;22mi$X[0m' for info or '$X[38;2;255;165;000;22mx$X[0m' to $X[38;2;255;000;000;22mExit$X[0m: " -nonewline
				}
				Else {
					$ManualSettingSwitcherOption = $null
					if ($CloseOption -eq "c"){
						Write-Host "  $CloseText'$X[38;2;255;165;000;22mo$X[0m' for config options,"
						Write-Host "  '$X[38;2;255;165;000;22mi$X[0m' for info or '$X[38;2;255;165;000;22mx$X[0m' to $X[38;2;255;000;000;22mExit$X[0m: " -nonewline
					}
					Else {
						Write-Host "  '$X[38;2;255;165;000;22mo$X[0m' for config options, '$X[38;2;255;165;000;22mi$X[0m' for info or '$X[38;2;255;165;000;22mx$X[0m' to $X[38;2;255;000;000;22mExit$X[0m: " -nonewline
					}
				}
				if ($Script:TwoDigitIDsUsed -eq $True){
					$Script:AccountID = ReadKeyTimeout "" $MenuRefreshRate "r" -TwoDigitAcctSelection $True #$MenuRefreshRate represents the refresh rate of the menu in seconds (30). if no button is pressed, send "r" for refresh.
				}
				else {
					$Script:AccountID = ReadKeyTimeout "" $MenuRefreshRate "r" #$MenuRefreshRate represents the refresh rate of the menu in seconds (30). if no button is pressed, send "r" for refresh.
				}
				if ($Script:AccountID -notin ($Script:AcceptableValues + "x" + "r" + "g" + "j" + "i" + "o" + $TerrorZoneOption + $DCloneOption + $ManualSettingSwitcherOption + $AllOption + $BatchOption + $CloseOption) -and $Null -ne $Script:AccountID){
					if ($Script:AccountID -eq "a" -and $Script:Config.DisableOpenAllAccountsOption -ne $true){
						Write-Host " Can't open all accounts as all of your accounts are already open doofus!" -foregroundcolor red
					}
					else {
						Write-Host " Invalid Input. Please enter one of the options above." -foregroundcolor red
					}
					$Script:AccountID = $Null
				}
			} until ($Null -ne $Script:AccountID)
			if ($Null -ne $Script:AccountID){
				if ($Script:AccountID -eq "x"){
					Write-Host "`n Good day to you partner :)" -foregroundcolor yellow
					Start-Sleep -milliseconds 486
					Exit
				}
				$Script:AccountChoice = $Script:AccountOptionsCSV | where-object {$_.id -eq $Script:AccountID} #filter out to only include the account we selected.
			}
			$Script:RunOnce = $True
		} until ($Script:AccountID -notin $LoopMenuOptions)
		if ($Script:AccountID -eq "a"){
			$Script:OpenAllAccounts = $True
		}
		if ($Script:AccountID -eq "b"){
			$Script:OpenBatches = $True
		}
	}
	if (($Null -ne $Script:AccountUsername -and ($Null -eq $Script:PW -or "" -eq $Script:PW) -or ($Script:AccountChoice.id.length -gt 0 -and $Script:AccountChoice.PW.length -eq 0))){#This is called when params are used but the password wasn't entered. Not used for -all or -batch
		if ($Null -ne $Script:AccountOptionsCSV){#compare parameter against account ID in case they specified ID instead of email.
			$Script:AccountChoice = $Script:AccountOptionsCSV | where-object {$_.id -eq $Script:AccountUsername}
			if ($Null -eq $Script:AccountChoice){#if still null, compare against username in accounts.csv
				$Script:AccountChoice = $Script:AccountOptionsCSV | where-object {$_.acct -eq $Script:AccountUsername}
			}
			if ($Null -ne $Script:AccountChoice){
				$Script:AccountID = $Script:AccountChoice.id
				$Script:PWmanualset = $False
				$Script:ParamLaunchAndAccountNotInAccountsCSV = $False #used in processing to determine if some features should be skipped.
				return
			}
			else {
				$Script:ParamLaunchAndAccountNotInAccountsCSV = $True #Is this var name too long? No? Cool.
			}
		}
		$SecuredPW = read-host -AsSecureString " Enter the Battle.net password for $Script:AccountUsername"
		$Bstr = [System.Runtime.InteropServices.Marshal]::SecureStringToBSTR($SecuredPW)
		$Script:PW = [System.Runtime.InteropServices.Marshal]::PtrToStringAuto($Bstr)
		$Script:AccountOptionsCSV = @(
			[pscustomobject]@{PW=$Script:PW;acct=$Script:AccountUsername}
		)
		$Script:PWmanualset = $true
	}
	else {
		$Script:PWmanualset = $false
	}
}
Function ChooseRegion {#AKA Realm. Not to be confused with the actual Diablo servers that host your games, which are all over the world :)
	if ($Script:Config.UseChinaRegion -ne $True){
		Write-Host " Choose a region to connect to. Available regions are:"
		Write-Host "  Option  Region  Server Address"
		Write-Host "  ------  ------  --------------"
		ForEach ($Server in $ServerOptions){
			if ($Server.region.length -eq 2){$Regiontablespacing = " "}
			if ($Server.region.length -eq 4){$Regiontablespacing = ""}
			Write-Host ("    " + $Server.option + "      " + $Regiontablespacing + $Server.region + $Regiontablespacing + "   " + $Server.region_server) -foregroundcolor green
		}
		do {
			Write-Host "`n Please select a region: $X[38;2;255;165;000;22m1$X[0m, $X[38;2;255;165;000;22m2$X[0m or $X[38;2;255;165;000;22m3$X[0m"
			if ($Script:Config.DefaultRegion -ne ""){
				$DefaultRegionText = " or press enter for the default (" + $Config.DefaultRegion + "-" + ($Script:ServerOptions | Where-Object {$_.option -eq $Config.DefaultRegion}).region + ")"
			}
			Write-Host (" Alternatively select '$X[38;2;255;165;000;22mc$X[0m' to cancel" + $DefaultRegionText + ": ") -nonewline
			$Script:RegionOption = ReadKeyTimeout "" $MenuRefreshRate "c" -AdditionalAllowedKeys 13,27 #$MenuRefreshRate represents the refresh rate of the menu in seconds (30). If no button is pressed, send "c" for cancel.
			if ("" -eq $Script:RegionOption){
				$Script:RegionOption = $Config.DefaultRegion #default to NA
			}
			else {
				$Script:RegionOption = $Script:RegionOption.tostring()
			}
			if ($Script:RegionOption -notin $Script:ServerOptions.option + "c" + "Esc"){
				Write-Host " Invalid Input. Please enter one of the options above." -foregroundcolor red
				$Script:RegionOption = ""
			}
		} until ("" -ne $Script:RegionOption)
		if ($Script:RegionOption -in 1..3 ){# if value is 1,2 or 3 set the region string.
			$Script:region = ($ServerOptions | where-object {$_.option -eq $Script:RegionOption}).region_server
			$Script:RegionLabel = $Script:Region.substring(0,2)
			if ($Script:RegionLabel -eq "US"){$Script:RegionLabel = "NA"}
			$Script:LastRegion = $Script:Region
		}
	}
	Else {
		$Script:region = "cn.actual.battlenet.com.cn"
		$Script:RegionLabel = "CN"
		$Script:LastRegion = $Script:Region
	}
}
Function Processing {
	if ($Script:RegionOption -ne "c" -and $Script:RegionOption -ne "Esc"){
		if (($Script:PW -eq "" -or $Null -eq $Script:PW) -and $Script:PWmanualset -eq 0){
			$Script:PW = $Script:AccountChoice.PW.tostring()
		}
		if ($Script:AccountChoice.AuthenticationMethod -ne "Token"){
			try {
				if ($Script:ParamLaunchAndAccountNotInAccountsCSV -eq $False -or $Script:ParamsUsed -ne $true -or ($Script:ParamsUsed -eq $true -and ($Script:OpenBatches -eq $True -or $Script:OpenAllAccounts -eq $True))){ # If Params aren't used or if Params are used with either batches or open all accounts.
					$Script:acct = $Script:AccountChoice.acct.tostring()
					if ($Config.ConvertPlainTextSecrets -eq $true -or $PW.Length -gt 200){ # if PW should be converted, update $Script:PW to the converted PW, otherwise leave the variable alone.
						$EncryptedPassword = $PW | ConvertTo-SecureString -ErrorAction Stop -Errorvariable ErrorVar #Try converting password.
						$PWobject = New-Object System.Management.Automation.PsCredential("N/A", $EncryptedPassword)
						$Script:PW = $PWobject.GetNetworkCredential().Password
					}
				}
				else {
					if ($Null -eq $Script:AccountID){
						$Script:acct = $Script:AccountUsername
						$Script:AccountID = "1"
					}
				}
			}
			Catch {
				if ($ErrorVar -match "is not a valid encrypted string"){
					Write-Host " There was an issue with decrypting this password." -foregroundcolor red
					FormatFunction -Text ("Please re-enter your password for " + $Script:AccountChoice.acct + " into accounts.csv and re-run the script.`n") -IsError
					PressTheAnyKey
				}
				else {
					Write-Host " Password for this account is in plain text in accounts.csv." -foregroundcolor red
					Write-Host " Run the script again and your password will be secured." -foregroundcolor red
					Write-Host " If errors persist, re-enter your password in accounts.csv`n" -foregroundcolor red
					PressTheAnyKey
				}
			}
		}
		if ($ParamsUsed -eq $True){
			$Script:RegionLabel = $Script:Region.substring(0,2)
			if ($Script:RegionLabel -eq "US"){$Script:RegionLabel = "NA"}
		}
		if ($Script:AccountChoice.AuthenticationMethod -eq "Token" -or (($Script:ForceAuthToken -eq $True -or $Script:Config.ForceAuthTokenForRegion -match $RegionLabel) -and $Script:ParamLaunchAndAccountNotInAccountsCSV -ne $True)){
			if ($Script:AccountChoice.Token.length -gt 200){
				$Script:Token = $Script:AccountChoice.Token.tostring()
				$EncryptedToken = $Script:Token | ConvertTo-SecureString
				$Tokenobject = New-Object System.Management.Automation.PsCredential("N/A", $EncryptedToken)
				$Token = $Tokenobject.GetNetworkCredential().Password
			}
			Else {# if token isn't stored as a secure string due to ConvertPlainTextSecrets being set to false.
				$Token = $Script:AccountChoice.Token
			}
			$Entropy = @(0xc8, 0x76, 0xf4, 0xae, 0x4c, 0x95, 0x2e, 0xfe, 0xf2, 0xfa, 0x0f, 0x54, 0x19, 0xc0, 0x9c, 0x43)
			# Convert the token and entropy to byte arrays
			$TokenBytes = [System.Text.Encoding]::UTF8.GetBytes($Token)
			$EntropyBytes = [byte[]] $Entropy
			# Encrypt the token
			[void][System.Reflection.Assembly]::LoadWithPartialName("System.Security")
			$ProtectedData = [System.Security.Cryptography.ProtectedData]::Protect($TokenBytes, $EntropyBytes, [System.Security.Cryptography.DataProtectionScope]::CurrentUser)
			$Path = "HKCU:\SOFTWARE\Blizzard Entertainment\Battle.net\Launch Options\OSI"
			Set-ItemProperty -Path $Path -Name "REGION" -Value $Script:Region.Substring(0, 2).ToUpper()
			Set-ItemProperty -Path $Path -Name "WEB_TOKEN" -Value $ProtectedData -Type Binary
		}
		try {
			$Script:AccountFriendlyName = $Script:AccountChoice.accountlabel.tostring()
		}
		Catch {
			$Script:AccountFriendlyName = $Script:AccountUsername
		}
		#Open diablo with parameters
			# IE, this is essentially just opening D2r like you would with a shortcut target of "C:\Program Files (x86)\Battle.net\Games\Diablo II Resurrected\D2R.exe" -username <yourusername -password <yourPW> -address <SERVERaddress>
		if ($Script:ParamLaunchAndAccountNotInAccountsCSV -ne $True){
			$CustomLaunchArguments = ($Script:AccountChoice.CustomLaunchArguments).replace("`"","").replace("'","") #clean up arguments in case they contain quotes (for folks that have used excel to edit accounts.csv).
		}
		if ($Script:AccountChoice.AuthenticationMethod -eq "Parameter" -and $Script:ForceAuthToken -ne $True -and $Script:Config.ForceAuthTokenForRegion -notmatch $RegionLabel -or $Script:ParamLaunchAndAccountNotInAccountsCSV -eq $True){
			$arguments = (" -username " + $Script:acct + " -password " + $Script:PW + " -address " + $Script:Region + " " + $CustomLaunchArguments).tostring()
		}
		else {
			if ($Script:Config.UseChinaRegion -ne $True){
				$arguments = (" -uid osi " + $CustomLaunchArguments).tostring()
			}
			else {
				$arguments = (" -uid osic " + $CustomLaunchArguments).tostring()
			}
		}
		if ($Config.ForceWindowedMode -eq $true){#starting with forced window mode sucks, but someone asked for it.
			$arguments = $arguments + " -w"
		}
		$Script:PW = $Null
		$Script:Token = $Null
		#Switch Settings file to load D2r from.
		if ($Config.SettingSwitcherEnabled -eq $True -or $Script:AskForSettings -eq $True){
			if ($Script:AccountChoice.CustomLaunchArguments -match "-mod"){
				$pattern = "-mod\s+(\S+)" #pattern to find the first word after -mod
				if ($Script:AccountChoice.CustomLaunchArguments -match $pattern){
					$ModName = $matches[1]
					try {
						Write-Verbose "Trying to get Mod Content..."
						try {
							$Modinfo = ((Get-Content "$($Config.GamePath)\Mods\$ModName\$ModName.mpq\Modinfo.json" -ErrorAction silentlycontinue | ConvertFrom-Json).savepath).Trim("/")
						}
						catch {
							try {
								$Modinfo = ((Get-Content "$($Config.GamePath)\Mods\$ModName\Modinfo.json" -ErrorAction stop -ErrorVariable ModReadError | ConvertFrom-Json).savepath).Trim("/")
							}
							catch {
								FormatFunction -Text "Using standard settings path. Couldn't find Modinfo.json in '$($Config.GamePath)\Mods\$ModName\$ModName.mpq'" -IsWarning
								start-sleep -milliseconds 1500
							}
						}
						If ($Null -eq $Modinfo){
							Write-Verbose " No Custom Save Path Specified for this mod."
						}
						ElseIf ($Modinfo -ne "../"){
							$SettingsProfilePath = $SettingsProfilePath + "mods\$Modinfo\"
							if (-not (Test-Path $SettingsProfilePath)){
								Write-Host " Mod Save Folder doesn't exist yet. Creating folder..."
								New-Item -ItemType Directory -Path $SettingsProfilePath -ErrorAction stop | Out-Null
								Write-Host " Created folder: $SettingsProfilePath" -ForegroundColor Green
							}
							Write-Host " Mod: $ModName detected. Using custom path for settings.json." -ForegroundColor Green
							Write-Verbose " $SettingsProfilePath"
						}
						Else {
							Write-Verbose " Mod used but save path is standard."
						}
					}
					Catch {
						Write-Verbose " Mod used but custom save path not specified."
					}
				}
				else {
					Write-Host " Couldn't detect Mod name. Standard path to be used for settings.json." -ForegroundColor Red
				}
			}
		}
		if ($Config.SettingSwitcherEnabled -eq $True -and $Script:AskForSettings -ne $True -and $Script:ParamLaunchAndAccountNotInAccountsCSV -ne $True){#if user has enabled the auto settings switcher.
			$SettingsJSON = ($SettingsProfilePath + "Settings.json")
			if ((Test-Path -Path ($SettingsProfilePath + "Settings.json")) -eq $true){ #check if settings.json does exist in the savegame path (if it doesn't, this indicates first time launch or use of a new single player mod).
				ForEach ($id in $Script:AccountOptionsCSV){#create a copy of settings.json file per account so user doesn't have to do it themselves
					if ((Test-Path -Path ($SettingsProfilePath + "Settings" + $id.id + ".json")) -ne $true){#if somehow settings<ID>.json doesn't exist yet make one from the current settings.json file.
						try {
							Copy-Item $SettingsJSON ($SettingsProfilePath + "Settings" + $id.id + ".json") -ErrorAction Stop
						}
						catch {
							FormatFunction -Text "`nCouldn't find settings.json in $SettingsProfilePath" -IsError
							if ($Script:AccountChoice.CustomLaunchArguments -match "-mod"){
								Break
							}
							Else {
								Write-Host " Start the game normally (via Bnet client) & this file will be rebuilt." -foregroundcolor red
							}
							Write-Host
							PressTheAnyKeyToExit
						}
					}
				}
				try {
					Copy-item ($SettingsProfilePath + "settings" + $Script:AccountID + ".json") $SettingsJSON -ErrorAction Stop #overwrite settings.json with settings<ID>.json (<ID> being the account ID). This means any changes to settings in settings.json will be lost the next time an account is loaded by the script.
					$CurrentLabel = ($Script:AccountOptionsCSV | where-object {$_.id -eq $Script:AccountID}).accountlabel
					formatfunction -text ("Custom game settings (settings" + $Script:AccountID + ".json) being used for " + $CurrentLabel) -ISSuccess
					Start-Sleep -milliseconds 133
				}
				catch {
					FormatFunction -Text "Couldn't overwrite settings.json for some reason. Make sure you don't have the file open!" -IsError
					PressTheAnyKey
				}
			}
		}
		if ($Script:AskForSettings -eq $True){#steps go through if user has toggled on the manual setting switcher ('s' in the menu).
			$SettingsJSON = ($SettingsProfilePath + "Settings.json")
			$files = Get-ChildItem -Path $SettingsProfilePath -Filter "settings.*.json"
			$Counter = 1
			if ((Test-Path -Path ($SettingsProfilePath+ "Settings" + $id.id + ".json")) -ne $true){#if somehow settings<ID>.json doesn't exist yet make one from the current settings.json file.
				try {
					Copy-Item $SettingsJSON ($SettingsProfilePath + "Settings" + $id.id + ".json") -ErrorAction Stop
				}
				catch {
					Write-Host "`n Couldn't find settings.json in $SettingsProfilePath" -foregroundcolor red
					Write-Host " Please start the game normally (via Bnet client) & this file will be rebuilt." -foregroundcolor red
					PressTheAnyKeyToExit
				}
			}
			$SettingsDefaultOptionArray = New-Object -TypeName System.Collections.ArrayList #Add in an option for the default settings file (if it exists, if the auto switcher has never been used it won't appear.
			$SettingsDefaultOption = New-Object -TypeName psobject
			$SettingsDefaultOption | Add-Member -MemberType NoteProperty -Name "ID" -Value $Counter
			$SettingsDefaultOption | Add-Member -MemberType NoteProperty -Name "Name" -Value ("Default - settings" + $Script:AccountID + ".json")
			$SettingsDefaultOption | Add-Member -MemberType NoteProperty -Name "FileName" -Value ("settings" + $Script:AccountID + ".json")
			[VOID]$SettingsDefaultOptionArray.Add($SettingsDefaultOption)
			$SettingsFileOptions = New-Object -TypeName System.Collections.ArrayList
			ForEach ($file in $files){
				 $SettingsFileOption = New-Object -TypeName psobject
				 $Counter = $Counter + 1
				 $Name = $file.Name -replace '^settings\.|\.json$' #remove 'settings.' and '.json'. The text in between the two periods is the name.
				 $SettingsFileOption | Add-Member -MemberType NoteProperty -Name "ID" -Value $Counter
				 $SettingsFileOption | Add-Member -MemberType NoteProperty -Name "Name" -Value $Name
				 $SettingsFileOption | Add-Member -MemberType NoteProperty -Name "FileName" -Value $file.Name
				 [VOID]$SettingsFileOptions.Add($SettingsFileOption)
			}
			if ($Null -ne $SettingsFileOptions){# If settings files are found, IE the end user has set them up prior to running script.
				$SettingsFileOptions = $SettingsDefaultOptionArray + $SettingsFileOptions
				Write-Host "  Settings options you can choose from are:"
				ForEach ($Option in $SettingsFileOptions){
					Write-Host ("   " + $Option.ID + ". " + $Option.name) -foregroundcolor green
				}
				do {
					Write-Host "  Choose the settings file you like to load from: " -nonewline
					ForEach ($Value in $SettingsFileOptions.ID){ #write out each account option, comma separated but show each option in orange writing. Essentially output overly complicated fancy display options :)
						if ($Value -ne $SettingsFileOptions.ID[-1]){
							Write-Host "$X[38;2;255;165;000;22m$Value$X[0m" -nonewline
							if ($Value -ne $SettingsFileOptions.ID[-2]){Write-Host ", " -nonewline}
						}
						else {
							Write-Host " or $X[38;2;255;165;000;22m$Value$X[0m"
						}
					}
					if ($Null -eq $ManualSettingSwitcher){#if not launched from parameters
						Write-Host "  Or Press '$X[38;2;255;165;000;22mc$X[0m' to cancel: " -nonewline
						$SettingsCancelOption = "c"
					}
					$SettingsChoice = ReadKeyTimeout "" $MenuRefreshRate "c" -AdditionalAllowedKeys 27 #$MenuRefreshRate represents the refresh rate of the menu in seconds (30). If no button is pressed, send "c" for cancel.
					Write-Host
					if ($SettingsChoice.tostring() -notin $SettingsFileOptions.id + $SettingsCancelOption + "Esc"){
						Write-Host "  Invalid Input. Please enter one of the options above." -foregroundcolor red
						$SettingsChoice = ""
					}
				} until ($SettingsChoice.tostring() -in $SettingsFileOptions.id + $SettingsCancelOption + "Esc")
				if ($SettingsChoice -ne "c" -and $SettingsChoice -ne "Esc"){
					$SettingsToLoadFrom = $SettingsFileOptions | where-object {$_.id -eq $SettingsChoice.tostring()}
					try {
						Copy-item ($SettingsProfilePath + $SettingsToLoadFrom.FileName) -Destination $SettingsJSON #-ErrorAction Stop #overwrite settings.json with settings<Name>.json (<Name> being the name of the config user selects). This means any changes to settings in settings.json will be lost the next time an account is loaded by the script.
						$CurrentLabel = ($Script:AccountOptionsCSV | where-object {$_.id -eq $Script:AccountID}).accountlabel
						formatfunction -text ("Custom game settings (" + $SettingsToLoadFrom.Name + ") being used for " + $CurrentLabel) -ISSuccess
						Start-Sleep -milliseconds 100
					}
					catch {
						FormatFunction -Text "Couldn't overwrite settings.json for some reason. Make sure you don't have the file open!" -IsError
						PressTheAnyKey
					}
				}
			}
			Else {# if no custom settings files are found, IE user hasn't set them up yet.
				Write-Host "`n  No Custom Settings files have been saved yet. Loading default settings." -foregroundcolor Yellow
				Write-Host "  See README for setup instructions.`n" -foregroundcolor Yellow
				PressTheAnyKey
			}
		}
		if ($SettingsChoice -ne "c" -and $SettingsChoice -ne "Esc"){
			#Start Game
			KillHandle | out-null # Quickly check that there's no open handles already for "DiabloII Check For Other Instances"
			$arguments += " --instance$($Script:AccountChoice.ID)"
			if ($Script:Config.DisableIconStacking -eq $True){
				$ShortcutPath = "$Script:WorkingDirectory\D2r_Instance$($Script:AccountChoice.ID).lnk"
				Create-Shortcut -shortcutPath $ShortcutPath -targetPath "$Gamepath\D2R.exe" -arguments $arguments
				Start-Process -FilePath $ShortcutPath
				Start-Sleep -milliseconds 1100 #give D2r a bit of a chance to start up before trying to kill handle
				#Remove-Item -Path $ShortcutPath -Force #Unfortunatly removing the shortcut files afterwards somehow results in the icons stacking again.
			}
			Else {
				Start-Process "$Gamepath\D2R.exe" -ArgumentList "$arguments"
				Start-Sleep -milliseconds 1100 #give D2r a bit of a chance to start up before trying to kill handle
			}
			$process = Get-CimInstance -ClassName Win32_Process | Where-Object {
				$_.Name -eq "D2R.exe" -and $_.CommandLine -match "--instance$($Script:AccountChoice.ID)\b" #command requires elevation to show commandline details.
			}
			#Close the 'Check for other instances' handle
			Write-Host " Attempting to close `"Check for other instances`" handle..."
			$Output = KillHandle | out-string #run KillHandle function.
			if (($Output.contains("DiabloII Check For Other Instances")) -eq $true){
				$handlekilled = $true
				Write-Host " `"Check for Other Instances`" Handle closed." -foregroundcolor green
			}
			else {
				$Output = KillHandle -TryAgain | out-string #Try again 5 more times with small delays in case game is taking a while to load.
				if (($Output.contains("DiabloII Check For Other Instances")) -eq $true){
					$handlekilled = $true
					Write-Host " `"Check for Other Instances`" Handle closed." -foregroundcolor green
				}
			}
			if ($handlekilled -ne $True){
				FormatFunction -text "Wasn't able to Kill Handle 'Check for other instances' or couldn't find any handles to kill." -IsError -indent 1
				Write-Host " Game may not have launched as expected." -foregroundcolor red
				PressTheAnyKey
			}
			#Rename the Diablo Game window for easier identification of which account and region the game is.
			$rename = ($Script:AccountID + " - " + $Script:AccountFriendlyName + " (" + $Script:Region + ")" + " - Diablo II: Resurrected")
			$Command = ('"'+ $WorkingDirectory + '\SetText\SetTextv2.exe" /PID ' + $process.ProcessID + ' "' + $rename + '"')
			try {
				cmd.exe /c $Command
				write-debug $Command #debug
				Write-debug " Window Renamed." #debug
				Start-Sleep -milliseconds 250
			}
			catch {
				Write-Host " Couldn't rename window :(" -foregroundcolor red
				PressTheAnyKey
			}
			If ($Script:Config.RememberWindowLocations -eq $True -and $Script:ParamLaunchAndAccountNotInAccountsCSV -ne $True){ #If user has enabled the feature to automatically move game Windows to preferred screen locations.
				if ($Script:AccountChoice.WindowXCoordinates -ne "" -and $Script:AccountChoice.WindowYCoordinates -ne "" -and $Null -ne $Script:AccountChoice.WindowXCoordinates -and $Null -ne $Script:AccountChoice.WindowYCoordinates -and $Script:AccountChoice.WindowWidth -ne "" -and $Script:AccountChoice.WindowHeight -ne "" -and $Null -ne $Script:AccountChoice.WindowWidth -and $Null -ne $Script:AccountChoice.WindowHeight){ #Check if the account has had coordinates saved yet.
					$GetLoadWindowClassFunc = $(Get-Command LoadWindowClass).Definition
					$GetSetWindowLocationsFunc = $(Get-Command SetWindowLocations).Definition
					$JobID = (Start-Job -ScriptBlock { # Run this in a background job so we don't have to wait for it to complete
						start-sleep -milliseconds 2024 # We need to wait for about 2 seconds for game to load as if we move it too early, the game itself will reposition the window. Absolute minimum is 420 milliseconds (funnily enough). Delay may need to be a bit higher for people with wooden computers.
						Invoke-Expression "function LoadWindowClass {$using:GetLoadWindowClassFunc}"
						Invoke-Expression "function SetWindowLocations {$using:GetSetWindowLocationsFunc}"
						SetWindowLocations -x $Using:AccountChoice.WindowXCoordinates -y $Using:AccountChoice.WindowYCoordinates -Width $Using:AccountChoice.WindowWidth -height $Using:AccountChoice.WindowHeight -Id $Using:process.ProcessID
					}).id
					$Script:MovedWindowLocations ++
					$Script:JobIDs += $JobID
				}
				Else { #Show a warning if user has RememberWindowLocations but hasn't configured it for this account yet.
					FormatFunction -iswarning -text "`n'RememberWindowLocations' config is enabled but can't move game window to preferred location as coordinates need to be defined for the account first.`n`nTo setup, follow the quick steps below:"
					FormatFunction -iswarning -indents 1 -SubsequentLineIndents 3 -text "1. Open all of your D2r account instances.`n2. Move the window for each game instance to your preferred layout."
					FormatFunction -iswarning -indents 1 -SubsequentLineIndents 3 -text "3. Go to the options menu in the script and go into the 'RememberWindowLocations' setting.`n4. Once in this menu, choose the option 's' to save coordinates of any open game instances."
					FormatFunction -iswarning -text  "`nNow when you open these accounts they will open in this screen location each time :)`n"
					if ($Script:AccountChoice.AuthenticationMethod -ne "Token"){ #If a token is used we can't pause it as it the script will not detect when char select screen is reached. 1.13.1 hotfix
						PressTheAnyKey
					}
				}
			}
			if ($Script:AccountChoice.AuthenticationMethod -eq "Token" -or (($Script:ForceAuthToken -eq $True -or $Script:Config.ForceAuthTokenForRegion -match $RegionLabel) -and $Script:AccountChoice.Token.length -ge 200)){#wait for web_token to change twice (once for launch, once for char select screen, before being able to launch additional accounts. Token will have already changed once by the time script reaches this stage
				$CurrentTokenRegValue = (Get-ItemProperty -Path $Path -Name WEB_TOKEN).WEB_TOKEN
				Write-Host " Launched game using an $X[38;2;165;146;99;4mAuthentication Token$X[0m."
				Write-Host " Waiting for you to get to character select screen..." -foregroundcolor yellow
				Write-Host " $X[38;2;255;255;0;4mDO NOT OPEN OR CLOSE ANOTHER GAME INSTANCE UNTIL YOU'VE DONE THIS.$X[0m"
				do {
					$NewTokenRegValue = (Get-ItemProperty -Path $Path -Name WEB_TOKEN).WEB_TOKEN
					$CompareCheck = Compare-Object $CurrentTokenRegValue $NewTokenRegValue
					if ($Null -ne $CompareCheck){#if CompareCheck has some value, this means it found differences, IE the reg value changed.
						$CurrentTokenRegValue = (Get-ItemProperty -Path $Path -Name WEB_TOKEN).WEB_TOKEN
						$CurrentTokenRegValue = $NewTokenRegValue
						$WebTokenChangeCounter++
						Write-Host " Game Launch Successful for $Script:AccountFriendlyName!" -foregroundcolor green
					}
					else {
						Start-Sleep -milliseconds 451
					}
				} until ($WebTokenChangeCounter -eq 1)
			}
			if ($Script:LastAccount -eq $True -or ($Script:OpenAllAccounts -ne $True -and $Script:OpenBatches -ne $True)){
				if ($Script:MovedWindowLocations -ge 1){
					if ($Script:MovedWindowLocations -gt 1){
						$plural = "s"
					}
					FormatFunction -IsSuccess -text "Moved game window$plural to preferred location$plural."
					Start-Sleep -milliseconds 750
				}
				Write-Host "`n Good luck hero..." -foregroundcolor magenta
			}
			Start-Sleep -milliseconds 1000
			$Script:ScriptHasBeenRun = $true
		}
	}
}
RemoveMaximiseButton #Remove maximise button from PowerShell window.
InitialiseCurrentStats #Get Stats
if ($Script:ParamsUsed -ne $True){ #Check if there's new versions and if so display next version details and ask to update.
	CheckForUpdates #Don't check if script parameters are being used.
}
ImportXML #Get your config
if ($Script:ParamsUsed -ne $True){#Get D2Emu connection details. Required for TZ/DClone data. Adds half a second to start up time.
	GetEmuToken #Don't bother getting D2Emu connection details if script parameters are being used.
}
ValidationAndSetup #I've made a few changes over different versions, this checks for any config updates that need to be made and helps prevent user error (Typo's)
ImportCSV #Get accounts and account stats.
Clear-Host #Clear screen of all the initialisation crap.
D2rLevels #Level ID's used for comparing TZ data against.
QuoteList #List of D2 quotes to display.
SetQualityRolls #Randomly roll quotes in D2 themed colours.
Menu #start script.

#For Diablo II: Resurrected
#Dedicated to my cat Toby.

#Text Colors
#Color Hex	RGB Value	Description
#FFA500		255 165 000	Crafted items
#4169E1		065 105 225	Magic items
#FFFF00		255 255 000	Rare items
#00FF00		000 255 000	Set items
#A59263		165 146 099	Unique items