minor changes

Removed the german version since only internal comments are used,
updated to T2 format

.gitignore

@@ -0,0 +1,3 @@
+*.code-workspace
+SmartGooey/*
+Projects/*

Case_Formatter.ahk

@@ -1,5 +1,179 @@
 #Include, func.ahk
 
+; Holy crap I need to rewrite this for v3...
+
+
+SetTitleMatchMode, 2
+
+; These next 3 options make it so that it's always on top, it there are no buttons, and doesn't show up in the alt-tab or taskbar
+Gui,+AlwaysOnTop
+Gui, +ToolWindow
+
+Contact := 2
+
+CurrTimeEN := GetDateTime("en")
+CurrTimeDE := GetDateTime("de")
+
+;------------------------------------------------------------------------------
+; GUI creation
+;------------------------------------------------------------------------------
+;   The & in front of the letters lets you hold alt and press the first letter instead of having to click on it. That is why its "Mail", not "E-Mail"
+
+Gui, Add, Radio, x12 y3 w60 h20 Group vLang Checked, &English   ; First group of Radio buttons
+Gui, Add, Radio, x12 y23 w60 h20, &German
+
+Gui, Add, Radio, x82 y3 w60 h20 Group vAct, &Warrant
+Gui, Add, Radio, x82 y23 w60 h20, &Demo
+
+Gui, Add, Text, x75 y46 w150 h20 gTime, %CurrTimeEN%
+
+Gui, Add, Button, x12 y43 w55 h20 Default vHidden, Go   ; That way you don't have to have an actual button, it just happens when you press enter.
+
+if (cfmail)
+{
+	Gui, Add, Radio, x142 y3 w80 h20 Group vContact Checked, E-&Mail   ; Second group of Radio buttons
+	Gui, Add, Radio, x142 y23 w80 h20 , &Call
+	Gui, Show, h70 w210, Contact
+} Else {
+	Gui, Show, h70 w145, Contact
+}
+
+Return
+
+Time:
+Run, addemail.ahk
+
+GuiClose:
+GuiEscape:
+ExitApp
+;------------------------------------------------------------------------------
+; Buttons
+;------------------------------------------------------------------------------
+
+
+ButtonGo:
+	Gui, submit
+	Goto, Write
+Return
+
+/*
+Contact
+Mail: 1
+Call: 2
+
+Lang
+English: 1
+German: 2
+
+Act
+Warrant: 1
+Demo: 2
+*/
+
+Write:
+{
+	FileRead, NewLine, %docfile%     ; Read the documentation file
+	If (NewLine != "")              ; If there is something in the file, this would return a string
+	{
+		FileAppend,`n`n`n`n, %docfile%      ; Inserts a new line so that it isn't just appended directly to the end
+	}
+	NewLine := ""                   ; Free up Memory cause this could be quite a bit of stuff
+
+
+	;------------------------------------------------------------------------------
+	; Email
+	;------------------------------------------------------------------------------
+
+	If (Contact = "1")
+	{
+		If (Lang = "1")     ; English
+		{
+			If (Act = "0")      ; Not an activation
+			{
+				FileAppend,Dealer emailed: "", %docfile%
+			}
+			
+
+			If (Act = "1")      ; Warrant
+			{
+				FileAppend,Dealer emailed for warrant transfer: ""`n`nOld SN: `nNew SN: `nChallenge Code: `n`n, %docfile%
+			}
+
+			If (Act = "2")      ; Demo
+			{
+				FileAppend,Dealer emailed for `n`nSN: `nChallenge Code: `n`n, %docfile%
+			}
+		}
+
+		Else If (Lang = "2") ; German
+		{
+			If (Act = "0")      ; Not an activation
+			{
+				FileAppend,Händler emailte: "", %docfile%
+			}
+
+			Else If (Act = "1") ; Warrant
+			{
+				FileAppend,Händler emailte für Garantieübertragung`n`nAlte SN: `nNeue SN: `nAuthentisierungscode: `n`n, %docfile%
+			}
+
+			Else If (Act = "2") ; Demo
+			{
+				FileAppend,Händler emailte für `n`nSN: `nAuthentisierungscode: `n`n, %docfile%
+			}
+		}
+	}
+
+
+	;------------------------------------------------------------------------------
+	; Call
+	;------------------------------------------------------------------------------
+
+	Else If (Contact = "2")
+	{
+		If (Lang = "1") ; English
+		{
+			FileAppend, Call received %CurrTimeEN%.`n`n, %docfile%
+			If (Act = "0")     ; Not an activation
+			{
+				FileAppend,Dealer called for , %docfile%
+			}
+
+			Else If (Act = "1")     ; Warrant
+			{
+				FileAppend,Dealer called for Warrant transfer`nOld SN: `nNew SN: `nChallenge Code: `n`n, %docfile%
+			}
+
+			Else If (Act = "2")     ; Demo
+			{
+				FileAppend,Dealer called for Demo`nSN: `nChallenge Code: `n`n, %docfile%
+			}
+		}
+
+		Else If (Lang    = "2")   ; German
+		{
+			FileAppend, Anruf wurde %CurrTimeDE% entgegengenommen.`n`n, %docfile% 
+
+			If (Act = "0")     ; Not an activation
+			{
+				FileAppend,Händler rief an mit , %docfile% 
+			}
+
+			Else If (Act = "1")     ; Warrant
+			{
+				FileAppend,Händler rief an für Garantieübertragung`nAlte SN: `nNeue SN: `nAuthentisierungscode: `n`n, %docfile%
+			}
+
+			Else If (Act = "2")     ; Demo
+			{
+				FileAppend,Händler rief an für Demo`nSN: `nAuthentisierungscode: `n`n, %docfile%
+			}
+		}
+	}
+
+	ExitApp
+}#Include, func.ahk
+
 SetTitleMatchMode, 2
 
 ; These next 3 options make it so that it's always on top, it there are no buttons, and doesn't show up in the alt-tab or taskbar

D3K.ahk

@@ -1,213 +1,128 @@
-#Include, func.ahk
+#Include, func.ahk
 
 Menu, Tray, Icon, shell32.dll, 283	; Set the tray icon to a keyboard
+Menu, Tray, Add, &Mouse Mover, Mouse_Mover		; Add item to the tray to move the mouse
+Menu, Tray, Add, Settings, D3K_Settings		; Add item to the tray to move the mouse
+Menu, Tray, Add, %A_AhkVersion%, docs
 
-;------------------------------------------------------------------------------
-; Make sure the settings file exists, if not, create it
-;------------------------------------------------------------------------------
-
-If !FileExist(ini)	; Check if the ini doesn't exist
-{
-FileAppend, 
-(
-; 0 is off, 1 is on
-[USpec]
-RACF=LF01234
-Email=LastnameFirstname@JohnDeere.com
-DocFile=Select File
-[Main]
-Mansol=1
-MJDPaste=1
-CaseFormatter=1
-CFmail=0
-[Replacement]
-JDProductNames=1
-GloVar=0
-[Language]
-German=0
-), %ini%
-Run Settings.ahk	; Runs the GUI for changing the settings, also accessible with Alt+Shift+\ (also easy way to restart this script)
-}
-
-;------------------------------------------------------------------------------
-; Read the ini
-;------------------------------------------------------------------------------
-;   This is the part that reads the file to see what your settings are. Variables in the ini file are in all lowercase, variables here are CamelCase for more distinction
-
-;   User Specific things:
-racf := ini_get(ini, "USpec", "RACF")
-email := ini_get(ini, "USpec", "Email")
-docfile := ini_get(ini, "USpec", "DocFile")
-
-;   General Settings
-mansol := ini_get(ini, "Main", "Mansol")
-supadmin := ini_get(ini, "Main", "Supadmin")
-mjdpaste := ini_get(ini, "Main", "MJDPaste")
-caseformatter := ini_get(ini, "Main", "CaseFormatter")
-
-;   Replacement
-jdpn := ini_get(ini, "Replacement", "JDProductNames")
-glovar := ini_get(ini, "Replacement", "GloVar")
-
-;   Language
-ger := ini_get(ini, "Language", "German")
 
 ;------------------------------------------------------------------------------
 ; Global Variables
 ;------------------------------------------------------------------------------
-
-If (glovar = 1)
+If (glovar)
 {
-	glovarini := A_MyDocuments "\GloVar.ini"	; Location of the ini that the user modifies
-
-	glovarstart := "#SingleInstance force`n`n:*:$dorg::`n:*:$dus::`n:*:$dnm::`n:*:$dem::`n:*:$xid::`n"
-
 	SetTimer, GloVar, 2000	; Check every 2 seconds
 
 	GloVar:
-	WinWaitNotActive, GloVar.ini	; So that we don't get any problems with the file on disk being out of date. I use VSCode with the "Save on lose focus" option on, YMMV
+		glovarini := A_MyDocuments "\GloVar.ini"	; Location of the ini that the user modifies
+		glovarscript := A_Temp "\GloVar.ahk"	; Doesn't need to be anywhere useful as it doesn't contain any external references
+		;FileGetTime, gvMod, %glovarini%, M
+		glovarstart := "#SingleInstance force`n#NoTrayIcon`nSendMode, Input`nFileEncoding, UTF-8`n"
+		If (WinActive("GloVar.ini"))	; Only run when the window isn't active, prevents accidential editing by this while the user is
 		{
-		FileGetTime, gvModNew, %glovarini%
-		if !(gvModNew = gvMod)	; Those two lines mean the rest of this only executes if there were changes to the ini.
-		{
-			gvMod := gvModNew
-			FileDelete, glovar.ahk	; Start with a clean slate
-			FileAppend, %glovarstart%, glovar.ahk	; makes sure we only have one instance of the script running at a time
-
-			RESection := ""	; Make sure that its clear
-			file := FileOpen(glovarini, "r")
-			Loop	; Read one line at a time
-			{
-				Line := file.ReadLine()
-				RegExMatch(Line, "(?<=\[).*(?=\])", RESection)	; explained above
-				RegExMatch(Line, "^(?<Key>.*)=(?<Value>.*)", RE)	; Key = REKey, Value = REValue
-				
-				If !(RESection)	; If the RegEx doesn't find antything, its empty
-				{
-					If !(REValue)	; If there is no value for the key, skip it (Continue the loop at the next line)
-					{
-						Continue
-					}
-					If InStr(StoredSection, "Serial Numbers")	; If the section is "Serial Numbers", make everything uppercase
-					{
-						StringUpper, REValue, REValue	; Makes it uppercase
-						WinWaitNotActive, GloVar.ini	; Just to make sure
-						{
-							ini_write(glovarini, REKey, REValue)
-							FileGetTime, gvMod, %glovarini%
-						}
-					}
-					If InStr(StoredSection, "Operations Center")	; If the section is "Operations Center" and the Key "un", make it uppercase
-					{
-						If InStr(REKey, "usr")
-						{
-							StringUpper, REValue, REValue	; Makes it uppercase
-							WinWaitNotActive, GloVar.ini
-							{
-								ini_write(glovarini, REKey, REValue)	; Writes the properly formatted case number to glovar.ini
-								FileGetTime, gvMod, %glovarini%
-							}
-						}
-					}
-					If InStr(REKey, "case")	; If a key contains "case". Case numbers are all in the format "LETTERS-NUMBERS".
-					{
-						StringUpper, REValue, REValue	; Makes it uppercase
-						RegExMatch(REValue, "(?<=\().*(?=\))", REMatch)	; Match everything but the parenthesis. When the case numbers are shown they have parenthesis, and those are annoying.
-						If (REMatch)	; If there's anything there
-						{
-							WinWaitNotActive, GloVar.ini
-							{
-								ini_write(glovarini, REKey, REMatch)	; Writes the properly formatted case number to glovar.ini
-								FileGetTime, gvMod, %glovarini%
-							}
-							REValue := REMatch
-						} Else {
-							WinWaitNotActive, GloVar.ini
-							{
-								ini_write(glovarini, REKey, REValue)	; Writes the properly formatted case number to glovar.ini
-								FileGetTime, gvMod, %glovarini%
-							}
-						}
-					}
-					If InStr(REKey, "xid")	; If an xID is entered. Unique identifier for people
-					{
-						dealinfo := GetInfo(REValue)	; Gets information, see function for details
-						StringUpper, REValue, REValue	; Makes xID uppercase
-
-						if !(REValue = dealinfo.xid)
-						{
-							run addemail.ahk
-							Continue
-						}
-						
-						; Replace the data in glovar.ahk with the data from the ini
-						FileRead, tempglovar, glovar.ahk
-						tempglovar := RegExReplace(tempglovar, "(?<=\$xid::).*", dealinfo.xid)
-						tempglovar := RegExReplace(tempglovar, "(?<=\$dem::).*", dealinfo.email)
-						tempglovar := RegExReplace(tempglovar, "(?<=\$dnm::).*", dealinfo.name)
-						tempglovar := RegExReplace(tempglovar, "(?<=\$dus::).*", dealinfo.user)
-						tempglovar := RegExReplace(tempglovar, "(?<=\$dorg::).*", dealinfo.org)
-						FileAppend, %tempglovar%, tempglovar
-						FileCopy, tempglovar, glovar.ahk,1
-						FileDelete, tempglovar
-						
-						WinWaitNotActive, GloVar.ini
-						{
-							ini_write(glovarini, "xID", dealinfo.xid)		; Writes the xID
-							ini_write(glovarini, "dem", dealinfo.email)	; Writes email address (incredibly useful)
-							ini_write(glovarini, "dnm", dealinfo.name)		; Writes Name (useful for when referring to that person)
-							ini_write(glovarini, "dus", dealinfo.user)		; Writes demo account name (somewhat useful)
-							ini_write(glovarini, "dorg", dealinfo.org)
-						}
-						FileGetTime, gvMod, %glovarini%	; Make sure that this script knows what the ini was changed to so it doesn't constantly run through the above code
-						Continue
-					}
-					If (InStr(REKey, "dem") or InStr(REKey, "dnm") or InStr(REKey, "dus"))
-					{
-						; Do not process xID related info, that is done above
-						Continue
-					}
-					writethis := ":*:$" REKey "::" REValue "`n"	; Save the hotstring to a variable
-					FileAppend, %writethis%, glovar.ahk	; Write the variable to glovar.ahk
-				}
-				If (RESection)	; If we have a section
-				{
-					StoredSection := RESection
-					If InStr(RESection, "clear")	; Will clear the ini and save its and the documentation file's contents to a log
-					{
-						FileRead, doctemp, %docfile%	; Read documentation file, set in settings
-						FileRead, initemp, %glovarini%	; Read the ini
-						initemp := RegExReplace(initemp, "(?<=\[)clear(?=\])", "Info")	; Replace the "clear" section we set with Info
-						CurrTime := GetDateTime("en")	; get the current date and time as "YYYY-MM-DD at HH:MM GMT"
-						
-						writethis := "Case on " . CurrTime . "`n" . doctemp . "`n`n" . initemp ; Save the current time, what was in the doc file, and glovarini to a variable
-						FileAppend, % "`n`n`n`n" writethis "`n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~", %A_MyDocuments%/D3KLog.txt	; Write a few new lines , the content, and a line underneath
-						FileAppend,, temptemp
-						FileCopy, glovarsource, %glovarini%, 1	; Copies and replaces any text in glovar.ini with the template
-						FileCopy, temptemp, %docfile%, 1	; These two this close together makes it look like they get cleared at the same time
-						FileDelete, temptemp
-						fileread, gvMod, %glovarini%	; Make sure that this script knows what the ini was changed to so it doesn't constantly run through the above code
-						FileDelete, glovar.ahk	; THE CLEAN SLATE
-						FileAppend, %glovarstart%, glovar.ahk
-
-						Sleep, 500
-						FileGetTime, gvMod, %glovarini%	; Make sure that this script knows what the ini was changed to so it doesn't constantly run through the above code
-						If FileExist("glovar.ahk")
-						{
-							Run glovar.ahk
-						}
 			Return
 		}
-				}
-			} Until (file.AtEOF)
-			file.Close()
-			FileGetTime, gvMod, %glovarini%	; Make sure that this script knows what the ini was changed to so it doesn't constantly run through the above code
-			If FileExist("glovar.ahk")
+		FileGetTime, gvModNew, %glovarini%, M
+		If !(gvModNew = gvMod)	; Those two lines mean the rest of this only executes if there were changes to the ini.
 		{
-				Run glovar.ahk
+			SetTimer, GloVar, Off
+			hotstrings := ""
+			glovar_array := ini_load(glovarini)
+			For sec in glovar_array
+			{
+				For key, value in glovar_array[sec]
+				{
+					If (value)
+					{
+						sec := StrReplace(sec, "§", " ")	; AHK can't handle spaces in nested array names, so they're substituted with § when entered into the array. This reverses that.
+						StringCaseSense, Off	; Make sure the capitalization doesn't matter
+						Switch sec
+						{
+							Case "Serial Numbers":
+									StringUpper, value, value	; Makes it uppercase
+									ini_write(glovarini, key, value)
+							Case "Info":
+								If (key = "case")
+								{
+									StringUpper, value, value	; Makes it uppercase, just in case it was manually typed
+									value := Trim(value, "()")
+									ini_write(glovarini, key, value)	; Writes the properly formatted case number to glovar.ini
+								}
+							Case "Clear":	; Will clear the ini and save its and the documentation file's contents to a log
+								temp := FileOpen(docfile, "r")
+								doctemp := temp.Read()
+								temp.Close()
+								temp := FileOpen(glovarini, "r")
+								initemp := temp.Read()
+								temp.Close()
+								initemp := RegExReplace(initemp, "i)(?<=\[)clear(?=\])", "Info")	; Replace the "clear" section we set with Info, case insensitive
+								CurrTime := GetDateTime("en")	; get the current date and time as "YYYY-MM-DD at HH:MM GMT"
+								temp := FileOpen(A_MyDocuments "/D3KLog.txt", "a")
+								writethis := "Case on " . CurrTime . "`n`n`n" . doctemp . "`n`n" . initemp ; Save the current time, what was in the doc file, and glovarini to a variable
+								temp.Write("`n`n" writethis "`n`n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
+								temp.Close()
+								temp := FileOpen("glovarsource", "r")
+								glovarsource := temp.Read()
+								temp.Close()
+								temp := FileOpen(glovarini, "w")
+								temp.Write(glovarsource)	; Overwrite .ini for a clean slate
+								temp.Close()
+								temp := FileOpen(docfile, "w")	; Overwrites documentation for a clean slate
+								temp.Close()
+								script := FileOpen(glovarscript, "w")
+								script.Write(glovarstart)
+								script.Close()
+								Run, %A_AhkPath% %glovarscript%	; Just in case. Don't want an old version running.
+								ToolTip, Cleared
+								Sleep, 500
+								ToolTip
+								FileGetTime, gvMod, %glovarini%, M	; Make sure that this script knows what the ini was changed to so it doesn't constantly run through the above code
+								SetTimer, GloVar, On
+								Goto, GloVar	; Don't do anything else below this line, Break wasn't taking "GloVar" as a variable
+							Case (RegExMatch(sec, "i)sdrbr(\d*)", m) ? sec : !sec):	; for cases with Stolen displays
+								If (m1)	; sometimes there are multiple stolen displays, this is to account for that.
+								{
+									writethis := "[Serial Numbers]"
+									Loop, % m1
+										writethis .= "`ns" A_Index "=`nr" A_Index "=`ncc" A_Index "=`nv" A_Index "="
+									writethis .= "`n[Info]"
+									Loop, % m1
+										writethis .= "`ncase" A_Index "="
+								} Else {
+									writethis := "[Serial Numbers]`ns=`nr=`ncc=`nv=`n[Info]`ncase=" glovar_array[sec, "case"]
+								}
+								temp := FileOpen(glovarini, "w")
+								temp.Write(writethis)
+								temp.Close()
+								script := FileOpen(glovarscript, "w")
+								script.Write(glovarstart)
+								script.Close()
+								SetTimer, GloVar, On
+								Goto, GloVar	; Don't do anything else below this line, Break wasn't taking "GloVar" as a variable
+						}
+						hotstrings .= "`n:*:$" key "::" value
 					}
 				}
 			}
+			file := FileOpen(glovarini, "r")
+			temp := file.Read()
+			file.Close()
+			temp := RegExReplace(temp, "`am)^[\s\R]*")	; Get rid of empty lines
+			temp := RegExReplace(temp, "m)[ \t]+$")		; Get rid of extra space at the end of strings
+			temp := Trim(temp, " `t`r`n")				; Remove pesky newlines and extra space at the end
+			file := FileOpen(glovarini, "w")
+			file.Write(temp)
+			file.Close()
+			script := FileOpen(glovarscript, "w")
+			script.Write(glovarstart hotstrings)
+			script.Close()
+			Run, %A_AhkPath% %glovarscript%
+			ToolTip, GloVars updated
+			Sleep, 500
+			ToolTip
+			FileGetTime, gvMod, %glovarini%, M	; Make sure that this script knows what the ini was changed to so it doesn't constantly run through the above code
+			SetTimer, GloVar, On
+		}
 	Return
 }
 
@@ -215,79 +130,63 @@ If (glovar = 1)
 ;------------------------------------------------------------------------------
 ; Settings window
 ;------------------------------------------------------------------------------
-
+D3K_Settings:
 !+\::Run Settings.ahk	; Alt+Shift+\
+Return
+
+
+;------------------------------------------------------------------------------
+; Mouse Mover
+;------------------------------------------------------------------------------
+Mouse_Mover:
+	If (msmv_active = True)
+	{
+		Run, %A_AhkPath% "msmv.ahk" "off"
+		msmv_active := False	; Have to do this cause AHK doesn't have a builtin function to detect if something is checked or not.
+		Menu, Tray, Uncheck, &Mouse Mover
+
+	}
+	Else
+	{
+		Run, %A_AhkPath% "msmv.ahk" "on"
+		msmv_active := True
+		Menu, Tray, Check, &Mouse Mover
+	}
+Return
 
 
 ;------------------------------------------------------------------------------
 ; DTAC Solution Opener
 ;------------------------------------------------------------------------------
-
-#If, mansol = "1"    ; checks from the variable thats set from the .ini file
+#If (mansol)	; checks from the variable thats set from the .sett_ini file
 	!+S::Run Mansol_Opener.ahk	; Alt+Shift+S
-#If ; these are to make sure one "if" doesn't influence the next accidentially
+#If
 
 
 ;------------------------------------------------------------------------------
 ; Case Formatter
 ;------------------------------------------------------------------------------
-
-#If, CaseFormatter = "1"
+#If (CaseFormatter)
 	Pause::Run Case_Formatter.ahk	; The Pause|Break key
 #If
 
-;	These things below are for using in a pinch, or when there is no dealer.
-
-SetTitleMatchMode, 2
-#If (WinActive = Temp.txt) && (CaseFormatter = "1")
-:*:\case::
-	CurrTime := GetDateTime("en")
-	Send Call received on %CurrTime% {Enter}Name: {Enter}Username: {Enter}
-	Return
-#If
-
-
-;German
-#If (CaseFormatter = "1") && (ger = "1")
-:*:|case::
-	CurrTime := GetDateTime("de")
-	Send Anruf wurde am %CurrTime% entgegengenommen{Enter}Name: {Enter}Benutzername: {Enter}
-	Return
-#If
-
 
 ;-------------------------------------------------------------------------------
 ;  Special Characters
 ;-------------------------------------------------------------------------------
-
-#If, ger = "1"
-; scharfes s / Eszett / ß
-	!s::Send {U+00DF}     ;Alt+S
-
-; ä
-	!a::Send {U+00E4}     ;Alt+a
-
-; ö
-	!o::Send {U+00F6}     ;Alt+o
-
-; ü
-	!u::Send {U+00FC}     ;Alt+u
-
-; Ä
-	+!A::Send {U+00C4}    ;Alt+A
-
-; Ö
-	+!O::Send {U+00D6}    ;Alt+O
-
-; Ü
-	+!U::Send {U+00DC}    ;Alt+U
-	
+#If (ger)
+	!s::Send {U+00DF}     ;Alt+S	scharfes s / Eszett / ß
+	!a::Send {U+00E4}     ;Alt+a	ä
+	+!A::Send {U+00C4}    ;Alt+A	Ä
+	!o::Send {U+00F6}     ;Alt+o	ö
+	+!O::Send {U+00D6}    ;Alt+O	Ö
+	!u::Send {U+00FC}     ;Alt+u	ü
+	+!U::Send {U+00DC}    ;Alt+U	Ü
 #If
 
 ;-------------------------------------------------------------------------------
 ;  Capitalise dates
 ;-------------------------------------------------------------------------------
-
 ::monday::Monday
 ::tuesday::Tuesday
 ::wednesday::Wednesday
@@ -295,12 +194,9 @@ SetTitleMatchMode, 2
 ::friday::Friday
 ::saturday::Saturday
 ::sunday::Sunday 
-
 ::january::January
 ::february::February
-; ::march::March  ; Commented out because it matches the common word "march".
 ::april::April
-; ::may::May  ; Commented out because it matches the common word "may".
 ::june::June
 ::july::July
 ::august::August
@@ -309,9 +205,8 @@ SetTitleMatchMode, 2
 ::november::November
 ::december::December
 
-
 ;   German
-#If, ger = "1"
+#If (ger)
 	::montag::Montag
 	::dienstag::Dienstag
 	::mittwoch::Mittwoch
@@ -331,195 +226,160 @@ SetTitleMatchMode, 2
 #If
 
 
-
 ;------------------------------------------------------------------------------
 ; Copypastas
 ;------------------------------------------------------------------------------
-
-; Recommending case
-:*:]rec::
-	Send Recommending Case, please contact us if there are any further questions.
+;	STWA Applied
+:*:]cmy::
+	Send STWA applied{Enter 2}Status: Providing information{Enter 2}Comments: {Enter 2}Thank you,{Enter}%name%{Enter 2}Tier 2 internal steps:{Space}{Enter 2}SQL:{Enter}
 Return
 
-; Escalatimg Case
-:*:]esc1::
-	Send This case was unable to be resolved and has been transferred to another team. Our Tier 2 team is investigating the issue to find a short term resolution. We will update you as soon as we have a recommendation.
+;	STWA not available
+:*:]cmn::
+	Send STWA not available{Enter 2}Status: Providing information{Enter 2}Comments: {Enter 2}Thank you,{Enter}%name%{Enter 2}Tier 2 internal steps:{Space}{Enter 2}SQL:{Enter}
 Return
 
-:*:]esc2::
-	Send A short term resolution still has not been identified. We are requesting an immediate update on this case from our Tier 2 team. We will contact you as soon as we have a status update.
+;	Need info
+:*:]cmr::
+	Send STWA available{Enter 2}Status: Requesting information{Enter 2}Comments: {Enter 2}Thank you,{Enter}%name%{Enter 2}Tier 2 internal steps:{Space}Verify information{Enter 2}SQL:{Enter}
+Return
+
+:*:]sdrbr::
+	glovar_array := ini_load(glovarini)
+	For sec in glovar_array
+	{
+		For key, value in glovar_array[sec]
+		{
+			If (value)
+			{
+				stln_%key% := value
+			}
+		}
+	}
+	If (glovar_array["Info"].Count() > 1)
+	{
+		Send Stolen Display Replacement Basics Requests{Tab}
+		Send Received some requests for replacement Basics for Stolen displays @
+	} Else {
+		Send %stln_case%{Tab}
+		Send Received a request for replacement Basics for a Stolen display @
+	}
+	Sleep, 1000
+	Send Stellar
+	Sleep, 1500
+	Send {Down}{Tab}:{Enter 2}
+	Sleep, 1000
+	Send {ShiftDown}{Tab 2}{ShiftUp}
+	Sleep, 1000
+	Send {Right 17}
+	Sleep, 1000
+	Send {Enter}
+	Sleep, 1000
+	Send {Right}
+	Send {Enter}
+	Sleep, 1000
+	If (glovar_array["Info"].Count() > 1)
+	{
+		Loop, % glovar_array["Info"].Count() {
+			If (A_Index < glovar_array["Info"].Count())
+			{
+				table := "^{b}Case " A_Index "{Tab}^{b}" stln_case%A_Index% "{Tab}Stolen{Tab}" stln_s%A_Index% "{Tab}Replacement{Tab}" stln_r%A_Index% "{Enter}" stln_cc%A_Index% "{Tab}Machine PIN{Tab}" stln_v%A_Index% "{Tab}Model, Year{Tab 2}Should it qualify?{Tab 2}"
+			} Else {
+				table := "^{b}Case " A_Index "{Tab}^{b}" stln_case%A_Index% "{Tab}Stolen{Tab}" stln_s%A_Index% "{Tab}Replacement{Tab}" stln_r%A_Index% "{Enter}" stln_cc%A_Index% "{Tab}Machine PIN{Tab}" stln_v%A_Index% "{Tab}Model, Year{Tab 2}Should it qualify?"
+			}	;	That way it doesn't put the extra line at the very end
+			Send %table%
+		}
+	} Else {
+		Send Case{Tab}%stln_case%{Tab}Stolen{Tab}%stln_s%{Tab}Replacement{Tab}%stln_r%{Enter}%stln_cc%{Tab}Machine PIN{Tab}%stln_v%{Tab}Model, Year{Tab 2}Should it qualify?{Up 2}{Tab}
+	}
+Return
+
+;	Transferring to DTAC
+:*:]DTAC::
+	Send The ISG Global Support Center has determined that this case is hardware related`; therefore, this case is being transferred from the Global Support Center to the ISG DTAC group. A DTAC technician will now work this case via the DTAC system and provide a recommendation in the case Text if more information is needed or if a solution has been found. Please continue to update or check on the progress of this case by using the DTAC system Case Text section moving forward.
+Return
+
+;	Transferring to Tier2
+:*:]rrt::
+	Send This case was unable to be resolved and has been transferred to another team. Our Tier 2 team is investigating the issue to find a short-term resolution. We will update you as soon as we have a recommendation.
+Return
+
+;	Update after 5 business days
+:*:]upd::
+	Send A short-term resolution still has not been identified. We are requesting an immediate update on this case from our Tier 2 team. We will contact you as soon as we have a status update.
 Return
 
 ;	Requesting info
-:*:]req1::
-	Send A request has been made for additional information in this case. Please provide the information as soon as possible so that the case can be resolved.
+:*:]req::
+	Send A request has been made for additional information in this case. Please provide the following information as soon as possible so this case can be resolved.
 Return
 
-:*:]req2::
-	Send A follow-up request has been made for the additional information.
+;	Dealer defect
+:*:]ddefect::
+	Send We have communicated your issue to the Product Support and Development Teams. We do not have a timeframe in which your issue will be resolved. At this time, we are closing the case as those teams track the issue. If you have any questions, please have your field team contact the appropriate Product Support Representative.
 Return
 
-:*:]req3::
-	Send The additional information required has not yet been received. This case will now be sent back to you. Please reopen the case, or contact the Global Support Center again via phone or email with the additional information and reference this case number so that it can be reopened and investigated further.
+;	Customer defect
+:*:]cdefect::
+	Send We have communicated your issue to the Product Support and Development Teams. We do not have a timeframe in which your issue will be resolved. At this time, we are closing the case as those teams track the issue. If you have any questions, please contact your preferred dealer and the field team can contact the appropriate Product Support Representative.
 Return
 
-; Defect / NCCA
-:*:]ncca::
-	Send We will be recommending this case back to you for the time being. This issue is still being investigated and worked on via an internal product corrective action ticket. We will continue to monitor the progress of that ticket and contact you when we have a solution or a short term recommendation. The case text will be updated at that time for documentation purposes.{Enter}You may choose to close this case yourself, return it to us, or keep it open until we provide you with a corrective action recommendation. If you have questions on the status of this issue, please re-open the case or contact the Global Support Center using the contact information found in DTAC solution 82793. We will provide you with any information we are able to gather from the product team.
+;	Workbasket shortcuts, place mouse over Transfer button before typing
+:*:]pd::
+Send PCDSC
+Send {Click}
 Return
 
-; DTAC
-:*:]dtac::
-	Send The ISG Global Support Center has determined that this case is hardware related; therefore this case is being transferred from the GSC to the ISG DTAC group. A DTAC technician will now work this case via the CCMS system and provide a recommendation in the case text if more information is needed or if a solution has been found. Please continue to update or check on the progress of this case by using the CCMS system case text section moving forward.
+:*:]pr::
+Send PCRRT
+Send {Click}
 Return
 
-;   German
-#If, ger = "1"
-; Recommending Case
-:*:[rec::
-	Send Fall an H{U+00E4}ndler gewiesen, bitte melden Sie sich wenn sie weitere fragen haben.
+:*:]p2::
+Send PCTIER2
+Send {Click}
 Return
 
-; Escalating Case
-:*:[esc1::
-	Send Der Fall konnte vom GSC nicht gelöst werden und wurde an die nächste Supportebene weitergeleitet. Das Support Team wird das Problem weiter untersuchen und versuchen eine kurzfristige Lösung bereit zu stellen. Sobald wir eine Empfehlung erhalten, werden wir Sie darüber informieren.
-	Return
-
-:*:[esc2::
-	Send Bisher steht uns keine kurzfristige Lösung zur Verfügung. Wir fordern umgehend ein Status-Update bezüglich des Falls von unserem Support Team an.{Shift down}{Enter}{Shift up}Wir werden Sie erneut kontaktieren, sobald wir über den aktuellsten Stand des Falls informiert sind.
-	Return
-
-; Requesting info
-:*:[req1::
-	Send Wir haben zusätzliche Informationen von Ihnen bezüglich des Falls angefordert. Bitte stellen Sie uns die Informationen so bald wie möglich zur Verfügung, damit der Fall gelöst werden kann.
-	Return
-
-:*:[req2::
-	Send Wir fordern die zusätzlichen Informationen von Ihnen erneut an.
-	Return
-
-:*:[req3::
-	Send Wir haben die benötigten zusätzlichen Informationen von Ihnen noch nicht erhalten. Dieser Fall wird jetzt zu Ihnen zurückgeschickt. Bitte setzen Sie sich mit dem GSC telefonisch oder per Email mit den zusätzlichen Informationen nochmal in Verbindung und referenzieren Sie die Fallnummer, damit der Fall erneut geöffnet und weiter untersucht werden kann.
-	Return
-
-; Defect / NCCA
-:*:[ncca::
-	Send Wir werden diesen Fall vorübergehend an Sie zurückweisen. Dieses Problem wird noch über ein innenseitiges Produkt Korrektur Ticket bearbeitet. Wir werden weiterhin den Fortschritt dieses Tickets verfolgen und mit Ihnen Kontakt aufnehmen, wenn wir eine Lösung oder eine kurzfristige Empfehlung haben.{Enter}Sie können diesen Fall selbst schließen, an uns zurückzugeben oder offen halten, bis wir Ihnen eine Korrekturmaßnahme empfehlen. Wenn Sie Fragen zum Fall Status haben wenden Sie sich an das Global Support Center, indem Sie die Kontaktinformationen in der DTAC-Lösung 82793 abrufen. Wir werden Ihnen alle Informationen, die wir von dem Produktteam bekommen haben, zu Verfügung stellen.
-	Return
-
-; DTAC
-:*:[dtac::
-	Send Das ISG Global Support Center hat festgestellt, dass dieser Fall hardwarebezogen ist; Daher wird dieser Fall vom GSC an die ISG DTAC Gruppe übertragen. Ein DTAC-Techniker wird nun diesen Fall über das DTAC-System bearbeiten und eine Empfehlung im Fall Text geben, wenn weitere Informationen benötigt werden oder wenn eine Lösung gefunden wurde. Dementsprechend bitten wir Sie, den Fortschritt des Falls mithilfe des Falltextes zu überprüfen und falls nötig mit fehlenden Informationen zu ergänzen.
-	Return
-#If
-
-
-
 ;------------------------------------------------------------------------------
 ; Email
 ;------------------------------------------------------------------------------
-
-; Regular
 :*:]email::
-	Send Hello,{Enter 2}   {Shift down}{Enter}{Shift up}Please contact us if you have any questions.{Up}{End}
+	Send Hello,{Enter 2}{Space 3}
 Return
 
-; DTAC Problem
-:*:]97010::
-	Send Hello,{Enter 2}    As this is a hardware/compatibility related inquiry, we here at the GSC cannot assist you properly. Please contact DTAC and they will be able to assist you further.
-	Return
-
-; 2 Year old COMAR
-:*:]2yc::
-	Send Hello,{Enter 2}   You are unable to activate this product as the COMAR is over 2 years old. There is a form in the Dealer Corner that you can fill out to have it replaced as long as it falls within the criteria outlined in solution 108357.{Enter}Please contact your TCSM if you have any questions about this process.
-	Return
-
-; CCMS
-:*:]cms::
-	Send Hello,{Enter 2}   {Enter}{Home down}{Shift up}{Home up}Please contact us if you have any questions.{Enter 2}Thank you,{Enter}David{Up 4}{End}
-	Return
-
-#If
-
 ; German
-#If, ger = "1"
-
-; Regular
+#If (ger)
 :*:[email::
-	Send Hallo,{Enter 2}   {Shift down}{Enter}{Shift up}Für Rückfragen stehen wir gerne zur Verfügung.{Up}{End}
+	Send Hallo,{Enter 2}{Space 3}
 Return
-
-; DTAC Problem
-:*:[97010::
-	Send Hallo,{Enter 2}   Da dies eine Hardware/Kompatibilität-bezogene Anfrage ist, können wir hier im GSC leider ihre Frage nicht sehr gut beantworten. Bitte wenden Sie sich an DTAC, dort können Sie bessere unterstützung für diesen typ von fragen bekommen.
-	Return
-
-; 2 Year old COMAR
-:*:[2yc::
-	Send Hallo,{Enter 2}   Sie können dieses Produkt nicht aktivieren weil die COMAR-Nummer über 2 Yahre alt ist. Es gibt in Vertriebspartnerinformation ein Formular das Sie ausfüllen können, und Ihre Aktivierungen werden ersetzt so lange es innerhalb der Regeln in DTAC Lösung 108357 ist.{Enter}Bitte melden Sie sich bei Ihrem Technischen Bezirksleiter wenn Sie Fragen über diesen Prozess haben.
-	Return
-
-; CCMS case
-:*:[cms::
-	Send Hallo,{Enter 2}   {Enter}{Home down}{Shift up}{Home up}Für Rückfragen stehen wir gerne zur Verfügung.{Enter 2}Mit freundlichen Grüßen,{Enter}David{Up 4}{End}
-	Return
-
 #If
 
 
-
 ;------------------------------------------------------------------------------
 ; Profile email paste
 ;------------------------------------------------------------------------------
 ; So when editing Profiles, it won't let you paste in the email field. We don't like that. Make sure to let go of all keys immediatley after pressing this
-
-#If, mjdpaste = "1"
+#If (mjdpaste)
 #v::
 	sleep, 750
-		Send %clipboard%
+	SendInput %clipboard%
 	sleep, 500
 	send #	; to make sure the start menu isn't open for some reason
-		return
+Return
 #If
 
-
-
 ;------------------------------------------------------------------------------
 ; Common Terms autocorrect and replacement
 ;------------------------------------------------------------------------------
-
-#If, not(racf = "LF01234")  ; So that it doesn't put the fake RACF from the default ini file
-	:*:]me::
-		Send, %racf%
-		return
-
-	:*:[me::
-		Send, %racf%
-		return
-#If
-
-#If, not(email = "LastnameFirstname@JohnDeere.com") ; Same as above
-	:*:@me::
-		Send, %email%
-	Return
-#If
-
 ; JD Names
-#If, jdpn = "1"
-
+#If (jdpn)
 	:*:[xx::XXXXXXXXXXXXX  ; I'm not gonna try and find the right amount of X's to appease the CCMS demons
 	:*:]xx::XXXXXXXXXXXXX
-
 ; English
 	:*:]at::AutoTrac
+	:*:]ba::Basics & AutoTrac
 	:*:]sf::StarFire
-	:*:]jdlw::JDLink Web
-	:*:]jdld::JDLink Dashboard
-	:*:]jdl2::JDLink Dashboard 2.0
-	:*:]jdlc::JDLink Connect
-	:*:]jdla::JDLink Access
-	:*:]jdls::JDLink Subscription
-	:*:]jdll::JDLink
+	:*:]jdl::JDLink
 	:*:]jdp::JDParts
 	:*:]mjd::MyJohnDeere
 	:*:]opsc::Operations Center
@@ -536,24 +396,24 @@ SetTitleMatchMode, 2
 	:*:]hlo::Original HarvestLab
 	:*:]bin::Virtual Inventory
 	:*:]warrep::Warranty Reports
-	:*:]tp::TouchPoint
 	:*:]tcsm::Territory Customer Support Manager
-	:*:]macrep::Machine Reports
 	:*:]jdsm::John Deere Software Manager
 	:*:]jddm::John Deere Data Manager
 	:*:]serva::Service Advisor
 	:*:]muc::Master Unlock Code
-	:*:]deg::{ASC 248}
-	:*:]eq::{ASC 247}
+	:*:]asmn::Asset Manager
+	:*:]bsm::Base Station Manager
+
+	:*:]sas::See & Spray
 
 	::rowsense::RowSense
-	::comar::COMAR
+	:*:comar::COMAR
 	::mrtk::mRTK
 	::rda::RDA
 	::rtk::RTK
 	::autotrac::AutoTrac
-	::ccms::CCMS
-	::dtac::DTAC
+	:*:ccms::CCMS
+	:*:dtac::DTAC
 	::tcsm::TCSM
 	::itec::iTEC Pro
 	::ssu::SSU
@@ -561,7 +421,7 @@ SetTitleMatchMode, 2
 	:*:mtg::MTG
 	::wdt::WDT
 	::itc::iTC
-	::vin::VIN
+	:*:vin::Machine PIN		; Not actually vehicles, so they don't have VINs
 	::gs2::GS2
 	::gs3::GS3
 	::sf1::SF1
@@ -573,19 +433,16 @@ SetTitleMatchMode, 2
 	::vat::VAT
 	:*:racf::RACF
 	::igrade::iGrade
+	:*:JDCP::JDCP
+	:*:ISOBUS::ISOBUS
 
 
 ; German
-#If, ger = "1" 
+#If (ger) 
 	:*:[at::AutoTrac
+	:*:[ba::Basics & AutoTrac
 	:*:[sf::StarFire
-	:*:[jdlw::JDLink Web
-	:*:[jdld::JDLink Dashboard
-	:*:[jdl2::JDLink Dashboard 2.0
-	:*:[jdlc::JDLink Connect
-	:*:[jdla::JDLink Access
-	:*:[jdls::JDLink Abonnement
-	:*:[jdll::JDLink
+	:*:[jdl::JDLink
 	:*:[jdp::JDParts
 	:*:[mjd::MyJohnDeere
 	:*:[opsc::Einsatzzentrale
@@ -604,36 +461,61 @@ SetTitleMatchMode, 2
 	:*:[warrep::Warranty Reports
 	:*:[tp::TouchPoint
 	:*:[tcsm::Technischer Bezirksleiter
-	:*:[macrep::Machine Reports
 	:*:[jdsm::John Deere Software Manager
 	:*:[jddm::John Deere Data Manager
 	:*:[serva::Service Advisor
 	:*:[muc::Master Unlock Code
-	:*:[deg::{ASC 248}
-	:*:[eq::{ASC 247}
+	:*:[asmn::Asset Manager
+	:*:[bsm::Base Station Manager
 #If
 
 
-
-
-
 ;------------------------------------------------------------------------------
 ; QoL Improvements
 ;------------------------------------------------------------------------------
-
-#j::
-Run, C:\Users\%racf%\Downloads	; Open the downloads folder on Win+J
+:*:]me::
+	Send, % Format("{:U}", A_UserName)
 Return
 
+:*:[me::
+	Send, % Format("{:U}", A_UserName)
+Return
+
+#If !(email = "LastnameFirstname@JohnDeere.com")
+	:*:@me::
+		Send, %email%
+Return
+#If
 
 
-#w::
-if WinActive("ahk_exe Explorer.EXE")	; If windows explorer is focused
-{
-	Send !d	; Focus the address bar
-	Send C:\Users\%racf%\Documents\Work_Docs\Cases\2020-01 - 06	; current folder, would love to use a var instead, but Run doesn't like it
-	Send {Enter}
+#j::	; Open the downloads folder on Win+J
+	Run, C:\Users\%A_UserName%\Downloads
 Return
-}
-Run, C:\Users\%racf%\Documents\Work_Docs\Cases\2020-01 - 06	; Open the documentation folder on Win+W
+
+:*:[now::
+:*:]now::
+	SendInput, % GetDateTime("ISO8601")		; Send the current time/date in ISO8601 format
 Return
+
+:*:[today::
+:*:]today::
+	SendInput, % GetDateTime("date")		; Send the current date in ISO8601 format
+Return
+
+:*:[deg::{ASC 248}
+:*:]deg::{ASC 248}
+:*:[eq::{ASC 247}
+:*:]eq::{ASC 247}
+
+:*:[shrug::¯\_(ツ)_/¯
+:*:]shrug::¯\_(ツ)_/¯
+
+:*:[ltd::License to Deere™
+:*:]ltd::License to Deere™
+
+
+docs:
+	run https://www.autohotkey.com/docs/AutoHotkey.htm
+Return
+
+F19:: Run D3K.ahk

Mansol_Opener.ahk

@@ -19,7 +19,7 @@ ButtonOk:
 	If RegExMatch(Number, "[[:alpha:]]+")
 		run, % "http://serviceadvisor.deere.com/WebSA/manuals/" . Number
 	Else If RegExMatch(Number, "[[:digit:]]+")
-		run, % "https://ccms.deere.com/prweb/PRServletCustomAuth/ZDate_MgiNPn1ccL6O6pyBurDs0hjFQ8*/!STANDARD?pyActivity=SolutionsSnapStart&Action=showHarness&className=Deere-Int-Solr-Docs&Purpose=SolutionDescriptionNew&SolutionID=" . Number . "&Language=Default"
+		run, % "https://serviceadvisor.deere.com/WebSA/solutions/en/" . Number
 	ExitApp
 Return
 

Settings.ahk

@@ -1,44 +1,17 @@
 #Include, func.ahk
+#NoTrayIcon
 Menu, Tray, Icon, shell32.dll, 283
 
-;------------------------------------------------------------------------------
-; Read ini
-;------------------------------------------------------------------------------
-/*
-This is the part that reads the file to see what your settings are. Variables in the ini file are in CamelCase, variables here are lowercase for more distinction
-*/
-
-;   User Specific things:
-racf := ini_get(ini, "USpec", "RACF")
-email := ini_get(ini, "USpec", "Email")
-docfile := ini_get(ini, "USpec", "DocFile")
-
-;   General Settings
-mansol := ini_get(ini, "Main", "Mansol")
-mjdpaste := ini_get(ini, "Main", "MJDPaste")
-caseformatter := ini_get(ini, "Main", "CaseFormatter")
-cfmail := ini_get(ini, "Main", "CFmail")
-
-;   Replacement
-jdpn := ini_get(ini, "Replacement", "JDProductNames")
-glovar := ini_get(ini, "Replacement", "GloVar")
-
-;   Language
-ger := ini_get(ini, "Language", "German")
-
 ;------------------------------------------------------------------------------
 ; Create GUI
 ;------------------------------------------------------------------------------
 Gui, -MaximizeBox -MinimizeBox	; Remove the max+min buttons
 
-Gui, Add, GroupBox, x8 y2 w67 h37, RACF
-Gui, Add, Edit, x12 y15 w60 h20 vformRACF gRACF, %RACF%
+Gui, Add, GroupBox, x8 y2 w193 h37, First Name
+Gui, Add, Edit, x12 y15 w185 h20 vformName gName, %name%
 
 Gui, Add, GroupBox, x8 y40 w207 h37, Email Address
-Gui, Add, Edit, x12 y53 w200 h20 vformEmail gEmail, %Email%
-
-Gui, Add, GroupBox, x77 y2 w207 h37, Documentation File
-Gui, Add, Text, x81 y19 w200 h20 gDocFile, %docfile%
+Gui, Add, Edit, x12 y53 w200 h20 vformEmail gEmail, %email%
 
 Gui, Add, GroupBox, x8 y83 w107 h130, Main
 Gui, Add, CheckBox, x12 y95 w100 h30 vformMansol Checked%mansol% gMansol, ManSol
@@ -46,25 +19,28 @@ Gui, Add, CheckBox, x12 y125 w100 h30 vformMJDPaste Checked%mjdpaste% gMJDPaste,
 Gui, Add, CheckBox, x12 y155 w100 h30 vformCaseFormatter Checked%caseformatter% gCaseFormatter, Case Formatter
 Gui, Add, CheckBox, x25 y178 w75 h30 vformCFmail Checked%cfmail% gCFmail, Email option
 	GuiControl, show%caseformatter%, formCFmail		; only shows the check box for emails if the Case Formatter box is checked
+Gui, Add, GroupBox, x8 y215 w277 h50 vformDocFile, Documentation File
+Gui, Add, Text, x15 y231 w260 h30 vformDocFile2 gDocFile, %docfile%
 
 Gui, Add, GroupBox, x128 y83 w157 h75, Text Replacement
 Gui, Add, CheckBox, x132 y95 w150 h30 vformJdpn Checked%jdpn% gJdpn, JD Product Names
 Gui, Add, CheckBox, x132 y125 w150 h30 vformGlovar Checked%glovar% gGlovar, Global Variables
 Gui, Add, CheckBox, x132 y155 w100 h30 vformGer Checked%ger% gGer, DE ([ as prefix)
 
-Gui, Add, Link, x132 y190 w150 h23 gHelp, <a href="https://daviddaily.dev/david/d3k/wiki">Click here for help</a> (v%d3k_version%)
+Gui, Add, Link, x132 y190 w150 h26 gHelp, <a href="https://daviddaily.dev/david/d3k/wiki">Click here for help</a>`n%A_AhkVersion%
 
-Gui, Show, h225 w295, David 3000 Settings
+Gui, Show, h273 w295, D3K version %d3k_version%
 Return
 
 ;------------------------------------------------------------------------------
 ; Edit ini
 ;------------------------------------------------------------------------------
+
 /*
 Default ini, sections are in []: (0 is off, 1 is on)
 [USpec]
-RACF=LF01234
 Email=LastnameFirstname@JohnDeere.com
+Name=Firstname
 DocFile=Select File
 [Main]
 Mansol=1
@@ -77,69 +53,64 @@ GloVar=0
 [Language]
 German=0
 
-format for below:
-Button G-label (executes when clicked):
-	Submit the gui so that it can change and don't hide it
-	write the state of the check box (a 0 for unchecked, 1 for checked), to the file at %ini%, section with this name, line with this name
 */
 
-RACF:
+Name:
 	Gui, Submit, NoHide
-	ini_write(ini, "RACF", formRACF)
+	ini_write(sett_ini, "Name", formName)
 Return
 
 Email:
 	Gui, Submit, NoHide
-	ini_write(ini, "Email", formEmail)
+	ini_write(sett_ini, "Email", formEmail)
 Return
 
 DocFile:
 	Gui, Submit
-	FileSelectFile, SelectedFile, 3, , Open a file, Text Documents (*.txt; *.doc)
-	if SelectedFile =
+	FileSelectFile, SelectedFile, 3, , Open a file, Text Documents (*.txt)
+	if !(SelectedFile)
 		MsgBox, You have not selected a file, this will break some things.
 	else
-		ini_write(ini, "DocFile", SelectedFile)
-		docfile := ini_get(ini, "USpec", "DocFile")
-		Gui, Show, h225 w295, David 3000 Settings
+		ini_write(sett_ini, "DocFile", SelectedFile)
+		Run, Settings.ahk
 Return
 
 Mansol:
 	Gui, Submit, NoHide
-	ini_write(ini, "Mansol", formMansol)
+	ini_write(sett_ini, "Mansol", formMansol)
 Return
 
 MJDPaste:
 	Gui, Submit, NoHide
-	ini_write(ini, "MJDPaste", formMJDPaste)
+	ini_write(sett_ini, "MJDPaste", formMJDPaste)
 Return
 
 CaseFormatter:
 	Gui, Submit, NoHide
 	GuiControl, show%formCaseFormatter%, formCFmail		; only shows the check box for emails if the Case Formatter box is checked
 	GuiControl,, formCFmail, 0
-	ini_write(ini, "CaseFormatter", formCaseFormatter)
-	ini_write(ini, "CFmail", "0")	; if you're toggling this, its either on or off, doesn't hurt to set it here	
+	ini_write(sett_ini, "CaseFormatter", formCaseFormatter)
+	ini_write(sett_ini, "CFmail", "0")	; if you're toggling this, its either on or off, doesn't hurt to set it here	
 Return
 
 	CFmail:
 		Gui, Submit, NoHide
-		ini_write(ini, "CFmail", formCFmail)
+		ini_write(sett_ini, "CFmail", formCFmail)
 	Return
 
 Jdpn:
 	Gui, Submit, NoHide
-	ini_write(ini, "JDProductNames", formJdpn)
+	ini_write(sett_ini, "JDProductNames", formJdpn)
 Return
 
 Glovar:
 	Gui, Submit, NoHide
-	ini_write(ini, "GloVar", formGlovar)
+	ini_write(sett_ini, "GloVar", formGlovar)
 Return
 
 Ger:
 	Gui, Submit, NoHide
-	ini_write(ini, "German", formGer)
+	ini_write(sett_ini, "German", formGer)
 Return
 
 Help: 

func.ahk

@@ -2,18 +2,16 @@
 SendMode, Input
 FileEncoding, UTF-8	; Makes sure the special characters dont break stuff
 SetWorkingDir, %A_MyDocuments%\D3K	; Make sure we can find the .ahks linked below
+SetTitleMatchMode, 2
 
-d3k_version = 2.9		; The current version
-
-ini = %A_MyDocuments%\D3Ksettings.ini	; Where the settings ini is
+d3k_version := 3		; The current version
 
 GetDateTime(lang)
 {
-	UTCTimestamp := A_NowUTC    ; Grab the current time and date
-	UTCFormatStr := "yyyy-MM-dd"    ; The Date
-	FormatTime, DateStr, %UTCTimestamp%, %UTCFormatStr% ; format it to make it look like the Date we want
-	UTCFormatStr := "H:mm' GMT'"   ; The time
-	FormatTime, TimeStr, %UTCTimestamp%, %UTCFormatStr% ; Format the string to be better
+	FormatStr := "yyyy-MM-dd"    ; The Date
+	FormatTime, DateStr, %A_NowUTC%, %FormatStr% ; format it to make it look like the Date we want
+	FormatStr := "H:mm'Z'"   ; The time
+	FormatTime, TimeStr, %A_NowUTC%, %FormatStr% ; Format the string to be better
 	if (lang = "en")
 	{
 		Return DateStr " at " TimeStr
@@ -23,6 +21,16 @@ GetDateTime(lang)
 	{
 		Return DateStr " um " TimeStr
 	}
+
+	if (lang = "ISO8601")
+	{
+		Return DateStr "T" TimeStr
+	}
+
+	if (lang = "date")
+	{
+		Return DateStr
+	}
 }
 
 GetInfo(xID)
@@ -56,56 +64,105 @@ GetInfo(xID)
 
 ini_load(location)
 {
-	File := FileOpen(location, "r")
 	out := {}
+	File := FileOpen(location, "r")
+	cleaner := File.Read()
+	File.Close()
+	cleaner := RegExReplace(cleaner, "`am)^[\s\R]*")	; Remove empty lines
+	cleaner := RegExReplace(cleaner, "m)[ \t]+$")		; Get rid of extra space at the end of values (NEEDS FIXED)
+	File := FileOpen(location, "w")
+	File.Write(cleaner)
+	File.Close()
+	File := FileOpen(location, "r")
 	Loop
 	{
 		Line := File.ReadLine()
-		RegExMatch(Line, "(?<=\[).*(?=\])", _RESection)	; Matches section name
-		RegExMatch(Line, "(?<Key>.*)=(?<Value>.*)", _)	; Key = _Key, Value = _Value
-
-		If (_RESection)
+		RegExMatch(Line, "(?<Section>(?<=\[).*(?=\]))|(?<Key>.*)=(?<Value>.*)", r)	; Key = rKey, Value = rValue, Section = rSection
+		If (rSection)
 		{
-			_RESection := StrReplace(_RESection, " ", "_")
-			out[_RESection]:={}
-            currentSection := _RESection
-		} Else {
-			If (_Value)
+			rSection := Trim(rSection, " `t`r`n")		; Remove pesky newlines and extra space
+			rSection := StrReplace(rSection, " ", "§")	; AHK can't handle spaces in nested array names, so they're substituted with §
+			out[rSection]:={}
+            c_Section := rSection
+		} Else 
 		{
-				_Key := StrReplace(_Key, " ", "_")
-				out[currentSection][_Key] := _Value
-			}
+			rKey := Trim(rKey, " `t`r`n")
+			rValue := Trim(rValue, " `t`r`n")
+			out[c_Section, rKey] := rValue
 		}
 	} Until (File.AtEOF)
 	File.Close()
 	Return out
 }
 
-ini_get(location, inSec, inKey)
+
+ini_write(location, inKey, inValue)	; Don't need to specify section because you can only have one hotstring anyway
 {
-	ini_loaded := {}
-	ini_loaded := ini_load(location)
-
-	inSec := StrReplace(inSec, " ", "_")
-	inKey := StrReplace(inKey, " ", "_")
-
-	needed := ini_loaded[inSec][inKey]
-
-	if (needed)		; Without this it doesn't know what to return and gets stuck
-	{
-		Return needed
-	} Else Return false
+	Critical, On
+	file := FileOpen(location, "r")
+	temp := file.Read()
+	file.Close()
+	inKeyReg := "(?<=^" inKey "=)\S*"			; Regex to make sure we're matching only the value for the requested key
+	temp := RegExReplace(temp, inKeyReg, inValue)
+	file := FileOpen(location, "w")
+	file.Write(temp)
+	file.Close()
 }
 
-ini_write(location, inKey, inValue)
+
+;------------------------------------------------------------------------------
+; Make sure the settings file exists, if not, create it
+;------------------------------------------------------------------------------
+sett_ini := A_MyDocuments "\D3Ksettings.ini"	; Where the settings ini is
+
+If !FileExist(sett_ini)	; Check if the sett_ini doesn't exist
 {
-	FileRead, tempini, %location%
-	needle := inKey . "=.*"
-	replacement := inKey . "=" . inValue
-	tempini := RegExReplace(tempini, needle, replacement,, 1)
-	tempini := RegExReplace(tempini, "\R+\R", "`r`n")
-	WinWaitNotActive, GloVar.ini
-	FileAppend, %tempini%, tempini		; Append the fixed ini to a new file
-	FileCopy, tempini, %location%, 1	; Copy the file over, overwriting existing contents
-	FileDelete, tempini					; Delete the fixed temporary ini
+	file := FileOpen(sett_ini, "w")
+	writethis := "
+	( LTrim
+		[USpec]
+		Email=LastnameFirstname@JohnDeere.com
+		Name=Firstname
+		DocFile=Select File
+		[Main]
+		Mansol=1
+		MJDPaste=1
+		CaseFormatter=1
+		CFmail=0
+		[Replacement]
+		JDProductNames=1
+		GloVar=0
+		[Language]
+		German=0
+	)"
+	file.Write(writethis)
+	file.Close()
+	Run Settings.ahk	; Runs the GUI for changing the settings, accessible with Alt+Shift+\ (also easy way to restart this script)
 }
+
+;------------------------------------------------------------------------------
+; Read the sett_ini
+;------------------------------------------------------------------------------
+;   This is the part that reads the file to see what your settings are. Variables in the sett_ini file are in all CamelCase, variables here are lowercase  for more distinction
+
+settings := {}
+settings := ini_load(sett_ini)
+
+;   User Specific things:
+email := settings["USpec", "Email"]
+name := settings["USpec", "Name"]
+docfile := settings["USpec", "DocFile"]
+
+;   General Settings
+mansol := settings["Main", "Mansol"]
+supadmin := settings["Main", "Supadmin"]
+mjdpaste := settings["Main", "MJDPaste"]
+caseformatter := settings["Main", "CaseFormatter"]
+cfmail := settings["Main", "CFmail"]
+
+;   Replacement
+jdpn := settings["Replacement", "JDProductNames"]
+glovar := settings["Replacement", "GloVar"]
+
+;   Language
+ger := settings["Language", "German"]

glovarsource

@@ -1,16 +1,6 @@
 [Serial Numbers]
 1=
-ch=
-2=
-MTG=
-VIN=
-[Operations Center]
-usr=
-org=
+cm=
+v=
 [Info]
 case=
-dorg=
-dus=
-dnm=
-dem=
-xID=

msmv.ahk

@@ -0,0 +1,63 @@
+#SingleInstance, force
+CoordMode, Mouse, Screen
+
+waittime := 120000
+
+Switch A_Args[1]
+{
+Case "on":
+	Menu, Tray, NoIcon
+	Goto, Start
+Case "off":
+	ExitApp
+}
+
+Menu, Tray, Add, Hide GUI, GuiToggle	; Adds a button to toggle the gui
+Menu, Tray, Add, Exit, GuiClose			; Exit button
+Menu, Tray, NoStandard					; None of the standard tray buttons
+Gui, +AlwaysOnTop +ToolWindow
+Gui, Add, Button, x3 y3 w55 h20 gStart +Center, Start
+Gui, Add, Button, x3 y3 w55 h20 gStop +Center, Stop
+Gui, Show, h28 w60, msmv
+GuiControl, Hide, Stop		; Since we want the Start button to show first
+Return
+
+Start:
+	GuiControl, Hide, Start
+	SetTimer, Msmv, %waittime%		; Checks if the has been input in the last 2 minutes every 30 secs, easier to stop a loop with SetTimer
+	GuiControl, Show, Stop
+Return
+
+Stop:
+	GuiControl, Hide, Stop
+	SetTimer, Msmv, off
+	GuiControl, Show, Start
+Return
+
+Msmv:
+	If 	(A_TimeIdle > waittime)	; https://www.autohotkey.com/docs/Variables.htm#User_Idle_Time
+	{
+		Random, x,, %A_ScreenWidth%
+		Random, y,, %A_ScreenHeight%
+		MouseMove %x%, %y%
+	}
+Return
+
+GuiToggle:
+	If !nogui
+	{
+		Gui, Hide
+		Menu, Tray, Check, Hide GUI
+		nogui := True
+	}
+	Else
+	{
+		Menu, Tray, uncheck, Hide GUI
+		nogui := False
+		Gui, Show
+	}
+Return
+
+GuiClose:
+GuiEscape:
+ExitApp		; Closes the app when escape or the exit button is pressed