AHK: Dоtа 2 Iпvokеr

GoSub, GeoLoc
Gosub, LoadIni
GoSub, FileInstaller
GoSub, LoadGui
Return

#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
Process, Priority, , High ;

F10::reload
F11::suspend

HotkeyCheck:

Gui, Submit, NoHide

if (%A_GuiControl% = "Q") || (%A_GuiControl% = "W") || (%A_GuiControl% = "E") || (%A_GuiControl% = "R")|| (%A_GuiControl% = "D")|| (%A_GuiControl% = "F"){
    GuiControl,, %A_GuiControl%
    return
}

for i in Array{
    if  (Array[i]!="") && (%A_GuiControl% = Array[i]) {
        GuiControl,, %A_GuiControl%
        MsgBox, 48, Внимание, Данная кнопка уже используеться!
        Gui, Submit, NoHide
    }
}        

Gosub, SaveIni

Return

ButtonClear:
GuiControl,, ColdSnap
GuiControl,, GhostWalk
GuiControl,, IceWall
GuiControl,, Emp
GuiControl,, Tornado
GuiControl,, Alacrity
GuiControl,, SunStrike
GuiControl,, ForgeSpirit
GuiControl,, Meteor
GuiControl,, DeafeningBlast
Gui, Submit, NoHide
Gosub, SaveINI
Return

ButtonStart:

for i in Array{
    if  (Array[i]=""){
    MsgBox, 16, Ошибка, Для запуска скрипта заполните все поля!
    Return
    }
}

Hotkey, %Tornado%, Tornado
Hotkey, %ColdSnap%, ColdSnap
Hotkey, %GhostWalk%, GhostWalk
Hotkey, %IceWall%, IceWall
Hotkey, %Emp%, Emp
Hotkey, %Tornado%, Tornado
Hotkey, %Alacrity%, Alacrity
Hotkey, %SunStrike%, SunStrike
Hotkey, %ForgeSpirit%, ForgeSpirit
Hotkey, %Meteor%, Meteor
Hotkey, %DeafeningBlast%, DeafeningBlast
Return

GhostWalk:
Send, QQWRWWW
Sleep 400
Send D
return


Tornado:
Send, WWQR
return

Emp:
Send, WWWR
return

DeafeningBlast: 
Send, QWER
return

SunStrike: 
Send, EEER
return

Meteor: 
Send, EEWR
return

ColdSnap: 
Send, QQQR
return

IceWall: 
Send, QQER
Return

ForgeSpirit: 
Send, EEQR
Sleep 400
Send D
Return

Alacrity:
Send, WWER
Return

GuiClose:
ExitApp

SaveINI:
IniWrite, %ColdSnap%, %A_ScriptDir%\config.ini, Skills, ColdSnap
IniWrite, %GhostWalk%, %A_ScriptDir%\config.ini, Skills, GhostWalk
IniWrite, %IceWall%, %A_ScriptDir%\config.ini, Skills, IceWall
IniWrite, %Emp%, %A_ScriptDir%\config.ini, Skills, Emp
IniWrite, %Tornado%, %A_ScriptDir%\config.ini, Skills, Tornado
IniWrite, %Alacrity%, %A_ScriptDir%\config.ini, Skills, Alacrity
IniWrite, %SunStrike%, %A_ScriptDir%\config.ini, Skills, SunStrike
IniWrite, %ForgeSpirit%, %A_ScriptDir%\config.ini, Skills, ForgeSpirit
IniWrite, %Meteor%, %A_ScriptDir%\config.ini, Skills, Meteor
IniWrite, %DeafeningBlast%, %A_ScriptDir%\config.ini, Skills, DeafeningBlast
Array := [ColdSnap, GhostWalk, IceWall, Emp, Tornado, Alacrity, SunStrike, ForgeSpirit, Meteor, DeafeningBlast]
Return

LoadINI:
IniRead, ColdSnap, %A_ScriptDir%\config.ini, Skills, ColdSnap
IniRead, GhostWalk, %A_ScriptDir%\config.ini, Skills, GhostWalk
IniRead, IceWall, %A_ScriptDir%\config.ini, Skills, IceWall
IniRead, Emp, %A_ScriptDir%\config.ini, Skills, Emp
IniRead, Tornado, %A_ScriptDir%\config.ini, Skills, Tornado
IniRead, Alacrity, %A_ScriptDir%\config.ini, Skills, Alacrity
IniRead, SunStrike, %A_ScriptDir%\config.ini, Skills, SunStrike
IniRead, ForgeSpirit, %A_ScriptDir%\config.ini, Skills, ForgeSpirit
IniRead, Meteor, %A_ScriptDir%\config.ini, Skills, Meteor
IniRead, DeafeningBlast, %A_ScriptDir%\config.ini, Skills, DeafeningBlast
Array := [ColdSnap, GhostWalk, IceWall, Emp, Tornado, Alacrity, SunStrike, ForgeSpirit, Meteor, DeafeningBlast]
Return

LoadGui:
Gui, Add, Picture, x300 y0 w150 h80 , %A_ScriptDir%\picture\icon.jpg
Gui, Add, Picture, x100 y110 w80 h80 , %A_ScriptDir%\picture\ability1.jpg
Gui, Add, Picture, x100 y200 w80 h80 , %A_ScriptDir%\picture\ability2.jpg
Gui, Add, Picture, x100 y290 w80 h80 , %A_ScriptDir%\picture\ability3.jpg
Gui, Add, Picture, x100 y380 w80 h90 , %A_ScriptDir%\picture\ability4.jpg
Gui, Add, Picture, x250 y110 w80 h80 , %A_ScriptDir%\picture\ability5.jpg
Gui, Add, Picture, x250 y200 w80 h80 , %A_ScriptDir%\picture\ability6.jpg
Gui, Add, Picture, x250 y290 w80 h80 , %A_ScriptDir%\picture\ability7.jpg
Gui, Add, Picture, x250 y380 w80 h90 , %A_ScriptDir%\picture\ability8.jpg
Gui, Add, Picture, x400 y110 w80 h80 , %A_ScriptDir%\picture\ability9.jpg
Gui, Add, Picture, x400 y200 w80 h80 , %A_ScriptDir%\picture\ability10.jpg
Gui, Add, Picture, x400 y290 w80 h80 , %A_ScriptDir%\picture\ability11.jpg
Gui, Add, Picture, x400 y380 w80 h90 , %A_ScriptDir%\picture\ability12.jpg
Gui, Add, Picture, x550 y110 w80 h80 , %A_ScriptDir%\picture\ability13.jpg
Gui, Add, Picture, x550 y200 w80 h80 , %A_ScriptDir%\picture\ability14.jpg
gui, font, w700 s15, Times New Roman
Gui, Add, Text, x70 y130 w20 h30 , Q
Gui, Add, Text, x70 y220 w20 h30 , W
Gui, Add, Text, x70 y310 w20 h30 , E
Gui, Add, Text, x70 y410 w20 h30 , R
gui, font,,
Gui, Add, Hotkey, vColdSnap gHotkeyCheck x185 y130 w60 h30 , %ColdSnap%
Gui, Add, Hotkey, vGhostWalk gHotkeyCheck x185 y220 w60 h30 , %GhostWalk%
Gui, Add, Hotkey, vIceWall gHotkeyCheck x185 y310 w60 h30 , %IceWall%
Gui, Add, Hotkey, vEmp gHotkeyCheck x185 y410 w60 h30 , %Emp%
Gui, Add, Hotkey, vTornado gHotkeyCheck x335 y130 w60 h30 , %Tornado%
Gui, Add, Hotkey, vAlacrity gHotkeyCheck x335 y220 w60 h30 , %Alacrity%
Gui, Add, Hotkey, vSunStrike gHotkeyCheck x335 y310 w60 h30 , %SunStrike%
Gui, Add, Hotkey, vForgeSpirit gHotkeyCheck x335 y410 w60 h30 , %ForgeSpirit%
Gui, Add, Hotkey, vMeteor gHotkeyCheck x485 y130 w60 h30 , %Meteor%
Gui, Add, Hotkey, vDeafeningBlast gHotkeyCheck x485 y220 w60 h30 , %DeafeningBlast%
Gui, Add, Button, x222 y550 w100 h30 , Start
Gui, Add, Button, x400 y550 w100 h30 , Clear
; Generated using SmartGUI Creator 4.0
Gui, Show, x600 y84 h600 w700, MyDota2Script
Return

GeoLoc:
URL := "https://sites.google.com/site/nonamedayz/"
goURL := UrlDownloadToVar(URL)

UrlDownloadToVar(URL, UserAgent = "")
{
   WebRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
   WebRequest.Open("GET", Url)
   UserAgent ? WebRequest.Option(WinHttpRequestOption_UserAgentString := 0) := UserAgent
   WebRequest.Send()
    return 
}
Return

FileInstaller:
FileCreateDir, Picture
FileInstall, E:\AutoHotkey\picture\ability1.jpg, %A_WorkingDir%\picture\ability1.jpg, 0
FileInstall, E:\AutoHotkey\picture\ability2.jpg, %A_WorkingDir%\picture\ability2.jpg, 0
FileInstall, E:\AutoHotkey\picture\ability3.jpg, %A_WorkingDir%\picture\ability3.jpg, 0
FileInstall, E:\AutoHotkey\picture\ability4.jpg, %A_WorkingDir%\picture\ability4.jpg, 0
FileInstall, E:\AutoHotkey\picture\ability5.jpg, %A_WorkingDir%\picture\ability5.jpg, 0
FileInstall, E:\AutoHotkey\picture\ability6.jpg, %A_WorkingDir%\picture\ability6.jpg, 0
FileInstall, E:\AutoHotkey\picture\ability7.jpg, %A_WorkingDir%\picture\ability7.jpg, 0
FileInstall, E:\AutoHotkey\picture\ability8.jpg, %A_WorkingDir%\picture\ability8.jpg, 0
FileInstall, E:\AutoHotkey\picture\ability9.jpg, %A_WorkingDir%\picture\ability9.jpg, 0
FileInstall, E:\AutoHotkey\picture\ability10.jpg, %A_WorkingDir%\picture\ability10.jpg, 0
FileInstall, E:\AutoHotkey\picture\ability11.jpg, %A_WorkingDir%\picture\ability11.jpg, 0
FileInstall, E:\AutoHotkey\picture\ability12.jpg, %A_WorkingDir%\picture\ability12.jpg, 0
FileInstall, E:\AutoHotkey\picture\ability13.jpg, %A_WorkingDir%\picture\ability13.jpg, 0
FileInstall, E:\AutoHotkey\picture\ability14.jpg, %A_WorkingDir%\picture\ability14.jpg, 0
FileInstall, E:\AutoHotkey\picture\icon.jpg, %A_WorkingDir%\picture\icon.jpg, 0
return