HELP ME

[Limon4ik]

Здравствуйте, в программе я прошаренный новичок, вот написал скрипт:
GETSCREEN
IF_PIXEL_IN(0,0, $_xmax,$_ymax, 6940927,782924,165512,14514161,5525233)
MOVE($_return1, $_return2)
WAITMS(100)
END_IF

Он ищет разные цвета(назову объекты) и наводит мышку на них
Суть в том что, он наводит мышку на самые дальние объекты от середины экрана.
Можно ли сделать так чтобы наводил мышкой по самым ближним объектам от середины экрана, до его конца?

[Limon4ik]

А и еще, есть несколько объектов в игре, можно сделать приоритет?
Тоесть есть в игре квадрат и треугольник, я хочу чтобы скрипт наводил курсор мышки сначало на треугольник а потом на квадрат

[Oraven]

Code: (clickermann) [Select]

SUB(search, $x_1,$y_1,$x_2,$y_2,$proc)
   $ct_x=$x_1+int(($x_2-$x_1)/2)
   $ct_y=$y_1+int(($y_2-$y_1)/2)
   LOGWRITE ("Центр: ", $ct_x,",",$ct_y)
   $count_x=int((($x_2-$x_1)/100)*$proc)
   $count_y=int((($y_2-$y_1)/100)*$proc)
   LOGWRITE ("Расширение: ", $count_x,",",$count_y, " пикселов")
   $x = $ct_x
   $y = $ct_y
   $x2 = $ct_x
   $y2 = $ct_y
   $check = 0
   WHILE(($x>$x_1)&($y>$y_1)&($check=0))
      IF_PIXEL_IN($x,$y, $x2,$y2, 6940927,782924,165512,14514161,5525233)
         $check=1
         LCLICK($_return1, $_return2)
      ELSE
         INC($x,-$count_x)
         INC($y,-$count_y)
         INC($x2,$count_x)
         INC($y2,$count_y)
         WAITMS(1)
      END_IF
   END_CYC
END_SUB

// поиска из центра области 0,0, $_xmax,$_ymax с процентом расширения 0.5%

GETSCREEN
search(0,0, $_xmax,$_ymax, 0.5)
WAITMS(100)

HALT

[Limon4ik]

Спасибо

[Vint]

Ближайшая к заданным координатам/центру картинка:
http://crapware.aidf.org/forum/index.php?topic=33.msg20114#msg20114

[Космич]

Не сдержался 

Code: (clickermann) [Select]

SUB(search, $x_1,$y_1,$x_2,$y_2,$proc)
   $ct_x=$x_1+int(($x_2-$x_1)/2)
   $ct_y=$y_1+int(($y_2-$y_1)/2)
   LOGWRITE ("Центр: ", $ct_x,",",$ct_y)
   $count_x=int((($x_2-$x_1)/100)*$proc)
   $count_y=int((($y_2-$y_1)/100)*$proc)
   LOGWRITE ("Расширение: ", $count_x,",",$count_y, " пикселов")
   $x = $ct_x
   $y = $ct_y
   $x2 = $ct_x
   $y2 = $ct_y
   $check = 0
   WHILE(($x>$x_1)&($y>$y_1)&($check=0))
      IF_PIXEL_IN($x,$y, $x2,$y2, 6940927,782924,165512,14514161,5525233)
         GETSCREEN($x,$y, $x2,$y2)
         SCANPXL($scan, $x,$y, $x2,$y2, 6940927)
         SCANPXL($scan, $x,$y, $x2,$y2, 782924)
         SCANPXL($scan, $x,$y, $x2,$y2, 165512)
         SCANPXL($scan, $x,$y, $x2,$y2, 14514161)
         SCANPXL($scan, $x,$y, $x2,$y2, 5525233)
         
         $dist = 10000
         $scan_size = ARRSIZE($scan)
         FOR($i=0, $i < $scan_size, 2)
            $X = $scan[$i]
            $Y = $scan[$i+1]
            $d_temp = DIST($ct_x, $ct_y, $X, $Y)
            IF($d_temp < $dist)
               $dist = $d_temp
               $Xdot_target = $X
               $Ydot_target = $Y
            END_IF
            IF($Y > ($ct_y + $dist))
               $i = $scan_size
            END_IF
         END_CYC
         UNDEFINE($scan)
         
         IF($dist ! 10000)
            LCLICK($Xdot_target, $Ydot_target)
            $check=1
         END_IF         
      ELSE
         INC($x,-$count_x)
         INC($y,-$count_y)
         INC($x2,$count_x)
         INC($y2,$count_y)
         WAITMS(1)
      END_IF
   END_CYC
END_SUB

GETSCREEN
search(0,0, $_xmax,$_ymax, 5.0)
WAITMS(100)

HALT