Subway Surfers PC - управление клавиатурой

[vit619]

Спойлер

#NoTrayIcon
#RequireAdmin

Opt("MouseClickDragDelay", 1)

If Not FileExists("Subway_Surfers.exe") Then
	MsgBox(16, "Ошибка", 'Файл "Subway_Surfers.exe" не найден.')
	Exit
Else
	If Not ProcessExists("Subway_Surfers.exe") Then
		ShellExecute("Subway_Surfers.exe")
	EndIf
EndIf

Func MoveLeft()
	MouseClickDrag("Left", @DesktopWidth/2, @DesktopHeight/2, @DesktopWidth/2-200, @DesktopHeight/2, 1)
	MouseMove(@DesktopWidth/2, @DesktopHeight/2, 1)
EndFunc

Func MoveRight()
	MouseClickDrag("Left", @DesktopWidth/2, @DesktopHeight/2, @DesktopWidth/2+200, @DesktopHeight/2, 1)
	MouseMove(@DesktopWidth/2, @DesktopHeight/2, 1)
EndFunc

Func MoveUp()
	MouseClickDrag("Left", @DesktopWidth/2, @DesktopHeight/2, @DesktopWidth/2, @DesktopHeight/2-200, 1)
	MouseMove(@DesktopWidth/2, @DesktopHeight/2, 1)
EndFunc

Func MoveDown()
	MouseClickDrag("Left", @DesktopWidth/2, @DesktopHeight/2, @DesktopWidth/2, @DesktopHeight/2+200, 1)
	MouseMove(@DesktopWidth/2, @DesktopHeight/2, 1)
EndFunc

Func Click()
	MouseClick("Left")
	MouseClick("Left")
EndFunc

HotKeySet("{Left}", "MoveLeft")
HotKeySet("{Right}", "MoveRight")
HotKeySet("{Up}", "MoveUp")
HotKeySet("{Down}", "MoveDown")
HotKeySet("{Space}", "Click")

While 1
	Sleep(100)
	ToolTip('Subway Surfers Keyboard', 0, 0)
	If Not ProcessExists("Subway_Surfers.exe") Then Exit
WEnd

 

[madmasles]

Предупреждение

За нарушение правил форума (пункт В.11):

Любые отрывки AutoIt кода необходимо заключать в тег [autoit]

(подробнее), а обычный код соответственно в тег [code]

(подробнее). Также большие выдержки текста помещайте под тег [spoiler]

(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.

С уважением, ваш Глобальный модератор.