« previous next »
Pages: [1]

Author Topic: Одноклассники: Аэропорт-Сити  (Read 7032 times)

0 Members and 2 Guests are viewing this topic.

Полуночник

  • Активный участник
  • ***
  • Posts: 157
  • Умный не пошлёт на... он скажет -вы далеко пойдёте
    • View Profile
Одноклассники: Аэропорт-Сити
« 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]
« Last Edit: August 20, 2015, 12:29:24 AM by Полуночник »
Logged

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Одноклассники: Аэропорт-Сити
« Reply #1 on: August 18, 2015, 09:03:08 AM »
Quote from: Полуночник on August 18, 2015, 02:56:11 AM
...Играю иногда в неё с браузера гуглус так его хром...
Да кстати.... А какого... хм... звиняюсь)) Почему при привязке окна игрульки делаю скрин и получаю квадрат Малевича? А если привязать сам браузер, то все нормально...?

Потому, что в хроме свой встроенный Flash? который при установке "внешнего" для всей системы никуда не девается. И о чудо, они работают вместе друг другу мешая.
Короче, встроенный надо отключить.
http://crapware.aidf.org/forum/index.php?topic=952.msg4188#msg4188
« Last Edit: August 18, 2015, 09:05:24 AM by Vint »
Logged

Полуночник

  • Активный участник
  • ***
  • Posts: 157
  • Умный не пошлёт на... он скажет -вы далеко пойдёте
    • View Profile
Re: Одноклассники: Аэропорт-Сити
« Reply #2 on: August 18, 2015, 11:33:02 AM »
Quote from: Vint on August 18, 2015, 09:03:08 AM
Короче, встроенный надо отключить.
У меня в настройках браза указан только один флеш хотя и стоит в системе отдельный. Отключить нет возможности.
В другой теме видел совет отключить аппаратное ускорение (типа пинка под зад что ли?) - тоже не помогает.
« Last Edit: August 18, 2015, 11:41:15 AM by Полуночник »
Logged

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Одноклассники: Аэропорт-Сити
« Reply #3 on: August 18, 2015, 12:11:13 PM »
У меня после отключения второго браузера и аппаратного ускорения всё стало видеть.
Браузер нужно перезагрузить естественно.
Logged

Полуночник

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

Полуночник

  • Активный участник
  • ***
  • Posts: 157
  • Умный не пошлёт на... он скажет -вы далеко пойдёте
    • View Profile
Re: Одноклассники: Аэропорт-Сити
« Reply #5 on: August 18, 2015, 01:28:12 PM »
Quote from: kiril on August 18, 2015, 01:07:39 PM
Всех выкидывает!
 Это введено для тренировки умения концентрироваться на задаче, даётся время на самостоятельный поиск решения и точную формулировку вопросов и ответов.
Хаха))) Прикольно))
Слегка обновил скрипты на сбор самиков и денег со зданий. Надо как то скучковать их вместе. Где то на форуме видел про что то подобное.
« Last Edit: August 18, 2015, 01:34:02 PM by Полуночник »
Logged

Полуночник

  • Активный участник
  • ***
  • Posts: 157
  • Умный не пошлёт на... он скажет -вы далеко пойдёте
    • View Profile
Re: Одноклассники: Аэропорт-Сити
« Reply #6 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) иначе глючит(( Работоспособность на других бразах и разрешениях не проверял.
И М..Ь  В..У  ЗА...ло выкидывать с сайта!!! Я не могу пользоваться сайтом по человечески!!! Третий раз пишу это сообщение!!!!!!!!!!!!!!!!!
« Last Edit: August 20, 2015, 12:29:50 AM by Полуночник »
Logged

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Одноклассники: Аэропорт-Сити
« Reply #7 on: August 20, 2015, 07:27:40 AM »
Да бывает иногда пишет что от типо нет доступа к базе данных из за перегрузки серверов.

Каким образом дойдет до IF($check=10) если цикл WHILE($check < 8). Тоесть когда $check будет 8 цикл перестанет повторяться.
Logged

Полуночник

  • Активный участник
  • ***
  • Posts: 157
  • Умный не пошлёт на... он скажет -вы далеко пойдёте
    • View Profile
Re: Одноклассники: Аэропорт-Сити
« Reply #8 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
Картинки прилагаются. К сожалению, из-за того что в хроме не могу сделать нормальную привязку, иногда происходят глюки - тыкает не туда(((
Logged
Pages: [1]
« previous next »