Автор Тема: Акции для Clickermann  (Прочитано 793 раз)

0 Пользователей и 1 Гость просматривают эту тему.

kiril

  • Герой форума
  • *****
  • Сообщений: 745
    • Просмотр профиля
Акции для Clickermann
« : Декабрь 15, 2018, 11:04:56 am »
Предлагаю в эту тему кидать ссылки на действующие  в интернете Акции, с розыгрышами любых призов,
 те где может проявить себя Clickermann.

kiril

  • Герой форума
  • *****
  • Сообщений: 745
    • Просмотр профиля
Re: Акции для Clickermann
« Ответ #1 : Декабрь 15, 2018, 11:20:56 am »
 первая игра вот здесь https://igra.eldorado.ru/ только не жмите ссылку, а скопируйте в строку браузера.
 срок проведения Акции с 13 декабря 2018 по 8 января 2019 года
 при этом Сбор Заявок на участие до 31 декабря 2018 года включительно

собирать нужно падающие подарки по типу Волк ловит яЙца, но много больше 150 подарков собирать не нужно, так как они разыгрываются  просто среди участников, а не не по кто больше наберёт. явно ботоводческие результаты админы таких акций просто не учитывают, без объяснения причин.
Код: Clickermann
  1. #name "Эльдорадо-Поймай удачу!"
  2.  
  3. KEYUP(#UP)
  4. WAITMS(30)
  5. KEYDOWN(#DOWN)    //низ-лево
  6. WAITMS(30)
  7. KEYUP(#LEFT)
  8. WAITMS(30)
  9. KEYDOWN(#RIGHT)   //низ-право
  10. WAITMS(30)
  11. KEYUP(#DOWN)
  12. WAITMS(30)
  13. KEYDOWN(#UP)      // верх-право
  14. WAITMS(30)
  15. KEYUP(#RIGHT)
  16. WAITMS(30)
  17. KEYDOWN(#LEFT)    //верх-лево
  18. WAITMS(30)
  19.  

Как обычно в таких акциях не забываем про репосты и правильную регистрацию, чтоб иметь возможность получить приз.
С одного компа, на один телефон и одного IP - только одна регистрация иначе все аккаунты участника сгорают, при обычной проверке победителей.
Правила и условия
« Последнее редактирование: Декабрь 15, 2018, 11:38:11 am от kiril »

Qwerry

  • Активный участник
  • ***
  • Сообщений: 119
    • Просмотр профиля
Re: Акции для Clickermann
« Ответ #2 : Декабрь 26, 2018, 09:59:36 am »
Отличная идея. Вот еще акция  #даймнеYota, действует до конца декабря. Игра в духе "кликни на все правильные картинки". В подарок роутер с безлимитным интернетом троим лучшим игрокам.

http://yota.thequestion.ru/

Код чуть в свободное время попробую написать, позднее.

kiril

  • Герой форума
  • *****
  • Сообщений: 745
    • Просмотр профиля
Re: Акции для Clickermann
« Ответ #3 : Декабрь 27, 2018, 11:42:00 pm »
вот ещё  от «М.Видео»https://2019.mvideo.ru/
только без WebGL не работает, поэтому конкретный скрипт по ловле падающих игрушек отладить не могу,
 а простой влево-вправо там не прокатывает.

kiril

  • Герой форума
  • *****
  • Сообщений: 745
    • Просмотр профиля
Re: Акции для Clickermann
« Ответ #4 : Декабрь 28, 2018, 12:30:46 pm »
Отличная идея. Вот еще акция  #даймнеYota, действует до конца декабря. Игра в духе "кликни на все правильные картинки". В подарок роутер с безлимитным интернетом троим лучшим игрокам.
http://yota.thequestion.ru/
Код чуть в свободное время попробую написать, позднее.
Решил помочь с кодом для акции, раз у автора предложения Новогодние хлопоты.
Код: Clickermann
  1. // нажимать старт скрипта нужно  перед второй кнопкой "ПОНЯТНО", он её находит и жмёт сам
  2. //от этой кнопки скрипт отсчитывает координаты игрового окна
  3. //С Наступающим Новым Годом!
  4. #name "даймнеYota"
  5.  
  6. SUB(создать_7,$pic1) //проверяет в своей папке и по необходимости создаёт картинку с коррекцией 7,
  7.   $var19=$_ms
  8.   IF($var472 = 0) // сработает только при первом вызове
  9.      STRSEPARATE("1:8388479:8355711:16777215:8355839:8388607:16744319:16777087:16744447",":",$arr12) //получение  масива цветов COLORMODE(7)
  10.      $str_char="1234567890АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ"
  11.      $var472=1
  12.   END_IF
  13.   GETFILELIST($arr29,"*")
  14.   STRSEPARATE($pic1,":",$arr) //получение  1 масива из строки картинки 1
  15.   $str_file=STRCONCAT($arr[0],".bmp")// название проверяемой картинки,
  16.  
  17.   FOR($a32=0,$a32<ARRSIZE($arr29)) //проверка наличия картинки
  18.      IF(STRPOS($str_file,$arr29[$a32])=1) // позиция найденного файла
  19.         LOGWRITE ("найдена картинка ",$arr29[$a32])
  20.         $a32=999
  21.      END_IF
  22.   END_CYC
  23.   IF($a32!1000)
  24.      FOR($a33=1,$a33<STRLEN($arr[3])+1,2) // получение массива с номерами цветов
  25.         $var12=STRCUT2($arr[3],$a33,$a33)
  26.         $var23=STRPOS($str_char,STRCUT2($arr[3],$a33+1,$a33+1))// число повторений цвета
  27.         FOR($a12=0,$a12<$var23)    // число повторений цвета
  28.            ARRPUSH($arr2,$arr12[$var12]) // запоминание  реального номера цвета
  29.         END_CYC
  30.      END_CYC
  31.  
  32.      FOR($a1=0,$a1<$arr[2])    // шаги по вертикали
  33.         FOR($a2=0,$a2<$arr[1]) // рисование горизонтальной линии
  34.            INC($var17,1)
  35.            //         LOGWRITE ("в строке ",$arr2[$var18])
  36.            PXLREPLACE($a2,$a1,$a2,$a1,-1,$arr2[$var18])  //
  37.            INC($var18,1)
  38.         END_CYC
  39.      END_CYC
  40.      SCREENSHOTFIX(0,0,$arr[1]-1,$arr[2]-1,STRCONCAT($arr[0],".bmp"),0)//сохранение картинки
  41.      LOGWRITE (" создана картинка ",$arr[0]," за ",$_ms-$var19," мс."," из ",$var17," пикселей")
  42.      UNDEFINE($arr2)
  43.      UNDEFINE($var17)
  44.      UNDEFINE($var18)
  45.   END_IF
  46.   UNDEFINE($arr)
  47.   UNDEFINE($arr29)
  48. END_SUB
  49.  
  50. создать_7("2:12:5:39412233233341216133233341213423334161342333417132")
  51. создать_7("1:3:4:253122322132")
  52.  
  53. // вот сам скрипт
  54. GETSCREEN
  55. COLORMODE(7)
  56. IF_PICTURE_IN (0,0, $_xmax,$_ymax, "2.bmp", -1, 100)
  57.   $_r11=$_return1-250
  58.   $_r21=$_return2+320
  59.   $_r12=$_return1-350
  60.   $_r22=$_return1+100
  61.   LOGWRITE ("Старт")
  62.   LCLICK($_return1+10, $_return2)
  63. END_IF
  64. WHILE($t=0)
  65.   GETSCREEN($_r11,$_r12,$_r21,$_r22)
  66.   COLORMODE(7,$_r11,$_r12,$_r21,$_r22)
  67.   IF_PICTURE_IN($_r11,$_r12,$_r21,$_r22, "1.bmp", -1, 100)
  68.      IF(PXL($_return1,$_return2-57)=8355711)
  69.         GETSCREEN($_return1-50,$_return2-50,$_return1+50,$_return2+50)
  70.         COLORMODE(7,$_return1-50,$_return2-50,$_return1+50,$_return2+50)
  71.         IF_PICTURE_IN($_return1-50,$_return2-50,$_return1+50,$_return2+50, "1.bmp", -1, 100)
  72.            LCLICK($_return1,$_return2-50)
  73.            INC($var22,1)
  74.            LOGWRITE ("нашёл ",$var22)
  75.         END_IF
  76.      END_IF
  77.   END_IF
  78. END_CYC
  79.  

dramster

  • Герой форума
  • *****
  • Сообщений: 946
    • Просмотр профиля
Re: Акции для Clickermann
« Ответ #5 : Декабрь 31, 2018, 11:20:33 am »
вот ещё  от «М.Видео»https://2019.mvideo.ru/
только без WebGL не работает, поэтому конкретный скрипт по ловле падающих игрушек отладить не могу,
 а простой влево-вправо там не прокатывает.
Вчера глянул. Увлекательная игрушка  ;D . Только вот это развод, кроме рекламы мвидии и игрули там ничего тебе не дадут.
Код набросал почти моментально, и даже с первого раза набрал около 500 очков. На отладку ушло немного больше времени.
Вроде отладил, работает идеально, но все равно в некоторые моменты выстреливает неуловимые 2-3 игрушки которые никак не словить.
Примерно за два часа попыток вышел неплохой результат, но увы, не лучший в общем рейтинге  :(


Врядли ктото будет еще играться, но код всетаки выложу, пусть будет  ;)
Код: Clickermann
  1. //игровое поле с моими параметрами примерно 910х1255
  2.  
  3. $x1 = 400    //координаты небольшой полоски в самом низу елки, между котом и игрушками, там где пролетают игрушки
  4. $y1 = 1565  
  5. $x2 = 900
  6. $y2 = 1665  
  7.  
  8. $col_cat = 2236986  //уникальный пиксель на котике гденить в центре, я выбрал на воротнике на черной полоске(вперемешку с красным она)
  9. $y_cat = 1813 //координата У этого уникального пикселя
  10.  
  11. $dist = 100  //половина ширины ящика кота, чтобы он не бегал по всей поляне, а только возле ствола елки
  12.  
  13. /////////////
  14.  
  15. waitms(2)
  16.  
  17. GETSCREEN ($x1,$y1,$x2,$y2)
  18. IF_PIXEL_IN($x1,$y1,$x2,$y2, 3982490,5214174,4605902,11363394, 1973399, 11783127) //уникальные цвета игрушек. какойто из них подходит сразу к нескольким игрушкам.
  19.  
  20.   $x_ball = $_return1
  21.  
  22.   // print("ball")
  23.  
  24.   GETSCREEN($x1,$y_cat,$x2,$y_cat)
  25.   IF_PIXEL_IN($x1,$y_cat,$x2,$y_cat, $col_cat)
  26.      $x_pers = $_return1
  27.  
  28.      WHILE($x_ball > 0)
  29.  
  30.         IF($x_ball - $dist > $x_pers)
  31.  
  32.            keydown(#right)
  33.            WHILE($x_ball - $dist  > $x_pers)
  34.               GETSCREEN($x1,$y_cat,$x2,$y_cat)
  35.               IF_PIXEL_IN($x1,$y_cat,$x2,$y_cat, $col_cat)
  36.                  $x_pers = $_return1
  37.               END_IF
  38.               waitms(2)
  39.            END_CYC
  40.            keyup(#right)
  41.  
  42.         ELSE
  43.  
  44.            IF($x_ball + $dist + 13 < $x_pers)      //+13 изза того, то уникальный цвет на коте немного левее у меня вышел.
  45.               keydown(#left)
  46.               WHILE($x_ball + $dist + 13 < $x_pers)
  47.                  GETSCREEN($x1,$y_cat,$x2,$y_cat)
  48.                  IF_PIXEL_IN($x1,$y_cat,$x2,$y_cat, $col_cat)
  49.                     $x_pers = $_return1
  50.                  END_IF
  51.                  waitms(2)
  52.               END_CYC
  53.               keyup(#left)
  54.            END_IF
  55.  
  56.  
  57.  
  58.         END_IF
  59.  
  60.  
  61.         $time = $_ms + 120    //вместо задержки добавил доп поиск, возможно лишнее, а может и нет...
  62.         $x_ball = 0
  63.  
  64.         WHILE($time > $_ms)
  65.            if($x_ball = 0)
  66.               GETSCREEN ($x1,$y1,$x2,$y2)
  67.               IF_PIXEL_IN($x1,$y1,$x2,$y2, 3982490,5214174,4605902,11363394, 1973399, 11783127)
  68.                  $x_ball = $_return1
  69.               END_IF
  70.            END_IF
  71.            waitms(2)
  72.         END_CYC
  73.      END_CYC
  74.   END_IF
  75.  
  76.  
  77. END_IF
  78.  


kiril

  • Герой форума
  • *****
  • Сообщений: 745
    • Просмотр профиля
Re: Акции для Clickermann
« Ответ #6 : Декабрь 31, 2018, 11:49:34 am »
вот, что получилось у меня, но без прямого доступа к отладке писать такое очень долго и сложно
Код: Clickermann
  1. //30.12.18
  2. #name "v3.4 Ёлки-палки"
  3. LOGSHOW (1, 10,10)
  4. THREAD(переместить,0)
  5.   SETTHREAD (копировать_6,0)
  6.   KEYUP(#LEFT)
  7.   KEYUP(#RIGHT)
  8.   GETSCREEN(665,808,1030,808)
  9.   COLORMODE(7,665,808,1030,808)
  10.   IF_PIXEL_IN(665,808,1030,808,16777215)
  11.      $_r1=$_return1+44
  12.      IF($X<$_r1)
  13.         KEYDOWN(#LEFT)
  14.         LOGWRITE ("двигает в лево")
  15.      ELSE
  16.         KEYDOWN(#RIGHT)
  17.         LOGWRITE ("двигает в право")
  18.      END_IF
  19.   END_IF
  20.   GETSCREEN($X,808,$X,808)
  21.   COLORMODE(7,$X,808,$X,808)
  22.   WHILE(PXL ($X,808) ! 16777215)
  23.      WAITMS (10)
  24.      GETSCREEN($X,808,$X,808)
  25.      COLORMODE(7,$X,808,$X,808)
  26.   END_CYC
  27.   KEYUP(#LEFT)
  28.   KEYUP(#RIGHT)
  29.   //   WAITMS(150)
  30.   SETTHREAD (копировать_6,1)
  31.   SETTHREAD (переместить,0)
  32. END_THREAD
  33.  
  34. THREAD(копировать_6,0)
  35.  
  36.   GETSCREEN(665,808,1030,808)
  37.   COLORMODE(7,665,808,1030,808)
  38.   IF_PIXEL_IN(665,808,1030,808,16777215)
  39.      $_r11=$_return1+44
  40.      IF(865<$_r11)
  41.         KEYDOWN(#LEFT)
  42.         LOGWRITE ("к центру в лево")
  43.         WHILE(PXL ($850,808) ! 16777215)
  44.            WAITMS (150)
  45.            GETSCREEN(850,808,850,808)
  46.            COLORMODE(7,850,808,850,808)
  47.         END_CYC
  48.      ELSE
  49.         IF(835>$_r11)
  50.            KEYDOWN(#RIGHT)
  51.            LOGWRITE ("к центру в право")
  52.            WHILE(PXL ($850,808) ! 16777215)
  53.               WAITMS (150)
  54.               GETSCREEN(850,808,850,808)
  55.               COLORMODE(7,850,808,850,808)
  56.            END_CYC
  57.         END_IF
  58.      END_IF
  59.   END_IF
  60.   KEYUP(#LEFT)
  61.   KEYUP(#RIGHT)
  62.   SETTHREAD (копировать_6,0)
  63. END_THREAD
  64.  
  65. SUB(палка,$par0,$par1,$par2,$par3,$par4)
  66.   GETSCREEN    ($par1,$par2,$par3,$par4)
  67.   COLORMODE  (7,$par1,$par2,$par3,$par4)
  68.   $_1st[$par0]=PXLCRC($par1,$par2,$par3,$par4)
  69.  
  70.  
  71.   IF($var12!0)
  72.      IF($_1st[$par0]!$_2st[$par0])
  73.         $_2st[$par0]=$_1st[$par0]
  74.         $time = $_time_t + 3
  75.         WHILE($time > $_time_t)
  76.            GETSCREEN  ($par1,$par2,$par3,$par4)
  77.            COLORMODE(7,$par1,$par2,$par3,$par4)
  78.            $_1st[$par0]=PXLCRC($par1,$par2,$par3,$par4)
  79.            IF($_1st[$par0]!$_2st[$par0])
  80.               $X = $par1+10
  81.               SETTHREAD (переместить,1)
  82.               $_2st[$par0]=$_1st[$par0]
  83.               WAITMS(130)
  84.            ELSE
  85.               $time = 0
  86.               LOGWRITE ("поймал ",$par0)
  87.            END_IF
  88.         END_CYC
  89.      END_IF
  90.   ELSE
  91.      $_2st[$par0]=$_1st[$par0]
  92.   END_IF
  93. END_SUB
  94. LOGWRITE ("Старт")
  95. WHILE($var11=0)
  96.   палка(1 ,665,527,665,725)
  97.   палка(2 ,700,410,700,725)
  98.   палка(3 ,723,410,723,725)
  99.   палка(4 ,745,245,745,725)
  100.   палка(5 ,770,153,770,725)
  101.   палка(6 ,790,153 ,790,725) // указаны 15 полос на ёлке
  102.   палка(7 ,816,153 ,816,725)  //
  103.   палка(8 ,842,153 ,842,725)  //
  104.   палка(9 ,868,153 ,868,725)  //
  105.   палка(10,894,153 ,894,725)  //
  106.   палка(11,920,153,920,725)
  107.   палка(12,935,245,935,725)
  108.   палка(13,960,410,960,725)
  109.   палка(14,985,410,985,725)
  110.   палка(15,1010,527,1010,725)
  111.   INC($var12,1)
  112. END_CYC
  113.  
  114.  

kiril

  • Герой форума
  • *****
  • Сообщений: 745
    • Просмотр профиля
Re: Акции для Clickermann
« Ответ #7 : Декабрь 31, 2018, 11:53:19 am »
вот более ранний вариант, с поиском по двум картинкам в 2 и 4 пикселя, он давал результаты похуже из за постоянного и непредсказуемого переполнения массивов
Код: Clickermann
  1. // 29.12.2018
  2. #name "v1.24 Ёлка"
  3. LOGSHOW (1, 10,10)
  4. THREAD(переместить,0)
  5.   //   LOGWRITE ("переместить")
  6.   SETTHREAD (копировать_6,0)
  7.   KEYUP(#LEFT)
  8.   KEYUP(#RIGHT)
  9.   GETSCREEN(665,808,1030,808)
  10.   COLORMODE(7,665,808,1030,808)
  11.   IF_PIXEL_IN(665,808,1030,808,16777215)
  12.      $_r1=$_return1+44
  13.      IF($X<$_r1)
  14.         LOGWRITE ("двигает в лево")
  15.         KEYDOWN(#LEFT)
  16.      ELSE
  17.         LOGWRITE ("двигает в право")
  18.         KEYDOWN(#RIGHT)
  19.      END_IF
  20.   END_IF
  21.   GETSCREEN($X,808,$X,808)
  22.   COLORMODE(7,$X,808,$X,808)
  23.   WHILE(PXL ($X,808) ! 16777215)
  24.      WAITMS (10)
  25.      GETSCREEN($X,808,$X,808)
  26.      COLORMODE(7,$X,808,$X,808)
  27.   END_CYC
  28.   KEYUP(#LEFT)
  29.   KEYUP(#RIGHT)
  30.   $check1 = 0
  31.   GETSCREEN  (1490,384,1550,406)
  32.   COLORMODE(7,1490,384,1550,406)
  33.   $_st=PXLCRC(1490,384,1550,406)
  34.   LOGWRITE ("Счёт1 ",$_st)
  35.   //   LOGWRITE ("ожидает изменение счёта")
  36.   WHILE($check1 = 0)
  37.      GETSCREEN  (1490,384,1550,406)
  38.      COLORMODE(7,1490,384,1550,406)
  39.      IF($_st=PXLCRC(1490,384,1550,406))
  40.         WAITMS (10)
  41.      ELSE
  42.         $check1 = 1
  43.         $_st=PXLCRC(1490,384,1550,406)
  44.         LOGWRITE ("Счёт2 ",$_st)
  45.      END_IF
  46.   END_CYC
  47.  
  48.   SETTHREAD (копировать_6,1)
  49.   SETTHREAD (переместить,0)
  50. END_THREAD
  51.  
  52. THREAD(копировать_6,0)
  53.  
  54.   GETSCREEN(665,808,1030,808)
  55.   COLORMODE(7,665,808,1030,808)
  56.   IF_PIXEL_IN(665,808,1030,808,16777215)
  57.      $_r11=$_return1+44
  58.      IF(865<$_r11)
  59.         KEYDOWN(#LEFT)
  60.         LOGWRITE ("к центру в лево")
  61.         WHILE(PXL ($850,808) ! 16777215)
  62.            WAITMS (150)
  63.            GETSCREEN(850,808,850,808)
  64.            COLORMODE(7,850,808,850,808)
  65.         END_CYC
  66.      ELSE
  67.         IF(835>$_r11)
  68.            KEYDOWN(#RIGHT)
  69.            LOGWRITE ("к центру в право")
  70.            WHILE(PXL ($850,808) ! 16777215)
  71.               WAITMS (150)
  72.               GETSCREEN(850,808,850,808)
  73.               COLORMODE(7,850,808,850,808)
  74.            END_CYC
  75.         END_IF
  76.      END_IF
  77.   END_IF
  78.   KEYUP(#LEFT)
  79.   KEYUP(#RIGHT)
  80.   SETTHREAD (копировать_6,0)
  81. END_THREAD
  82.  
  83.  
  84. LOGWRITE ("Старт")
  85. GETSCREEN  (665,527,1030,725)
  86. COLORMODE(7,665,527,1030,725)
  87. SCANPICTURE($arr51,665,527,1030,725,"2.bmp",-1,100)
  88. SCANPICTURE($arr51,665,527,1030,725,"3.bmp",-1,100)
  89. GETSCREEN  (700,410,1010,535)
  90. COLORMODE(7,700,410,1010,535)
  91. SCANPICTURE($arr41,700,410,1010,535,"2.bmp", -1, 100)
  92. SCANPICTURE($arr41,700,410,1010,535,"3.bmp", -1, 100)
  93. GETSCREEN  (745,245,960 ,410)
  94. COLORMODE(7,745,245,960 ,410)
  95. SCANPICTURE($arr31,745,245,960 ,410,"2.bmp", -1, 100)
  96. SCANPICTURE($arr41,700,410,1010,535,"3.bmp", -1, 100)
  97. GETSCREEN  (770,153,935 ,245)
  98. COLORMODE(7,770,153,935 ,245)
  99. SCANPICTURE($arr21,770,153,935 ,245,"2.bmp", -1, 100)
  100. SCANPICTURE($arr41,700,410,1010,535,"3.bmp", -1, 100)
  101. GETSCREEN  (790, 72,920 ,153)
  102. COLORMODE(7,790, 72,920 ,153)
  103. SCANPICTURE($arr11,790, 72,920 ,153,"2.bmp", -1, 100)
  104. SCANPICTURE($arr41,700,410,1010,535,"3.bmp", -1, 100)
  105. skip1:
  106.  
  107.  
  108. $tms=$_ms
  109. GETSCREEN  (665,527,1030,725)
  110. COLORMODE(7,665,527,1030,725)
  111. UNDEFINE($arr50)
  112. SCANPICTURE($arr50,665,527,1030,725,"2.bmp",-1,100)
  113. SCANPICTURE($arr50,665,527,1030,725,"3.bmp",-1,100)
  114. //LOGWRITE (ARRSIZE($arr50)," -в массивах 5- ",ARRSIZE($arr51))   >
  115.  
  116. IF(ARRSIZE($arr50)<= ARRSIZE($arr51))// стало меньше
  117.   $ARR_NUM = 1
  118.   WHILE ($ARR_NUM < ARRSIZE($arr50)) //
  119.      IF($arr51[$ARR_NUM]=$arr50[$ARR_NUM]) // сравнение высоты
  120.         INC($ARR_NUM,2)
  121.      ELSE
  122.         IF($arr50[$ARR_NUM]>$arr51[$ARR_NUM]) //новый ниже
  123.            INC($ARR_NUM,-1)
  124.            $X = $arr51[$ARR_NUM]
  125.            SETTHREAD (переместить,1)
  126.         END_IF
  127.         //         LOGWRITE ("копировать_51")
  128.         $ARR_NUM5 = 0
  129.         UNDEFINE($arr51)
  130.         WHILE ($ARR_NUM5 < ARRSIZE($arr50))
  131.            $arr51[$ARR_NUM5]=$arr50[$ARR_NUM5]
  132.            INC($ARR_NUM5,1)
  133.         END_CYC
  134.         $ARR_NUM = 100000
  135.      END_IF
  136.   END_CYC
  137. ELSE  // стало больше
  138.   $ARR_NUM = 1
  139.   WHILE ($ARR_NUM < ARRSIZE($arr51))
  140.      IF($arr51[$ARR_NUM]=$arr50[$ARR_NUM])  // сравнение высоты
  141.         INC($ARR_NUM,2)
  142.      ELSE
  143.         IF($arr50[$ARR_NUM]>$arr51[$ARR_NUM])  //новый ниже
  144.            INC($ARR_NUM,-1)
  145.            $X = $arr51[$ARR_NUM]
  146.            SETTHREAD (переместить,1)
  147.         END_IF
  148.         //         LOGWRITE ("копировать_50")
  149.         $ARR_NUM5 = 0
  150.         UNDEFINE($arr51)
  151.         WHILE ($ARR_NUM5 < ARRSIZE($arr50))
  152.            $arr51[$ARR_NUM5]=$arr50[$ARR_NUM5]
  153.            INC($ARR_NUM5,1)
  154.         END_CYC
  155.         $ARR_NUM = 100000
  156.      END_IF
  157.   END_CYC
  158. END_IF
  159.  
  160. GETSCREEN  (700,410,1010,535)
  161. COLORMODE(7,700,410,1010,535)
  162. UNDEFINE($arr40)
  163. SCANPICTURE($arr40,700,410,1010,535,"2.bmp", -1, 100)
  164. SCANPICTURE($arr40,700,410,1010,535,"3.bmp", -1, 100)
  165. //LOGWRITE (ARRSIZE($arr40)," -в массивах 4- ",ARRSIZE($arr41))
  166. IF(ARRSIZE($arr40)<= ARRSIZE($arr41))
  167.   $ARR_NUM = 1
  168.   WHILE ($ARR_NUM < ARRSIZE($arr40))
  169.      IF($arr41[$ARR_NUM]=$arr40[$ARR_NUM])
  170.         INC($ARR_NUM,2)
  171.      ELSE
  172.         IF($arr40[$ARR_NUM]>$arr41[$ARR_NUM])
  173.            INC($ARR_NUM,-1)
  174.            $X = $arr41[$ARR_NUM]
  175.            SETTHREAD (переместить,1)
  176.         END_IF
  177.         //         LOGWRITE ("копировать_41")
  178.         $ARR_NUM4 = 0
  179.         UNDEFINE($arr41)
  180.         WHILE ($ARR_NUM4 < ARRSIZE($arr40))
  181.            $arr41[$ARR_NUM4]=$arr40[$ARR_NUM4]
  182.            INC($ARR_NUM4,1)
  183.         END_CYC
  184.         $ARR_NUM = 100000
  185.      END_IF
  186.   END_CYC
  187. ELSE
  188.   $ARR_NUM = 1
  189.   WHILE ($ARR_NUM < ARRSIZE($arr41))
  190.      IF($arr41[$ARR_NUM]=$arr40[$ARR_NUM])
  191.         INC($ARR_NUM,2)
  192.      ELSE
  193.         IF($arr40[$ARR_NUM]>$arr41[$ARR_NUM])
  194.            INC($ARR_NUM,-1)
  195.            $X = $arr41[$ARR_NUM]
  196.            SETTHREAD (переместить,1)
  197.         END_IF
  198.         //         LOGWRITE ("копировать_40")
  199.         $ARR_NUM4 = 0
  200.         UNDEFINE($arr41)
  201.         WHILE ($ARR_NUM4 < ARRSIZE($arr40))
  202.            $arr41[$ARR_NUM4]=$arr40[$ARR_NUM4]
  203.            INC($ARR_NUM4,1)
  204.         END_CYC
  205.         $ARR_NUM = 100000
  206.      END_IF
  207.   END_CYC
  208. END_IF
  209.  
  210.  
  211. GETSCREEN  (745,245,960 ,410)
  212. COLORMODE(7,745,245,960 ,410)
  213. UNDEFINE($arr30)
  214. SCANPICTURE($arr30,745,245,960 ,410,"2.bmp", -1, 100)
  215. SCANPICTURE($arr30,745,245,960 ,410,"3.bmp", -1, 100)
  216. //LOGWRITE (ARRSIZE($arr30)," -в массивах 3- ",ARRSIZE($arr31))
  217. IF(ARRSIZE($arr30)<= ARRSIZE($arr31))
  218.   $ARR_NUM = 1
  219.   WHILE ($ARR_NUM < ARRSIZE($arr30))
  220.      IF($arr31[$ARR_NUM]=$arr30[$ARR_NUM])
  221.         INC($ARR_NUM,2)
  222.      ELSE
  223.         IF($arr30[$ARR_NUM]>$arr31[$ARR_NUM])
  224.            INC($ARR_NUM,-1)
  225.            $X = $arr31[$ARR_NUM]
  226.            SETTHREAD (переместить,1)
  227.         END_IF
  228.         //         LOGWRITE ("копировать_31")
  229.         $ARR_NUM3 = 0
  230.         UNDEFINE($arr31)
  231.         WHILE ($ARR_NUM3 < ARRSIZE($arr30))
  232.            $arr31[$ARR_NUM3]=$arr30[$ARR_NUM3]
  233.            INC($ARR_NUM3,1)
  234.         END_CYC
  235.         $ARR_NUM = 100000
  236.      END_IF
  237.   END_CYC
  238. ELSE
  239.   $ARR_NUM = 1
  240.   WHILE ($ARR_NUM < ARRSIZE($arr31))
  241.      IF($arr31[$ARR_NUM]=$arr30[$ARR_NUM])
  242.         INC($ARR_NUM,2)
  243.      ELSE
  244.         IF($arr30[$ARR_NUM]>$arr31[$ARR_NUM])
  245.            INC($ARR_NUM,-1)
  246.            $X = $arr31[$ARR_NUM]
  247.            SETTHREAD (переместить,1)
  248.         END_IF
  249.         //         LOGWRITE ("копировать_30")
  250.         $ARR_NUM3 = 0
  251.         UNDEFINE($arr31)
  252.         WHILE ($ARR_NUM3 < ARRSIZE($arr30))
  253.            $arr31[$ARR_NUM3]=$arr30[$ARR_NUM3]
  254.            INC($ARR_NUM3,1)
  255.         END_CYC
  256.         $ARR_NUM = 100000
  257.      END_IF
  258.   END_CYC
  259. END_IF
  260.  
  261.  
  262. GETSCREEN  (770,153,935 ,245)
  263. COLORMODE(7,770,153,935 ,245)
  264. UNDEFINE($arr20)
  265. SCANPICTURE($arr20,770,153,935 ,245,"2.bmp", -1, 100)
  266. SCANPICTURE($arr20,770,153,935 ,245,"3.bmp", -1, 100)
  267. //LOGWRITE (ARRSIZE($arr20),"- в массивах 2- ",ARRSIZE($arr21))
  268. IF(ARRSIZE($arr20)<= ARRSIZE($arr21))
  269.   $ARR_NUM = 1
  270.   WHILE ($ARR_NUM < ARRSIZE($arr20))
  271.      IF($arr21[$ARR_NUM]=$arr20[$ARR_NUM])
  272.         INC($ARR_NUM,2)
  273.      ELSE
  274.         IF($arr20[$ARR_NUM]>$arr21[$ARR_NUM])
  275.            INC($ARR_NUM,-1)
  276.            $X = $arr21[$ARR_NUM]
  277.            SETTHREAD (переместить,1)
  278.         END_IF
  279.         //         LOGWRITE ("копировать_21")
  280.         $ARR_NUM2 = 0
  281.         UNDEFINE($arr21)
  282.         WHILE ($ARR_NUM2 < ARRSIZE($arr20))
  283.            $arr21[$ARR_NUM2]=$arr20[$ARR_NUM2]
  284.            INC($ARR_NUM2,1)
  285.         END_CYC
  286.         $ARR_NUM = 100000
  287.      END_IF
  288.   END_CYC
  289. ELSE
  290.   $ARR_NUM = 1
  291.   WHILE ($ARR_NUM < ARRSIZE($arr21))
  292.      IF($arr21[$ARR_NUM]=$arr20[$ARR_NUM])
  293.         INC($ARR_NUM,2)
  294.      ELSE
  295.         IF($arr20[$ARR_NUM]>$arr21[$ARR_NUM])
  296.            INC($ARR_NUM,-1)
  297.            $X = $arr21[$ARR_NUM]
  298.            SETTHREAD (переместить,1)
  299.         END_IF
  300.         //         LOGWRITE ("копировать_20")
  301.         $ARR_NUM2 = 0
  302.         UNDEFINE($arr21)
  303.         WHILE ($ARR_NUM2 < ARRSIZE($arr20))
  304.            $arr21[$ARR_NUM2]=$arr20[$ARR_NUM2]
  305.            INC($ARR_NUM2,1)
  306.         END_CYC
  307.         $ARR_NUM = 100000
  308.      END_IF
  309.   END_CYC
  310. END_IF
  311.  
  312.  
  313. GETSCREEN  (790, 72,920 ,153)
  314. COLORMODE(7,790, 72,920 ,153)
  315. UNDEFINE($arr10)
  316. SCANPICTURE($arr10,790, 72,920 ,153,"2.bmp", -1, 100)
  317. SCANPICTURE($arr10,790, 72,920 ,153,"3.bmp", -1, 100)
  318. //LOGWRITE (ARRSIZE($arr10),"- в массивах 1- ",ARRSIZE($arr11))
  319. IF(ARRSIZE($arr10)<= ARRSIZE($arr11))
  320.   $ARR_NUM = 1
  321.   WHILE ($ARR_NUM < ARRSIZE($arr10))
  322.      IF($arr11[$ARR_NUM]=$arr10[$ARR_NUM])
  323.         INC($ARR_NUM,2)
  324.      ELSE
  325.         IF($arr10[$ARR_NUM]>$arr11[$ARR_NUM])
  326.            INC($ARR_NUM,-1)
  327.            $X = $arr11[$ARR_NUM]
  328.            SETTHREAD (переместить,1)
  329.         END_IF
  330.         //         LOGWRITE ("копировать_11")
  331.         $ARR_NUM1 = 0
  332.         UNDEFINE($arr11)
  333.         WHILE ($ARR_NUM1 < ARRSIZE($arr10))
  334.            $arr11[$ARR_NUM1]=$arr10[$ARR_NUM1]
  335.            INC($ARR_NUM1,1)
  336.         END_CYC
  337.         $ARR_NUM = 100000
  338.      END_IF
  339.   END_CYC
  340. ELSE
  341.   $ARR_NUM = 1
  342.   WHILE ($ARR_NUM < ARRSIZE($arr11))
  343.      IF($arr10[$ARR_NUM]=$arr11[$ARR_NUM])
  344.         INC($ARR_NUM,2)
  345.      ELSE
  346.         IF($arr10[$ARR_NUM]>$arr11[$ARR_NUM])
  347.            INC($ARR_NUM,-1)
  348.            $X = $arr11[$ARR_NUM]
  349.            SETTHREAD (переместить,1)
  350.         END_IF
  351.         //         LOGWRITE ("копировать_10")
  352.         $ARR_NUM1 = 0
  353.         UNDEFINE($arr11)
  354.         WHILE ($ARR_NUM1 < ARRSIZE($arr10))
  355.            $arr11[$ARR_NUM1]=$arr10[$ARR_NUM1]
  356.            INC($ARR_NUM1,1)
  357.         END_CYC
  358.         $ARR_NUM = 100000
  359.      END_IF
  360.   END_CYC
  361. END_IF
  362. GOTO(skip1)
  363.  

dramster

  • Герой форума
  • *****
  • Сообщений: 946
    • Просмотр профиля
Re: Акции для Clickermann
« Ответ #8 : Декабрь 31, 2018, 11:54:41 am »
Да, у меня с отладкой попроще будет :) . Пару параметров вверху скрипта, и сиди себе, перебирай, тестируй, так работает, так не работает....

Если не секрет, какие результаты?

kiril

  • Герой форума
  • *****
  • Сообщений: 745
    • Просмотр профиля
Re: Акции для Clickermann
« Ответ #9 : Декабрь 31, 2018, 02:08:01 pm »
я даже не знал, что там есть общий рейтинг, мне просто сообщали, иногда пропускает пару игрушек и я в слепую по скринам пилил версии  практически наугад.
вот картинки, они малопиксельные и подойдут к любому разрешению монитора, писалось для 1680*1050
на скриншоте видны обработанные цветокоррекцией области отслеживаемые скриптами, версия 1 проверяет все 5 областей,ступенями снизу в верх и Производит подсчет контрольной суммы области счёта, а версия три  только  контрольные суммы красных полосок.
 по горизонтальной красной полоске внизу отслеживалоссь положение кота.
« Последнее редактирование: Декабрь 31, 2018, 02:11:53 pm от kiril »

dramster

  • Герой форума
  • *****
  • Сообщений: 946
    • Просмотр профиля
Re: Акции для Clickermann
« Ответ #10 : Январь 03, 2019, 05:33:06 pm »
вот ещё  от «М.Видео»https://2019.mvideo.ru/
только без WebGL не работает, поэтому конкретный скрипт по ловле падающих игрушек отладить не могу,
 а простой влево-вправо там не прокатывает.
Вчера глянул. Увлекательная игрушка  ;D . Только вот это развод, кроме рекламы мвидии и игрули там ничего тебе не дадут.

Видимо я ошибался по поводу "развода" :-\ .  Просто в тот день поискал на оффсайте инфу про этого кота, а там ничего... И еще гдето нашел инфу, что мол ктото там звонил в кантору мвидии, и там об этой акции слыхать не слышали.

Вобщем пришло мне тут на днях сообщение типа:

Цитировать
Привет, Эдуард!
Спасибо тебе за твое участие в нашем конкурсе-игре «Кот Маскот спасает новый год» (https://2019.mvideo.ru), у тебя отличные результаты и ты вошла в список победителей!
Твой промокод на скидку 2000 рублей (при покупке на 8000 рублей): *******************
Список магазинов М.Видео: https://www.mvideo.ru/shops/store-list
Промо-код действует до 21 января, успей им воспользоваться!
С наступившим новым 2019 годом! ))

Если кому нужен этот промокод, пишите, скину в личку, вдруг он рабочий... ;D

kiril

  • Герой форума
  • *****
  • Сообщений: 745
    • Просмотр профиля
Re: Акции для Clickermann
« Ответ #11 : Июнь 05, 2019, 11:02:26 am »

gsukhado

  • Освоившийся
  • **
  • Сообщений: 91
    • Просмотр профиля
Re: Акции для Clickermann
« Ответ #12 : Июль 11, 2019, 09:39:38 pm »

kiril

  • Герой форума
  • *****
  • Сообщений: 745
    • Просмотр профиля
Re: Акции для Clickermann
« Ответ #13 : Июль 11, 2019, 09:54:42 pm »
https://igra.mvideo.ru/
увы, показывает 403 Forbidden
к сожалению, все акции обычно ограничены по времени.
Это даже хорошо, когда страницу честно удаляют, бывает что стараешься набиваешь рекордные очки, а потом оказывается, что акция давным-давно завершилась или нужно было регистрироваться до её начала.