Автор Тема: Бот для Fantastic Fishing  (Прочитано 48171 раз)

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

naftik

  • Зашел в гости
  • *
  • Сообщений: 3
    • Просмотр профиля
Бот для Fantastic Fishing
« : Октябрь 09, 2013, 01:00:28 pm »
Помощи прошу в создании бота для Fantastic Fishing.
Цель - ловля в автоматическом режиме на 3! удочки.
На сегодня с грехом пополам слепил работающий скрипт на 1 удочку

Код: Clickermann
  1. SUB(check)
  2. GETSCREEN
  3. IF_PIXEL_IN(346,519,346,519,11183005) - ищет изменяющийся пиксель цвета (при поклёвке) иконки на АКТИВНОЙ удочке
  4. wait(1)
  5. GOSUB(check)
  6. Else
  7. LCLICK(346,519) - по иконке АКТИВНОЙ удочки
  8. WAIT(7) - ожидание перед подсечкой
  9. WAITMS(54 * $K_SPEED)
  10. KEYDOWN(32) - подсечка
  11. WAITMS(31 * $K_SPEED)
  12. KEYUP(32)
  13. WAITMS(1 * $K_SPEED)
  14. KEYDOWN(72) - тянет удочку
  15. WAITMS(20 * $K_SPEED)
  16. KEYUP(72)  - тянет удочку
  17. WAITMS(1 * $K_SPEED)
  18. KEYDOWN(71) - мотает катушку
  19. WAITMS(20 * $K_SPEED)
  20. KEYUP(71) - мотает катушку
  21. WAITMS(1 * $K_SPEED)
  22. KEYDOWN(72)
  23. WAITMS(20 * $K_SPEED)
  24. KEYUP(72)
  25. WAITMS(1 * $K_SPEED)
  26. KEYDOWN(71)
  27. WAITMS(20 * $K_SPEED)
  28. KEYUP(71)
  29. WAITMS(1 * $K_SPEED)
  30. KEYDOWN(72)
  31. WAITMS(20 * $K_SPEED)
  32. KEYUP(72)
  33. WAITMS(1 * $K_SPEED)
  34. KEYDOWN(71)
  35. WAITMS(20 * $K_SPEED)
  36. KEYUP(71)
  37. WAITMS(1 * $K_SPEED)
  38. KEYDOWN(72)
  39. WAITMS(20 * $K_SPEED)
  40. KEYUP(72)
  41. WAITMS(1 * $K_SPEED)
  42. KEYDOWN(71)
  43. WAITMS(20 * $K_SPEED)
  44. KEYUP(71)
  45. WAITMS(1 * $K_SPEED)
  46. KEYDOWN(72)
  47. WAITMS(20 * $K_SPEED)
  48. KEYUP(72)
  49. WAITMS(1 * $K_SPEED)
  50. KEYDOWN(71)
  51. WAITMS(20 * $K_SPEED)
  52. KEYUP(71)
  53. WAITMS(1 * $K_SPEED)
  54. KEYDOWN(72)
  55. WAITMS(20 * $K_SPEED)
  56. KEYUP(72)
  57. WAITMS(1 * $K_SPEED)
  58. KEYDOWN(71)
  59. WAITMS(20 * $K_SPEED)
  60. KEYUP(71)
  61. WAITMS(1 * $K_SPEED)
  62. KEYDOWN(72)
  63. WAITMS(20 * $K_SPEED)
  64. KEYUP(72)
  65. WAITMS(1 * $K_SPEED)
  66. KEYDOWN(71)
  67. WAITMS(20 * $K_SPEED)
  68. KEYUP(71)
  69. WAITMS(1 * $K_SPEED)
  70. KEYDOWN(72)
  71. WAITMS(20 * $K_SPEED)
  72. KEYUP(72)
  73. WAITMS(1 * $K_SPEED)
  74. KEYDOWN(71)
  75. WAITMS(20 * $K_SPEED)
  76. KEYUP(71)
  77. WAITMS(1 * $K_SPEED)
  78. KEYDOWN(72)
  79. WAITMS(20 * $K_SPEED)
  80. KEYUP(72)
  81. WAITMS(1 * $K_SPEED)
  82. KEYDOWN(71)
  83. WAITMS(20 * $K_SPEED)
  84. KEYUP(71)
  85. WAITMS(1 * $K_SPEED)
  86. KEYDOWN(72)
  87. WAITMS(20 * $K_SPEED)
  88. KEYUP(72)
  89. WAITMS(1 * $K_SPEED)
  90. KEYDOWN(71)
  91. WAITMS(20 * $K_SPEED)
  92. KEYUP(71)
  93. WAITMS(1 * $K_SPEED)
  94. KEYDOWN(72)
  95. WAITMS(20 * $K_SPEED)
  96. KEYUP(72)
  97. WAITMS(1 * $K_SPEED)
  98. KEYDOWN(71)
  99. WAITMS(20 * $K_SPEED)
  100. KEYUP(71)
  101. WAITMS(1 * $K_SPEED)
  102. KEYDOWN(72)
  103. WAITMS(20 * $K_SPEED)
  104. KEYUP(72)
  105. WAITMS(1 * $K_SPEED)
  106. KEYDOWN(71)
  107. WAITMS(20 * $K_SPEED)
  108. KEYUP(71)
  109. WAITMS(1 * $K_SPEED)
  110. KEYDOWN(72)
  111. WAITMS(20 * $K_SPEED)
  112. KEYUP(72)
  113. WAITMS(1 * $K_SPEED)
  114. KEYDOWN(71)
  115. WAITMS(20 * $K_SPEED)
  116. KEYUP(71)
  117. WAITMS(1 * $K_SPEED)
  118. KEYDOWN(72)
  119. WAITMS(20 * $K_SPEED)
  120. KEYUP(72)
  121. WAITMS(1 * $K_SPEED)
  122. KEYDOWN(71)
  123. WAITMS(20 * $K_SPEED)
  124. KEYUP(71)
  125. WAITMS(1 * $K_SPEED)
  126. KEYDOWN(72)
  127. WAITMS(20 * $K_SPEED)
  128. KEYUP(72)
  129. WAITMS(1 * $K_SPEED)
  130. KEYDOWN(71)
  131. WAITMS(20 * $K_SPEED)
  132. KEYUP(71)
  133. WAITMS(1 * $K_SPEED)
  134. KEYDOWN(72)
  135. WAITMS(20 * $K_SPEED)
  136. KEYUP(72)
  137. WAITMS(1 * $K_SPEED)
  138. KEYDOWN(71)
  139. WAITMS(20 * $K_SPEED)
  140. KEYUP(71)
  141. WAITMS(1 * $K_SPEED)
  142. KEYDOWN(72)
  143. WAITMS(20 * $K_SPEED)
  144. KEYUP(72)
  145. WAITMS(1 * $K_SPEED)
  146. KEYDOWN(71)
  147. WAITMS(20 * $K_SPEED)
  148. KEYUP(71)
  149. WAITMS(1 * $K_SPEED)
  150. KEYDOWN(72)
  151. WAITMS(20 * $K_SPEED)
  152. KEYUP(72)
  153. WAITMS(1 * $K_SPEED)
  154. KEYDOWN(71)
  155. WAITMS(20 * $K_SPEED)
  156. KEYUP(71)
  157. WAITMS(1 * $K_SPEED)
  158. KEYDOWN(72)
  159. WAITMS(20 * $K_SPEED)
  160. KEYUP(72)
  161. WAITMS(1 * $K_SPEED)
  162. KEYDOWN(71)
  163. WAITMS(20 * $K_SPEED)
  164. KEYUP(71)
  165. WAITMS(1 * $K_SPEED)
  166. KEYDOWN(72)
  167. WAITMS(20 * $K_SPEED)
  168. KEYUP(72)
  169. WAITMS(1 * $K_SPEED)
  170. KEYDOWN(71)
  171. WAITMS(20 * $K_SPEED)
  172. KEYUP(71)
  173. WAITMS(1 * $K_SPEED)
  174. KEYDOWN(72)
  175. WAITMS(20 * $K_SPEED)
  176. KEYUP(72)
  177. WAITMS(1 * $K_SPEED)
  178. KEYDOWN(71)
  179. WAITMS(20 * $K_SPEED)
  180. KEYUP(71)
  181. WAITMS(1 * $K_SPEED)
  182. KEYDOWN(72)
  183. WAITMS(20 * $K_SPEED)
  184. KEYUP(72)
  185. WAITMS(1 * $K_SPEED)
  186. KEYDOWN(71)
  187. WAITMS(20 * $K_SPEED)
  188. KEYUP(71)
  189. WAITMS(1 * $K_SPEED)
  190. KEYDOWN(72)
  191. WAITMS(20 * $K_SPEED)
  192. KEYUP(72)
  193. WAITMS(1 * $K_SPEED)
  194. KEYDOWN(71)
  195. WAITMS(20 * $K_SPEED)
  196. KEYUP(71)
  197. WAITMS(1 * $K_SPEED)
  198. KEYDOWN(72)
  199. WAITMS(20 * $K_SPEED)
  200. KEYUP(72)
  201. WAITMS(1 * $K_SPEED)
  202. KEYDOWN(71)
  203. WAITMS(20 * $K_SPEED)
  204. KEYUP(71)
  205. WAITMS(1 * $K_SPEED)
  206. KEYDOWN(72)
  207. WAITMS(20 * $K_SPEED)
  208. KEYUP(72)
  209. WAITMS(1 * $K_SPEED)
  210. KEYDOWN(71)
  211. WAITMS(20 * $K_SPEED)
  212. KEYUP(71)
  213. WAITMS(1 * $K_SPEED)
  214. KEYDOWN(72)
  215. WAITMS(20 * $K_SPEED)
  216. KEYUP(72)
  217. WAITMS(1 * $K_SPEED)
  218. KEYDOWN(71)
  219. WAITMS(20 * $K_SPEED)
  220. KEYUP(71)
  221. WAITMS(1 * $K_SPEED)
  222. KEYDOWN(72)
  223. WAITMS(20 * $K_SPEED)
  224. KEYUP(72)
  225. WAITMS(20 * $K_SPEED)
  226. KEYDOWN(84) - забрасывает удочку
  227. WAITMS(5[20 * $K_SPEED)
  228. KEYUP(84) - забрасывает удочку

Помогите сделать что то примерно такое только на 3 удочки т.е. что бы скрипт искал изменяющиеся цвета пикселя иконки удочки в трёх разных местах экрана и при нахождении сначала активизировал именно эту удочку (клик по иконке удочки либо одна из клавиш 1,2,3) и запускал цикл с подсечкой, выматыванием, забросом и возвращался к поиску.
« Последнее редактирование: Октябрь 01, 2014, 02:51:59 pm от Oraven »

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Сообщений: 3149
  • Котэ
    • Просмотр профиля
Re: Бот для Fantastic Fishing
« Ответ #1 : Октябрь 09, 2013, 02:41:43 pm »
Скрипт не верный.

Комментарии пишутся через две косых черты -  // коммент
SUB - это субпрограмма. ей здесь не место. Скрипт по логике и так перейдет в начало если пиксел найден.
при записи переменная $K_SPEED = 4 это число умножается на задержку WAITMS(31 * $K_SPEED) то есть фактическая задержка при записи была 124
Ты эту переменную не прописал и все задержки ускорились в 4 раза
В конце вообще какая то хрень WAITMS(5[20 * $K_SPEED)
Ну а про то что в конце условия надо писать завершающий END_IF тебе видать вообще наплевать  :-\

Хотя бы так напиши, а то на это смотреть страшно...
Код: Clickermann
  1. $K_SPEED = 4
  2.  
  3. GETSCREEN
  4. IF_PIXEL_IN(346,519,346,519,11183005)
  5.   wait(1)
  6. Else
  7.   // тут твоя запись
  8. END_IF
« Последнее редактирование: Октябрь 09, 2013, 03:54:27 pm от Oraven »

naftik

  • Зашел в гости
  • *
  • Сообщений: 3
    • Просмотр профиля
Re: Бот для Fantastic Fishing
« Ответ #2 : Октябрь 09, 2013, 05:02:54 pm »
Исправил ... согласен так правильнее но сути это не меняет

Код: Clickermann
  1. [/$K_SPEED = 4
  2.  
  3. GETSCREEN
  4. IF_PIXEL_IN(346,519,346,519,11183005) // ищет изменяющийся пиксель цвета (при поклёвке) иконки на АКТИВНОЙ удочке
  5. wait(1)
  6. Else
  7. LCLICK($_return1,$_return2) // по иконке удочки
  8. wait(7)
  9. WAITMS(54 * $K_SPEED)
  10. KEYDOWN(32)
  11. WAITMS(31 * $K_SPEED)
  12. KEYUP(32)
  13. WAITMS(1 * $K_SPEED)
  14. KEYDOWN(72)
  15. WAITMS(20 * $K_SPEED)
  16. KEYUP(72)
  17. WAITMS(1 * $K_SPEED)
  18. KEYDOWN(71)
  19. WAITMS(20 * $K_SPEED)
  20. KEYUP(71)
  21. KEYDOWN(84)
  22. WAITMS(52 * $K_SPEED)
  23. KEYUP(84)
  24. END_IF]

naftik

  • Зашел в гости
  • *
  • Сообщений: 3
    • Просмотр профиля
Re: Бот для Fantastic Fishing
« Ответ #3 : Октябрь 09, 2013, 05:07:02 pm »
Это поиск только одного параметра а как их 3 задать и при условии нахождения одного из них срабатывал клик по возвращённому адресу и дальше по схеме пробел, выматывание, заброс и поиск сначала

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Сообщений: 3149
  • Котэ
    • Просмотр профиля
Re: Бот для Fantastic Fishing
« Ответ #4 : Октябрь 09, 2013, 05:47:43 pm »
Так и пропиши по порядку для трех удочек. Только координаты анализа поправь.

Код: Clickermann
  1. GETSCREEN
  2. IF_PIXEL_IN(346,519,346,519,11183005)
  3. Else
  4.   LCLICK($_return1,$_return2) // по иконке удочки
  5.   wait(7)
  6.   KEYDOWN(#SPACE)
  7.   WAITMS(150)
  8.   KEYUP(#SPACE)
  9.   WAITMS(50)
  10.   KEYDOWN(#H)
  11.   WAITMS(100)
  12.   KEYUP(#H)
  13.   WAITMS(50)
  14.   KEYDOWN(#G)
  15.   WAITMS(100)
  16.   KEYUP(#G)
  17.   WAITMS(50)
  18.   KEYDOWN(#T)
  19.   WAITMS(200)
  20.   KEYUP(#T)
  21. END_IF
  22.  
  23. GETSCREEN
  24. IF_PIXEL_IN(346,519,346,519,11183005)
  25. Else
  26.   LCLICK($_return1,$_return2) // по иконке удочки
  27.   wait(7)
  28.   KEYDOWN(#SPACE)
  29.   WAITMS(150)
  30.   KEYUP(#SPACE)
  31.   WAITMS(50)
  32.   KEYDOWN(#H)
  33.   WAITMS(100)
  34.   KEYUP(#H)
  35.   WAITMS(50)
  36.   KEYDOWN(#G)
  37.   WAITMS(100)
  38.   KEYUP(#G)
  39.   WAITMS(50)
  40.   KEYDOWN(#T)
  41.   WAITMS(200)
  42.   KEYUP(#T)
  43. END_IF
  44.  
  45. GETSCREEN
  46. IF_PIXEL_IN(346,519,346,519,11183005)
  47. Else
  48.   LCLICK($_return1,$_return2) // по иконке удочки
  49.   wait(7)
  50.   KEYDOWN(#SPACE)
  51.   WAITMS(150)
  52.   KEYUP(#SPACE)
  53.   WAITMS(50)
  54.   KEYDOWN(#H)
  55.   WAITMS(100)
  56.   KEYUP(#H)
  57.   WAITMS(50)
  58.   KEYDOWN(#G)
  59.   WAITMS(100)
  60.   KEYUP(#G)
  61.   WAITMS(50)
  62.   KEYDOWN(#T)
  63.   WAITMS(200)
  64.   KEYUP(#T)
  65. END_IF
  66.  
  67. WAITMS(200) // общая задержка

Леха

  • Зашел в гости
  • *
  • Сообщений: 1
    • Просмотр профиля
Re: Бот для Fantastic Fishing
« Ответ #5 : Декабрь 30, 2013, 08:57:01 pm »
Андрей привет посмотри пожалуйста вот этот скрипт на тему fantastik fishing чего здесь не так и как сделать на три удочки. как ты говорил прописать 3 раза я прописал но не работает.
GETSCREEN
IF_PIXEL_IN(478,557,478557,10460908)
  LCLICK(478,557)
WAIT(15)
KEYPRESS(#SPACE)
WAIT(2)
KEYUP(#SPACE)
WAIT(1)
KEYDOWN(#G)
WAIT(2)
KEYUP(#G)
WAIT(2)
KEYDOWN(#H)
WAIT(2)
KEYUP(#H)
WAIT(1)
KEYDOWN(#SPACE)
WAIT(1)
KEYUP(#SPACE)
WAIT(1)
KEYPRESS(#T)
WAIT(1)
KEYUP(#T) 
END_IF

Юрец

  • Зашел в гости
  • *
  • Сообщений: 1
    • Просмотр профиля
Re: Бот для Fantastic Fishing
« Ответ #6 : Апрель 03, 2014, 05:51:24 pm »
как сохранить и запустить этого бота?

BROOO

  • Зашел в гости
  • *
  • Сообщений: 4
    • Просмотр профиля
Re: Бот для Fantastic Fishing
« Ответ #7 : Июнь 03, 2014, 04:03:12 pm »
Интересует бот для вышесказанной программы, работа будет оценена соответствующе. Есть неплохая заготовка, нужна поддержка.

BigGul

  • Зашел в гости
  • *
  • Сообщений: 14
    • Просмотр профиля
Re: Бот для Fantastic Fishing
« Ответ #8 : Июнь 05, 2014, 05:33:35 am »
есть у кого рабочий скрипт на эту игру?

BigGul

  • Зашел в гости
  • *
  • Сообщений: 14
    • Просмотр профиля
Re: Бот для Fantastic Fishing
« Ответ #9 : Июнь 05, 2014, 05:36:30 am »
Так и пропиши по порядку для трех удочек. Только координаты анализа поправь.

Код: Clickermann
  1. GETSCREEN
  2. IF_PIXEL_IN(346,519,346,519,11183005)
  3. Else
  4.   LCLICK($_return1,$_return2) // по иконке удочки
  5.   wait(7)
  6.   KEYDOWN(#SPACE)
  7.   WAITMS(150)
  8.   KEYUP(#SPACE)
  9.   WAITMS(50)
  10.   KEYDOWN(#H)
  11.   WAITMS(100)
  12.   KEYUP(#H)
  13.   WAITMS(50)
  14.   KEYDOWN(#G)
  15.   WAITMS(100)
  16.   KEYUP(#G)
  17.   WAITMS(50)
  18.   KEYDOWN(#T)
  19.   WAITMS(200)
  20.   KEYUP(#T)
  21. END_IF
  22.  
  23. GETSCREEN
  24. IF_PIXEL_IN(346,519,346,519,11183005)
  25. Else
  26.   LCLICK($_return1,$_return2) // по иконке удочки
  27.   wait(7)
  28.   KEYDOWN(#SPACE)
  29.   WAITMS(150)
  30.   KEYUP(#SPACE)
  31.   WAITMS(50)
  32.   KEYDOWN(#H)
  33.   WAITMS(100)
  34.   KEYUP(#H)
  35.   WAITMS(50)
  36.   KEYDOWN(#G)
  37.   WAITMS(100)
  38.   KEYUP(#G)
  39.   WAITMS(50)
  40.   KEYDOWN(#T)
  41.   WAITMS(200)
  42.   KEYUP(#T)
  43. END_IF
  44.  
  45. GETSCREEN
  46. IF_PIXEL_IN(346,519,346,519,11183005)
  47. Else
  48.   LCLICK($_return1,$_return2) // по иконке удочки
  49.   wait(7)
  50.   KEYDOWN(#SPACE)
  51.   WAITMS(150)
  52.   KEYUP(#SPACE)
  53.   WAITMS(50)
  54.   KEYDOWN(#H)
  55.   WAITMS(100)
  56.   KEYUP(#H)
  57.   WAITMS(50)
  58.   KEYDOWN(#G)
  59.   WAITMS(100)
  60.   KEYUP(#G)
  61.   WAITMS(50)
  62.   KEYDOWN(#T)
  63.   WAITMS(200)
  64.   KEYUP(#T)
  65. END_IF
  66.  
  67. WAITMS(200) // общая задержка

что толку в этом повторении для трех удочек если одна работает неправильно!


BROOO

  • Зашел в гости
  • *
  • Сообщений: 4
    • Просмотр профиля
Re: Бот для Fantastic Fishing
« Ответ #10 : Июнь 05, 2014, 05:59:31 pm »
Есть компилированный рабочий исходник, но как вытащить код из него? требует маленькой доработки*

aden

  • Оплот сообщества
  • ****
  • Сообщений: 363
    • Просмотр профиля
Re: Бот для Fantastic Fishing
« Ответ #11 : Июнь 05, 2014, 07:44:32 pm »
Есть компилированный рабочий исходник, но как вытащить код из него? требует маленькой доработки*
никак, файл с раширением exe невозможно полностью декомпилировать
компилированный рабочий исходник
вы путаете понятия

vk.com/clickermannclubskype: aden16rus
Скрипты для троецарствие | darkorbit | драконы вечности | timezero
[spoiler=начинающие программисты]

BROOO

  • Зашел в гости
  • *
  • Сообщений: 4
    • Просмотр профиля
Re: Бот для Fantastic Fishing
« Ответ #12 : Июнь 06, 2014, 01:20:07 pm »
Возможно, я не мастер в этой среде, так что там? Получается?

BigGul

  • Зашел в гости
  • *
  • Сообщений: 14
    • Просмотр профиля
Re: Бот для Fantastic Fishing
« Ответ #13 : Июнь 19, 2014, 07:16:34 am »

Код: Clickermann
  1. //Определяем координаты
  2.  
  3. While($x=0)
  4.   if(iskeydown(1)=1)
  5.      $x=$_xmouse
  6.      $y=$_ymouse
  7.      LOGWRITE ("Координаты",$x,$y)
  8.   Else
  9.      WAITMS(50)
  10.   end_if
  11. end_cyc
  12.  
  13. //Заброс удочки
  14. LCLICK($x,$y)
  15. LOGWRITE (Забросили)
  16. wait(3)
  17.  
  18. b:
  19. GETSCREEN
  20. COLORMODE(8, $x+21,503,$x+23,505)
  21. IF(PXL ($x+23,504)=16777215)
  22.   //LOGWRITE (Не клюет)
  23.   wait(1)
  24.   goto (b)
  25. Else
  26.   LOGWRITE (Клюнула)
  27.   LCLICK($x+23,505) // по иконке
  28.   wait(8)
  29.   KEYDOWN(#SPACE)
  30.   WAITMS(50)
  31.   KEYUP(#SPACE)
  32.   wait(1)
  33.  
  34. // Цикл тянем
  35.   GETSCREEN
  36.   COLORMODE(8, $x+21,503,$x+23,505)
  37.   while(PXL ($x+23,503)=16777215)
  38.    else
  39.      LOGWRITE (Тянем)
  40.      WAITMS(50)
  41.      KEYDOWN(#H)
  42.      WAITMS(300)
  43.      KEYUP(#H)
  44.      WAITMS(50)
  45.      KEYDOWN(#G)
  46.      WAITMS(280)
  47.      KEYUP(#G)
  48.      WAITMS(200)
  49.  
  50.      GETSCREEN
  51.      COLORMODE(7, 10,30,981,518)
  52.      IF(PXL (415,448)=8388607)
  53.         INC($myvar, 1);
  54.         LOGWRITE (Поймали," ",$myvar)
  55.         wait(2)
  56.         LCLICK(411,476)  // 8355711
  57.         wait(1)
  58.         keypress(#SPACE)
  59.         goto(a);
  60.      END_IF
  61.   end_cyc
  62. END_IF
  63. a:
  64.  


Вот мой вариант. для одной удочки
« Последнее редактирование: Июнь 19, 2014, 07:26:00 am от BigGul »

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Сообщений: 3149
  • Котэ
    • Просмотр профиля
Re: Бот для Fantastic Fishing
« Ответ #14 : Июнь 19, 2014, 08:57:29 am »
Вот мой вариант. для одной удочки

Исправил ошибки. Строки всегда пишутся в кавычках, и не нужно оставлять мусор ввиде ";"
Код: Clickermann
  1. //Определяем координаты
  2.  
  3. While($x=0)
  4.   if(iskeydown(1)=1)
  5.      $x=$_xmouse
  6.      $y=$_ymouse
  7.      LOGWRITE ("Координаты: ",$x," ",$y)
  8.   Else
  9.      WAITMS(50)
  10.   end_if
  11. end_cyc
  12.  
  13. //Заброс удочки
  14. LCLICK($x,$y)
  15. LOGWRITE ("Забросили")
  16. wait(3)
  17.  
  18. b:
  19. GETSCREEN
  20. COLORMODE(8, $x+21,503,$x+23,505)
  21. IF(PXL($x+23,504)=16777215)
  22.   //LOGWRITE ("Не клюет")
  23.   wait(1)
  24.   goto(b)
  25. Else
  26.   LOGWRITE ("Клюнула")
  27.   LCLICK($x+23,505) // по иконке
  28.   wait(8)
  29.   KEYDOWN(#SPACE)
  30.   WAITMS(50)
  31.   KEYUP(#SPACE)
  32.   wait(1)
  33.  
  34.   // Цикл тянем
  35.   GETSCREEN
  36.   COLORMODE(8, $x+21,503,$x+23,505)
  37.   $check = 0
  38.   while((PXL($x+23,503)=16777215) & ($check = 0))
  39.      LOGWRITE ("Тянем")
  40.      WAITMS(50)
  41.      KEYDOWN(#H)
  42.      WAITMS(300)
  43.      KEYUP(#H)
  44.      WAITMS(50)
  45.      KEYDOWN(#G)
  46.      WAITMS(280)
  47.      KEYUP(#G)
  48.      WAITMS(200)
  49.  
  50.      GETSCREEN
  51.      COLORMODE(7, 10,30,981,518)
  52.      IF(PXL(415,448)=8388607)
  53.         INC($myvar, 1)
  54.         LOGWRITE ("Поймали ",$myvar)
  55.         wait(2)
  56.         LCLICK(411,476)
  57.         wait(1)
  58.         keypress(#SPACE)
  59.         $check = 1
  60.      END_IF
  61.      GETSCREEN
  62.      COLORMODE(8, $x+21,503,$x+23,505)
  63.   end_cyc
  64. END_IF
« Последнее редактирование: Июнь 19, 2014, 09:08:07 am от Oraven »