Artemis Jump Drive.ahk

ResetParams(Manual= false) {
	global
	
	Small := 1
	Big := 10
	LastHeading := 0
	Heading := 0
	MaxHeading := 359
	LastRange := 0
	Range := 0
	MaxRange := 50
	CurrentField := "none"
	if (Manual) {
		MsgBox,,, Please ensure you manually reset all Jump Drive sliders and unfocus the text inputs., 5
	}
	return
}

ManualResetParams() {
	MsgBox, 4,, Are you sure you want to reset the Jump Drive?, 5
	IfMsgBox Yes
		ResetParams(true)
	IfMsgBox No
		MsgBox,,, Cancelling...,1
	IfMsgBox Timeout
		MsgBox,,, Cancelling...,1
	return
}

SetTitleMatchMode, 2
Process, Exist, Artemis.exe
if (!ErrorLevel = 0) {
	ResetParams()
	
	#IfWinNotActive, Game Window
		WinActivate, Game Window
		WinWaitActive, Game Window
	#IfWinNotActive
	#IfWinActive, Game Window
		7::MsgBox % "Heading: " . Heading . " Range: " . Range . " CurrentField: " . CurrentField
		8::ManualResetParams()
		9::ChangeHeading(-1)
		0::ChangeHeading(1)
		-::ChangeHeading(-10)
		=::ChangeHeading(10)
		o::ChangeRange(-1)
		p::ChangeRange(1)
		[::ChangeRange(-10)
		]::ChangeRange(10)
	#IfWinActive
	return
}

ChangeHeading(Amount) {
	global
	
	LastHeading := Heading
	
	if (Amount < 0 && Heading + Amount < 0) {
		Heading := MaxHeading + Heading + Amount + 1
	} else if (Amount > 0 && Heading + Amount > MaxHeading) {
		Heading := Heading + Amount - MaxHeading - 1
	} else {
		Heading += Amount
	}

	if (CurrentField != "heading") {
		CurrentField := "heading"
		Send {tab}
		Sleep 100
	}

	Send {backspace}

	if (LastHeading > 9) {
		Send {backspace}
	}
	
	if (LastHeading > 99) {
		Send {backspace}
	}
	
	Send %Heading%

	return
}

ChangeRange(Amount) {
	global

	LastRange := Range
	
	Range += Amount

	if (Range > MaxRange) {
		Range := MaxRange
	}

	if (Range < 0 && Amount < 0) {
		Range := 0
	}
	
	if (CurrentField = "none") {
		CurrentField := "range"
		Send {tab}
		Sleep 100
		Send {tab}
		Sleep 100
	} else if (CurrentField = "heading") {
		CurrentField := "range"
		Send {tab}
		Sleep 100
	}
	
	Send {backspace}

	if (LastRange > 9) {
		Send {backspace}
	}

	if (LastRange > 99) {
		Send {backspace}
	}

	Send %Range%

	return
}