Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Крис Тинка

Pages: [1] 2 3 ... 12
1
Общие вопросы / Re: Строки vs Числа
« on: May 10, 2014, 01:59:33 PM »
И тут же найден баг в программе))) Функция ROUND  работает не корректно при округлении до 7 знаков и выше после точки.
Code: (clickermann) [Select]
$b = ROUND (INPUTBOX("Введите число",10,10), -7)
PRINT("b = ", $b)
HALT
Вводим число от -214 до 214 - всё хорошо. Вводим 215 - не правильное вычисление
При округлении до 8 знаков после точки диапазон другой...

2
Общие вопросы / Re: Помогаем Люциферу
« on: April 27, 2014, 04:08:30 PM »
Андрей,  конечно же я не тебе об этом говорю))), а Люциферу, чтобы залез в справку и посмотрел PXL

3
Общие вопросы / Re: Помогаем Люциферу
« on: April 27, 2014, 02:56:37 PM »
Code: (clickermann) [Select]
IF_PIXEL_IN(514,396,514,396, 47026) //АгрессивнаяОбласть поиска 1 пиксель? Может тогда лучше использовать:
Code: (clickermann) [Select]
IF(PXL(514,396) = 47026)// Если цвет пикселя в координатах (514,396) равен 47026

4
Общие вопросы / Re: Помогаем Люциферу
« on: April 27, 2014, 02:30:35 PM »
Code: (clickermann) [Select]
define($agr1,470)
define($agr2,424)
define($agr3,381)
define($agr4,466)
define($spok1,555)
define($spok2,431)
define($spok3,553)
define($spok4,460)
define($hitr1,467)
define($hitr2,466)
define($hitr3,512)
define($hitr4,462)
define($start1,390)
define($start2,501)
define($start3,383)
define($start4,492)
define($okno1,370)
define($okno2,396)
define($okno3,370)
define($okno4,406)
define($1,434)
define($2,236)
define($3,435)
define($4,246)
getscreen
IF_PIXEL_IN(514,396,512,393, 47026)//Агрессивная
   lclick(RND($hitr1,$hitr3),rnd($hitr2,$hitr4))
   // Не помешает задержка и возможно GETSCREEN
   IF_PICTURE_IN($okno1,$okno2,$okno3,$okno4, "zero.bmp")
      wait(RND(1000,1500))
      getscreen
      IF_PIXEL_IN(436,242,433,244 1343307)
         lclick(RND($start1,$start3),rnd($start2,$start4))
      ELSE
         wait(RND(1200,1500))
      END_IF
   END_IF
END_IF
getscreen

IF_PIXEL_IN(514,396,512,393, 9830400)//Спокойная
   lclick(RND($agr1,$agr3),RND($agr2,$agr4))
   // Не помешает задержка и возможно GETSCREEN
   IF_PICTURE_IN($okno1,$okno2,$okno3,$okno4, "zero.bmp")
      wait(RND(1000,1500))
      getscreen
      IF_PIXEL_IN(436,242,437,244, 1343307)
         lclick(RND($start1,$start3,rnd($start2,$start4))
      ELSE
         wait(RND(1200,1500))
      END_IF
   END_IF
END_IF

getscreen
IF_PIXEL_IN(506,393,512,393, 327243)
   lclick(RND($spok1,$spok3),RND($spok2,$spok4))
   // Не помешает задержка и возможно GETSCREEN
   IF_PICTURE_IN($okno1,$okno2,$okno3,$okno4, "zero.bmp")
      wait(RND(1000,1500))
      getscreen
      IF_PIXEL_IN(436,242,433,244, 1343307)
         lclick(RND($start1,$start3,rnd($start2,$start4))
      ELSE
         wait(1500)
         getscreen
         IF_PICTURE_IN($okno1,$okno2,$okno3,$okno4, "zero.bmp")
            wait(RND(1000,1500))
         END_IF
      END_IF
   END_IF
END_IF

5
Общие вопросы / Re: Помогаем Люциферу
« on: April 27, 2014, 02:18:04 PM »
Code: (clickermann) [Select]
define($agr1,470)

6
Предложения / Re: [Alpha/Beta Testing]
« on: April 14, 2014, 02:22:53 PM »
а больше/меньше - длина?
Больше/меньше - алфавитный порядок
Это самое очевидное. Но практического применения в таком виде практически не видел. Мёртвый груз. Разве что для цифр.
Только для упорядочивания в алфавитном порядке и используется наверное)))

7
Предложения / Re: [Alpha/Beta Testing]
« on: April 12, 2014, 06:17:21 PM »
а больше/меньше - длина?
Больше/меньше - алфавитный порядок

8
Чтобы избежать такой проблемы, перед копированием установи в кликере русскую раскладку.

9
Если нет автоматов, то 2 раза ENTER. Больше ничего делать не надо.

10
Есть такая задача по данным.
Приложить к экрану коробок , отметить  длину одной из его сторон   ( удобно средняя кнопка мышки ) и посчитать её  в сантиметрах с выводом окошка в трей.
Code: (clickermann) [Select]
$mm = 375 // Ширина монитора (мм)
$kmm = $mm / ($_xmax + 1)

WHILE(iskeydown(4) = 0)
   WAITMS(35)
   IF(iskeydown (4) = 1)
      $x1 = $_xmouse
      $y1 = $_ymouse
   END_IF
END_CYC

WHILE(iskeydown(4) = 1)
   WAITMS(35)
   IF(iskeydown (4) = 0)
      $x2 = $_xmouse
      $y2 = $_ymouse
   END_IF
END_CYC

$dist = DIST ($x1, $y1, $x2, $y2)
$lmm = $dist * $kmm

HINTPOPUP ($lmm, "Длина (мм)")

11
если в основе поставить #include , а в нем еще #include
:o
Это как?
Загрузка скрипта через инклуд, в котором присутствует инклуд

12
Прочее / Re: Прокрастинация
« on: March 28, 2014, 04:41:09 PM »
вот хороший материальчик http://gabrielecirulli.github.io/2048/
И зачем ты убил мне 2 часа времени?)))

13
Для чего сотня инклудов? Нельзя в одном скрипте написать сотню сабов и вызывать их в любой момент, используя 1 инклуд в начале?

14
Учебные статьи / Re: Массивы
« on: March 26, 2014, 01:46:11 PM »
В кликерманне линейные массивы. Можно сделать псевдо-многомерные массивы. Например псевдо-двумерный массив(таблица 100х100) ячейка 45х53
Code: (clickermann) [Select]
$a = 45
$b = 53
$var[100*$a + $b] = 254
print ($var[4553])
halt

15
Общие вопросы / Re: Скрипт
« on: March 26, 2014, 01:36:44 PM »
Как это нет в справке??? Почитай: Анализ экрана\IF_PICTURE_IN

Pages: [1] 2 3 ... 12