#include <AutoItConstants.au3>

AutoItSetOption("MouseCoordMode", 2)
AutoItSetOption("MouseClickDelay", 5)

HotKeySet("w", "Speedup")
HotKeySet("{SPACE}", "Pause")
HotKeySet("e", "Skill")
HotKeySet("q", "Retreat")
HotKeySet("{PAUSE}", "Terminate")

Global Const $SPEEDUP_COORD[2] = [1646/1920, 81/1200]
Global Const $PAUSE_COORD[2] = [1793/1920, 85/1200]

Global Const $SKILL_COORD[2] = [1280/1920, 732/1200]
Global Const $RETREAT_COORD[2] = [927/1920, 447/1200]

While (true)
	Sleep(3600000)
WEnd


Func Speedup()
	Local $hWnd = WinActive("[TITLE:Arknights; CLASS:KIWICROSVM_1]")
	If $hWnd == 0 Then
		HotKeySet("w")
		Send("w")
		HotKeySet("w", "Speedup")
		Return
	EndIf

	Local $origPos = MouseGetPos()
	Local $aClientSize = WinGetClientSize($hWnd)
	MouseClick($MOUSE_CLICK_LEFT, $SPEEDUP_COORD[0] * $aClientSize[0], $SPEEDUP_COORD[1] * $aClientSize[1], 1, 0)
	MouseMove($origPos[0], $origPos[1], 0)
EndFunc


Func Pause()
	Local $hWnd = WinActive("[TITLE:Arknights; CLASS:KIWICROSVM_1]")
	If $hWnd == 0 Then
		HotKeySet("{SPACE}")
		Send("{SPACE}")
		HotKeySet("{SPACE}", "Pause")
		Return
	EndIf

	Local $origPos = MouseGetPos()
	Local $aClientSize = WinGetClientSize($hWnd)
	MouseClick($MOUSE_CLICK_LEFT, $PAUSE_COORD[0] * $aClientSize[0], $PAUSE_COORD[1] * $aClientSize[1], 1, 0)
	MouseMove($origPos[0], $origPos[1], 0)
EndFunc


Func Skill()
	Local $hWnd = WinActive("[TITLE:Arknights; CLASS:KIWICROSVM_1]")
	If $hWnd == 0 Then
		HotKeySet("e")
		Send("e")
		HotKeySet("e", "Skill")
		Return
	EndIf

	MouseClick($MOUSE_CLICK_LEFT)
	Sleep(100)

	Local $origPos = MouseGetPos()
	Local $aClientSize = WinGetClientSize($hWnd)
	MouseClick($MOUSE_CLICK_LEFT, $SKILL_COORD[0] * $aClientSize[0], $SKILL_COORD[1] * $aClientSize[1], 1, 0)
	MouseMove($origPos[0], $origPos[1], 0)
EndFunc


Func Retreat()
	Local $hWnd = WinActive("[TITLE:Arknights; CLASS:KIWICROSVM_1]")
	If $hWnd == 0 Then
		HotKeySet("q")
		Send("q")
		HotKeySet("q", "Retreat")
		Return
	EndIf

	MouseClick($MOUSE_CLICK_LEFT)
	Sleep(100)

	Local $origPos = MouseGetPos()
	Local $aClientSize = WinGetClientSize($hWnd)
	MouseClick($MOUSE_CLICK_LEFT, $RETREAT_COORD[0] * $aClientSize[0], $RETREAT_COORD[1] * $aClientSize[1], 1, 0)
	MouseMove($origPos[0], $origPos[1], 0)
EndFunc


Func Terminate()
	Exit
EndFunc