Author Topic: нужна помощь по скрипту  (Read 1360 times)

0 Members and 2 Guests are viewing this topic.

PaD1

  • Зашел в гости
  • *
  • Posts: 2
    • View Profile
нужна помощь по скрипту
« on: February 08, 2018, 06:08:14 PM »
кто поможет использую простой скрипт в игре...ищет монстров и нажимает левой мышкой по ним...как сделать так что бы он не бегал к дальним монстрам ,а бил с начало ближних около себя?

GETSCREEN
IF_PICTURE_IN(0,0,$_xmax,$_ymax,"2.bmp")
   LCLICK($_return1, $_return2)
   WAIT(4)
END_IF

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: нужна помощь по скрипту
« Reply #1 on: February 08, 2018, 06:33:59 PM »
Code: (clickermann) [Select]
//=== Настройки ===============================
// область поиска
$x_1 = 0
$y_1 = 0
$x_2 = $_xmax
$y_2 = $_ymax

//=============================================
// Вычисление центральной точки
$cent_x=$x_1+int(($x_2-$x_1)/2)
$cent_y=$y_1+int(($y_2-$y_1)/2)

start: // Основной цикл скрипта

GETSCREEN($x_1,$y_1, $x_2,$y_2)
SCANPICTURE($arr,$x_1,$y_1, $x_2,$y_2, "2.bmp", -1, 100)
IF(ARRSIZE($arr) > 0)
   $x=999999
   $y=999999
   FOR($a=0,$a<ARRSIZE($arr),2)
      IF(DIST($arr[$a],$arr[$a+1],$cent_x,$cent_y)<DIST($x,$y,$cent_x,$cent_y))
         $x=$arr[$a]
         $y=$arr[$a+1]
      END_IF
   END_CYC
   UNDEFINE($arr)
   LCLICK($x,$y)
   WAIT(4)
END_IF
WAITMS(50)

GOTO(start)

PaD1

  • Зашел в гости
  • *
  • Posts: 2
    • View Profile
Re: нужна помощь по скрипту
« Reply #2 on: February 08, 2018, 06:47:55 PM »
Code: (clickermann) [Select]
$x_1 = 749
$y_1 = 127
$x_2 = $_xmax
$y_2 = $_ymax
 

$cent_x=$x_1+int(($x_2-$x_1)/2)
$cent_y=$y_1+int(($y_2-$y_1)/2)
 
start:
GETSCREEN($x_1,$y_1, $x_2,$y_2)
SCANPICTURE($arr,$x_1,$y_1, $x_2,$y_2, "2.bmp", -1, 100)
IF(ARRSIZE($arr) > 0)
   $x=999999
   $y=999999
   FOR($a=0,$a<ARRSIZE($arr),2)
      IF(DIST($arr[$a],$arr[$a+1],$cent_x,$cent_y)<DIST($x,$y,$cent_x,$cent_y))
         $x=$arr[$a]
         $y=$arr[$a+1]
      END_IF
   END_CYC
   UNDEFINE($arr)
   LCLICK($x,$y)
   WAIT(4)
END_IF
WAITMS(50)
 
GOTO(start)


Пишет ошибка в DIST
« Last Edit: February 08, 2018, 06:58:55 PM by PaD1 »