#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#Include <Misc.au3>
#include <GuiListView.au3>
#include <array.au3>
;~ Opt("MustDeclareVars", 1)
Dim $ScanSade = 5 ;Уровень оттенка
;~ Dim $LocalRightTopX = , $LocalRightTopY = , $ScanRangeLeftTopX = , $ScanRangeLeftTopY = , $ScanRangeRightBottomX = , $ScanRangeRightBottomY = ; координаты левого верхнего угла локала и области скана
Dim $Any = 0, $Neutral = 0x858585, $Offwar = 0, $Socorp = 0, $Soal = 0;etc... Цвета целей
Dim $positions[4]
Draw_Area()
While 1
Scan($Neutral)
;~ Scan($Offwar)
;~ Scan($Any)
WEnd
Func Draw_Area()
Do
$pos = MouseGetPos()
ToolTip("Click Alt to set." & @CRLF & "top: " & $pos[1] & " left: " & $pos[0])
Sleep(25)
Until _IsPressed(12)
ToolTip("")
Local $ScanWidth = 1, $ScanHeight = 1
$x = $pos[0]
$y = $pos[1]
$GUI = GUICreate("", 0, 0, $x, $y, $WS_POPUP)
$Top = GUICreate("Top Line", $ScanWidth, 2, $x, $y, $WS_POPUP, -1, $GUI)
GUISetBkColor(0xFFffff)
GUISetState()
$Left = GUICreate("Left Line", 2, $ScanHeight, $x, $y, $WS_POPUP, -1, $GUI)
GUISetBkColor(0xFFffff)
GUISetState()
$Right = GUICreate("Right Line", 2, $ScanHeight, $x + $ScanWidth - 2, $y, $WS_POPUP, -1, $GUI)
GUISetBkColor(0xFFffff)
GUISetState()
$Bottom = GUICreate("Bottom Line", $ScanWidth, 2, $x, $y + $ScanHeight, $WS_POPUP, -1, $GUI)
GUISetBkColor(0xFFffff)
GUISetState()
Sleep(800)
Do
$MousePos = MouseGetPos()
ToolTip("Click Alt to set." & @CRLF & "bottom: " & $MousePos[1] - $y & " right: " & $MousePos[0] - $x)
WinMove($Top, "", $x, $y, $ScanWidth, 1)
WinMove($Left, "", $x, $y, 1, $ScanHeight)
WinMove($Right, "", $x + $ScanWidth - 1, $y, 1, $ScanHeight)
WinMove($Bottom, "", $x, $y + $ScanHeight, $ScanWidth, 1)
If Not (($MousePos[0] - $x) <= 0) Then
$ScanWidth = $MousePos[0] - $x + 1
EndIf
If Not (($MousePos[1] - $y) <= 0) Then
$ScanHeight = $MousePos[1] - $y - 1
EndIf
Until _IsPressed(12)
WinSetOnTop($Top,"",1)
WinSetOnTop($Left,"",1)
WinSetOnTop($Right,"",1)
WinSetOnTop($Bottom,"",1)
$positions[0] = $y
$positions[1] = $x
$positions[2] = $MousePos[0] ; - $y
$positions[3] = $MousePos[1] ; - $x
ToolTip("")
Return $positions
EndFunc
Func Scan($Target)
PixelSearch($positions[1], $positions[0], $positions[2], $positions[3], $Target, $ScanSade)
If not @error Then
MsgBox(0, "Message", "Подтверждено наличие искомой цели.")
EndIf
EndFunc
[/warn]
