Ingkara Background AutoIt3 Script

;Credit Display, ControlClick, and ControlSend awareness to omagad00
;Credit HFS binds to Nunya
;This majority of the fancy smancy scripting is the work of omagad00 I just used his work and made an Ingkara script out of it.

;!!Resolution is 1366x768!!
;!!Run Vindictus in Custom Fullscreen Mode in order for mouse clicks to register!!
;!!Suggested use accompanied by ezbossx_ep7 (Nunya) and My Perm Binds ep7 (Nunya)!!

;Home starts the bot
;End stops the bot
;F9 shows display of number of runs and time the bot has been running

AutoItSetOption("MouseCoordMode", 0)

HotKeySet("{HOME}", "Ingkara")
HotKeySet("{END}", "End")
HotKeySet("{F9}", "DisplayRuns") 

$run = 1
$timer = 0
$diff = 0
$show = false

While 1
Sleep(1)
WEnd

Func Ingkara()
$timer = TimerInit()
While 1
If($show) then
$diff = Int(TimerDiff($timer) / 1000)
ToolTip("Run #" & $run & " - Time running: " & Time($diff), 0, 0)
EndIf
ControlClick("Vindictus", "", "", "left", 3, 95, 627) ; Click Start Button [EDIT THIS IF YOU ARE RUNNING A DIFFERENT RESOLUTION format: number of clicks, x, y]
ControlSend("Vindictus", "", "", "{Numpad6}") ; <host_timescale 3>
	Sleep(8000);------------------------------------------------------------------LOADING TO BATTLE QUEST DELAY (MILLISECONDS) [EDIT THIS IF YOU ARE NOT TRANSFORMING AFTER BATTLE QUEST LOADING]
ControlSend("Vindictus", "", "", "{NUMPADSUB}") ; Changelevel
	Sleep(100)
ControlSend("Vindictus", "", "", "{NUMPADSUB}") ; Changelevel
	Sleep(100)
ControlSend("Vindictus", "", "", "{NUMPADSUB}") ; Changelevel
	Sleep(5000)
ControlSend("Vindictus", "", "", "{F7}") ; Transform Into Paladin
	Sleep(500)
ControlSend("Vindictus", "", "", "{7}") ; <fine_bomb 999>
	Sleep(500)
;Spawn Ingkara-----------------------------------------------------
ControlSend("Vindictus", "", "", "{NUMPAD8}")
	Sleep(33)
ControlSend("Vindictus", "", "", "{NUMPAD9}")
ControlSend("Vindictus", "", "", "{Numpad6}") ; <host_timescale 3>
	Sleep(167)
ControlSend("Vindictus", "", "", "{NUMPAD8}")
ControlSend("Vindictus", "", "", "{Numpad6}") ; <host_timescale 3>
	Sleep(33)
ControlSend("Vindictus", "", "", "{NUMPAD9}")
	Sleep(500)
;----------------------------------------------------Ingkara Spawned

;Kill Ingkara-------------------------------------------------------
ControlSend("Vindictus", "", "", "f") ; Take Out Fine Small Bomb
	Sleep(500)
ControlSend("Vindictus", "", "", "e") ; Throw Fine Small Bomb
	Sleep(16000)
ControlSend("Vindictus", "", "", "{Numpad6}") ; <host_timescale 3>
;-------------------------------------------------------Ingkara Dead

;Gold Looting Attempt-----------------------------------------------
ControlSend("Vindictus", "", "", "{NUMPAD8}")
	Sleep(167)
ControlSend("Vindictus", "", "", "{NUMPAD9}")
	Sleep(167)
ControlSend("Vindictus", "", "", "{Numpad6}") ; <host_timescale 3>
;------------------------------------------End Of Gold Looting Phase

	Sleep(50000) ;------------------------------------------------------------------BATTLE COMPLETION SCREEN DELAY (MILLISECONDS) [EDIT THIS IF YOU ARE NOT HITTING REPLAY BUTTON]
ControlClick("Vindictus", "", "", "left", 3, 195, 705) ; Click Replay Boat [EDIT THIS IF YOU ARE RUNNING A DIFFERENT RESOLUTION format: number of clicks, x, y]
	Sleep(9000) ;;------------------------------------------------------------------LOADING TO BOAT DELAY (MILLISECONDS) [EDIT THIS IF THE BOT DOES NOT LOOP]
$run += 1
WEnd
EndFunc

Func DisplayRuns()
$show = NOT $show
If($show) then
ToolTip("Run #" & $run & " - Time running: " & Time($diff), 0, 0)
Else
ToolTip("")
EndIf
EndFunc

Func Time($sec)
$hours = Int($sec / 3600)
$minutes = Int(($sec - $hours * 3600) / 60)
$seconds = $sec - $hours * 3600 - $minutes * 60
Return StringFormat('%02d:%02d:%02d', $hours, $minutes, $seconds)
EndFunc 

Func End()
Exit
EndFunc