Ksaan
Знающий
- Сообщения
- 207
- Репутация
- 15
Есть два игровых макроса
И вот такой
Не откомпилированные скрипты работают как надо, но вот если их откомпилировать то переключение между ними будет вызывать запуск программы и сворачивание игрового клиента. И вот я пытался соеденить их в один скрипт, но либо такое нельзя, либо я так и не понял как это делать.
Код:
#include <MouseOnEvent.au3>
Global $Paused = True
_MouseSetOnEvent($MOUSE_PRIMARYDOWN_EVENT, "Down")
_MouseSetOnEvent($MOUSE_PRIMARYUP_EVENT, "Up")
HotKeySet('{NUMPAD1}', '_AK_103') ; Скрипт на "АК-103"
HotKeySet('{DELETE}', '_Exit') ;
While 1
If Not $Paused Then
Send("з")
Sleep(15)
Else
Sleep(1)
EndIf
WEnd
Func Down()
$Paused = False
$pos = MouseGetPos()
MouseMove($pos[0] + 14, $pos[1] + 55, 0)
EndFunc
Func Up()
$Paused = True
EndFunc
Func _AK_103()
ShellExecute(@ScriptDir & '\..\attack_plane\AK -103.au3')
Exit
EndFunc
Func _Exit()
Exit
EndFunc
И вот такой
Код:
#include <MouseOnEvent.au3>
Global $Paused = True
_MouseSetOnEvent($MOUSE_PRIMARYDOWN_EVENT, "Down")
_MouseSetOnEvent($MOUSE_PRIMARYUP_EVENT, "Up")
HotKeySet('{NUMPAD3}', '_Tavor_NaviBlu') ; Скрипт на "Тавор_нави"
HotKeySet('{DELETE}', '_Exit') ;
While 1
If Not $Paused Then
Send('{з down}')
$pos = MouseGetPos()
Sleep(98)
If $Paused Then
Send('{з up}')
ContinueLoop
EndIf
$pos1 = MouseGetPos()
MouseMove($pos1[0] - 4 , $pos1[1] + 5, 0)
Sleep(98)
If $Paused Then
Send('{з up}')
ContinueLoop
EndIf
$pos2 = MouseGetPos()
MouseMove($pos2[0] - 4 , $pos2[1] + 10, 0)
Sleep(98)
If $Paused Then
Send('{з up}')
ContinueLoop
EndIf
$pos3 = MouseGetPos()
MouseMove($pos3[0] - 3 , $pos3[1] + 10, 0)
Sleep(98)
If $Paused Then
Send('{з up}')
ContinueLoop
EndIf
$pos4 = MouseGetPos()
MouseMove($pos4[0] - 5 , $pos4[1] + 9, 0)
Sleep(98)
If $Paused Then
Send('{з up}')
ContinueLoop
EndIf
$pos5 = MouseGetPos()
MouseMove($pos5[0] + 10 , $pos5[1] + 5, 0)
Sleep(98)
If $Paused Then
Send('{з up}')
ContinueLoop
EndIf
$pos6 = MouseGetPos()
MouseMove($pos6[0] - 5 , $pos6[1] + 5, 0)
Sleep(98)
If $Paused Then
Send('{з up}')
ContinueLoop
EndIf
$pos7 = MouseGetPos()
MouseMove($pos7[0] + 11 , $pos7[1] + 4, 0)
Sleep(98)
If $Paused Then
Send('{з up}')
ContinueLoop
EndIf
$pos8 = MouseGetPos()
MouseMove($pos8[0] - 10 , $pos8[1] + 2, 0)
Sleep(98)
If $Paused Then
Send('{з up}')
ContinueLoop
EndIf
$pos9 = MouseGetPos()
MouseMove($pos9[0] + 9 , $pos9[1] - 3, 0)
Sleep(98)
If $Paused Then
Send('{з up}')
ContinueLoop
EndIf
$pos10 = MouseGetPos()
MouseMove($pos10[0] + 6 , $pos10[1] , 0)
Sleep(98)
If $Paused Then
Send('{з up}')
Sleep(98)
ContinueLoop
EndIf
Else
Sleep(1)
EndIf
WEnd
Func Down()
$Paused = False
EndFunc
Func Up()
$Paused = True
EndFunc
Func _Tavor_NaviBlu()
ShellExecute(@ScriptDir & '\..\sniper\tavor_NB.au3')
Exit
EndFunc
Func _Exit()
Exit
EndFunc
Не откомпилированные скрипты работают как надо, но вот если их откомпилировать то переключение между ними будет вызывать запуск программы и сворачивание игрового клиента. И вот я пытался соеденить их в один скрипт, но либо такое нельзя, либо я так и не понял как это делать.