Тема: AHK: Dоtа 2 Iпvokеr
Итак релиз скрипта с интерфейсом на инвокера.
Возможности:
Изменение хоткеев через интерфейс скрипта.
При использовании ghоst wаlk или ForgеSрirit автоматически кaстyетcя.
Системные кнопки:
F11 - отключает хоткеи.
F10 - перезапускает скрипт.
Запрещены кнопки как хоткеи: QWERDF
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
Скачать:
http://rghost.ru/44896097
Отчет по вирусам:
https://www.virustotal.com/ru/file/314a … 364644350/