Добрый вечер. Весь день, меня преследует она проблема, к которой я не могу найти решения.
Пытался искать ответ в Google но не нашёл.
Дело в том что, в блоке функции ,есть блок Select но по не понятным мне причинам, скрипт не как на него не обращает внимания.
Приложу код. Может кто свежим взглядом найдёт решение )
Пытался искать ответ в Google но не нашёл.
Дело в том что, в блоке функции ,есть блок Select но по не понятным мне причинам, скрипт не как на него не обращает внимания.
Приложу код. Может кто свежим взглядом найдёт решение )
Код:
#Region ************ Includes ************
;~ #include <ButtonConstants.au3>;~~~
;~ #include <EditConstants.au3>;~~~
#include <GUIConstantsEx.au3>
;~ #include <StaticConstants.au3>;~~~
;~ #include <WindowsConstants.au3>;~~~
;#include <Variables.txt>
#EndRegion ************ Includes ************
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Бот", 539, 293, -973, 548)
$Group1 = GUICtrlCreateGroup("Добыча", 8, 8, 161, 165)
$Gremlin1 = GUICtrlCreateCheckbox("1) ", 20, 28, 81, 13)
$Start = GUICtrlCreateButton("Начать", 332, 68, 75, 25)
$Setting = GUICtrlCreateButton("Настройка", 408, 68, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $Boobs [2] = [0,0]
Global $AtmosferaL[2]=[-8,-113]
Global $AtmosferaR[2]=[+67,-93]
Global $ButAgr [2]=[-85,-51]
Global $ButHit [2]=[+1,-51]
Global $ButSpo [2]=[+88,-51]
Global $SpoCol = 0x3F2AAA
Global $AgrCol = 0xD32906
Global $HitCol = 0x3D8506
Global $G1Spo = 1
Global $G1Hit = 1
Global $G1Agr = 1
Global $ButPovL [2]=[-111,-10]
Global $ButPovR [2]=[+106,+7]
Global $ButPovCol = 0x7F0000
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start
Start()
Case $Setting
Setting()
EndSwitch
WEnd
Func Start()
read()
While 1
If GUICtrlRead($Gremlin1) = 1 Then Gremlin1() ;Сюда заходит
WEnd
EndFunc
Func Setting()
MsgBox(0, "Настрока", "Наведите мышку на букву 'О'в слове 'ПовтОрить' и нажмите 'Enter'")
Sleep(1000)
$pos = MouseGetPos()
$Boobs[0] = $pos[0]
$Boobs[1] = $pos[1]
MsgBox(0, "Настрока", "Выполнено", 1)
IniWrite("Setting.ini", "Windows - 7", "BoobsX", $Boobs[0])
IniWrite("Setting.ini", "Windows - 7", "BoobsY", $Boobs[1])
EndFunc
Func Read()
$Boobs[0] = IniRead("Setting.ini", "Windows - 7", "BoobsX", "0")
$Boobs[1] = IniRead("Setting.ini", "Windows - 7", "BoobsY", "0")
EndFunc
Func Gremlin1() ;Выполняет код до select
MsgBox(0,"",$G1Spo)
MsgBox(0,"",$G1Agr)
MsgBox(0,"",$G1Hit)
Select ;Игнорирует
;Если вписать к примеру Msgbox после case то выдаёт на ошибку синтаксеса в Msgbox и последующий case
Case $G1Spo = 1
MsgBox(0,"","1")
PixelSearch($Boobs[0] + $AtmosferaL[0],$Boobs[1] + $AtmosferaL[1],$Boobs[0] + $AtmosferaR[0],$Boobs[1] + $AtmosferaR[1],$SpoCol,10)
If Not @error Then
MsgBox(0,"","1.1")
$G1Spo =0
$G1Agr = 1
$G1Hit = 1
MouseClick("Left",$Boobs[0]+$ButAgr[0],$Boobs[1]+$ButAgr[1])
EndIf
Case $G1Agr = 1
MsgBox(0,"","2")
PixelSearch($Boobs[0] + $AtmosferaL[0],$Boobs[1] + $AtmosferaL[1],$Boobs[0] + $AtmosferaR[0],$Boobs[1] + $AtmosferaR[1],$AgrCol,10)
If Not @error Then
MsgBox(0,"","2.2")
$G1Spo = 1
$G1Agr = 0
$G1Hit = 1
MouseClick("Left",$Boobs[0]+$ButHit[0],$Boobs[1]+$ButHit[1])
EndIf
Case $G1Hit =1
MsgBox(0,"","3")
PixelSearch($Boobs[0] + $AtmosferaL[0],$Boobs[1] + $AtmosferaL[1],$Boobs[0] + $AtmosferaR[0],$Boobs[1] + $AtmosferaR[1],$HitCol,10)
If Not @error Then
MsgBox(0,"","3.3")
$G1Spo = 1
$G1Agr = 1
$G1Hit =0
MouseClick("Left",$Boobs[0]+$ButSpo[0],$Boobs[1]+$ButSpo[1])
EndIf
EndSelect
PixelSearch($Boobs[0] + $ButPovL[0],$Boobs[1] + $ButPovL[1],$Boobs[0] + $ButPovR[0],$Boobs[1] + $ButPovR[1],$ButPovCol,5);Вот от сюда опять работает
If Not @error Then
MouseClick("Left",$Boobs[0],$Boobs[1])
MouseMove($Boobs[0],$Boobs[1]+50)
EndIf
EndFunc