Что нового

объединение двух игровых скриптов в один

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


Не откомпилированные скрипты работают как надо, но вот если их откомпилировать то переключение между ними будет вызывать запуск программы и сворачивание игрового клиента. И вот я пытался соеденить их в один скрипт, но либо такое нельзя, либо я так и не понял как это делать.
 
Верх