;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Ark autohotkey script
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

#NoEnv
#Warn
SendMode Input
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

Gui +AlwaysOnTop ; I wanted this to stay on top even though there are other windows opening and being moved arround.
Gui, Add, Edit, x10 y10 w400 h250 vConsole
Gui, Show, x100 y100 w420 h270, Logging Startup Script - AutoHotkey

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Global variables for toggles
toggle_attack := 0
toggle_e := 0
toggle_t := 0
toggle_run := 0
toggle_click := 0
toggle_o := 0
toggle_whistle := 0

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Autoattack macro
;; Press F1 to toggle on/off

arkAutoAttack:
  IfWinActive ARK: Survival Evolved
  {
    SendEvent {Click}
    Send, q
    ;;MouseClick, middle, 55, 233
  }
  else
  {
    DebugMessage("Auto-attack OFF")
    toggle_attack = 0
    SetTimer, arkAutoAttack, off
  }
return

F1::
  if toggle_attack = 0
  {
    DebugMessage("Auto-attack ON")
    toggle_attack = 1
    SetTimer, arkAutoAttack, 100
  }
  else
  {
    DebugMessage("Auto-attack OFF")
    toggle_attack = 0
    SetTimer, arkAutoAttack, off
  }
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Auto E macro
;; Press F2 to toggle on/off

arkAutoE:
  IfWinActive ARK: Survival Evolved
  {
    Send, e
  }
  else
  {
    SetTimer, arkAutoE, off
    DebugMessage("Auto-E OFF")
  }
return

F12::
  if toggle_e = 0
  {
    toggle_e = 1
    SetTimer, arkAutoE, 100
    DebugMessage("Auto-E ON")
  }
  else
  {
    toggle_e = 0
    SetTimer, arkAutoE, off
    DebugMessage("Auto-E OFF")
  }
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Run Forrest macro
;; Press F11:56 PM 9/2/2015 to toggle on/off

arkAutoRunRun:
  IfWinNotActive ARK: Survival Evolved
  {
    DebugMessage("Auro-running OFF CONT")
    SendInput {w up}
   ; SendInput {shift up}
    SetTimer, arkAutoRunRun, off
    toggle_run = 0
  }
return

F2::
  if toggle_run = 0
  {
    DebugMessage("Auto-running ON")
 ;   SendInput {shift down}
    SendInput {w down}
    SetTimer, arkAutoRunRun, 200
    toggle_run = 1
  }
  else
  {
    toggle_run = 0
    SendInput {w up}
    DebugMessage("Auro-running OFF")
    SetTimer, arkAutoRunRun, off
  }
return

+F2::
  if toggle_run = 0
  {
    DebugMessage("Auto-running ON")
    SendInput {shift down}
    SendInput {w down}
    SetTimer, arkAutoRunRun, 200
    toggle_run = 1
  }
  else
  {
    toggle_run = 0
    SendInput {w up}
    DebugMessage("Auro-running OFF")
    SetTimer, arkAutoRunRun, off
  }
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; T macro
;; Press F3 to toggle on/off

arkAutoT:
  IfWinActive ARK: Survival Evolved
  {
    Send, t
  }
  else
  {
    SetTimer, arkAutoT, off
    DebugMessage("Auto-T OFF")
  }
return

F3::
  if toggle_t = 0
  {
    toggle_t = 1
    SetTimer, arkAutoT, 100
    DebugMessage("Auto-T ON")
  }
  else
  {
    toggle_t = 0
    SetTimer, arkAutoT, off
    DebugMessage("Auto-T OFF")
  }
return


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; O macro
;; Press F5 to toggle on/off

arkAutoO:
  IfWinActive ARK: Survival Evolved
  {
    Send, o
  }
  else
  {
    SetTimer, arkAutoO, off
    DebugMessage("Auto-O OFF")
  }
return

F5::
  if toggle_o = 0
  {
    toggle_o = 1
    SetTimer, arkAutoO, 100
    DebugMessage("Auto-O ON")
  }
  else
  {
    toggle_o = 0
    SetTimer, arkAutoO, off
    DebugMessage("Auto-O OFF")
  }
return


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Autoclick macro
;; Press F10 to toggle on/off

arkAutoClick:
  IfWinActive ARK: Survival Evolved
  {
    SendEvent {Click}
  }
  else
  {
    DebugMessage("Auto-click OFF")
    toggle_click = 0
    SetTimer, arkAutoClick, off
  }
return

F10::
  if toggle_click = 0
  {
    DebugMessage("Auto-click ON")
    toggle_click = 1
    SetTimer, arkAutoClick, 100
  }
  else
  {
    DebugMessage("Auto-attack OFF")
    toggle_click = 0
    SetTimer, arkAutoClick, off
  }
return


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Auto svist macro
;; Press F6 to toggle on/off

arkAutoWhistle:
  IfWinActive ARK: Survival Evolved
  {
    Send, u
  }
  else
  {
    DebugMessage("Auto-whistle OFF")
    toggle_click = 0
    SetTimer, arkAutoClick, off
  }
return

F6::
  if toggle_whistle = 0
  {
    DebugMessage("Auto-whistle ON")
    toggle_whistle = 1
    SetTimer, arkAutoWhistle, 100
  }
  else
  {
    DebugMessage("Auto-whistle OFF")
    toggle_whistle = 0
    SetTimer, arkAutoWhistle, off
  }
return


DebugMessage(msg)
{
  GuiControlGet, Console
  GuiControl, , Console, %Console%%msg%`r`n ; GUI write
}



GuiClose:
Gui, Destroy
Return