Автор Тема: помогите адаптировать код Танки онлайн  (Прочитано 597 раз)

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

Karabas

  • Освоившийся
  • **
  • Сообщений: 88
    • Просмотр профиля
есть старенький. но в условиях отсутствия. какой либо альтернативы, код для бота танкионлайн
помогите убрать из кода скрипт отвечающий за движение корпуса (єто клавиши "w""a""s""d" или стрелочки)
и еще башня крутится ориентируясь на цвет пикселя. не могу понять алгоритм работы
Код: Clickermann
  1. // $w - время поворота башни на угол 90 градусов (в миллисекундах)сюда вводим значение полученное в коде настройки
  2. //$w=1785  // смоки м0 убираем  двойной слеш(//) у пушки которую мы выбрали и меняем на наше значение
  3. //$w=1442  // смоки м2
  4. //$w=1130  // смоки м3  
  5. //$w=1328  // твинс м1
  6. //$w=1164  // твинс м
  7. //$w=1030  // твинс м3
  8. //$w=2900  // рельса м0  
  9. //$w=2525  // рельса м1
  10. //$w=1556 // рельса м3
  11. //$w=1836  // рик м0
  12. //$w=1241  // рик м3
  13. //$w=2200  // гром м0
  14. //$w=2030  // гром м1
  15.  
  16. $x0=0
  17. $yt=0
  18. $x3=1020  
  19. $yb=800    
  20.  
  21. $h = wndfind("FlashEx Client v2.1.2  ( forum333.com )")
  22. //$h = wndfind("Tanki Online - Google Chrome")
  23.  
  24. $x1=$x3/3
  25. $x2=$x1+$x1
  26. $pcolor= 1883722
  27. $t=$_time_t
  28. //$ycolor=1034712
  29. IF($h > 0)
  30. wndpos($h, $x0,$yt)
  31. wndsize($h, $x3, $yb)
  32. WNDSTATE ($h,0)
  33. WNDSTATE ($h,1)
  34. LCLICK ($x3/2, $yb/2)
  35. END_IF
  36. LOGCLEAR
  37.  
  38. while ($h>0)
  39. //---------------------------------------------
  40. SUB(tg)
  41. $r=$w/18
  42. IF ($xc<$x3/2)
  43. $tg=1000*($x3/2-$xc)/($yb-$yc)
  44. else
  45. $tg=1000*($xc-$x3/2)/($yb-$yc)        
  46. END_IF
  47. IF ($xc=$x3/2)
  48. $tg=0
  49. $r=0
  50. $abc=0
  51. END_IF
  52. IF ($tg>0 & $tg<45)
  53. $r=$r/2
  54. $abc=2
  55. END_IF
  56. IF ($tg>44 & $tg<88)
  57. $r=$r
  58. $abc=5
  59. END_IF
  60. IF ($tg>87 & $tg<133)
  61. $r=$r+$r/2
  62. $abc=7
  63. END_IF
  64. IF ($tg>132 & $tg<177)
  65. $r=$r*2
  66. $abc=10
  67. END_IF
  68. IF ($tg>176 & $tg<269)
  69. $r=$r*3
  70. $abc=15
  71. END_IF
  72. IF ($tg>268 & $tg<365)
  73. $r=$r*4
  74. $abc=20
  75. END_IF
  76. IF ($tg>364 & $tg<467)
  77. $r=$r*5
  78. $abc=25
  79. END_IF
  80. IF ($tg>466 & $tg<578)
  81. $r=$r*6
  82. $abc=30
  83. END_IF
  84. IF ($tg>577 & $tg<701)
  85. $r=$r*7
  86. $abc=35
  87. END_IF
  88. IF ($tg>700 & $tg<840)
  89. $r=$r*8
  90. $abc=40
  91. END_IF
  92. IF ($tg>839 & $tg<1001)
  93. $r=$r*9
  94. $abc=45
  95. END_IF
  96. IF ($tg>1000 & $tg<1193)
  97. $r=$r*10
  98. $abc=50
  99. END_IF
  100. IF ($tg>1192 & $tg<1429)
  101. $r=$r*11
  102. $abc=55
  103. END_IF
  104. IF ($tg>1428 & $tg<1733)
  105. $r=$r*12
  106. $abc=60
  107. END_IF
  108. IF ($tg>1732 & $tg<2146)
  109. $r=$r*13
  110. $abc=65
  111. END_IF
  112. IF ($tg>2145 & $tg<2748)
  113. $r=$r*14
  114. $abc=70
  115. END_IF
  116. IF ($tg>2747 & $tg<3733)
  117. $r=$r*15
  118. $abc=75
  119. END_IF
  120. IF ($tg>3732 & $tg<5672)
  121. $r=$r*16
  122. $abc=80
  123. END_IF
  124. IF ($tg>5671 & $tg<11431)
  125. $r=$r*17
  126. $abc=85
  127. END_IF
  128. IF (($tg>11430 )  | ($tg<0))
  129. $r=$r*18
  130. $abc=90
  131. END_IF
  132. end_sub
  133. //---------------------------------------------
  134. SUB(target)
  135. while  (($xc<$x3/2) | ($xc>$x3/2) & ($xc>0))
  136. IF  (($xc<$x3/2) & ($xc>0))
  137. GOSUB(tg)
  138. keydown (#z)
  139. waitms ($r)
  140. keyup (#z)
  141.  Getscreen
  142. IF_PIXEL_IN ($x1,$yc-30,$x2,$yc+30, $pcolor)
  143. $xc=$_return1+10
  144. $yc=$_return2
  145. else
  146. $xc=0
  147. END_IF
  148. END_IF
  149. IF  (($xc>$x3/2) & ($xc>0))
  150. GOSUB(tg)
  151. keydown (#x)
  152. waitms ($r)
  153. keyup (#x)
  154.  Getscreen
  155. IF_PIXEL_IN ($x1,$yc-30,$x2,$yc+30, $pcolor)
  156. $xc=$_return1+10
  157. $yc=$_return2
  158. else
  159. $xc=0
  160. END_IF
  161. END_IF
  162. IF ($abc < 10 )
  163. keydown (#SPACE)
  164. else
  165. keyup (#SPACE)
  166. End_IF
  167. end_cyc
  168. end_sub
  169. //----------------------------------------------
  170. m1:
  171. keyup (#SPACE)
  172. IF ($_time_t-$t>60)
  173. $t=$_time_t
  174. wndpos($h, $x0,$yt)
  175. wndsize($h, $x3, $yb)
  176. WNDSTATE ($h,0)
  177. WNDSTATE ($h,1)
  178. LCLICK ($x3/2, $yb/2)
  179. END_IF
  180. Getscreen
  181. $zone_l=pxlcount ($x0,$yt,$x1,$yb, $pcolor)
  182. $zone_c=pxlcount ($x1,$yt,$x2,$yb, $pcolor)
  183. $zone_r=pxlcount ($x2,$yt,$x3,$yb, $pcolor)
  184. IF (($zone_c=0) & ($zone_l>0))
  185. IF_PIXEL_IN ($x0,$yt,$x1,$yb, $pcolor)
  186. $xc=$_return1+10
  187. $yc=$_return2
  188. GOSUB(tg)
  189. END_IF
  190. keydown (#z)
  191. waitms ($r)
  192. keyup (#z)
  193. goto(m1)
  194. END_IF
  195. IF (($zone_c=0) & ($zone_r>0))
  196. IF_PIXEL_IN ($x2,$yt,$x3,$yb, $pcolor)
  197. $xc=$_return1+10
  198. $yc=$_return2
  199. GOSUB(tg)
  200. END_IF
  201. keydown (#x)                            
  202. waitms ($r)
  203. keyup (#x)
  204. goto(m1)
  205. END_IF
  206. IF ($zone_c>0)
  207. IF_PIXEL_IN ($x1,$yt,$x2,$yb, $pcolor)
  208. $xc=$_return1+10
  209. $yc=$_return2
  210. $i=0
  211. END_IF
  212. IF_PIXEL_IN ($x1,$yb/3,$x2,$yb, $pcolor)
  213. $xc=$_return1+10
  214. $yc=$_return2
  215. $i=0
  216. END_IF
  217. GOSUB(target)
  218. END_IF
  219.  
  220. IF (($zone_c=0) & ($zone_r=0) & ($zone_l=0))
  221. $zx=RNDFROM (67,88, 90)
  222. $ad=RNDFROM (65,68)
  223. IF ($i<3)
  224. $i=$i+1
  225. keydown (#w)
  226. keydown ($zx)
  227. keydown ($ad)
  228. waitms ($w/18*12)
  229. keyup ($ad)
  230. keyup ($zx)
  231. waitms ($w/18*9)  
  232. keyup (#w)
  233. else
  234. $i=0
  235. keydown (#s)
  236. keydown (#c)
  237. keydown ($ad)
  238. waitms ($w+$w/2)
  239. keyup ($ad)
  240. keyup (#s)
  241. keyup (#c)
  242. END_IF
  243. END_IF
  244. goto(m1)    
  245. end_cyc
« Последнее редактирование: Март 05, 2019, 05:49:18 pm от Oraven »

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Сообщений: 3633
  • Котэ
    • Просмотр профиля
Re: помогите адаптировать код
« Ответ #1 : Март 05, 2019, 05:04:18 pm »
У тебя какая версия кликера? Вызов GOSUB работает не выше 4.8 версии.
При том скрипт не корректен. Описания подпрограмм не могут быть вложены в циклы или условия!

Так не правильно
Код: Clickermann
  1. IF ($tg>0 & $tg<45)

Так правильно
Код: Clickermann
  1. IF (($tg>0) & ($tg<45))
« Последнее редактирование: Март 05, 2019, 05:09:02 pm от Oraven »

Karabas

  • Освоившийся
  • **
  • Сообщений: 88
    • Просмотр профиля
Re: помогите адаптировать код
« Ответ #2 : Март 05, 2019, 05:21:50 pm »
а есть где взять версию 4.6 по моему под нее писали

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Сообщений: 3633
  • Котэ
    • Просмотр профиля
Re: помогите адаптировать код
« Ответ #3 : Март 05, 2019, 05:47:21 pm »
а есть где взять версию 4.6 по моему под нее писали

Этого не требуется, код легко поправить под последнюю версию. 4.13
Заодно исправил ошибки.
Код: Clickermann
  1. // $w - время поворота башни на угол 90 градусов (в миллисекундах)сюда вводим значение полученное в коде настройки
  2. //$w=1785  // смоки м0 убираем  двойной слеш(//) у пушки которую мы выбрали и меняем на наше значение
  3. //$w=1442  // смоки м2
  4. //$w=1130  // смоки м3
  5. //$w=1328  // твинс м1
  6. //$w=1164  // твинс м
  7. //$w=1030  // твинс м3
  8. //$w=2900  // рельса м0
  9. //$w=2525  // рельса м1
  10. //$w=1556 // рельса м3
  11. //$w=1836  // рик м0
  12. //$w=1241  // рик м3
  13. //$w=2200  // гром м0
  14. //$w=2030  // гром м1
  15.  
  16. $x0=0
  17. $yt=0
  18. $x3=1020
  19. $yb=800
  20.  
  21. //=============================================
  22.  
  23.  
  24. SUB(tg)
  25.   $r=$w/18
  26.   IF ($xc<$x3/2)
  27.      $tg=1000*($x3/2-$xc)/($yb-$yc)
  28.   else
  29.      $tg=1000*($xc-$x3/2)/($yb-$yc)
  30.   END_IF
  31.   IF ($xc=$x3/2)
  32.      $tg=0
  33.      $r=0
  34.      $abc=0
  35.   END_IF
  36.   IF (($tg>0) & ($tg<45))
  37.      $r=$r/2
  38.      $abc=2
  39.   END_IF
  40.   IF (($tg>44) & ($tg<88))
  41.      $r=$r
  42.      $abc=5
  43.   END_IF
  44.   IF (($tg>87) & ($tg<133))
  45.      $r=$r+$r/2
  46.      $abc=7
  47.   END_IF
  48.   IF (($tg>132) & ($tg<177))
  49.      $r=$r*2
  50.      $abc=10
  51.   END_IF
  52.   IF (($tg>176) & ($tg<269))
  53.      $r=$r*3
  54.      $abc=15
  55.   END_IF
  56.   IF (($tg>268) & ($tg<365))
  57.      $r=$r*4
  58.      $abc=20
  59.   END_IF
  60.   IF (($tg>364) & ($tg<467))
  61.      $r=$r*5
  62.      $abc=25
  63.   END_IF
  64.   IF (($tg>466) & ($tg<578))
  65.      $r=$r*6
  66.      $abc=30
  67.   END_IF
  68.   IF (($tg>577) & ($tg<701))
  69.      $r=$r*7
  70.      $abc=35
  71.   END_IF
  72.   IF (($tg>700) & ($tg<840))
  73.      $r=$r*8
  74.      $abc=40
  75.   END_IF
  76.   IF (($tg>839) & ($tg<1001))
  77.      $r=$r*9
  78.      $abc=45
  79.   END_IF
  80.   IF (($tg>1000) & ($tg<1193))
  81.      $r=$r*10
  82.      $abc=50
  83.   END_IF
  84.   IF (($tg>1192) & ($tg<1429))
  85.      $r=$r*11
  86.      $abc=55
  87.   END_IF
  88.   IF (($tg>1428) & ($tg<1733))
  89.      $r=$r*12
  90.      $abc=60
  91.   END_IF
  92.   IF (($tg>1732) & ($tg<2146))
  93.      $r=$r*13
  94.      $abc=65
  95.   END_IF
  96.   IF (($tg>2145) & ($tg<2748))
  97.      $r=$r*14
  98.      $abc=70
  99.   END_IF
  100.   IF (($tg>2747) & ($tg<3733))
  101.      $r=$r*15
  102.      $abc=75
  103.   END_IF
  104.   IF (($tg>3732) & ($tg<5672))
  105.      $r=$r*16
  106.      $abc=80
  107.   END_IF
  108.   IF (($tg>5671) & ($tg<11431))
  109.      $r=$r*17
  110.      $abc=85
  111.   END_IF
  112.   IF (($tg>11430) | ($tg<0))
  113.      $r=$r*18
  114.      $abc=90
  115.   END_IF
  116. end_sub
  117. //---------------------------------------------
  118. SUB(target)
  119.   while  (($xc<$x3/2) | ($xc>$x3/2) & ($xc>0))
  120.      IF  (($xc<$x3/2) & ($xc>0))
  121.         tg()
  122.         keydown (#z)
  123.         waitms ($r)
  124.         keyup (#z)
  125.         Getscreen
  126.         IF_PIXEL_IN ($x1,$yc-30,$x2,$yc+30, $pcolor)
  127.            $xc=$_return1+10
  128.            $yc=$_return2
  129.         else
  130.            $xc=0
  131.         END_IF
  132.      END_IF
  133.      IF  (($xc>$x3/2) & ($xc>0))
  134.         tg()
  135.         keydown (#x)
  136.         waitms ($r)
  137.         keyup (#x)
  138.         Getscreen
  139.         IF_PIXEL_IN ($x1,$yc-30,$x2,$yc+30, $pcolor)
  140.            $xc=$_return1+10
  141.            $yc=$_return2
  142.         else
  143.            $xc=0
  144.         END_IF
  145.      END_IF
  146.      IF ($abc < 10)
  147.         keydown (#SPACE)
  148.      else
  149.         keyup (#SPACE)
  150.      End_IF
  151.   end_cyc
  152. end_sub
  153.  
  154. //=============================================
  155.  
  156. $h = wndfind("FlashEx Client v2.1.2  ( forum333.com )")
  157. //$h = wndfind("Tanki Online - Google Chrome")
  158.  
  159. $x1=$x3/3
  160. $x2=$x1+$x1
  161. $pcolor=1883722
  162. $t=$_time_t
  163. //$ycolor=1034712
  164. IF($h > 0)
  165.   wndpos($h, $x0,$yt)
  166.   wndsize($h, $x3,$yb)
  167.   WNDSTATE ($h,0)
  168.   WNDSTATE ($h,1)
  169.   LCLICK (int($x3/2),int($yb/2))
  170. END_IF
  171. LOGCLEAR
  172.  
  173. while ($h>0)
  174.   m1:
  175.   keyup (#SPACE)
  176.   IF ($_time_t-$t>60)
  177.      $t=$_time_t
  178.      wndpos($h, $x0,$yt)
  179.      wndsize($h, $x3,$yb)
  180.      WNDSTATE ($h,0)
  181.      WNDSTATE ($h,1)
  182.      LCLICK (int($x3/2),int($yb/2))
  183.   END_IF
  184.   Getscreen
  185.   $zone_l=pxlcount ($x0,$yt,$x1,$yb, $pcolor)
  186.   $zone_c=pxlcount ($x1,$yt,$x2,$yb, $pcolor)
  187.   $zone_r=pxlcount ($x2,$yt,$x3,$yb, $pcolor)
  188.   IF (($zone_c=0) & ($zone_l>0))
  189.      IF_PIXEL_IN ($x0,$yt,$x1,$yb, $pcolor)
  190.         $xc=$_return1+10
  191.         $yc=$_return2
  192.         tg()
  193.      END_IF
  194.      keydown (#z)
  195.      waitms ($r)
  196.      keyup (#z)
  197.      goto(m1)
  198.   END_IF
  199.   IF (($zone_c=0) & ($zone_r>0))
  200.      IF_PIXEL_IN ($x2,$yt,$x3,$yb, $pcolor)
  201.         $xc=$_return1+10
  202.         $yc=$_return2
  203.         tg()
  204.      END_IF
  205.      keydown (#x)
  206.      waitms ($r)
  207.      keyup (#x)
  208.      goto(m1)
  209.   END_IF
  210.   IF ($zone_c>0)
  211.      IF_PIXEL_IN ($x1,$yt,$x2,$yb, $pcolor)
  212.         $xc=$_return1+10
  213.         $yc=$_return2
  214.         $i=0
  215.      END_IF
  216.      IF_PIXEL_IN ($x1,$yb/3,$x2,$yb, $pcolor)
  217.         $xc=$_return1+10
  218.         $yc=$_return2
  219.         $i=0
  220.      END_IF
  221.      target()
  222.   END_IF
  223.  
  224.   IF (($zone_c=0) & ($zone_r=0) & ($zone_l=0))
  225.      $zx=RNDFROM (67,88,90)
  226.      $ad=RNDFROM (65,68)
  227.      IF ($i<3)
  228.         $i=$i+1
  229.         keydown (#w)
  230.         keydown ($zx)
  231.         keydown ($ad)
  232.         waitms (int($w/18*12))
  233.         keyup ($ad)
  234.         keyup ($zx)
  235.         waitms (int($w/18*9))
  236.         keyup (#w)
  237.      else
  238.         $i=0
  239.         keydown (#s)
  240.         keydown (#c)
  241.         keydown ($ad)
  242.         waitms (int($w+$w/2))
  243.         keyup ($ad)
  244.         keyup (#s)
  245.         keyup (#c)
  246.      END_IF
  247.   END_IF
  248.   goto(m1)
  249. end_cyc

Karabas

  • Освоившийся
  • **
  • Сообщений: 88
    • Просмотр профиля
Re: помогите адаптировать код Танки онлайн
« Ответ #4 : Март 05, 2019, 06:00:51 pm »
благодарочка

Karabas

  • Освоившийся
  • **
  • Сообщений: 88
    • Просмотр профиля
Re: помогите адаптировать код Танки онлайн
« Ответ #5 : Март 05, 2019, 07:38:48 pm »
башня крутит и стреляет а ноги едут куда хотят.... как отключит езду танка?

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Сообщений: 3633
  • Котэ
    • Просмотр профиля
Re: помогите адаптировать код Танки онлайн
« Ответ #6 : Март 05, 2019, 07:47:28 pm »
башня крутит и стреляет а ноги едут куда хотят.... как отключит езду танка?

Думаю так.
За комментировал нажатия WSAD
Код: Clickermann
  1. // $w - время поворота башни на угол 90 градусов (в миллисекундах)сюда вводим значение полученное в коде настройки
  2. //$w=1785  // смоки м0 убираем  двойной слеш(//) у пушки которую мы выбрали и меняем на наше значение
  3. //$w=1442  // смоки м2
  4. //$w=1130  // смоки м3
  5. //$w=1328  // твинс м1
  6. //$w=1164  // твинс м
  7. //$w=1030  // твинс м3
  8. //$w=2900  // рельса м0
  9. //$w=2525  // рельса м1
  10. //$w=1556 // рельса м3
  11. //$w=1836  // рик м0
  12. //$w=1241  // рик м3
  13. //$w=2200  // гром м0
  14. //$w=2030  // гром м1
  15.  
  16. $x0=0
  17. $yt=0
  18. $x3=1020
  19. $yb=800
  20.  
  21. //=============================================
  22.  
  23.  
  24. SUB(tg)
  25.   $r=$w/18
  26.   IF ($xc<$x3/2)
  27.      $tg=1000*($x3/2-$xc)/($yb-$yc)
  28.   else
  29.      $tg=1000*($xc-$x3/2)/($yb-$yc)
  30.   END_IF
  31.   IF ($xc=$x3/2)
  32.      $tg=0
  33.      $r=0
  34.      $abc=0
  35.   END_IF
  36.   IF (($tg>0) & ($tg<45))
  37.      $r=$r/2
  38.      $abc=2
  39.   END_IF
  40.   IF (($tg>44) & ($tg<88))
  41.      $r=$r
  42.      $abc=5
  43.   END_IF
  44.   IF (($tg>87) & ($tg<133))
  45.      $r=$r+$r/2
  46.      $abc=7
  47.   END_IF
  48.   IF (($tg>132) & ($tg<177))
  49.      $r=$r*2
  50.      $abc=10
  51.   END_IF
  52.   IF (($tg>176) & ($tg<269))
  53.      $r=$r*3
  54.      $abc=15
  55.   END_IF
  56.   IF (($tg>268) & ($tg<365))
  57.      $r=$r*4
  58.      $abc=20
  59.   END_IF
  60.   IF (($tg>364) & ($tg<467))
  61.      $r=$r*5
  62.      $abc=25
  63.   END_IF
  64.   IF (($tg>466) & ($tg<578))
  65.      $r=$r*6
  66.      $abc=30
  67.   END_IF
  68.   IF (($tg>577) & ($tg<701))
  69.      $r=$r*7
  70.      $abc=35
  71.   END_IF
  72.   IF (($tg>700) & ($tg<840))
  73.      $r=$r*8
  74.      $abc=40
  75.   END_IF
  76.   IF (($tg>839) & ($tg<1001))
  77.      $r=$r*9
  78.      $abc=45
  79.   END_IF
  80.   IF (($tg>1000) & ($tg<1193))
  81.      $r=$r*10
  82.      $abc=50
  83.   END_IF
  84.   IF (($tg>1192) & ($tg<1429))
  85.      $r=$r*11
  86.      $abc=55
  87.   END_IF
  88.   IF (($tg>1428) & ($tg<1733))
  89.      $r=$r*12
  90.      $abc=60
  91.   END_IF
  92.   IF (($tg>1732) & ($tg<2146))
  93.      $r=$r*13
  94.      $abc=65
  95.   END_IF
  96.   IF (($tg>2145) & ($tg<2748))
  97.      $r=$r*14
  98.      $abc=70
  99.   END_IF
  100.   IF (($tg>2747) & ($tg<3733))
  101.      $r=$r*15
  102.      $abc=75
  103.   END_IF
  104.   IF (($tg>3732) & ($tg<5672))
  105.      $r=$r*16
  106.      $abc=80
  107.   END_IF
  108.   IF (($tg>5671) & ($tg<11431))
  109.      $r=$r*17
  110.      $abc=85
  111.   END_IF
  112.   IF (($tg>11430) | ($tg<0))
  113.      $r=$r*18
  114.      $abc=90
  115.   END_IF
  116. end_sub
  117. //---------------------------------------------
  118. SUB(target)
  119.   while  (($xc<$x3/2) | ($xc>$x3/2) & ($xc>0))
  120.      IF  (($xc<$x3/2) & ($xc>0))
  121.         tg()
  122.         keydown (#z)
  123.         waitms ($r)
  124.         keyup (#z)
  125.         Getscreen
  126.         IF_PIXEL_IN ($x1,$yc-30,$x2,$yc+30, $pcolor)
  127.            $xc=$_return1+10
  128.            $yc=$_return2
  129.         else
  130.            $xc=0
  131.         END_IF
  132.      END_IF
  133.      IF  (($xc>$x3/2) & ($xc>0))
  134.         tg()
  135.         keydown (#x)
  136.         waitms ($r)
  137.         keyup (#x)
  138.         Getscreen
  139.         IF_PIXEL_IN ($x1,$yc-30,$x2,$yc+30, $pcolor)
  140.            $xc=$_return1+10
  141.            $yc=$_return2
  142.         else
  143.            $xc=0
  144.         END_IF
  145.      END_IF
  146.      IF ($abc < 10)
  147.         keydown (#SPACE)
  148.      else
  149.         keyup (#SPACE)
  150.      End_IF
  151.   end_cyc
  152. end_sub
  153.  
  154. //=============================================
  155.  
  156. $h = wndfind("FlashEx Client v2.1.2  ( forum333.com )")
  157. //$h = wndfind("Tanki Online - Google Chrome")
  158.  
  159. $x1=$x3/3
  160. $x2=$x1+$x1
  161. $pcolor=1883722
  162. $t=$_time_t
  163. //$ycolor=1034712
  164. IF($h > 0)
  165.   wndpos($h, $x0,$yt)
  166.   wndsize($h, $x3,$yb)
  167.   WNDSTATE ($h,0)
  168.   WNDSTATE ($h,1)
  169.   LCLICK (int($x3/2),int($yb/2))
  170. END_IF
  171. LOGCLEAR
  172.  
  173. while ($h>0)
  174.   m1:
  175.   keyup (#SPACE)
  176.   IF ($_time_t-$t>60)
  177.      $t=$_time_t
  178.      wndpos($h, $x0,$yt)
  179.      wndsize($h, $x3,$yb)
  180.      WNDSTATE ($h,0)
  181.      WNDSTATE ($h,1)
  182.      LCLICK (int($x3/2),int($yb/2))
  183.   END_IF
  184.   Getscreen
  185.   $zone_l=pxlcount ($x0,$yt,$x1,$yb, $pcolor)
  186.   $zone_c=pxlcount ($x1,$yt,$x2,$yb, $pcolor)
  187.   $zone_r=pxlcount ($x2,$yt,$x3,$yb, $pcolor)
  188.   IF (($zone_c=0) & ($zone_l>0))
  189.      IF_PIXEL_IN ($x0,$yt,$x1,$yb, $pcolor)
  190.         $xc=$_return1+10
  191.         $yc=$_return2
  192.         tg()
  193.      END_IF
  194.      keydown (#z)
  195.      waitms ($r)
  196.      keyup (#z)
  197.      goto(m1)
  198.   END_IF
  199.   IF (($zone_c=0) & ($zone_r>0))
  200.      IF_PIXEL_IN ($x2,$yt,$x3,$yb, $pcolor)
  201.         $xc=$_return1+10
  202.         $yc=$_return2
  203.         tg()
  204.      END_IF
  205.      keydown (#x)
  206.      waitms ($r)
  207.      keyup (#x)
  208.      goto(m1)
  209.   END_IF
  210.   IF ($zone_c>0)
  211.      IF_PIXEL_IN ($x1,$yt,$x2,$yb, $pcolor)
  212.         $xc=$_return1+10
  213.         $yc=$_return2
  214.         $i=0
  215.      END_IF
  216.      IF_PIXEL_IN ($x1,$yb/3,$x2,$yb, $pcolor)
  217.         $xc=$_return1+10
  218.         $yc=$_return2
  219.         $i=0
  220.      END_IF
  221.      target()
  222.   END_IF
  223.  
  224.   IF (($zone_c=0) & ($zone_r=0) & ($zone_l=0))
  225.      $zx=RNDFROM (67,88,90) // C X Z
  226.      $ad=RNDFROM (65,68) // A D
  227.      IF ($i<3)
  228.         $i=$i+1
  229. //         keydown (#w)
  230.         keydown ($zx)
  231. //         keydown ($ad)
  232.         waitms (int($w/18*12))
  233. //         keyup ($ad)
  234.         keyup ($zx)
  235.         waitms (int($w/18*9))
  236. //         keyup (#w)
  237.      else
  238.         $i=0
  239. //         keydown (#s)
  240.         keydown (#c)
  241. //         keydown ($ad)
  242.         waitms (int($w+$w/2))
  243. //         keyup ($ad)
  244. //         keyup (#s)
  245.         keyup (#c)
  246.      END_IF
  247.   END_IF
  248.   goto(m1)
  249. end_cyc

Karabas

  • Освоившийся
  • **
  • Сообщений: 88
    • Просмотр профиля
Re: помогите адаптировать код Танки онлайн
« Ответ #7 : Март 05, 2019, 08:31:30 pm »
ща попробую

Karabas

  • Освоившийся
  • **
  • Сообщений: 88
    • Просмотр профиля
Re: помогите адаптировать код Танки онлайн
« Ответ #8 : Март 05, 2019, 09:00:24 pm »
все равно ездит

Космич

  • Активный участник
  • ***
  • Сообщений: 229
    • Просмотр профиля
Re: помогите адаптировать код Танки онлайн
« Ответ #9 : Март 05, 2019, 09:09:47 pm »
Он не может ездить, только рандомно крутится на месте
Код: Clickermann
  1. $ad=RNDFROM (65,68) // A D
«Если я не понимаю, зачем нужен этот код, значит этот код не нужен.»

Karabas

  • Освоившийся
  • **
  • Сообщений: 88
    • Просмотр профиля
Re: помогите адаптировать код Танки онлайн
« Ответ #10 : Март 05, 2019, 09:16:19 pm »
закоментировать можно єто?

Космич

  • Активный участник
  • ***
  • Сообщений: 229
    • Просмотр профиля
Re: помогите адаптировать код Танки онлайн
« Ответ #11 : Март 05, 2019, 09:23:13 pm »
Вот именно вот эту строчку да, а остальное оказывается уже закоменченно  :D
Ну я не знаю, значит вообще не должен двигать корпус
«Если я не понимаю, зачем нужен этот код, значит этот код не нужен.»

Karabas

  • Освоившийся
  • **
  • Сообщений: 88
    • Просмотр профиля
Re: помогите адаптировать код Танки онлайн
« Ответ #12 : Март 06, 2019, 02:09:48 pm »
да ездит как бешеный

Космич

  • Активный участник
  • ***
  • Сообщений: 229
    • Просмотр профиля
Re: помогите адаптировать код Танки онлайн
« Ответ #13 : Март 06, 2019, 03:05:22 pm »
Вот все клавиши которые он нажимает
«Если я не понимаю, зачем нужен этот код, значит этот код не нужен.»