Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;; 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement