Что нового

[Автоматизация] Помогите Проблема с Функциями и Сделать Ускорение процеса игры

Статус
Закрыто для дальнейших ответов.

Ganibal95

GreenBytes
Сообщения
876
Репутация
239
Сталкнулся с проблемой :(. Функция на F5 Неработает(З.Ы Ана работает в случае когда F1 - F4 Включены функции, Тогда Ана Работает а F4 Работает Без F1-F3) Ну вот Помогите (Обьясните как сделать много функции чтобы Они Работали Отдельно независимо от других Функции) :IL_AutoIt_1: И еще 1 Проблема как мне ускорить процес игры? :smile:

З.Ы Этот Скрипт недоделан Так как я Сталкнусля с Проблеммой(

Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 623, 444, 184, 121)
$Button1 = GUICtrlCreateButton("Развернуть - Point Blank", 8, 8, 123, 25)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFF0000)
$Button2 = GUICtrlCreateButton("АвтоКликер", 8, 40, 123, 25)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFF0000)
$Button3 = GUICtrlCreateButton("Включить Клавиши", 8, 72, 123, 25)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFF0000)
$Button4 = GUICtrlCreateButton("Зум(В разработке)", 8, 104, 123, 25)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFF0000)
$Input1 = GUICtrlCreateInput("0000", 496, 40, 121, 21)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFF0000)
$Input2 = GUICtrlCreateInput("9999", 496, 64, 121, 21)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFF0000)
$Input3 = GUICtrlCreateInput("90", 496, 88, 121, 21)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFF0000)
$Input4 = GUICtrlCreateInput("Спам", 496, 160, 121, 21)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFF0000)
$Input5 = GUICtrlCreateInput("Задержка СП", 496, 184, 121, 21)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFF0000)
$Label1 = GUICtrlCreateLabel("Взлом комнаты", 488, 8, 132, 25)
GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("Спамер", 488, 112, 132, 41)
GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFF0000)
$Label3 = GUICtrlCreateLabel("Point-Blank: Включить Клавиши                          F1 - Просто пулемет                                     F2 - Снапа(Дробаш)                                         F3 - Звуковое сопровождение(XP)                      F4 - Пулемет+ЗУМ(Для пушек с Зумом)               F5 - Взлом Комнат с Поролями                       F6 - Спамер                                               F9 - Включить Кликер(Нажмите на колесек и он Включится)                                               F10 - Включить Кликер (1)                             F11 - Включить Кликер (2)                            F12 - Включить кликер (3)                     АвтоКликер: F1 - F2 - F3 - F4 -", 144, 8, 320, 500)
GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $PointP = 0
Global $PointS = 0
Global $PointD = 0
Global $PointG = 0
Global $PointH = 0
Global $PointB = 0
Global $PointN = 0
Global $PointM = 0
Global $PointR = 0
Global $PoZ = 0
Global $PoX = 0
Global $XoC = 0


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
If Not WinActive("Point Blank", "") Then WinActivate("Point Blank", "") 
WinWaitActive("Point Blank", "")
		Case $Button2
If Not WinActive("Point Blank", "") Then WinActivate("Point Blank", "") 
WinWaitActive("Point Blank", "")
HotKeySet("{F1}", "PoZ") ;Пулемет
HotKeySet("{F2}", "PoX") ;Пулемет
HotKeySet("{F3}", "PoC") ;Пулемет
HotKeySet("{F4}", "XoC") ;Пулемет
		Case $Button3
If Not WinActive("Point Blank", "") Then WinActivate("Point Blank", "") 
WinWaitActive("Point Blank", "")
HotKeySet("{F1}", "PointP") ;Пулемет
HotKeySet("{F2}", "PointS") ;Снапа
HotKeySet("{F3}", "PointD") ;Звук
HotKeySet("{F4}", "PointG") ;Зум
HotKeySet("{F5}", "PointH") ;старт
HotKeySet("{F6}", "PointB") ;старт
HotKeySet("{F7}", "PointN") ;стар
HotKeySet("{F8}", "X") ;старт
HotKeySet("{F9}", "XoC") ;старт
HotKeySet("{F10}", "PoZ") ;старт
HotKeySet("{F11}", "PoX") ;старт
HotKeySet("{F12}", "PoC") ;старт
		Case $Button4

	EndSwitch
	    If $PointP = 1 then ;
 PixelSearch( 604, 333, 673, 512, 0xff0000, 2) ;поиск пикселя 0xFF0000 - цвет red, green, blue
    If Not @error then
 AutoItSetOption ("MouseClickDownDelay",22)  
 MouseClick("left")
    EndIf
EndIf

    If $PointS = 1 then ;
PixelSearch(604, 333, 673, 512, 0xff0000, 2) ;поиск пикселя 0xFF0000 - цвет red, green, blue
    If Not @error then
AutoItSetOption ("MouseClickDownDelay",50) 
AutoItSetOption ("SendKeyDownDelay",50)
MouseClick("left") 
Send("{3}") 
Send("{1}") 
AutoItSetOption ("SendKeyDownDelay",12) 
AutoItSetOption ("MouseClickDownDelay",12)
EndIf
EndIf

If $PointD = 1 then ;
PixelSearch(604, 333, 673, 512, 0xff0000, 10) ;поиск пикселя 0xFF0000 - цвет red, green, blue
    If Not @error then
AutoItSetOption ("MouseClickDownDelay",50) 
AutoItSetOption ("SendKeyDownDelay",50)
		_ResPlaySound('#203')
		Sleep(1000)
AutoItSetOption ("SendKeyDownDelay",10) 
AutoItSetOption ("MouseClickDownDelay",10)
EndIf

	If $PointG = 1 then ;
PixelSearch(604, 333, 673, 512, 0xff0000, 2) ;поиск пикселя 0xFF0000 - цвет red, green, blue
    If Not @error then
AutoItSetOption ("MouseClickDownDelay",50) 
AutoItSetOption ("SendKeyDownDelay",50)
	MouseClick('right')
	MouseClick('left')
	MouseClick('left')
	MouseClick('left')
	MouseClick('left')
	MouseClick('left')
	MouseClick('left')
	MouseClick('left')
	Sleep(10)
AutoItSetOption ("SendKeyDownDelay",10) 
AutoItSetOption ("MouseClickDownDelay",10)
EndIf
EndIf


	
If $PoZ = 1 then ;
AutoItSetOption ("MouseClickDownDelay",50) 
AutoItSetOption ("SendKeyDownDelay",50)
 if _IsPressed(01) = 1 then
If Not @error then
 MouseClick('left')
 MouseClick('left')
 MouseClick('left')
 MouseClick('left')
 MouseClick('left')
 MouseClick('left')
 MouseClick('left')
AutoItSetOption ("SendKeyDownDelay",10) 
AutoItSetOption ("MouseClickDownDelay",10)
EndIf
endif

If $PoX = 1 then 
AutoItSetOption ("MouseClickDownDelay",50) 
AutoItSetOption ("SendKeyDownDelay",50)
 if _IsPressed(02) = 1 then
If Not @error then
 MouseClick('left')
 MouseClick('left')
 MouseClick('left')
 MouseClick('left')
 MouseClick('left')
 MouseClick('left')
 MouseClick('left')
 MouseClick('left')
 MouseClick('left')
 MouseClick('left')
 MouseClick('left')
 MouseClick('left')
 MouseClick('left')
 MouseClick('left')
AutoItSetOption ("SendKeyDownDelay",10) 
AutoItSetOption ("MouseClickDownDelay",10)
EndIf
endif

If $XoC = 1 then 
AutoItSetOption ("MouseClickDownDelay",50) 
AutoItSetOption ("SendKeyDownDelay",50)
 if _IsPressed(03) = 1 then
If Not @error then
If $PoZ = 0 Then 
$PoZ = 1 
Else 
$PoZ = 0 
AutoItSetOption ("SendKeyDownDelay",10) 
AutoItSetOption ("MouseClickDownDelay",10)
EndIf
endif
endif
endif
endif

If $PointB = 1 then ;
AutoItSetOption ("MouseClickDownDelay",50) 
AutoItSetOption ("SendKeyDownDelay",50)
Send("{ENTER}") ;жмем ентер
Send(GUICtrlRead($Input4)) ;пишем число
Send("{ENTER}") ;жмем ентер
Sleep(GUICtrlRead($Input5)) ;задержка
AutoItSetOption ("SendKeyDownDelay",10) 
AutoItSetOption ("MouseClickDownDelay",10)
EndIf

If $PointH = 1 Then ;если ф5 зажата тогда-
AutoItSetOption('SendKeyDownDelay', GUICtrlRead($Input3)) ;задержка
If GUICtrlRead($Input1) < GUICtrlRead($Input2) Then ;если значение в (1) меньше чем во (2)м тогда
Send(GUICtrlRead($Input1)) ;пишем число
Send("{ENTER}") ;жмем ентер
Sleep(GUICtrlRead($Input3)) ;задержка
GUICtrlSetData($Input1, StringFormat("%04d", Number(GUICtrlRead($Input1)) + 1)) ;добавляем к 1му числу +1
EndIf
EndIf
EndIf

endif
WEnd

 Func PointP() 
 	 If $PointP = 0 Then 
 	 	 $PointP = 1 
 	 Else 
 	 	 $PointP = 0 
 	 EndIf 
 EndFunc 
 
  Func PointS() 
 	 If $PointS = 0 Then 
 	 	 $PointS = 1 
 	 Else 
 	 	 $PointS = 0 
 	 EndIf 
 EndFunc 
 
  Func PointD() 
 	 If $PointD = 0 Then 
 	 	 $PointD = 1 
 	 Else 
 	 	 $PointD = 0 
 	 EndIf 
 EndFunc 
 
  Func PointG() 
 	 If $PointG = 0 Then 
 	 	 $PointG = 1 
 	 Else 
 	 	 $PointD = 0 
 	 EndIf 
 EndFunc 

 Func PointH() 
 	 If $PointH = 0 Then 
 	 	 $PointH = 1 
 	 Else 
 	 	 $PointH = 0 
 	 EndIf 
 EndFunc 
 
  Func PointB() 
 	 If $PointB = 0 Then 
 	 	 $PointB = 1 
 	 Else 
 	 	 $PointB = 0 
 	 EndIf 
 EndFunc 
 
  Func PointN() 
 	 If $PointN = 0 Then 
 	 	 $PointN = 1 
 	 Else 
 	 	 $PointN = 0 
 	 EndIf 
 EndFunc 
 
  Func PointM() 
 	 If $PointM = 0 Then 
 	 	 $PointM = 1 
 	 Else 
 	 	 $PointM = 0 
 	 EndIf 
 EndFunc 
 
   Func PoZ() 
 	 If $PoZ = 0 Then 
 	 	 $PoZ = 1 
 	 Else 
 	 	 $PoZ = 0 
 	 EndIf 
 EndFunc 
 
    Func PoX() 
 	 If $PoX = 0 Then 
 	 	 $PoX = 1 
 	 Else 
 	 	 $PoX = 0 
 	 EndIf 
 EndFunc 
 
     Func PoC() 
 	 If $PoC = 0 Then 
 	 	 $PoC = 1 
 	 Else 
 	 	 $PoC = 0 
 	 EndIf 
 EndFunc

ЗРАНИЕ СПС)
 

Belfigor

Модератор
Локальный модератор
Сообщения
3 593
Репутация
938
Посмотри сперва тут: http://www.prolingoffice.com/services/translate
 
Автор
Ganibal95

Ganibal95

GreenBytes
Сообщения
876
Репутация
239
Может Лутше мне поможите?) :IL_AutoIt_1:
 

Belfigor

Модератор
Локальный модератор
Сообщения
3 593
Репутация
938
Предупреждение За нарушение общих правил (пункт В.8):
Так как эта конференция называется "Русское сообщество AutoIt", язык общения на ней - Русский. Названия фирм или программных продуктов, аббревиатуры и т.д. должны быть написаны так, как они пишутся в оригинале, например не следует писать УСБ вместо USB. На форуме крайне не рекомендуется намеренно искажать русский язык и использовать "сетевой жаргон" на подобии "Аффтар выпей йадау!".


С уважением, Модератор раздела.



Предупреждение За нарушение правил форума (пункт Б.5):
Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.




[[Автоматизация] Помогите Проблема с Функциями и Сделать Ускорение процеса игры] это неприемлемое название темы, переименуйте тему иначе она будет закрыта.

С уважением, Модератор раздела.










Добавлено:
Сообщение автоматически объединено:

Даю сутки

Завтра в это же время либо позже тема будет закрыта если автор не предпримет меры.
 
Статус
Закрыто для дальнейших ответов.
Верх