$_xm1= 85
$_ym2= 49
SUB(mouse_move,$MOVE_END_X,$MOVE_END_Y)
$MOVE_Start_X = $_xmouse
$MOVE_Start_Y = $_ymouse
$MOVE_X = $MOVE_Start_X
$MOVE_Y = $MOVE_Start_Y
$dist = DIST($MOVE_END_X,$MOVE_END_Y,$MOVE_Start_X,$MOVE_Start_Y)
$MOVE_step = ($dist-1)/INT(SQRT($dist))
$MOVE_X_step = ($MOVE_END_X-$MOVE_Start_X)/$MOVE_step
$MOVE_Y_step = ($MOVE_END_Y-$MOVE_Start_Y)/$MOVE_step
FOR($MOVE_i=0, $MOVE_i < INT($MOVE_step))
$MOVE_X = $MOVE_X + $MOVE_X_step
$MOVE_Y = $MOVE_Y + $MOVE_Y_step
MOVE(INT($MOVE_X) + RND(-2,2), INT($MOVE_Y) + RND(-2,2))
WAITMS($rnwait) // задержка при движении по точкам
END_CYC
END_SUB
SUB(m_move,$M_X,$M_Y)
$rnwait = RND(6,15) // случайная скорость
$MOVE_MID_X = INT(($_xmouse+$M_X)/2)
$MOVE_MID_Y = INT(($_ymouse+$M_Y)/2)
$otx = INT(ABS($_xmouse - $M_X) * 0.12)
$oty = INT(ABS($_ymouse - $M_Y) * 0.12)
mouse_move($MOVE_MID_X+RND(-$otx,$otx), $MOVE_MID_Y+RND(-$oty,$oty))
mouse_move($M_X,$M_Y)
MOVE($M_X,$M_Y) //Передвинуть окончательно в заданную точку
END_SUB
IF($xx1212=0 )
GETSCREEN
IF_PICTURE_IN(0,0, $_xmax,$_ymax, "в.bmp")
$xx = $_return1
$yy = $_return2
LOGSHOW (1, 49,102)
LOGWRITE ("привязались")
$xx1212=1
$tim23 = $_time_t + 300
ELSE
LOGWRITE ("не привязались")
HALT
$xx1212=1
END_IF
END_IF
IF($tim23 < $_time_t)
m_move($_xm1+RND(-2,2), $_ym2+RND(-2,2))
LCLICK($_xmouse,$_ymouse)
$tim23 = $_time_t + 300
$t87=1
//
END_IF
GETSCREEN ($xx+547,$yy+519,$xx+598,$yy+610) // (964,626,1015,717)
IF_PICTURE_IN ($xx+547,$yy+519,$xx+598,$yy+610, "череп.bmp", -1, 80)
LOGWRITE ("нашли череп")
IF($t87=1 )
WAITMS(500)
$t87=0
END_IF
$tim23 = 0
$tim23 = $_time_t + 300
m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
LCLICK($_xmouse,$_ymouse)
$ti=1
skip1:
$time = $_time_t + 10
WHILE($time > $_time_t)
GETSCREEN ($xx+98,$yy+514,$xx+162,$yy+591) //(515,621,579 ,698)
IF_PICTURE_IN ($xx+98,$yy+514,$xx+162,$yy+591, "мне.bmp", -1, 70)
$time = 0
LOGWRITE ("нашли мне")
IF($ti = 1)
WAITMS(800)
$ti=0
END_IF
GETSCREEN ($xx+491,$yy-57,$xx+713,$yy+622)
SCANPICTURE($ARR_SCAN, $xx+491,$yy-57,$xx+713,$yy+622, "на остров.bmp", -1, 70)
LOGWRITE ("нашли на остров")
$ARR_NUM = 0
WHILE ($ARR_NUM < ARRSIZE($ARR_SCAN))
$X = $ARR_SCAN [$ARR_NUM]
INC($ARR_NUM,1)
$Y = $ARR_SCAN [$ARR_NUM]
INC($ARR_NUM,1)
($X, $Y) // перемещаем курсор
LOGWRITE ("X: ", $X, " Y: ", $Y)
WAITMS(100)
GETSCREEN ($x-549,$y-27, $x-501,$y+20)
IF_PICTURE_IN ($x-549,$y-27, $x-501,$y+20, "то на стр.bmp", -1, 70)
LOGWRITE ("это то жмякаем на остров")
m_move($x+RND(-5,5),$y+RND(-5,5))
LCLICK($_xmouse,$_ymouse)
m_move($x+500+RND(-5,5),$y+RND(-5,5))
$time1 = $_time_t + 10
WHILE($time1 > $_time_t)
GETSCREEN ($xx+501,$yy+449,$xx+722,$yy+588) //(918,556, 1139,695)
COLORMODE(6, $xx+501,$yy+449,$xx+722,$yy+588)
IF_PICTURE_IN ($xx+501,$yy-449,$xx+722,$yy+588, "то.bmp", -1, 70)
$time1 = 0
LOGWRITE ("нашли тыкаем")
m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
LCLICK($_xmouse,$_ymouse)
$time2 = $_time_t + 10
WHILE($time2 > $_time_t)
GETSCREEN ($xx-25,$yy+328,$xx+280,$yy+537)//(399,465, 679,644)
IF_PICTURE_IN ($xx-25,$yy+328,$xx+280,$yy+537, "напасть.bmp", -1, 70)
LOGWRITE ("нашли напасть")
$time2 = 0
m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
LCLICK($_xmouse,$_ymouse)
WAITMS(rnd(1500,1700))
ELSE
LOGWRITE ("не нашли напасть")
WAITMS(50)
END_IF
END_CYC
ELSE
LOGWRITE ("не нашли ")
WAITMS(50)
END_IF
END_CYC
ELSE
LOGWRITE ("это не то след стр")
END_IF
ELSE
LOGWRITE ("не нашли на остров")
GETSCREEN($xx+245,$yy+478,$xx+682,$yy+618) //(662,585, 1099,725)
IF_PICTURE_IN ($xx+245,$yy+478,$xx+682,$yy+618, "след стр.bmp", -1, 70)
LOGWRITE ("след сттр")
m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
LCLICK($_xmouse,$_ymouse)
m_move($_xmouse+100,$_ymouse)
WAITMS(rnd(300,500))
UNDEFINE($ARR_SCAN)
GOTO(skip1)
ELSE
GOTO(ski)
END_IF
END_CYC
ELSE
WAITMS(50)
END_IF
END_CYC
END_IF
ski:
SUB(элики,$dname1)
GETSCREEN ($xx+37,$yy+436, $xx+657,$yy+561)
IF_PICTURE_IN ($xx+37,$yy+436, $xx+657,$yy+561, $dname1, -1, 80)
LOGWRITE ("юзаем:" ,$dname1,")
m_move($_return1+RND(-10,10), $_return2+RND(-10,10))
LCLICK($_xmouse,$_ymouse)
WAITMS(rnd(400,600))
END_IF
END_SUB
GETSCREEN($xx+282,$yy+41, $xx+378,$yy+73)
IF_PICTURE_IN ($xx+282,$yy+41, $xx+378,$yy+73, "ход.bmp", -1, 80)
элики("молния.bmp")
элики("плевок.bmp")
WAITMS(rnd(200,250))
END_IF
UNDEFINE($ARR_SCAN)
GETSCREEN ($xx+635,$yy-34,$xx+716,$yy+48)//(1052,73, 1133,155)
IF_PICTURE_IN (1052,73, 1133,155, "крестик.bmp", -1, 90)
LOGWRITE ("нашли крестик")
m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
LCLICK($_xmouse,$_ymouse)
WAITMS(rnd(2000,4000))
LOGCLEAR
m_move($_return1+100+RND(-2,2), $_return2+RND(-20,20))
END_IF
WAITMS(rnd(50,90))
вот так все работает как нужно но писали что с цыкла нельзя гото а я по другому не могу понять как сделать подправте чтоб было все правильно но работал так же как вот сейчас