#ifWinActive ahk_exe HorizonForbiddenWest.exe
$F8::
ImageSearch, FoundX, FoundY, 0, 0, 2880, 1620, C:\FWslash.bmp
sleep 1
if (errorLevel == 0) {
   send {space down}
   sleep 1
   send {space up}
}
return

$/::
send {space down}
while getkeystate("/", "P") {
}
send {space up}
return

$`::
send {lbutton down}
loop {
    if not getkeystate("``", "P")
      break
}
send {lbutton up}
return

$^;::
SetTimer, run, 100
return

$lshift::
if getkeystate("rbutton", "P") {
   send {] down}
   sleep 5
   send {] up}
   sleep 5
   while getkeystate("lshift", "P") {
   }
}

else {
send {; up}
SetTimer, run, off
SetTimer, scan, off
SetTimer, loot, off
sleep 1
SetTimer, run, 100
SetTimer, scan, 2000
SetTimer, loot, 100
while getkeystate("lshift", "P") {
}
}
return

$c::
if (!crouch) {
   crouch := 1
   SetTimer, run, off
   send {; up}
   sleep 25
   send {c down}
   sleep 25
   send {c up}
   while (getkeystate("c", "P")) {
   }
}

else if (crouch) {
   crouch := 0
   send {; up}
   send {c down}
   sleep 25
   send {c up}
   sleep 1
   SetTimer, run, 100
   while (getkeystate("c", "P")) {
   }
}

while (getkeystate("c", "P")) {
}
return

run:
;ImageSearch, FoundA, FoundB, 2689, 130, 2702, 147, C:\FWcompass2.bmp
;sleep 1
;if (errorLevel == 0) {
   send {; down}
;}
return

scan:
ImageSearch, FoundX, FoundY, 2689, 130, 2702, 147, C:\FWcompass2.bmp
if (errorLevel == 0) {
   if not (getkeystate("space", "P") || getkeystate("e", "P") || getkeystate("rbutton", "P")) {
      send {/ down}
      sleep 350
      send {/ up}
   }
}
return

loot:
ImageSearch, FoundX, FoundY, 2689, 130, 2702, 147, C:\FWcompass2.bmp
if (errorLevel == 0) {
   if not (getkeystate("space", "P") || getkeystate("e", "P") || getkeystate("rbutton", "P")) {
      send {= down}
      sleep 25
      send {= up}
      sleep 25
   }
}
return

$e::
if getkeystate("rbutton", "P") {
  send {e down}
  sleep 5
  send {e up}
}

if not getkeystate("rbutton", "P") {
loop, 10 {
   if not getkeystate("e", "P")
      break
   sleep 1
}

if not getkeystate("e", "P") {
   send {e down}
   sleep 1
   send {e up}
   sleep 1
}

else if getkeystate("e", "P") {
SetTimer, run, off
sleep 1
send {e down}
while getkeystate("e", "P") {
   send {= down}
   sleep 1
   send {= up}
   sleep 1
}
loop, 10 {
   send {e down}
   sleep 1
   send {e up}
   sleep 1
}
sleep 1
send {; up}
sleep 50
SetTimer, run, 100
}
}
return

$v::
send {/ up}
sleep 25
send {v down}
sleep 5
send {v up}
while getkeystate("v", "P") {
}
return

$escape::
SetTimer, scan, off
SetTimer, loot, off
SetTimer, run, off
send {; up}
send {escape down}
sleep 1
send {escape up}
sleep 250
SetTimer, run, 100
SetTimer, scan, 2000
SetTimer, loot, 100
return

$space::
while (getkeystate("space", "P")) {
   send {space down}
   sleep 5
   send {space up}
   sleep 5
}
return