Messages

1

Общие вопросы / Re: мозг плавится как сюда еще больше рандома вбить?

« on: May 27, 2018, 09:44:59 PM »

Что это такое ты тут понаписал???

Code: (clickermann) [Select]

$x = $ARR_SCAN [$ARR_NUM]
INC($ARR_NUM,1)
$x = $ARR_SCAN [$ARR_NUM]
INC($ARR_NUM,1)
IF(($X > $X2) | ($Y > $Y2))
$X2 = $X + $SHIFT_X
$Y2 = $XY + $SHIFT_Y
IF_PIXEL_IN($x=50,$y=50, $x+5,$y+5, 144)
Правильно так

Code: (clickermann) [Select]

$X = $ARR_SCAN [$ARR_NUM]
INC($ARR_NUM,1)
$Y = $ARR_SCAN [$ARR_NUM]
INC($ARR_NUM,1)
IF(($X > $X2) | ($Y > $Y2))
$X2 = $X + $SHIFT_X
$Y2 = $Y + $SHIFT_Y
IF_PIXEL_IN($x-50,$y-50, $x+5,$y+5, 144)
Весь код

Code: (clickermann) [Select]

SUB(mouse_move,$MOVE_END_X,$MOVE_END_Y)
   $MOVE_SPEED = 3  // множитель скорости
   
   $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_SPEEDVAR = INT((SQRT($dist))/$MOVE_SPEED)
   
   IF($MOVE_SPEEDVAR < 1)
      $MOVE_SPEEDVAR = 1
   END_IF
   
   $MOVE_step=($dist-1)/$MOVE_SPEEDVAR
   $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(ROUND($MOVE_X,0), ROUND($MOVE_Y,0))
      WAITMS(1)
   END_CYC
   
   MOVE($MOVE_END_X, $MOVE_END_Y)
END_SUB
SUB(POISK)
   $SHIFT_X= 5
   $SHIFT_Y= 5
   $ARR_NUM= 0
   $X2= 0
   $Y2= 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)
      IF(($X > $X2) | ($Y > $Y2))
         $X2 = $X + $SHIFT_X
         $Y2 = $Y + $SHIFT_Y
         IF_PIXEL_IN($x-50,$y-50, $x+5,$y+5, 144)
            WAITMS(1)
         ELSE
            $ARR_NUM = ARRSIZE($ARR_SCAN)
            WAITMS(Rnd(3000,4000))
            mouse_move($x, $y)
            DBLCLICK($x, $y)
            MOVE(1202,123)
         END_IF
      END_IF
   END_CYC
   UNDEFINE($ARR_SCAN)
END_SUB

GETSCREEN
SCANPXL($ARR_SCAN 144,235, 1260,490, 10990730)
POISK()
Какой тебе там еще рандом нужен?

несколько рандомных точек а не туда и обратно пальевно как то когда мышка скользит сначала на клик потом как будто домой в одну пиксельуню точку

2

Общие вопросы / Re: мозг плавится как сюда еще больше рандома вбить?

« on: May 27, 2018, 09:30:55 PM »

там закрывашек не хватает но это ладно
по этому скрипту меня аж во вкладки бросает не пойму который из команд отвечет за зону поиска

3

Общие вопросы / мозг плавится как сюда еще больше рандома вбить?

« on: May 27, 2018, 09:06:47 PM »

SUB(mouse_move,$MOVE_END_X,$MOVE_END_Y)
   $MOVE_SPEED = 3  // множитель скорости
 
   $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_SPEEDVAR = INT((SQRT($dist))/$MOVE_SPEED)
 
   IF($MOVE_SPEEDVAR < 1)
      $MOVE_SPEEDVAR = 1
   END_IF
 
   $MOVE_step=($dist-1)/$MOVE_SPEEDVAR
   $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(ROUND($MOVE_X,0), ROUND($MOVE_Y,0))
      WAITMS(1)
   END_CYC
   
   MOVE($MOVE_END_X, $MOVE_END_Y)
END_SUB
SUB(POISK)
   $SHIFT_X= 5
   $SHIFT_Y= 5   
   $ARR_NUM= 0
    $X2= 0
    $Y2= 0
    WHILE ($ARR_NUM < ARRSIZE ($ARR_SCAN))
       $x = $ARR_SCAN [$ARR_NUM]
       INC($ARR_NUM,1)
          $x = $ARR_SCAN [$ARR_NUM]
       INC($ARR_NUM,1)
       IF(($X > $X2) | ($Y > $Y2))
         $X2 = $X + $SHIFT_X
             $Y2 = $XY + $SHIFT_Y
             IF_PIXEL_IN($x=50,$y=50, $x+5,$y+5, 144)
                  WAITMS(1)
         ELSE
                $ARR_NUM = ARRSIZE($ARR_SCAN)
                WAITMS(Rnd(3000,4000))
                mouse_move($x, $y)
                DBLCLICK($x, $y)
                MOVE(1202,123)
          END_IF
       END_IF
     END_CYC
     UNDEFINE($ARR_SCAN)
END_SUB
GETSCREEN
SCANPXL($ARR_SCAN 144,235 , 1260,490 , 10990730)
POISK()