« previous next »
Pages: [1]

Author Topic: DarkOrbit  (Read 7214 times)

0 Members and 2 Guests are viewing this topic.

kolya_1994

  • Зашел в гости
  • *
  • Posts: 2
    • View Profile
DarkOrbit
« on: August 14, 2015, 05:51:18 PM »
Всем доброго времени суток! Есть игра называется DarkOrbit, в этой игре на 1 карте нужно собирать паладий. Суть в том что скрипт для сбора паладия есть, но он собирает очень долго из-за того что он не собирает ближние камни, а летит к дальним. Так вот нужно сделать так чтобы он сначала собрал камни которые ближе к кораблю, а потом уже летел к дальним. Я выложу скрин, чтобы вы понимали вообще о чем я говорю и скрипт. Заранее спасибо, я буду очень благодарен если вы мне поможете.



Code: (clickermann) [Select]
thread(thr1)
waitms(rnd(750,1500))
a:
getscreen
if_picture_in(0,0,$_xmax,$_ymax,"53.bmp",-1,90)
lclick(rnd($_return1+45,$_return1+130),rnd($_return2+105,$_return2+130))
else
getscreen
colormode(6)
if_picture_in(0,0,$_xmax,$_ymax,"мини.bmp",-1,90)
lclick(rnd($_return1+20,$_return1+155),rnd($_return2+110,$_return2+155))
else
getscreen
if_picture_in(0,0,$_xmax,$_ymax,"миникарта.bmp",-1,90)
lclick($_return1,$_return2)
wait(2)
goto(a)
end_if
end_if
end_if
$time = $_time_t + 5
WHILE($time > $_time_t)
go:
getscreen
if_pixel_in(0,0,$_xmax,$_ymax,2548528)
$h = hget($_return1,$_return2)
wndgetinfo($h,$var1,$var2,$var3,$var4)
GETSCREEN
IF_PIXEL_IN($var1,$var2+75,$var3,$var4-25,9557759,10386009)
LCLICK($_return1+5,$_return2+5)
WAIT(2)
goto(go) 
END_IF
end_if
END_CYC
goto(a)
end_thread

thread(thr2)
waitms(500)
getscreen
if_pixel_in(0,0,$_xmax,$_ymax,2964963)
setthread(thr4,0)
wait(45)
dblclick($_return1,$_return2+37)
wait(5)
setthread(thr4,1)
end_if
end_thread

thread(thr3)
a:
waitms(rnd(500,1000))
getscreen
if_pixel_in(0,0,$_xmax,$_ymax,2548528)
goto(a)
else
getscreen
if_picture_in(0,0,$_xmax,$_ymax,"ремонт.bmp",-1,90)
setthread(thr4,0)
wait(5)
lclick($_return1,$_return2)
wait(3)
lclick($_return1-119,$_return2+243)
else
goto(a)
end_if
end_if
define($var)
inc($var)
if($var = 15)
setthread(thr4,0)
setthread(thr1,0)
wait(10)
keypress(76)
halt
end_if
wait(10)
setthread(thr4,1)
wait(50)
end_thread

thread(thr4)
keypress(72)
wait(1)
a:
waitms(rnd(750,1500))
getscreen
if_pixel_in(0,0,$_xmax,$_ymax,10328931)
lclick($_return1,$_return2)
end_if
wait(30)
goto(a)
end_thread
Logged

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: DarkOrbit
« Reply #1 on: August 14, 2015, 09:17:52 PM »
Зачем так все усложнять.

Вот скрипт для сбора коробок, там встроен приоритет поиска из центра. Чтобы собирать паладий нужно изменить цвет поиска. Получать это цвет нужно в цветокоррекции 6 уровня COLORMODE(6)
Это для 2D и все фоны и эффекты нужно отключить.
Logged

kolya_1994

  • Зашел в гости
  • *
  • Posts: 2
    • View Profile
Re: DarkOrbit
« Reply #2 on: August 15, 2015, 12:22:49 AM »
Я прошу прощения, но я не очень понимаю в скриптах, я то скачал пытался настроить, но не получилось. Если можете то покажите мне на каком не будь примере, или вообще было бы шикарно если бы вставили "приоритет поиска из центра'' в мой скрипт.
Logged

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: DarkOrbit
« Reply #3 on: August 15, 2015, 07:41:08 AM »
Наверное так

Code: (clickermann) [Select]
thread(thr1)
   waitms(rnd(750,1500))
   a:
   getscreen
   if_picture_in(0,0,$_xmax,$_ymax,"53.bmp",-1,90)
      lclick($_return1+RND(45,130),$_return2+RND(105,130))
   else
      getscreen
      colormode(6)
      if_picture_in(0,0,$_xmax,$_ymax,"мини.bmp",-1,90)
         lclick($_return1+RND(20,155),$_return2+RND(110,155))
      else
         getscreen
         if_picture_in(0,0,$_xmax,$_ymax,"миникарта.bmp",-1,90)
            lclick($_return1,$_return2)
            wait(2)
            goto(a)
         end_if
      end_if
   end_if
   $time = $_time_t + 5
   WHILE($time > $_time_t)
      go:
      getscreen
      if_pixel_in(0,0,$_xmax,$_ymax,2548528)
         wndgetinfo(hget($_return1,$_return2),$var1,$var2,$var3,$var4)
         $var2 = $var2+75
         $var4 = $var4-25
         $cent_x=int(($var3-$var1)/2)
         $cent_y=int(($var4-$var2)/2)
         $x=0
         $y=0
         GETSCREEN
         SCANPXL($arr,$var1,$var2,$var3,$var4,9557759)
         SCANPXL($arr,$var1,$var2,$var3,$var4,10386009)
         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(ARRSIZE($arr) ! 0)
            LCLICK($x+5,$y+5)
            WAIT(2)
            goto(go)
         END_IF
      end_if
      WAITMS(10)
   END_CYC
   goto(a)
end_thread

thread(thr2)
   waitms(500)
   getscreen
   if_pixel_in(0,0,$_xmax,$_ymax,2964963)
      setthread(thr4,0)
      wait(45)
      dblclick($_return1,$_return2+37)
      wait(5)
      setthread(thr4,1)
   end_if
end_thread

thread(thr3)
   a:
   waitms(rnd(500,1000))
   getscreen
   if_pixel_in(0,0,$_xmax,$_ymax,2548528)
      goto(a)
   else
      getscreen
      if_picture_in(0,0,$_xmax,$_ymax,"ремонт.bmp",-1,90)
         setthread(thr4,0)
         wait(5)
         lclick($_return1,$_return2)
         wait(3)
         lclick($_return1-119,$_return2+243)
      else
         goto(a)
      end_if
   end_if
   define($var)
   inc($var)
   if($var = 15)
      setthread(thr4,0)
      setthread(thr1,0)
      wait(10)
      keypress(76)
      halt
   end_if
   wait(10)
   setthread(thr4,1)
   wait(50)
end_thread

thread(thr4)
   keypress(72)
   wait(1)
   a:
   waitms(rnd(750,1500))
   getscreen
   if_pixel_in(0,0,$_xmax,$_ymax,10328931)
      lclick($_return1,$_return2)
   end_if
   wait(30)
   goto(a)
end_thread
Logged

turlinet

  • Зашел в гости
  • *
  • Posts: 8
    • View Profile
Re: DarkOrbit
« Reply #4 on: November 26, 2016, 12:38:58 PM »
Добрый день. помогите а то сделал скрипт и не пойму почему возникла проблема с сбором. когда один сбор происходил так было нормально а сейчас много пропусков.
[spoiler]
Quote
//--------— область поиска
$x_1 = 43
$y_1 = 81
$x_2 = 1626
$y_2 = 779
//-----------— область поиска видимо нужды в ремонте
$xy_1 = 949
$yx_1 = 468
$xy_2 = 1005
$yx_2 = 479
//---------------------------------ПЕТ---------------------------
$xyp_1 = 42
$yxp_1 = 96
$xyp_2 = 340
$yxp_2 = 378
//-------------Область мини карты
$x_mini_1 = 1738
$y_mini_1 = 973
$x_mini_2 = 1821
$y_mini_2 = 996
//----------— цвета поиска----------
$color = 7962252
$color1 = 7032629
$color2 = 8150594
$color3 = 15057059
$color4 = 11507069
$color5 = 11436124
$color6 = 16797023
$color7 = 7105644
//=============================================
loot:
GETSCREEN($x_1,$y_1, $x_2,$y_2)
IF_PIXEL_IN($x_1,$y_1, $x_2,$y_2, $color, $color1, $color2, $color3, $color4, $color5, $color6 ) //цвета ресурсов (resource colors)
LCLICK($_return1, $_return2) //клик по ним (click on them)
WAITMS(1500) //(wait until will reach)
else // если нет коробок
pem:
GETSCREEN($xy_1,$yx_1, $xy_2,$yx_2)
if_pixel_in($xy_1,$yx_1, $xy_2,$yx_2,$color7)// если нет коробок, то ищет ремонт
KEYPRESS(#7) // если нужен ремонт то жмёт клавишу 7
WAITMS(500) // задержка после нажатия на срабатывание
else // если не найден $color7
// рисунки что бы активировал пета, если нет коробок и ремонт не нужен
pet:
GETSCREEN($xyp_1,$yxp_1, $xyp_2,$yxp_2)
IF_PICTURE_IN ($xyp_1,$yxp_1, $xyp_2,$yxp_2, "p2.bmp",-1,80)
LCLICK($_return1, $_return2)
WAITMS(500)
GETSCREEN($xyp_1,$yxp_1, $xyp_2,$yxp_2) // поиск ПЕТа
IF_PICTURE_IN ($xyp_1,$yxp_1, $xyp_2,$yxp_2, "p3.bmp",-1,80)
LCLICK($_return1, $_return2)
WAITMS(800)
GETSCREEN($xyp_1,$yxp_1, $xyp_2,$yxp_2)
//IF_PIXEL_IN($xyp_1,$yxp_1, $xyp_2,$yxp_2, 5076616,-1,80 )
IF_PICTURE_IN ($xyp_1,$yxp_1, $xyp_2,$yxp_2, "2221.bmp",-1,80)
LCLICK($_return1, $_return2)
WAITMS(500) // задержка после нажатия на срабатывание
END_IF
END_IF
END_IF
map:
LCLICK(RND($x_mini_1,$x_mini_2),RND($y_mini_1,$y_mini_2)) // рандомный клик по миникарте
WAITMS(2500) // время на перемещение к месту на карте

END_IF
END_IF
goto (loot)
goto (pet)
goto (rem)
goto (map)
[/spoiler] что уже я на мутил ? :) а то я в этой сфере новенький
« Last Edit: November 26, 2016, 12:59:00 PM by turlinet »
Logged

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: DarkOrbit
« Reply #5 on: November 26, 2016, 02:37:40 PM »
Красиво плывёт группа в купальниках идёт подряд четыре GOTO.
Logged

turlinet

  • Зашел в гости
  • *
  • Posts: 8
    • View Profile
Re: DarkOrbit
« Reply #6 on: November 26, 2016, 04:54:44 PM »
Quote from: Vint on November 26, 2016, 02:37:40 PM
Красиво плывёт группа в купальниках идёт подряд четыре GOTO.
убрал 3 gooto оставил только первое.  но все же сбор стал хуже чем был . как его разделить на gooto 1,2  что бы главное действие было сбор а второстепенные все остальные
« Last Edit: November 26, 2016, 05:02:30 PM by turlinet »
Logged

turlinet

  • Зашел в гости
  • *
  • Posts: 8
    • View Profile
Re: DarkOrbit
« Reply #7 on: November 27, 2016, 04:31:30 PM »
что гуру форума на этом закончились? больше не кто не может помочь переделать скрипт?
а то сделал первым клик по мини карте потом поиск то вообще перестал собирать выбранные цвета
[spoiler]
Code: (clickermann) [Select]
//--------— область поиска
$x_1 = 43
$y_1 = 81
$x_2 = 1626
$y_2 = 779
//-----------— область поиска видимо нужды в ремонте
$xy_1 = 949
$yx_1 = 468
$xy_2 = 1005
$yx_2 = 479
//---------------------------------ПЕТ---------------------------
$xyp_1 = 42
$yxp_1 = 96
$xyp_2 = 340
$yxp_2 = 378
//-------------Область мини карты
$x_mini_1 = 1738
$y_mini_1 = 973
$x_mini_2 = 1821
$y_mini_2 = 996
//----------— цвета поиска----------
$color = 7962252
$color1 = 7032629
$color2 = 8150594
$color3 = 15057059
$color4 = 11507069
$color5 = 11436124
$color6 = 16797023
$color7 = 7105644
//=============================================
loot:
 
LCLICK(RND($x_mini_1,$x_mini_2),RND($y_mini_1,$y_mini_2)) // рандомный клик по миникарте
WAITMS(2500) // время на перемещение к месту на карте
 //=============================================
GETSCREEN($x_1,$y_1, $x_2,$y_2)
IF_PIXEL_IN($x_1,$y_1, $x_2,$y_2, $color, $color1, $color2, $color3, $color4, $color5, $color6 ) //цвета ресурсов (resource colors)
LCLICK($_return1, $_return2) //клик по ним (click on them)
WAITMS(2500) //(wait until will reach)
else // если нет коробок

GETSCREEN($xy_1,$yx_1, $xy_2,$yx_2)
if_pixel_in($xy_1,$yx_1, $xy_2,$yx_2,$color7)// если нет коробок, то ищет ремонт
KEYPRESS(#7) // если нужен ремонт то жмёт клавишу 7
WAITMS(500)
//WAITMS(78000) // задержка после нажатия на срабатывание
else // если не найден $color7
// рисунки что бы активировал пета, если нет коробок и ремонт не нужен

GETSCREEN($xyp_1,$yxp_1, $xyp_2,$yxp_2)
IF_PICTURE_IN ($xyp_1,$yxp_1, $xyp_2,$yxp_2, "p2.bmp",-1,80)
LCLICK($_return1, $_return2)
WAITMS(500)
GETSCREEN($xyp_1,$yxp_1, $xyp_2,$yxp_2) // поиск ПЕТа
IF_PICTURE_IN ($xyp_1,$yxp_1, $xyp_2,$yxp_2, "p3.bmp",-1,80)
LCLICK($_return1, $_return2)
WAITMS(800)
GETSCREEN($xyp_1,$yxp_1, $xyp_2,$yxp_2)
//IF_PIXEL_IN($xyp_1,$yxp_1, $xyp_2,$yxp_2, 5076616,-1,80 )
IF_PICTURE_IN ($xyp_1,$yxp_1, $xyp_2,$yxp_2, "2221.bmp",-1,80)
LCLICK($_return1, $_return2)
WAITMS(500) // задержка после нажатия на срабатывание
END_IF
END_IF
END_IF

END_IF
END_IF
goto (loot)

[/spoiler]
« Last Edit: November 27, 2016, 04:53:36 PM by turlinet »
Logged

Золотой

  • Оплот сообщества
  • ****
  • Posts: 312
    • View Profile
Re: DarkOrbit
« Reply #8 on: November 27, 2016, 05:12:27 PM »
Quote from: turlinet on November 27, 2016, 04:31:30 PM
что гуру форума на этом закончились? больше не кто не может помочь переделать скрипт?
а то сделал первым клик по мини карте потом поиск то вообще перестал собирать выбранные цвета
[spoiler]
Code: (clickermann) [Select]
//--------— область поиска
$x_1 = 43
$y_1 = 81
$x_2 = 1626
$y_2 = 779
//-----------— область поиска видимо нужды в ремонте
$xy_1 = 949
$yx_1 = 468
$xy_2 = 1005
$yx_2 = 479
//---------------------------------ПЕТ---------------------------
$xyp_1 = 42
$yxp_1 = 96
$xyp_2 = 340
$yxp_2 = 378
//-------------Область мини карты
$x_mini_1 = 1738
$y_mini_1 = 973
$x_mini_2 = 1821
$y_mini_2 = 996
//----------— цвета поиска----------
$color = 7962252
$color1 = 7032629
$color2 = 8150594
$color3 = 15057059
$color4 = 11507069
$color5 = 11436124
$color6 = 16797023
$color7 = 7105644
//=============================================
loot:
 
LCLICK(RND($x_mini_1,$x_mini_2),RND($y_mini_1,$y_mini_2)) // рандомный клик по миникарте
WAITMS(2500) // время на перемещение к месту на карте
 //=============================================
GETSCREEN($x_1,$y_1, $x_2,$y_2)
IF_PIXEL_IN($x_1,$y_1, $x_2,$y_2, $color, $color1, $color2, $color3, $color4, $color5, $color6 ) //цвета ресурсов (resource colors)
LCLICK($_return1, $_return2) //клик по ним (click on them)
WAITMS(2500) //(wait until will reach)
else // если нет коробок

GETSCREEN($xy_1,$yx_1, $xy_2,$yx_2)
if_pixel_in($xy_1,$yx_1, $xy_2,$yx_2,$color7)// если нет коробок, то ищет ремонт
KEYPRESS(#7) // если нужен ремонт то жмёт клавишу 7
WAITMS(500)
//WAITMS(78000) // задержка после нажатия на срабатывание
else // если не найден $color7
// рисунки что бы активировал пета, если нет коробок и ремонт не нужен

GETSCREEN($xyp_1,$yxp_1, $xyp_2,$yxp_2)
IF_PICTURE_IN ($xyp_1,$yxp_1, $xyp_2,$yxp_2, "p2.bmp",-1,80)
LCLICK($_return1, $_return2)
WAITMS(500)
GETSCREEN($xyp_1,$yxp_1, $xyp_2,$yxp_2) // поиск ПЕТа
IF_PICTURE_IN ($xyp_1,$yxp_1, $xyp_2,$yxp_2, "p3.bmp",-1,80)
LCLICK($_return1, $_return2)
WAITMS(800)
GETSCREEN($xyp_1,$yxp_1, $xyp_2,$yxp_2)
//IF_PIXEL_IN($xyp_1,$yxp_1, $xyp_2,$yxp_2, 5076616,-1,80 )
IF_PICTURE_IN ($xyp_1,$yxp_1, $xyp_2,$yxp_2, "2221.bmp",-1,80)
LCLICK($_return1, $_return2)
WAITMS(500) // задержка после нажатия на срабатывание
END_IF
END_IF
END_IF

END_IF
END_IF
goto (loot)

[/spoiler]
Вчера был шабат, сегодня светлое воскресенье, с какого перепугу наши достопочтенные Гуру должны всё бросить и метнуться разгребать, то что ты намутил? Если решение требуется СРОЧНО-ПРИСРОЧНО, то это нужно указывать дополнительно, если помощь требуется от конкретных Гуру, то с поклоном стучаться им в личку, а не предъявлять претензии, когда есть возможность тихо-мирно дождаться помощи и написат  своё СПАСИБО.
Logged

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: DarkOrbit
« Reply #9 on: November 27, 2016, 05:23:47 PM »
Сколько можно выкладывать этот скрипт....

Добавил цикл поиска на 30 секунд.
Code: (clickermann) [Select]
//--------— область поиска
$x_1 = 43
$y_1 = 81
$x_2 = 1626
$y_2 = 779
//-----------— область поиска видимо нужды в ремонте
$xy_1 = 949
$yx_1 = 468
$xy_2 = 1005
$yx_2 = 479
//---------------------------------ПЕТ---------------------------
$xyp_1 = 42
$yxp_1 = 96
$xyp_2 = 340
$yxp_2 = 378
//-------------Область мини карты
$x_mini_1 = 1738
$y_mini_1 = 973
$x_mini_2 = 1821
$y_mini_2 = 996
//----------— цвета поиска----------
$color = 7962252
$color1 = 7032629
$color2 = 8150594
$color3 = 15057059
$color4 = 11507069
$color5 = 11436124
$color6 = 16797023
$color7 = 7105644
//=============================================
loot:

LCLICK(RND($x_mini_1,$x_mini_2),RND($y_mini_1,$y_mini_2)) // рандомный клик по миникарте
$time = $_time_t + 30 // таймер на 30 сек
$check = 0
$check_out = 0
WHILE(($check_out = 0) & ($time > $_time_t)) // цикл поиска, летим 30 сек и одновременно ищем
   GETSCREEN($x_1,$y_1, $x_2,$y_2)
   IF_PIXEL_IN($x_1,$y_1, $x_2,$y_2, $color, $color1, $color2, $color3, $color4, $color5, $color6 ) //цвета ресурсов (resource colors)
      $time = $_time_t + 2
      $check = 1
      LCLICK($_return1, $_return2)
      WAITMS(500)
   ELSE
      IF($check = 1)
         $check_out = 1
      END_IF
      WAITMS(25)
   END_IF
END_CYC
WAITMS(500)

GETSCREEN($xy_1,$yx_1, $xy_2,$yx_2)
if_pixel_in($xy_1,$yx_1, $xy_2,$yx_2,$color7)// если нет коробок, то ищет ремонт
   KEYPRESS(#7) // если нужен ремонт то жмёт клавишу 7
   WAITMS(500)
   //WAITMS(78000) // задержка после нажатия на срабатывание
else // если не найден $color7
   // рисунки что бы активировал пета, если нет коробок и ремонт не нужен
   
   GETSCREEN($xyp_1,$yxp_1, $xyp_2,$yxp_2)
   IF_PICTURE_IN ($xyp_1,$yxp_1, $xyp_2,$yxp_2, "p2.bmp",-1,80)
      LCLICK($_return1, $_return2)
      WAITMS(500)
      GETSCREEN($xyp_1,$yxp_1, $xyp_2,$yxp_2) // поиск ПЕТа
      IF_PICTURE_IN ($xyp_1,$yxp_1, $xyp_2,$yxp_2, "p3.bmp",-1,80)
         LCLICK($_return1, $_return2)
         WAITMS(800)
         GETSCREEN($xyp_1,$yxp_1, $xyp_2,$yxp_2)
         //IF_PIXEL_IN($xyp_1,$yxp_1, $xyp_2,$yxp_2, 5076616,-1,80 )
         IF_PICTURE_IN ($xyp_1,$yxp_1, $xyp_2,$yxp_2, "2221.bmp",-1,80)
            LCLICK($_return1, $_return2)
            WAITMS(500) // задержка после нажатия на срабатывание
         END_IF
      END_IF
   END_IF
   
END_IF
goto (loot)
Logged

turlinet

  • Зашел в гости
  • *
  • Posts: 8
    • View Profile
Re: DarkOrbit
« Reply #10 on: November 27, 2016, 05:49:13 PM »
Quote from: Oraven on November 27, 2016, 05:23:47 PM
Сколько можно выкладывать этот скрипт....

Добавил цикл поиска на 30 секунд.
Code: (clickermann) [Select]
//--------— область поиска
$x_1 = 43
$y_1 = 81
$x_2 = 1626
$y_2 = 779
//-----------— область поиска видимо нужды в ремонте
$xy_1 = 949
$yx_1 = 468
$xy_2 = 1005
$yx_2 = 479
//---------------------------------ПЕТ---------------------------
$xyp_1 = 42
$yxp_1 = 96
$xyp_2 = 340
$yxp_2 = 378
//-------------Область мини карты
$x_mini_1 = 1738
$y_mini_1 = 973
$x_mini_2 = 1821
$y_mini_2 = 996
//----------— цвета поиска----------
$color = 7962252
$color1 = 7032629
$color2 = 8150594
$color3 = 15057059
$color4 = 11507069
$color5 = 11436124
$color6 = 16797023
$color7 = 7105644
//=============================================
loot:

LCLICK(RND($x_mini_1,$x_mini_2),RND($y_mini_1,$y_mini_2)) // рандомный клик по миникарте
$time = $_time_t + 30 // таймер на 30 сек
$check = 0
$check_out = 0
WHILE(($check_out = 0) & ($time > $_time_t)) // цикл поиска, летим 30 сек и одновременно ищем
   GETSCREEN($x_1,$y_1, $x_2,$y_2)
   IF_PIXEL_IN($x_1,$y_1, $x_2,$y_2, $color, $color1, $color2, $color3, $color4, $color5, $color6 ) //цвета ресурсов (resource colors)
      $time = $_time_t + 2
      $check = 1
      LCLICK($_return1, $_return2)
      WAITMS(500)
   ELSE
      IF($check = 1)
         $check_out = 1
      END_IF
      WAITMS(25)
   END_IF
END_CYC
WAITMS(500)

GETSCREEN($xy_1,$yx_1, $xy_2,$yx_2)
if_pixel_in($xy_1,$yx_1, $xy_2,$yx_2,$color7)// если нет коробок, то ищет ремонт
   KEYPRESS(#7) // если нужен ремонт то жмёт клавишу 7
   WAITMS(500)
   //WAITMS(78000) // задержка после нажатия на срабатывание
else // если не найден $color7
   // рисунки что бы активировал пета, если нет коробок и ремонт не нужен
   
   GETSCREEN($xyp_1,$yxp_1, $xyp_2,$yxp_2)
   IF_PICTURE_IN ($xyp_1,$yxp_1, $xyp_2,$yxp_2, "p2.bmp",-1,80)
      LCLICK($_return1, $_return2)
      WAITMS(500)
      GETSCREEN($xyp_1,$yxp_1, $xyp_2,$yxp_2) // поиск ПЕТа
      IF_PICTURE_IN ($xyp_1,$yxp_1, $xyp_2,$yxp_2, "p3.bmp",-1,80)
         LCLICK($_return1, $_return2)
         WAITMS(800)
         GETSCREEN($xyp_1,$yxp_1, $xyp_2,$yxp_2)
         //IF_PIXEL_IN($xyp_1,$yxp_1, $xyp_2,$yxp_2, 5076616,-1,80 )
         IF_PICTURE_IN ($xyp_1,$yxp_1, $xyp_2,$yxp_2, "2221.bmp",-1,80)
            LCLICK($_return1, $_return2)
            WAITMS(500) // задержка после нажатия на срабатывание
         END_IF
      END_IF
   END_IF
   
END_IF
goto (loot)
Вам оГромное спасибо.
А у вас 
Quote
Вчера был шабат, сегодня светлое воскресенье, с какого перепугу наши достопочтенные Гуру должны всё бросить и метнуться разгребать, то что ты намутил? Если решение требуется СРОЧНО-ПРИСРОЧНО, то это нужно указывать дополнительно, если помощь треб
уется от конкретных Гуру, то с поклоном стучаться им в личку, а не предъявлять претензии, когда есть возможность тихо-мирно дождаться помощи и написат  своё СПАСИБО.[/quote] прошу  прошу прощение если чем то зацепил. Я просто думал что тут по активней форум.
Logged
Pages: [1]
« previous next »