[Подсказка] Бот

Comedi4 · 02.01.2017, 15:28

Ребят, подскажите какой бот использовать? Я просто

в этом...

boterhead · 02.01.2017, 15:39

https://zhyk.ru/forum/showthread.php?t=1061310

E.x.p.r.e.s.s. · 02.01.2017, 16:18

Цитата:

Сообщение от Comedi4


	Ребят, подскажите какой бот использовать? Я просто в этом...

Только без пета)

Код:

//==============================================================================

$reg[1] = 0
$reg[2] = 0
$reg[3] = $_xmax
$reg[4] = $_ymax
$x_cent = INT($_xmax/2)
$y_cent = INT($_ymax/2)
$cent_x=int(($reg[3]-$reg[1])/2)
$cent_y=int(($reg[4]-$reg[2])/2)
$use_pet = 2 // Использовать пета 1 - вкл, 2 - выкл
$use_invis = 1 // Использовать невид 1 - вкл, 2 - выкл
$invis = #6 // Клавиша расположения невида
$number_of_deaths = 7 // Количество смертей
$wait_after_death  = 140 + RND(20,20) // Задержка после смерти корабля
$wait_after_repair = 180 + RND(20,20) // Задержка после ремонта корабля
$box = 8376319 // Пиксель коробки
$wait_after_collecting_box = 1200 + RND(50,50) //Задержка после сбора коробки

//==============================================================================

FOR($minimap,$minimap < 1)
   GETSCREEN
   COLORMODE(6)
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "picture/minimap/minimap_search.bmp", -1, 100)
      LOGWRITE("Миникарта найдена.")
      WAITMS(RND(150,350)
      $onex = $_return1 + 29
      $oney = $_return2 + 50
      $twox = $_return1 + 130
      $twoy = $_return2 + 50
      $threex = $_return1 + 130
      $threey = $_return2 + 144
      $fourx = $_return1 + 29
      $foury = $_return2 + 144
      $fivex = $_return1 + 54
      $fivey = $_return2 + 75
      $sixx = $_return1 + 105
      $sixy = $_return2 + 75
      $sevenx = $_return1 + 105
      $seveny = $_return2 + 119
      $eightx = $_return1 + 54
      $eighty = $_return2 + 119
      $pointerx = $_return1 + 81
      $pointery = $_return2 + 28
      $not_pointer = 4144959
      $not_close = $_return1
      $not_close = $_return2
      $minimap = 1
   ELSE
      WAITMS(RND(150,350)
      LOGWRITE("Миникарта не найдена.")
      $minimap = $minimap - 1
   END_IF
END_CYC

//==============================================================================

THREAD(ship_clock, 0)
   KEYPRESS($invis)
   WAIT(RND(1,6))
END_THREAD

THREAD(Autolot_pet, 0)

END_THREAD

//=============================================

INC($key_count,1)
SWITCH($key_count)
CASE(1)
   $coorx = $onex+RND(-3,3)
   $coory = RND(-3,3)+$oney
CASE(2)
   $coorx = $twox+RND(-3,3)
   $coory = RND(-3,3)+$twoy
CASE(3)
   $coorx = $threex+RND(-1,1)
   $coory = RND(-3,3)+$threey
CASE(4)
   $coorx = $fourx+RND(-3,3)
   $coory = RND(-3,3)+$foury
CASE(5)
   $coorx = $fivex+RND(-3,3)
   $coory = RND(-3,3)+$fivey
CASE(6)
   $coorx = $sixx+RND(-3,3)
   $coory = RND(-3,3)+$sixy
CASE(7)
   $coorx = $sevenx+RND(-3,3)
   $coory = RND(-3,3)+$seveny
CASE(8)
   $coorx = $eightx+RND(-3,3)
   $coory = RND(-3,3)+$eighty
   $key_count = 0
DEFAULT
END_SWITCH
IF($repair_check < $_time_t)
   GETSCREEN
   COLORMODE(6)
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "picture/ship/gate.bmp", -1, 100)
      GETSCREEN
      SCREENSHOT
      define($repair, -1)
      INC($repair,1)
      IF($repair = $number_of_deaths)
         HALT
      END_IF
      SETTHREAD(ship_clock, 0)
      SETTHREAD(Autolot_pet, 0)
      MOVE($_return1, $_return2)
      WAITMS(RND(25,50))
      LCLICK($_return1, $_return2)
      WAIT($wait_after_death)
      MOVE($_return1, $_return2+200)
      WAITMS(RND(25,50))
      LCLICK($_return1, $_return2+200)
      WAIT($wait_after_repair)
      $key_count = 0
   ELSE
      WAITMS(25)
   END_IF
   $repair_check = $_time_t + 40 + RND(10,20)
END_IF
MOVE($coorx,$coory)
WAITMS(RND(25,50))
LCLICK($coorx,$coory)
WAITMS(RND(250,700))
SETTHREAD(ship_clock, $use_invis)
SETTHREAD(Autolot_pet, $use_pet)
$check = 0
$check_out = 0
WHILE($check_out = 0)
   GETSCREEN($reg[1],$reg[2],$reg[3]+1,$reg[4]+1)
   COLORMODE(3,$reg[1],$reg[2],$reg[3],$reg[4])
   PXLREPLACE ($x_cent-20,$y_cent+10,$x_cent+20,$y_cent+90, $box, 0)
   PXLREPLACE($not_closex-40,$not_closey-20,$not_closex+200,$not_closey+20, $box, 0)
   IF_PIXEL_IN($reg[1],$reg[2], $reg[3],$reg[4],$box)
      $x=0
      $y=0
      SCANPXL($arr,$reg[1],$reg[2], $reg[3],$reg[4],$box)
      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)
      IF(($x=0)&($y=0))
         LCLICK($coorx,$coory)
      ELSE
         LCLICK($x,$y)
      END_IF
      WAITMS($wait_after_collecting_box)
      $check = 1
   ELSE
      IF($check = 1)
         $check = 0
         LCLICK($coorx,$coory)
         WAITMS(RND(50,350))
      ELSE
         GETSCREEN
         COLORMODE(6)
         IF((PXL($pointerx,$pointery) = $not_pointer)
            $check_out = 1
         ELSE
            WAITMS(RND(25,100))
         END_IF
         WAITMS(25)
      END_IF
      WAITMS(25)
   END_IF
   WAITMS(25)
END_CYC
WAITMS(25)

//==============================================================================

Comedi4 · 02.01.2017, 21:14

Цитата:

Сообщение от E.x.p.r.e.s.s.


	Только без пета) //================================================== ============================[/CODE]

Если бы я понимал в этом, то точно отблагодарил))

E.x.p.r.e.s.s. · 03.01.2017, 09:05

Цитата:

Сообщение от Comedi4


	Если бы я понимал в этом, то точно отблагодарил))

[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]

объясняю. качаешь архив, разархивируешь его куда-нибудь, после открываешь файл autobox.cms через кликермэн)
что бы комп не выключался после того как кор умрёт макс. кол-во раз нужно удалть строку - EXECUTE ("shutdown.exe", "/s /t 00")

Цитата:


	$use_pet = 2 // Использовать пета 1 - вкл, 2 - выкл $use_invis = 2 // Использовать невид 1 - вкл, 2 - выкл $invis = #6 // Клавиша расположения невида $number_of_deaths = 7 // Количество смертей $wait_after_death = 140 + RND(20,20) // Задержка после смерти корабля $wait_after_repair = 180 + RND(20,20) // Задержка после ремонта корабля $box = 8376319 // Пиксель коробки $wait_after_collecting_box = 1200 + RND(50,50) //Задержка после сбора коробки

PatiMeiker · 07.01.2017, 21:26

все сделал как надо,выходит ошибка миникарта не найдена,что не так делаю?(

Comedi4 · 08.01.2017, 01:24

Цитата:

Сообщение от PatiMeiker


	все сделал как надо,выходит ошибка миникарта не найдена,что не так делаю?(

Та-же проблема...

E.x.p.r.e.s.s. · 08.01.2017, 02:55

Цитата:


	все сделал как надо,выходит ошибка миникарта не найдена,что не так делаю?(

Цитата:


	Та-же проблема...

Отображение окон в игре включено?

Comedi4 · 08.01.2017, 11:01

Цитата:

Сообщение от E.x.p.r.e.s.s.


	Отображение окон в игре включено?

Нет

E.x.p.r.e.s.s. · 08.01.2017, 12:04

Цитата:

Сообщение от Comedi4


	Нет

Включи тогда

PatiMeiker · 10.01.2017, 22:18

отображение включено,фон выключен,ошибка та же