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 ... 11
1
Предложения / Re: Кликер для линукса
« on: September 03, 2015, 02:04:19 AM »
 ;D ;D ;D ;D улыбнуло
Не, все реально конечно.... Но эту программу под винду автор(спасибо за прогу)) разрабатывает уже не один год. А под линукс её писать надо с нуля совершенно...

2
Общие вопросы / Re: Вопрос по SUB
« on: August 25, 2015, 11:56:17 PM »
Вин10 не юзал не знаю. Где то на форуме видел решение каких то проблемм с вин 8, может и по вин 10 тоже есть.

3
Общие вопросы / Re: Вопрос по SUB
« on: August 25, 2015, 08:49:54 PM »
Quote from: justitdo on August 25, 2015, 08:07:46 PM
Куда мне в нем вписать ELSE чтобы указать действие, если не найдена картинка из самого первого условия?
Вот
Code: [Select]
GETSCREEN
IF_PICTURE_IN (490,280, 1046, 473, "11.bmp")
   dbLCLICK($_return1+50, $_return2+4)
   WAITMS(50)
   KEYDOWN (#CTRL) // Ctrl+C
   WAITMS (50)
   KEYDOWN (#C)
   WAITMS (50)
   KEYUP (#C)
   KEYUP (#CTRL)
   WAITMS (50)
   $strclip = FROMCLIP()
   WAITMS(50)
   $comp = TFREAD("9999.txt", 1)
   WAITMS(50)
   $action = STRPOS($comp, $strclip)
   IF($action > 0)
      KEYDOWN (#CTRL)
      WAITMS (50)
      KEYDOWN (#F4)
      WAITMS (50)
      KEYUP (#F4)
      KEYUP (#CTRL)
      WAITMS(500)
   ELSE
      TFDELETE ("9999.txt", 1)
      WAITMS(50)
      TFWRITE("9999.txt", STRCONCAT($comp,$strclip," "))
      WAITMS (150)
      GETSCREEN
      IF_PICTURE_IN (463,280, 675, 444, "9999.bmp")
         LCLICK($_return1, $_return2)
         WAITMS(RND(1305,2070))
         LCLICK(68,609)  // 16777215
         WAITMS(50)
         INC($num,1)
         
         IF($num > TFCOUNT ("511.txt"))
            $num = 1
         END_IF
         
         TOCLIP (TFREAD ("511.txt", $num))
         WAITMS(RND(130,770))
         KEYDOWN (#CTRL)
         WAITMS (50)
         KEYDOWN (#V)
         WAITMS (50)
         KEYUP (#V)
         KEYUP (#CTRL)
         WAITMS(RND(305,806))
         KEYDOWN (#CTRL)
         WAITMS (50)
         KEYDOWN (#ENTER)
         WAITMS (50)
         KEYUP (#ENTER)
         KEYUP (#CTRL)
         WAITMS(RND(2482,4602))
         KEYDOWN (#CTRL)
         WAITMS (50)
         KEYDOWN (#F4)
         WAITMS (50)
         KEYUP (#F4)
         KEYUP (#CTRL)
         WAITMS(RND(481,2053)))
         LCLICK(329,634)  // 16777215
         WAITMS (50)
         KEYDOWN (#CTRL)
         WAITMS (50)
         KEYDOWN (#F4)
         WAITMS (50)
         KEYUP (#F4)
         KEYUP (#CTRL)
         WAITMS(RND(4703,10078))
      END_IF
   END_IF
ELSE
   //тут указываем действие если первое условие не выполнено
   LCLICK(0,0)     //ну например кликаем куда -тооооо
END_IF
И у тебя не завершены были условия. Для завершения IF надо ставить END_IF. Для самопроверки пользуйся автоподступом в редакторе.

4
Использование / Re: Одноклассники: Аэропорт-Сити
« on: August 20, 2015, 06:24:32 PM »
Quote from: Oraven on August 20, 2015, 07:27:40 AM
Да бывает иногда пишет что от типо нет доступа к базе данных из за перегрузки серверов.

Каким образом дойдет до IF($check=10) если цикл WHILE($check < 8). Тоесть когда $check будет 8 цикл перестанет повторяться.
Ошибку уже видел и исправил))) На сайт копировал перед сном, уже глаза слипались))
Последняя версия сбора дани тут:
Code: [Select]
// Аэропорт-Сити


SUB(s)
   $Br = 0
   WHILE($Br = 0)
      GETSCREEN
      IF_PICTURE_IN (1000,50, $_xmax, 300,"7.bmp")
         LCLICK($_return1+6, $_return2+6)
         wait(1)
         GETSCREEN
         IF_PICTURE_IN (0,0, $_xmax, $_ymax,"8.bmp")
            LCLICK($_return1+6, $_return2+6)
            wait(1)
         END_IF
         GETSCREEN
         IF_PICTURE_IN (0,0, $_xmax, $_ymax,"9.bmp")
            wait(1)
            LCLICK($va,$vb)
            $Br = 1
            $check = 0
            wait(6)
         END_IF
      else
         LCLICK($va,$vb)
      END_IF
      $Br = 1
      $check = 0
   END_CYC
END_SUB

SUB(d)
   $ch = 1
   WHILE($ch =1)
      wait(1)
      GETSCREEN
      IF_PICTURE_IN (0,0, $_xmax, $_ymax, "6.bmp" )
         WAITMS(100)
         LCLICK($_return1+6, $_return2+6)
         wait(1)
      else
         $ch = 0
      END_IF
   END_CYC
END_SUB

$cex=int($_xmax/2)
$cx=int($_xmax/4)
$cey=int($_ymax/2)
$cy=int($_ymax/4)
$q=$cx*3
$w=$cy*3
$h = 1

WHILE($chn = 0)
   GETSCREEN
   IF_PICTURE_IN (0,0, $_xmax, $_ymax, "s2.bmp" )
      WAITMS(100)
      $va= $_return1+5
      $vb= $_return2+5
      $chn = 1
   END_IF
END_CYC
WHILE($Nch = 0)
   GETSCREEN
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "s1.bmp", -1, 100)
      WAITMS(200)
      LDOWN($_return1, $_return2)
      WAITMS(200)
      MOVE($cex, $cey)
      WAITMS(200)
      LUP($cex,$cey)
      WAIT(1)
      $Nch = 1
   ELSE
      LDOWN($cex, $cey)
      WAITMS(100)
      MOVE($cex,$cy)
      WAITMS(100)
      LUP($cex,$cy)
      WAIT(1)
   END_IF
END_CYC
WHILE($h < 8)
   GETSCREEN
   waitmc(500)
   IF_PICTURE_IN (0,0, $_xmax, 700, STRCONCAT($h, ".bmp"),-1, 80)
      IF($h=7)
         s()
      else
         MOVE($_return1+6, $_return2+6)
         MOVE($_return1+8, $_return2+7)
         MOVE($_return1+6, $_return2+6)
         MOVE($_return1+7, $_return2+9)
         MOVE($_return1+6, $_return2+6)
         WAITMS(rnd(700,900))
         LCLICK($_return1+6, $_return2+6)
         waitmc(400)
         $h = 0
      END_IF
   END_IF
   INC($h)
   IF($h=7)
      IF($time1 < $_time_t)
         $time1 = $_time_t + 1200
         $k = 1
         WHILE($k < 4)
            waitms(260)
            lDown($cx, $cy)
            waitms(120)
            move($cex,$cey)
            waitms(210)
            lUp($cex,$cey)
            waitmc(200)
            wait(1)
            d()
            INC ($k)
         END_CYC
         $k = 1
         WHILE($k < 3)
            waitms(260)
            lDown($q, $cy)
            waitms(20)
            move($cex,$cey)
            waitms(20)
            lUp($cex,$cey)
            wait(1)
            d()
            INC ($k)
         END_CYC
         $k = 1
         WHILE($k < 4)
            waitms(260)
            lDown($q, $w)
            waitms(20)
            move($cex,$cey)
            waitms(20)
            lUp($cex,$cey)
            wait(1)
            d()
            INC ($k)
         END_CYC
         $k = 1
         WHILE($k < 3)
            waitms(260)
            lDown($cx, $w)
            waitms(20)
            move($cex,$cey)
            waitms(20)
            lUp($cex,$cey)
            waitmc(200)
            INC ($k)
         END_CYC
      END_IF
   END_IF
END_CYC
Картинки прилагаются. К сожалению, из-за того что в хроме не могу сделать нормальную привязку, иногда происходят глюки - тыкает не туда(((

5
Прочее / Re: хватит бездельничать!!!
« on: August 20, 2015, 06:22:48 PM »
Quote from: Vint on August 20, 2015, 08:30:54 AM
Так пишешь о конкретной игре, кто с ней знаком? Я первый раз слышу.
Да я вообще то не конкретизирую))) Просто смотрю тут посещаемость стала малююююсенькая(( Раньше как то повеселее было

6
Общие вопросы / Re: Поиск картинки и отцентровка экрана
« on: August 20, 2015, 03:40:23 PM »
А спасибо) Что то подобное я уже накалякал. Но польза все равно есть))

7
Прочее / Re: хватит бездельничать!!!
« on: August 20, 2015, 01:06:50 AM »
Бездельники где вы????? На форуме кто нить появляется вообще? Пишу третий день подряд а ответов ни одного!!!
ПОДНИМАЙТЕ СВОИ МОЗГИ С ДИВАНА!!!! ))))))

8
Общие вопросы / Поиск картинки и отцентровка экрана
« on: August 19, 2015, 11:40:13 PM »
Возник вопрос по поиску картинки во флеш игрульке. Ну сам поиск не сложно организовать. Вопрос как сделать что бы поместить найденую картинку по центру экрана? Карта иргры больше экрана. Путем LDOWN - MOVE - LUP перемещаемся по карте. Периодически делаем GETSCREEN - IF_PICTURE_IN.
Нашли картинку. И далее я чет не сооброжу как отцентровать на ней экран? Ну мысли есть конечно, только в моей реализации выйдет портянка на 200-300 строк наверное.

9
Использование / Re: Одноклассники: Аэропорт-Сити
« on: August 18, 2015, 04:38:08 PM »
Соединил два скрипта вместе. Теперь собирает дань и с самолетов и со зданий.

Code: [Select]
// Àýðîïîðò-Ñèòè


SUB(s)
   $Br = 0
   WHILE($Br = 0)
      GETSCREEN
      IF_PICTURE_IN (1000,50, $_xmax, 300,"7.bmp")
         LCLICK($_return1+6, $_return2+6)
         wait(1)
         GETSCREEN
         IF_PICTURE_IN (0,0, $_xmax, $_ymax,"8.bmp")
            LCLICK($_return1+6, $_return2+6)
            wait(1)
         END_IF
         GETSCREEN
         IF_PICTURE_IN (0,0, $_xmax, $_ymax,"9.bmp")
            wait(1)
            LCLICK(100,150)
            $Br = 1
            $check = 0
            wait(6)
         END_IF
      else
         LCLICK(35,275)
      END_IF
      $Br = 1
      $check = 0
   END_CYC
END_SUB

SUB(d)
   $ch = 1
   WHILE($ch =1)
      wait(1)
      GETSCREEN
      IF_PICTURE_IN (0,0, $_xmax, $_ymax, "6.bmp" )
         WAITMS(100)
         LCLICK($_return1+6, $_return2+6)
         waitmc(rnd(600,900))
      else
         $ch = 0
      END_IF
   END_CYC
END_SUB
$check = 1
WHILE($check < 8)
   GETSCREEN
   waitmc(500)
   IF_PICTURE_IN (0,0, $_xmax, 700, STRCONCAT($check, ".bmp"),-1, 80)
      IF($check=7)
         s()
      else
         MOVE($_return1+6, $_return2+6)
         MOVE($_return1+8, $_return2+7)
         MOVE($_return1+6, $_return2+6)
         MOVE($_return1+7, $_return2+9)
         MOVE($_return1+6, $_return2+6)
         WAITMS(rnd(700,900))
         LCLICK($_return1+6, $_return2+6)
         waitmc(400)
         $check = 0
      END_IF
   END_IF
   INC($check)
   IF($check=10)
      IF($time1 < $_time_t)
         $time1 = $_time_t + 1200
         $hk = 1
         $cx=int($_xmax/3)
         $cy=int($_ymax/2)
         WHILE($hk < 3)
            lDown(210,250)
            waitms(196)
            move($cx, $cy)
            waitms(210)
            lUp($cx, $cy)
            waitmc(200)
            move(0,65)
            wait(1)
            INC ($hk)
            d()
         END_CYC
         $hk = 1
         WHILE($hk < 3)
            waitms(260)
            lDown($cx,250)
            waitms(120)
            move($cx, $cy)
            waitms(210)
            lUp($cx, $cy)
            waitmc(200)
            move(0,65)
            wait(1)
            INC ($hk)
            d()
         END_CYC
         $hk = 1
         WHILE($hk < 3)
            waitms(260)
            lDown($cx, $cy)
            waitms(120)
            move($cx,250)
            waitms(210)
            lUp($cx,250)
            waitmc(200)
            INC ($hk)
         END_CYC
         $hk = 1
         WHILE($hk < 3)
            waitms(260)
            lDown($cx, $cy)
            waitms(120)
            move(100,250)
            waitms(210)
            lUp(210,250)
            waitmc(200)
            INC ($hk)
         END_CYC
      END_IF
   END_IF
END_CYC

Знатоки подскажите как упростить код? Что изменить?
Так и не решил вопрос с квадратом малевича((( Нормально скрипт работает только если указатель навожу на строку закладок браузера (например на эти координаты 0, 65) иначе глючит(( Работоспособность на других бразах и разрешениях не проверял.
И М..Ь  В..У  ЗА...ло выкидывать с сайта!!! Я не могу пользоваться сайтом по человечески!!! Третий раз пишу это сообщение!!!!!!!!!!!!!!!!!

10
Использование / Re: Одноклассники: Аэропорт-Сити
« on: August 18, 2015, 01:28:12 PM »
Quote from: kiril on August 18, 2015, 01:07:39 PM
Всех выкидывает!
 Это введено для тренировки умения концентрироваться на задаче, даётся время на самостоятельный поиск решения и точную формулировку вопросов и ответов.
Хаха))) Прикольно))
Слегка обновил скрипты на сбор самиков и денег со зданий. Надо как то скучковать их вместе. Где то на форуме видел про что то подобное.

11
Использование / Re: Одноклассники: Аэропорт-Сити
« on: August 18, 2015, 12:42:22 PM »
Quote from: Vint on August 18, 2015, 12:11:13 PM
У меня после отключения второго браузера и аппаратного ускорения всё стало видеть.
Браузер нужно перезагрузить естественно.
Да делал все как положено. Но при отключении единственного!!! флеш плеера игра вообще не запускается. Отключение аппаратного ускорения вообще никак не влияет. Естественно перезагружал браузер))
Во дела... А чего меня выкидывает из форума и не зайти обратно минут 5???

12
Использование / Re: Одноклассники: Аэропорт-Сити
« on: August 18, 2015, 11:33:02 AM »
Quote from: Vint on August 18, 2015, 09:03:08 AM
Короче, встроенный надо отключить.
У меня в настройках браза указан только один флеш хотя и стоит в системе отдельный. Отключить нет возможности.
В другой теме видел совет отключить аппаратное ускорение (типа пинка под зад что ли?) - тоже не помогает.

13
Использование / Re: Помогите разобраться с скриптом
« on: August 18, 2015, 03:49:23 AM »
Попробуй так
Code: [Select]
// ShitFind Test v1.0
// Notice: Keep Cmann main window on desktop

getscreen
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "upuc.bmp")
   LOGWRITE ("upuc.bmp found at X=", $_return1, " Y= ", $_return2)   //запишет в лог файл
   move($_return1+8, $_return2+8)
   LCLICK($_return1+8, $_return2+8)
else
   HINTPOPUP("upuc.bmp not found")           //выведет сообщение в трей
END_IF
halt
Привязку к окну браузера то делал?
И да! сам файл upuc.bmp в папке с прогой то есть? )))

14
Использование / Re: Поиск по карте
« on: August 18, 2015, 03:07:58 AM »
Ну что то вроде этого:
[spoiler]
Code: [Select]
// набросок
$check = 1
WHILE($check < 5)
   KEYDOWN(#LEFT //стрелка влево #UP - стрелка вверх #RIGHT - стрелка вправо  #DOWN - стрелка вниз)
   WAITMS(100)
   KEYUP(#LEFT)
   GETSCREEN
   IF_PICTURE_IN (0,0, $_xmax, $_ymax, STRCONCAT($check, ".bmp")) // сделать 4 скрина нужных обьектов
      WAITMS(100)
      SOUND("play.wav")
      HINTPOPUP("Хозяин тут это... нашел!!!", "АААААААА")
      waitmc(100)
      $check = 0
   END_IF
   INC($check)
END_CYC[/spoiler]
Параметры задержек времени сам выстави нужные. Наверняка можно сделать лучше)) Эт я так... по бырому, без долгих раздумий)))

15
Использование / Одноклассники: Аэропорт-Сити
« on: August 18, 2015, 02:56:11 AM »
Всем привет)) Как тут делишки? Вот решил снова заскочить в гости.
А подвигла меня на это, как обычно, вполне понятное желание избавится от муторности в игрульке под названием Аэропорт-Сити.
Играю иногда в неё с браузера гуглус так его хром на одноклассниках (тоже их туда же). Вполне понятно желание разработчиков получить максимум прибыли с этого(да с любого) проекта, но есть моменты которые меня убивают. В частности необходимость неделями тупо производить однотипные действия для посадки гостевых самолетов.
Тем кто играет знакомо чувство когда сажаешь 100500й самолет и тебе в очередной раз выпадает какой то предмет которых штук 100 уже есть, а тот что
нужен где-то все летает в облаках))) Ну решил я это дело короче на поток поставить и вот что на данный момент получилось. Знатокам просьба сразу по макушке не бить))) Но подсказать, если что то можно улучшить))
Скрипт сделал с привязкой к картинкам (может переделаю в будущем что бы избавится от них):
Code: [Select]
SUB(s)
   $Br = 0
   WHILE($Br = 0)
      GETSCREEN
      IF_PICTURE_IN (1000,50, $_xmax, 300,"10.bmp")
         LCLICK($_return1+6, $_return2+6)
         wait(1)
         GETSCREEN
         IF_PICTURE_IN (0,0, $_xmax, $_ymax,"11.bmp")
            LCLICK($_return1+6, $_return2+6)
            wait(1)
         END_IF
         GETSCREEN
         IF_PICTURE_IN (0,0, $_xmax, $_ymax,"12.bmp")
            IF_PICTURE_IN (0,0, $_xmax, $_ymax,"13.bmp")
               LCLICK($_return1+6, $_return2+6)
               $Br = 1
               $check = 0
               wait(6)
            END_IF
         END_IF
      END_IF
      $Br = 1
      $check = 0
   END_CYC
END_SUB

$check = 1
WHILE($check < 11)
   GETSCREEN
   waitmc(500)
   IF_PICTURE_IN (0,0, $_xmax, 700, STRCONCAT($check, ".bmp"))
      IF($check=10)
         s()
      else
         MOVE($_return1+6, $_return2+6)
         MOVE($_return1+8, $_return2+7)
         MOVE($_return1+6, $_return2+6)
         MOVE($_return1+7, $_return2+9)
         MOVE($_return1+6, $_return2+6)
         WAITMS(rnd(700,900))
         LCLICK($_return1+6, $_return2+6)
         waitmc(400)
         $check = 0
      END_IF
   END_IF
   INC($check)
END_CYC

Картинки прилагаю.
Есть ещё мысль прикрутить сюда сбор денег со зданий. Скриптик накидал(надо ещё дорабатывать).

Code: [Select]
SUB(d)
   $ch = 1
   WHILE($ch =1)
      wait(1)
      GETSCREEN
      IF_PICTURE_IN (0,0, $_xmax, $_ymax, "8.bmp")
         WAITMS(100)
         LCLICK($_return1+6, $_return2+6)
         waitmc(rnd(600,900))
      else
         $ch = 0
      END_IF
   END_CYC
END_SUB
$cent_x=int($_xmax/3)
$cent_y=int($_ymax/2)
$hk = 1
WHILE($hk < 3)
   lDown(100,200)
   waitms(196)
   move($cent_x, $cent_y)
   waitms(210)
   lUp($cent_x, $cent_y)
   waitmc(200)
   move(0,65)
   wait(1)
   INC ($hk)
   d()
END_CYC
$hk = 1
WHILE($hk < 3)
   waitms(260)
   lDown($cent_x,250)
   waitms(120)
   move($cent_x, $cent_y)
   waitms(210)
   lUp($cent_x, $cent_y)
   waitmc(200)
   move(0,65)
   wait(1)
   INC ($hk)
   d()
END_CYC
halt

Подскажите люди добрые как это сделать? Условие для его выполнения - срабатывать он должен только 1 раз в час. Так же надо апгрейдить скрипт на плавное перемещение с учетом разных разрешений моников. Я пока просто тупо записал движение мышки по своему экрану. Сейчас 3 часа ночи. вставать на работу в 8.00 Мозг уже отключился, надо тело до кровати нести ))
Да кстати.... А какого... хм... звиняюсь)) Почему при привязке окна игрульки делаю скрин и получаю квадрат Малевича? А если привязать сам браузер, то все нормально...?

Последняя версия скрипта тут
[spoiler]
Code: [Select]
// Àýðîïîðò-Ñèòè


SUB(s)
   $Br = 0
   WHILE($Br = 0)
      GETSCREEN
      IF_PICTURE_IN (1000,50, $_xmax, 300,"7.bmp")
         LCLICK($_return1+6, $_return2+6)
         wait(1)
         GETSCREEN
         IF_PICTURE_IN (0,0, $_xmax, $_ymax,"8.bmp")
            LCLICK($_return1+6, $_return2+6)
            wait(1)
         END_IF
         GETSCREEN
         IF_PICTURE_IN (0,0, $_xmax, $_ymax,"9.bmp")
            wait(1)
            LCLICK(100,150)
            $Br = 1
            $check = 0
            wait(6)
         END_IF
      else
         LCLICK(35,275)
      END_IF
      $Br = 1
      $check = 0
   END_CYC
END_SUB

SUB(d)
   $ch = 1
   WHILE($ch =1)
      wait(1)
      GETSCREEN
      IF_PICTURE_IN (0,0, $_xmax, $_ymax, "6.bmp" )
         WAITMS(100)
         LCLICK($_return1+6, $_return2+6)
         waitmc(rnd(600,900))
      else
         $ch = 0
      END_IF
   END_CYC
END_SUB
$check = 1
WHILE($check < 8)
   GETSCREEN
   waitmc(500)
   IF_PICTURE_IN (0,0, $_xmax, 700, STRCONCAT($check, ".bmp"),-1, 80)
      IF($check=7)
         s()
      else
         MOVE($_return1+6, $_return2+6)
         MOVE($_return1+8, $_return2+7)
         MOVE($_return1+6, $_return2+6)
         MOVE($_return1+7, $_return2+9)
         MOVE($_return1+6, $_return2+6)
         WAITMS(rnd(700,900))
         LCLICK($_return1+6, $_return2+6)
         waitmc(400)
         $check = 0
      END_IF
   END_IF
   INC($check)
   IF($check=10)
      IF($time1 < $_time_t)
         $time1 = $_time_t + 1200
         $hk = 1
         $cx=int($_xmax/3)
         $cy=int($_ymax/2)
         WHILE($hk < 3)
            lDown(210,250)
            waitms(196)
            move($cx, $cy)
            waitms(210)
            lUp($cx, $cy)
            waitmc(200)
            move(0,65)
            wait(1)
            INC ($hk)
            d()
         END_CYC
         $hk = 1
         WHILE($hk < 3)
            waitms(260)
            lDown($cx,250)
            waitms(120)
            move($cx, $cy)
            waitms(210)
            lUp($cx, $cy)
            waitmc(200)
            move(0,65)
            wait(1)
            INC ($hk)
            d()
         END_CYC
         $hk = 1
         WHILE($hk < 3)
            waitms(260)
            lDown($cx, $cy)
            waitms(120)
            move($cx,250)
            waitms(210)
            lUp($cx,250)
            waitmc(200)
            INC ($hk)
         END_CYC
         $hk = 1
         WHILE($hk < 3)
            waitms(260)
            lDown($cx, $cy)
            waitms(120)
            move(100,250)
            waitms(210)
            lUp(210,250)
            waitmc(200)
            INC ($hk)
         END_CYC
      END_IF
   END_IF
END_CYC
[/spoiler]

Pages: [1] 2 3 ... 11