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 - kiril

Pages: 1 [2] 3 4 ... 8
16
Общие вопросы / Re: вкл. капслок или нет?
« on: March 24, 2023, 10:54:00 AM »
Quote from: Oblie1968 on March 23, 2023, 06:39:31 PM
И что, вопрос так и не решён?
ВНИМАТЕЛЬНО ПРОЧТИТЕ ТЕМУ, РЕШЕНИЕ Н А П И С А Н О !

17
Ошибки / Re: когда его забанят навсегда?
« on: March 23, 2023, 04:06:45 PM »
На всех форумах принято пожизнно банить аккаунты и не допускать повторной регистрации их владельцами, кто умышленно принижает местных и восхваляет чужих, а такими темпами здесь скоро за упоминание этого нехорошего "Clickermann" банить начнут.
Прошу, примите  адекватные меры.   >:(

18
Общие вопросы / Re: Как склеить два числа в одно
« on: March 14, 2023, 12:47:29 PM »

 Если, Вы до сих пор этого не заметили, то подскажу - запятая используется в данной программе, как служебный символ.
 целая часть числа от дробной отделяется точкой.
Code: (clickermann) [Select]
$a=1
$b=2
$c=INT(STRCONCAT($a,$b))
LOGWRITE ("")
IF($c=12)
LOGWRITE ("получилось число 12")
END_IF
HALT

19
Общие вопросы / Re: Создание с названием и датой
« on: March 08, 2023, 06:56:07 PM »
Code: (clickermann) [Select]
#name "Создать Отчёт с датой"
#autorun
#logfile "Log.txt"
TFWRITE(STRCONCAT("Отчёт от ",$_date_str,".txt"),"")
HALT(1)

20
Общие вопросы / Re: Рандомное проигрывание по жизни...
« on: February 14, 2023, 11:38:45 AM »
Code: (clickermann) [Select]
#name "Случайные элементы без повторений"
// Author: Vint
// Version: 2.1 (14.02.2023)
// Скрипт для Clickermann v4.13.014

WAITMS(500)
THREAD(sec, 0)
   WAIT(3)
   BEEP(700,100)
   WAIT(1000)
END_THREAD
WAITMS(20)
STRSEPARATE("1,2,3", ",", $data) // список значений для выбора
WHILE(ARRSIZE($data) > 0)
   $ind = RND(0, ARRSIZE($data)-1)
   $result = $data[$ind]
   $data[$ind] = $data[ARRSIZE($data) - 1]
   $temp = ARRPOP($data)
END_CYC
WAITMS(500)
skip:
WAITMS(20)
$ress = ARRPOP($result)
LOGWRITE ($ress)

IF($ress = 1)
   FOR($a=0,$a<15)
      WAITMS(200)
      SOUND("Сметана.wav")
      SETTHREAD (sec, 1)
      $check = 0
      WHILE($check = 0)
         IF(ISKEYDOWN(#CTRL)=1)
            WHILE(ISKEYDOWN(#CTRL)=1)
            END_CYC
            $check = 1
            $a=20
         ELSE
            IF(ISKEYDOWN(#ALT)=1)
               WHILE(ISKEYDOWN(#ALT)=1)
               END_CYC
               $check = 2
               $a=20
            ELSE
               WAITMS(20)
            END_IF
         END_IF
      END_CYC
   END_CYC
       IF($check = 1) // Продолжение скрипта (вариант 1)
         WAITMS(20)
         TFWRITE("input.txt", "Сметана")
         WAITMS(20)
         SETTHREAD (sec, 2)
      END_IF
      IF($check = 2) // Продолжение скрипта (вариант 2)
         WAITMS(20)
         SETTHREAD (sec, 2)
         WAITMS(20)
         GOTO(skip)
      END_IF
END_IF
IF($ress = 2)
   FOR($a=0,$a<15)
      WAITMS(200)
      SOUND("Хлеб.wav")
      SETTHREAD (sec, 1)
      $check = 0
      WHILE($check = 0)
         IF(ISKEYDOWN(#CTRL)=1)
            WHILE(ISKEYDOWN(#CTRL)=1)
            END_CYC
            $check = 1
            $a=20
         ELSE
            IF(ISKEYDOWN(#ALT)=1)
               WHILE(ISKEYDOWN(#ALT)=1)
               END_CYC
               $check = 2
               $a=20
            ELSE
               WAITMS(20)
            END_IF
         END_IF
      END_CYC
   END_CYC
   IF($check = 1) // Продолжение скрипта (вариант 1)
      WAITMS(20)
      TFWRITE("input.txt", "Хлеб")
      WAITMS(20)
      SETTHREAD (sec, 2)
   END_IF
   IF($check = 2) // Продолжение скрипта (вариант 2)
      WAITMS(20)
      SETTHREAD (sec, 2)
      WAITMS(20)
      GOTO(skip)
   END_IF
END_IF
IF($ress = 3)
   $varr = RND(1,5)
   FOR($a=0,$a<15)
      WAITMS(200)
      IF($varr = 1)
         SOUND("Молоко2.wav")
      END_IF
      IF($varr = 2)
         SOUND("Молоко.wav")
      END_IF
      SETTHREAD (sec, 1)
      $check = 0
      WHILE($check = 0)
         IF(ISKEYDOWN(#CTRL)=1)
            WHILE(ISKEYDOWN(#CTRL)=1)
            END_CYC
            $check = 1
            $a=20
         ELSE
            IF(ISKEYDOWN(#ALT)=1)
               WHILE(ISKEYDOWN(#ALT)=1)
               END_CYC
               $check = 2
               $a=20
            ELSE
               WAITMS(20)
            END_IF
         END_IF
      END_CYC
   END_CYC
     IF($check = 1) // Продолжение скрипта (вариант 1)
         WAITMS(20)
         TFWRITE("input.txt", "Молоко")
         WAITMS(20)
         SETTHREAD (sec, 2)
      END_IF
      IF($check = 2) // Продолжение скрипта (вариант 2)
         WAITMS(20)
         SETTHREAD (sec, 2)
         WAITMS(20)
         GOTO(skip)
      END_IF
END_IF


IF($ress = "")
   $fin_oth = TFCOUNT("input.txt")
   $th = $_time_h
   $tm = $_time_m
   $ts = $_time_s
   $dd = $_date_d
   $dm = $_date_m
   $dy = $_date_y
   
   IF(STRLEN($th)<2)
      $th = STRCONCAT ("0", $th)
   END_IF
   IF(STRLEN($tm)<2)
      $tm = STRCONCAT ("0", $tm)
   END_IF
   IF(STRLEN($ts)<2)
      $ts = STRCONCAT ("0", $ts)
   END_IF
   IF(STRLEN($dd)<2)
      $dd = STRCONCAT ("0", $dd)
   END_IF
   IF(STRLEN($dm)<2)
      $dm = STRCONCAT ("0", $dm)
   END_IF
   IF(STRLEN($dy)<2)
      $dy = STRCONCAT ("0", $dy)
   END_IF
   
   #DEFINE @CRLF: CHAR(13), CHAR(10)
   #DEFINE @TAB: CHAR(9)
   $fin = STRCONCAT($dd,".",$dm,".",$dy, @TAB, $th,":",$tm, @TAB, $fin_oth)
   WAITMS(20)
   TFWRITE("Результаты.txt", $fin)
   WAITMS(200)
   SOUND("Концовка.wav")
   WAIT
ELSE
   WAITMS(20)
   GOTO(skip)
END_IF

21
Общие вопросы / Re: Нельзя выходить из циклов и подпрограмм переходом к внешней строке с меткой
« on: February 14, 2023, 08:57:04 AM »
Вы из цикла выходите без завершения его работы, переходя к метке.
Именно, как описываете и должна проявляться такая ошибка.

22
Общие вопросы / Re: Работа Clickermann на удаленной машине
« on: February 13, 2023, 07:49:51 PM »
на сервере, только с действующим сеансом связи и больше ни как.
Даже на обычном компе в свёрнутых окнах графика не обновляется, а вот с погашенными мониторами всё работает прекрасно.

23
Общие вопросы / Re:используйте виртуальную операционную систему.
« on: February 10, 2023, 12:49:30 PM »
используйте виртуальную операционную систему.

24
Общие вопросы / Re: ловись рыбка, большая и маленькая
« on: January 22, 2023, 09:16:43 PM »
Quote from: bionicfox on January 22, 2023, 01:08:34 AM
Quote from: kiril on January 21, 2023, 11:42:58 PM
Quote from: bionicfox on January 21, 2023, 10:42:24 PM
не передвигается к пикселю, значит вторая часть (поклёвка) не отрабатывает
а что пишет в лог?
1:07:02 Старт
1:07:03 Старт
1:07:04 Старт
1:07:05 Старт
1:07:06 Старт
1:07:07 Старт
1:07:08 Старт
1:07:09 Старт
скрипт у Вас даже заброшенный поплавок не видит, вероятно неправильно указали его цвета.

25
Общие вопросы / Re: ловись рыбка, большая и маленькая
« on: January 21, 2023, 11:42:58 PM »
Quote from: bionicfox on January 21, 2023, 10:42:24 PM
не передвигается к пикселю, значит вторая часть (поклёвка) не отрабатывает
а что пишет в лог?

26
Общие вопросы / Re: ловись рыбка, большая и маленькая
« on: January 21, 2023, 10:37:09 PM »
  $time = $_time_t + 15  // таймер ожидания поклёвки на 15 секунд
время до перезаброса можно регулировать.

IF_PIXEL_IN($wx1,$wy1,$wx2,$wy2, 16777215)  // через запятую можно указать дополнительные цвета для брызг
 если вообще не клюет то нужно добавлять возможные цвета брызг
в скрипте вообще куча регулировок  ;)

27
Общие вопросы / Re: печалька
« on: January 21, 2023, 05:46:00 PM »
у вас в корне неверный подход к написанию скрипта.
Специально включил посмотреть в чём там такие непредвиденные сложности и сразу увидел, что с каждым уровнем персонаж увеличивается в размерах, соответственно на каждый уровень нужны индивидуальные  автоматические настройки по высоте палок; на настройках с начальных уровней будет задевать большого перса, а на настройках с продвинутых будет зависать на начальных.

28
Общие вопросы / Re: рыбалка
« on: January 21, 2023, 01:01:56 PM »
 - Мама, а чем отличается зимний рыбак от летнего?
 - Да практически ничем доченька, та же пьянь, только в валенках!
Code: (clickermann) [Select]
LOGWRITE ("Старт")
1:
KEYPRESS(#E)           //  начало ловли
waitms(800)            //регулируемая задержка  в мс. после заброса поплавка
GETSCREEN
IF_PIXEL_IN(0,0, $_xmax,$_ymax, 255) // вместо 255 укажите через запятую основные цвета поплавка
   // запомнить где поплавок
   $wx = $_return1
   $wy = $_return2
   
   // регулировка области ожидания брызг от найденного пикселя поплавка
   $wx1 = $_return1-40  // в лево  по горизонтали
   $wy1 = $_return2-30  // в верх  по вертикали
   $wx2 = $_return1+40  // в право по горизонтали
   $wy2 = $_return2+30  // в низ   по вертикали
   // ...
   $time = $_time_t + 15  // таймер ожидания поклёвки на 15 секунд
   WHILE($time > $_time_t)//  переход к сканированию пикселя
      GETSCREEN($wx1,$wy1,$wx2,$wy2)
      IF_PIXEL_IN($wx1,$wy1,$wx2,$wy2, 16777215)  // через запятую можно указать дополнительные цвета для брызг
         // RCLICK($wx,$wy)   // правый клик на поплавок
         RCLICK($_return1, $_return2)  // заказанный пкм по белому пикселю брызг в области  а в оригинале был левый клик на поплавок
         $time = 0
         waitms(800)
      ELSE
         waitms(50)
      END_IF
   END_CYC
   IF($time ! 0)
       INC($var46,1)
      LOGWRITE ("Перезаброс ",$var46," раз")
   ELSE
      INC($var45,1)
      LOGWRITE ("Поймал рыбу ",$var45," раз")
      WAIT(RND(2,3))         //  ждет 2-3 сек
   END_IF
   GOTO(1)//возврат в начало
END_IF

29
Общие вопросы / Re: помогите грамотно построить код
« on: January 21, 2023, 01:37:26 AM »
Quote from: Ellen on January 20, 2023, 08:39:49 PM
1. В команде поиска пикселя можно указать не один пиксель? Вот тут IF_PIXEL_IN(930, 740, 950, 885, 1446469, 1446725)
2. Около каждой ветки есть треугольная тень, которая прикасается к дереву, поиск ставлю теперь на эту точку, вроде нормально, но иногда путается почему то… видимо реально нужно поиграться с задержками, потому что замечал, что если он увидел ветку слева прыгает направо и сразу возвращается обратно, хотя там ветка
3. Почему вы используете 2 команды на нажатии клавиши вместо одной? Есть какой то секрет?
1. пиксель это точка на мониторе, имеющая определённые координаты.
    в показанной вами строке через запятую можно перечислять номера цветов поиска. проверка осуществляется в
    порядке записи цветов и прерывается при первом совпадении.
2. есть смысл попробовать уменьшить область проверки по горизонтали всего до нескольких пикселей и подрезать её снизу, там где с учётом времени на обработку скрипт всё равно не успеет вовремя среагировать.
два  близких проверяемых цвета существенно замедляют проверку, быстрее будет использовать в работе скрипта цветокоррекцию.
3. в  одну команду клика встроена  внутренняя задержка между зажатием и отжатием клавиши 30 мс.
     раздельные команды позволяют эту задержку настраивать под требования игры или скорость интернета.

30
Общие вопросы / Re: karatekid2
« on: January 20, 2023, 05:34:39 PM »
уже писали что-то для вашей игры
https://vk.com/topic-14410794_23383620?offset=40420

Pages: 1 [2] 3 4 ... 8