$m = PixelSearch($pos[0]+85,$pos[1]+350,$pos[0]+715,$pos[1]+470, 0x000000, 30)
If Not @error Then
MouseMove($m[0], $m[1],30)
Else
MsgBox(0,"","Поплавок не найден",1)
EndIf
Sleep(50)
$i = 0
While $m<>0x000000
MouseMove($m[0], $m[1]+$i,30)
$i = $i + 1
WEnd
For $y = $pos[0]+350 To $pos[1]+470 Step 1
For $x = $pos[0]+85 To $pos[0]+715 Step 1
MouseMove($x, $y)
PixelSearch($x,$y,$x,$y,0x000000,1)
If Not @error Then
MsgBox(0,"","Попловок найден")
Exit
EndIf
Next
Next