« previous next »
Pages: 1 ... 3 4 [5]

Author Topic: Гнев Богов  (Read 33271 times)

0 Members and 2 Guests are viewing this topic.

Полуночник

  • Активный участник
  • ***
  • Posts: 157
  • Умный не пошлёт на... он скажет -вы далеко пойдёте
    • View Profile
Re: Гнев Богов
« Reply #60 on: July 27, 2014, 04:11:06 PM »
Привет чесному народу)) Надоедают все игрушки иногда)) Вот и ГБ надоел на какое то время... Поиграл в WoT и они тож приелись. Тут решил поиграть снова в ГБ но оказалось что скрипт не работает. Переделал малеха, но пока только чистку почты. Насчёт продажи лута есть проблеммы т.к. с обновой игрушки разрабы внесли всякие ингридиенты которые иногда полезно оставить, а под каждый лут делать выборку нет никакого смысла. Поэтому продажу в магазе я не стал даже трогать. Итак вот скрипт на чистку почты разрешение экрана 1600*900:[spoiler]
Code: [Select]
//Чистка почты
$c1 = 4079426
$c2 = 592154
$c3 = 1399552
$c4 = 7165792

M:
TRAYSAY("Чищу почту") //сообщение в трее о работе кликера (удалите строку если напрягает)
LCLICK(95,85)          //кнопка быстрого перехода на почту на панели закладок в бразе.   менять координаты при необходимости!!!
WAIT(3)
$r1 = 467
$r2 = 344
$r3 = $r1+10
$r4 = $r2+10

po:
GOSUB(Per)
GETSCREEN
if_pixel_in(870, 300, 900, 550, 1339325)
   LCLICK($_return1+10, $_return2+2)
else
   LCLICK(35,85)//кнопка быстрого перехода в магазин на панели закладок в бразе.   менять координаты при необходимости!!!
   TRAYSAY("писем нет")  // сообщение о том что почта пустая и остановка скрипта
   halt
end_if

WAIT(1)
GETSCREEN
if_pixel_in(1045, 555, 1065, 575, 2286590)
else
   goto(UD)
end_if

Me:
WHILE($r1<705)
   IF_PIXEL_IN($r1,$r2, $r3,$r4, 3158058)
      $j = $_return1
      $j2 = $_return2
      goto(psh)
   else
      INC($r1,53)
      INC($r3,53)
   END_IF
END_CYC

WHILE($r1 = 732)
   INC($r2,53)
   INC($r4,53)
   $r1 = 467
   $r3 = $r1+10
END_CYC
IF($r2>556)
   LCLICK(35,85)
   TRAYSAY("забито")    //можно удалить если напрягает, сообщение о том что рюкзак забит полностью и остановка скрипта
   halt
END_IF
goto(Me)

psh:
WAITMS(500)
LCLICK(925,560)
LDOWN(920,564)
WAITMS(RND(700,900))
MOVE($j,$j2)
WAITMS(500)
LUP($j,$j2)
LCLICK(800,10)
KEYPRESS(#ENTER)
GOSUB (PROD)
GOTO(po)

UD:
LCLICK(1070, 540)
GOSUB(Del)
KEYPRESS(#ENTER)
WAIT(1)
GOSUB (Per)
goto(po)

SUB(Ent)
   $br = 0
   WHILE($br = 0)
      WAITMC(500)
      GETSCREEN
      IF_PIXEL_IN(815,340, 830, 360, 55547)
         $br = 1
      END_IF
   END_CYC
END_SUB

SUB(PROD)
   $br = 0
   WHILE($br= 0)
      WAITMC(500)
      GETSCREEN
      IF_PIXEL_IN(815, 340, 830, 360, 55547)
      else
         $br = 1
      END_IF
   END_CYC
END_SUB

SUB(Del)
   $br = 0
   WHILE($br = 0)
      WAITMC(500)
      GETSCREEN
      IF_PIXEL_IN(815, 340, 830, 360, 8901117)
         $br = 1
      END_IF
   END_CYC
END_SUB

SUB(Per)
   $b = 0
   WHILE($b = 0)
      WAIT(1)
      GETSCREEN
      if_pixel_in(820, 387, 821, 388, 9935251)
         $b = 1
      END_IF
   END_CYC
END_SUB

[/spoiler]
И вот кстати ещё... скрипт работает в версии 4.7se............  в более свежих версиях праблы с переходам к sub.
« Last Edit: July 28, 2014, 09:42:49 PM by Полуночник »
Logged

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Гнев Богов
« Reply #61 on: July 27, 2014, 05:59:24 PM »
Вот вариант для 4.10 Единственное не смог исправить выпрыгивание из WHILE через GOTO

Code: (clickermann) [Select]
//Чистка почты
$c1 = 4079426
$c2 = 592154
$c3 = 1399552
$c4 = 7165792

SUB(Per)
   $b = 0
   WHILE($b = 0)
      WAITMS(100)
      GETSCREEN
      if_pixel_in(820,387, 821,388, 9935251)
         $b = 1
      END_IF
   END_CYC
END_SUB

HINTPOPUP("Чищу почту") //сообщение в трее о работе кликера (удалите строку если напрягает)
LCLICK(95,85)  //кнопка быстрого перехода на почту на панели закладок в бразе.   менять координаты при необходимости!!!
WAIT(3)
$r1 = 467
$r2 = 344
$r3 = $r1+10
$r4 = $r2+10

po:
Per()

GETSCREEN
if_pixel_in(870,300, 900,550, 1339325)
   LCLICK($_return1+10, $_return2+2)
else
   LCLICK(35,85)//кнопка быстрого перехода в магазин на панели закладок в бразе.   менять координаты при необходимости!!!
   HINTPOPUP("писем нет")  // сообщение о том что почта пустая и остановка скрипта
   halt
end_if

WAIT(1)
GETSCREEN
if_pixel_in(1045,555, 1065,575, 2286590)
   Me:
   WHILE($r1<705)
      IF_PIXEL_IN($r1,$r2, $r3,$r4, 3158058)
         WAITMS(500)
         LCLICK(925,560)
         LDOWN(920,564)
         WAITMS(RND(700,900))
         MOVE($_return1,$_return2)
         WAITMS(500)
         LUP($_return1,$_return2)
         LCLICK(800,10)
         KEYPRESS(#ENTER)
         $br = 0
         WHILE($br = 0)
            WAITMC(500)
            GETSCREEN
            IF_PIXEL_IN(815, 340, 830, 360, 55547)
            else
               $br = 1
            END_IF
         END_CYC
         GOTO(po)
      else
         INC($r1,53)
         INC($r3,53)
      END_IF
   END_CYC
   
   IF($r1 = 732)
      INC($r2,53)
      INC($r4,53)
      $r1 = 467
      $r3 = $r1+10
   END_IF
   
   IF($r2>556)
      LCLICK(35,85)
      HINTPOPUP("забито")    //можно удалить если напрягает, сообщение о том что рюкзак забит полностью и остановка скрипта
      halt
   END_IF
   goto(Me)
else
   LCLICK(1070, 540)
   $br = 0
   WHILE($br = 0)
      WAITMC(500)
      GETSCREEN
      IF_PIXEL_IN(815, 340, 830, 360, 8901117)
         $br = 1
      END_IF
   END_CYC
   KEYPRESS(#ENTER)
   WAIT(1)
   Per()
end_if
GOTO(po)
Logged

Полуночник

  • Активный участник
  • ***
  • Posts: 157
  • Умный не пошлёт на... он скажет -вы далеко пойдёте
    • View Profile
Re: Гнев Богов
« Reply #62 on: July 27, 2014, 07:49:12 PM »
Quote from: Oraven on July 27, 2014, 05:59:24 PM
Вот вариант для 4.10 Единственное не смог исправить выпрыгивание из WHILE через GOTO
Спасибо)) Проблемма в том, что я с версии 4.4 или 4.6 начинал, сча уже не помню точно... и в те времена то еле разобрался с простейшими функциями..... А сейчас нет ни времени, ни желания разбираться с новыми возможностями проги. Поэтому сделал по старинке)))

Проверил твой скрипт...  Выдает   HINTPOPUP("писем нет")  постоянно...
« Last Edit: July 27, 2014, 08:04:29 PM by Полуночник »
Logged

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Гнев Богов
« Reply #63 on: July 27, 2014, 10:06:59 PM »
Ну свой теперь проверь, начало то одинаковое, я только в место секундной задержки 100 мс поставил в SUB(Per)
Logged

Полуночник

  • Активный участник
  • ***
  • Posts: 157
  • Умный не пошлёт на... он скажет -вы далеко пойдёте
    • View Profile
Re: Гнев Богов
« Reply #64 on: July 28, 2014, 02:30:51 AM »
Quote from: Oraven on July 27, 2014, 10:06:59 PM
Ну свой теперь проверь, начало то одинаковое, я только в место секундной задержки 100 мс поставил в SUB(Per)
А мой работает уже двое суток. Проблем нет...
Эххх.... надо опять мозги на бекрень ставить и привыкать к новшествам проги... Только времени нету свободного.
Logged

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Гнев Богов
« Reply #65 on: July 28, 2014, 08:04:55 AM »
Там новшеств очень мало. Привыкнешь очень быстро.
Logged

Полуночник

  • Активный участник
  • ***
  • Posts: 157
  • Умный не пошлёт на... он скажет -вы далеко пойдёте
    • View Profile
Re: Гнев Богов
« Reply #66 on: July 30, 2014, 03:26:38 PM »
Quote from: Oraven on July 27, 2014, 10:06:59 PM
Ну свой теперь проверь, начало то одинаковое, я только в место секундной задержки 100 мс поставил в SUB(Per)
Решил переделать свой скрипт..... ух.... всё... кончились мои мозги.... вскипели... Помогите найти ошибку:
[spoiler]
Code: [Select]
$b=0
WHILE($b=0)
   $r1 = 467
   WAIT(1)
   GETSCREEN
   if_pixel_in(870, 300, 900, 550, 1339325)
      print("есть письмо")
      LCLICK($_return1+10, $_return2+2)
      WAIT(1)
      GETSCREEN
      if_pixel_in(1045, 555, 1065, 575, 2286590)
         print("есть хлам")
      else
         print("нет хлама")
         LCLICK(1070, 540)
         $b2 = 0
         WHILE($b2 = 0)
            WAITMC(500)
            GETSCREEN
            IF_PIXEL_IN(815,340, 830, 360, 8901117)
               $b2 = 1
            END_IF
         END_CYC
         KEYPRESS(#ENTER)
         WAIT(1)
         GOSUB (Per)
         goto(D)
      end_if
      WHILE($r1<705)
         IF_PIXEL_IN($r1,$r2, $r3,$r4, 3158058)
            print("есть место")
            $j = $_return1
            $j2 = $_return2
            WAITMS(500)
            LCLICK(925,560)
            LDOWN(920,564)
            WAITMS(RND(700,900))
            MOVE($j,$j2)
            WAITMS(500)
            LUP($j,$j2)
            LCLICK(800,10)
            KEYPRESS(#ENTER)
            print("перенёс")
            GOSUB (Per)
            $r1 = 706
         else
            INC($r1,53)
            INC($r3,53)
            WHILE($r1 = 732)
               INC($r2,53)
               INC($r4,53)
               $r1 = 467
               $r3 = $r1+10
               IF($r2>556)
                  $r1 = 706
                  $b=1
                  print("нет мест")
               END_IF
            END_CYC
         END_IF
      END_CYC
      D:
   else
      LCLICK(35,85) // переход в магаз менять координаты или убрать строку
      print("нет писем")
      halt
   end_if
END_CYC

lClick(1399,58)

[/spoiler]
Упорно отказывается продолжать цикл(WHILE($b=0)) и после этого участка кода
            KEYPRESS(#ENTER)
            print("перенёс")
            GOSUB (Per)
            $r1 = 706

переходит на lClick(1399,58)


ХМ........ странно... переименовал переменную $b в $b1 и всё заработало нормально.... почему?
« Last Edit: July 30, 2014, 05:29:46 PM by Полуночник »
Logged

Полуночник

  • Активный участник
  • ***
  • Posts: 157
  • Умный не пошлёт на... он скажет -вы далеко пойдёте
    • View Profile
Re: Гнев Богов
« Reply #67 on: July 30, 2014, 05:40:40 PM »
Свежая версия скрипта на чистку почты с разрешением 1600*900
[spoiler]
Code: [Select]

// почта
// Автор: Полуночник
// Версия: 15.8 (30.07.2014)

HINTPOPUP("Чищу почту")
LCLICK(95,85)          //координаты кнопки перехода на почту на панели закладок. Или менять на свои или сделать координаты кнопки обновления страницы или вообще убрать)).
WAIT(4)
$r1 = 467
$r2 = 352
$r3 = $r1+10
$r4 = $r2+10
GOSUB(Per)
WHILE($r2<564)
   WAITMS(200)
   GOSUB(Per)
   GETSCREEN
   if_pixel_in(870, 300, 900, 550, 1339325)
      LCLICK($_return1+10, $_return2+2)
      WAITMS(300)
      GETSCREEN
      if_pixel_in(1045, 555, 1065, 575, 2286590)
      else
         LCLICK(1070, 540)
         $b2=0
         WHILE($b2=0)
            WAITMC(500)
            GETSCREEN
            IF_PIXEL_IN(815,340, 830, 360, 8901117)
               $b2 = 1
            END_IF
         END_CYC
         KEYPRESS(#ENTER)
         WAITMS(200)
         GOSUB (Per)
         goto(D)
      end_if
      WAITMS(200)
      E:
      IF_PIXEL_IN($r1,$r2, $r3,$r4, 3158058)
         $j = $_return1
         $j2 = $_return2
         WAITMS(300)
         LCLICK(925,560)
         LDOWN(920,564)
         WAITMS(700)
         MOVE($j,$j2)
         WAITMS(500)
         LUP($j,$j2)
         LCLICK(800,10)
         WAITMS(200)
         KEYPRESS(#ENTER)
         GOSUB (Per)
      else
         INC($r1,53)
         $r3 = $r1+10
         WAITMS(100)
         IF($r1 = 732)
            INC($r2,53)
            $r4 = $r2+10
            $r1 = 467
            $r3 = $r1+10
            WAITMS(100)
         END_IF
         IF($r2 = 564)
            goto(D)
         END_IF
         goto(E)
      END_IF
   else
      LCLICK(35,85) // переход в магаз менять координаты или убрать строку
      HINTPOPUP("нет писем")
      halt
   end_if
   D:
END_CYC
halt


SUB(Per)
   $b = 0
   WHILE($b = 0)
      WAIT(1)
      GETSCREEN
      if_pixel_in(820, 387, 821, 388, 9935251)
         $b = 1
      END_IF
   END_CYC
END_SUB


[/spoiler]
« Last Edit: July 31, 2014, 08:50:30 AM by Полуночник »
Logged

Полуночник

  • Активный участник
  • ***
  • Posts: 157
  • Умный не пошлёт на... он скажет -вы далеко пойдёте
    • View Profile
Re: Гнев Богов
« Reply #68 on: July 31, 2014, 01:34:28 AM »
Для себя сделал связку Clickermann + iMacros (скачать для лисы можно тут https://addons.mozilla.org/en-US/firefox/addon/imacros-for-firefox/). Кликер чистит почту, потом запускает аймакрос, тот продаёт хлам и по новой.
Обратите внимание: если будете так же делать: аймакрос продает ВСЁ ПОДРЯД!!!! Так что если продадите что то нужное - я не виноват))))
скрипт для кликера:[spoiler]
Code: [Select]
// почта
// Автор: Полуночник
// Версия: 15.8 (30.07.2014)
A:
HINTPOPUP("Чищу почту")
LCLICK(95,85)
WAIT(4)
$r1 = 467
$r2 = 352
$r3 = $r1+10
$r4 = $r2+10
GOSUB(Per)
WHILE($r2<564)
   WAITMS(200)
   GOSUB(Per)
   GETSCREEN
   if_pixel_in(870, 300, 900, 550, 1339325)
      LCLICK($_return1+10, $_return2+2)
      WAITMS(300)
      GETSCREEN
      if_pixel_in(1045, 555, 1065, 575, 2286590)
      else
         LCLICK(1070, 540)
         $b2=0
         WHILE($b2=0)
            WAITMS(300)
            GETSCREEN
            IF_PIXEL_IN(815,340, 830, 360, 8901117)
               $b2 = 1
            END_IF
         END_CYC
         KEYPRESS(#ENTER)
         WAITMS(200)
         GOSUB (Per)
         goto(D)
      end_if
      WAITMS(200)
      E:
      IF_PIXEL_IN($r1,$r2, $r3,$r4, 3158058)
         $j = $_return1
         $j2 = $_return2
         WAITMS(300)
         LCLICK(925,560)
         LDOWN(920,564)
         WAITMS(700)
         MOVE($j,$j2)
         WAITMS(500)
         LUP($j,$j2)
         LCLICK(800,10)
         WAITMS(200)
         KEYPRESS(#ENTER)
         GOSUB (Per)
      else
         INC($r1,53)
         $r3 = $r1+10
         WAITMS(100)
         IF($r1 = 732)
            INC($r2,53)
            $r4 = $r2+10
            $r1 = 467
            $r3 = $r1+10
            WAITMS(100)
         END_IF
         IF($r2 = 564)
            goto(D)
         END_IF
         goto(E)
      END_IF
   else
      LCLICK(35,85)
      HINTPOPUP("нет писем")
      halt
   end_if
   D:
END_CYC

lClick(1399,58)
waitms(300)
lClick(131,550)
waitms(300)
$b = 0
WHILE($b = 0)
   WAIT(1)
   GETSCREEN
   if_pixel_in(170, 550, 171, 551, 16053492)
   else
      $b = 1
   END_IF
END_CYC
lClick(212,116)
goto(A)


SUB(Per)
   $b = 0
   WHILE($b = 0)
      WAIT(1)
      GETSCREEN
      if_pixel_in(820, 387, 821, 388, 9935251)
         $b = 1
      END_IF
   END_CYC
END_SUB

[/spoiler]

Скрипт для iMacros:
[spoiler]
Code: [Select]
VERSION BUILD=8810214 RECORDER=FX
TAB T=1
URL GOTO=http://gnevbogov.ru/shop
TAG POS=20 TYPE=A ATTR=HREF:http://gnevbogov.ru/shop#
TAG POS=2 TYPE=BUTTON ATTR=TXT:Да
TAG POS=20 TYPE=A ATTR=HREF:http://gnevbogov.ru/shop#
TAG POS=2 TYPE=BUTTON ATTR=TXT:Да
TAG POS=20 TYPE=A ATTR=HREF:http://gnevbogov.ru/shop#
TAG POS=2 TYPE=BUTTON ATTR=TXT:Да
TAG POS=20 TYPE=A ATTR=HREF:http://gnevbogov.ru/shop#
TAG POS=2 TYPE=BUTTON ATTR=TXT:Да
TAG POS=20 TYPE=A ATTR=HREF:http://gnevbogov.ru/shop#
TAG POS=2 TYPE=BUTTON ATTR=TXT:Да
TAG POS=20 TYPE=A ATTR=HREF:http://gnevbogov.ru/shop#
TAG POS=2 TYPE=BUTTON ATTR=TXT:Да
TAG POS=20 TYPE=A ATTR=HREF:http://gnevbogov.ru/shop#
TAG POS=2 TYPE=BUTTON ATTR=TXT:Да
TAG POS=20 TYPE=A ATTR=HREF:http://gnevbogov.ru/shop#
TAG POS=2 TYPE=BUTTON ATTR=TXT:Да
TAG POS=20 TYPE=A ATTR=HREF:http://gnevbogov.ru/shop#
TAG POS=2 TYPE=BUTTON ATTR=TXT:Да
TAG POS=20 TYPE=A ATTR=HREF:http://gnevbogov.ru/shop#
TAG POS=2 TYPE=BUTTON ATTR=TXT:Да
TAG POS=20 TYPE=A ATTR=HREF:http://gnevbogov.ru/shop#
TAG POS=2 TYPE=BUTTON ATTR=TXT:Да
TAG POS=20 TYPE=A ATTR=HREF:http://gnevbogov.ru/shop#
TAG POS=2 TYPE=BUTTON ATTR=TXT:Да
TAG POS=20 TYPE=A ATTR=HREF:http://gnevbogov.ru/shop#
TAG POS=2 TYPE=BUTTON ATTR=TXT:Да
TAG POS=20 TYPE=A ATTR=HREF:http://gnevbogov.ru/shop#
TAG POS=2 TYPE=BUTTON ATTR=TXT:Да
TAG POS=20 TYPE=A ATTR=HREF:http://gnevbogov.ru/shop#
TAG POS=2 TYPE=BUTTON ATTR=TXT:Да
TAG POS=20 TYPE=A ATTR=HREF:http://gnevbogov.ru/shop#
TAG POS=2 TYPE=BUTTON ATTR=TXT:Да
[/spoiler]


Если что пишите письма на зелёных американских рублях)))
« Last Edit: July 31, 2014, 08:47:17 AM by Полуночник »
Logged
Pages: 1 ... 3 4 [5]
« previous next »