можно ли так писать вроде работает
$check = 0
WHILE($check = 0)
WAITMS(500)
LCLICK(864,118) // 16507835
WAITMS(500)
GETSCREEN
if_picture_in(0,0,$_xmax,$_ymax,"ARD.bmp")// åñëè êàðòèíêà èç ñïèñêà åñòü
$check = 1
WAITMS(50)
LDOWN(692,430)//ÂÛÄÅËßÅÌ ÒÅÊÑÒ
MOVE(731,430)
WAITMS(50)
LUP(731,430)
KEYDOWN (#CTRL) //ÊÎÏÈÐÓÅÌ
WAITMS (50)
KEYDOWN (#C)
WAITMS (50)
KEYUP (#C)
KEYUP (#CTRL)
WAITMS (50)
$A_BJ = 0
$A_B = 0
$A_BJ = FROMCLIP()
$A_B = STRREPLACE ($A_BJ, ",","")
LOGWRITE ($A_B)
FOR($k=0, $k <5)
WHEELDOWN
WAITMS(500)
END_CYC
END_IF
IF(($A_B > 1200)&($A_B < 4400))
GETSCREEN
if_picture_in(0,0,$_xmax,$_ymax,"RE.bmp")// åñëè êàðòèíêà èç ñïèñêà åñòü
WAITMS(50)
MOVE($_return1+5,$_return2+5)
WAITMS(10)
LCLICK($_return1+5,$_return2+5)
WAITMS(50)
END_IF
FOR($k=0, $k <2)
WHEELDOWN
WAITMS(500)
END_CYC
GETSCREEN
if_picture_in(0,0,$_xmax,$_ymax,"PO.bmp")// åñëè êàðòèíêà èç ñïèñêà åñòü
WAITMS(50)
MOVE($_return1+300,$_return2+60)
WAITMS(10)
LCLICK($_return1+300,$_return2+60)
WAITMS(1000)
END_IF
ELSE
WAITMS(50)
IF($A_B > 4400)
GETSCREEN
if_picture_in(0,0,$_xmax,$_ymax,"F.bmp")// åñëè êàðòèíêà
WAITMS(50)
MOVE($_return1+5,$_return2+5)
WAITMS(10)
LCLICK($_return1+5,$_return2+5)
END_IF
FOR($k=0, $k <3)
WHEELDOWN
WAITMS(500)
END_CYC
GETSCREEN
if_picture_in(0,0,$_xmax,$_ymax,"C.bmp")// åñëè êàðòèíêà
WAITMS(50)
WAITMS(50)
MOVE($_return1+240,$_return2+60)
WAITMS(10)
LCLICK($_return1+240,$_return2+60)
END_IF
WAITMS(1000)
GETSCREEN
if_picture_in(0,0,$_xmax,$_ymax,"S.bmp")// åñëè êàðòèíêà
WAITMS(50)
MOVE($_return1+5,$_return2+5)
WAITMS(10)
LCLICK($_return1+5,$_return2+5)
END_IF
WAITMS(1000)
GETSCREEN
if_picture_in(0,0,$_xmax,$_ymax,"RE.bmp")// åñëè êàðòèíêà
WAITMS(50)
MOVE($_return1+5,$_return2+5)
WAITMS(10)
LCLICK($_return1+5,$_return2+5)
END_IF
WAITMS(1000)
GETSCREEN
if_picture_in(0,0,$_xmax,$_ymax,"P.bmp")// åñëè êàðòèíêà
WAITMS(50)
MOVE($_return1+300,$_return2+60)
WAITMS(10)
LCLICK($_return1+300,$_return2+60)
END_IF
WAITMS(1000)
END_IF
END_IF
LCLICK(486,116) // 8421504
WAITMS(100)
END_CYC
