My Pastes
Public Pastes
Layout Width
Share Pastebin
Guest
Public paste!

Eve mining bot Beta 10

By: a guest | Jan 6th, 2010 | Syntax: AutoIt | Size: 4.07 KB | Hits: 579 | Expires: Never
Download | Raw | Embed | Report abuse
This paste has a previous version, view the difference. Copy text to clipboard
  1. While 1
  2. HotKeySet("{F9}","avsluta")
  3. HotKeySet("{F8}","starta")
  4. WEnd
  5.  
  6. Func starta ()
  7.         while 1
  8. $color = 0xFFBA39              
  9. $color2 = 0xE9EAEA or 0xE6E6E6
  10. $color3 = 0x010E12
  11. $color4 = 0x000000
  12. $color5 = 0x939393
  13.  
  14. ;Step one: youre at station and are going to move your cargo to station.
  15.  
  16. ;waiting for ship to enter station
  17.  
  18. While 1
  19. If PixelGetColor(29, 891) = $color Then ;if value of the array "$color" DOES equal with the colour at "26,753" then continue script (or else loop until right colour found)
  20. ExitLoop
  21. Else
  22. ContinueLoop
  23. EndIf
  24. WEnd
  25.  
  26. sleep (5000)
  27. MouseClick ("right", 308, 833,1,10) ;select all (1/2)
  28. sleep (100)
  29. mouseclick ("left", 357, 838,1,10) ;select all (2/2)
  30. sleep (100)
  31. MouseClickDrag ("left",96, 838,100, 628,10) ;move all to station
  32. sleep (100)
  33. Mouseclick ("left", 29, 888,1,10) ;Leave station
  34.  
  35.  
  36. sleep (5000)
  37.  
  38.  
  39. While 1
  40. If PixelGetColor(56, 70) = $color2 Then ;if value of the array "$color" does NOT equal with the colour at "26,753" then continue script (or else loop until the "wrong colour is found)
  41. ExitLoop
  42. Else
  43. ContinueLoop
  44. EndIf
  45. WEnd
  46. sleep (2000)
  47.  
  48. ;Step two: Moving to astroid belt
  49. $belt1 = random (1,50,1)
  50.  
  51. mouseclick ("left",56, 70,1,5)
  52. sleep (100)
  53. mousemove (112, 77,2)
  54. sleep (100)
  55. mousemove (224, 77,2)
  56.  
  57. If $belt1 <= 12.5 Then
  58.         mousemove(225, 78,5)  ;1/8
  59. endif
  60. If $belt1 > 12.5 and $belt1 <= 25 Then    
  61.         mousemove(225, 90,5)  ;2/8
  62. endif
  63. If $belt1 > 25 and $belt1 <= 37.5 Then    
  64.         mousemove(225, 110,5) ;3/8
  65. endif
  66. If $belt1 > 37.5 and $belt1 <= 50 Then    
  67.         mousemove(225, 124,5) ;4/8
  68. endif
  69. If $belt1 > 50 and $belt1 <= 62.5 Then    
  70.         mousemove(225, 136,5) ;5/8
  71. endif
  72. If $belt1 > 62.5 and $belt1 <= 75 Then     
  73.         mousemove(225, 148,5) ;6/8
  74. endif
  75. If $belt1 > 75 and $belt1 <= 87.5 Then    
  76.         mousemove(225, 160,5) ;7/8
  77. endif
  78. If $belt1 > 87.5 and $belt1 <= 100 Then    
  79.         mousemove(225, 172,5) ;8/8
  80. endif
  81.          sleep (100)
  82. If $belt1 <= 12.5 Then  
  83.         mouseclick ("left",394, 78,5) ;astriodbelt  1/8
  84.         endif
  85. If $belt1 > 12.5 and $belt1 <= 25 Then  
  86.         mouseclick ("left",394, 90,5) ;astriodbelt  2/8
  87.         endif
  88. If $belt1 > 25 and $belt1 <= 37.5 Then  
  89.         mouseclick ("left",394, 110,5) ;astriodbelt 3/8
  90.         endif
  91. If $belt1 > 37.5 and $belt1 <= 50 Then  
  92.         mouseclick ("left",394, 124,5) ;astriodbelt 4/8
  93.         endif
  94. If $belt1 > 50 and $belt1 <= 62.5 Then  
  95.         mouseclick ("left",394, 136,5) ;astriodbelt 5/8
  96.         endif
  97. If $belt1 > 62.5 and $belt1 <= 75 Then         
  98.         mouseclick ("left",394, 148,5) ;astriodbelt 6/8
  99.         endif
  100. If $belt1 > 75 and $belt1 <= 87.5 Then  
  101.         mouseclick ("left",394, 160,5) ;astriodbelt 7/8
  102.         endif
  103. If $belt1 > 87.5 and $belt1 <= 100 Then
  104.         mouseclick ("left",394, 172,5) ;astriodbelt 8/8
  105.         endif
  106.  
  107.  
  108. sleep (20000)
  109.  
  110. ;Step three: Mining
  111.  
  112.  
  113. send ("{F10}")
  114. sleep (2000)
  115. While 1
  116. If PixelGetColor(722, 884) = $color5 Then ;wait until warp msg appears (in-game)
  117. ExitLoop
  118. Else
  119. ContinueLoop
  120. EndIf
  121. WEnd
  122. send ("{F10}")
  123. sleep (2000)
  124. sleep (100)
  125. mouseclick ("left",1309, 182,1,5) ;select a astroid
  126. sleep (100)
  127. mouseclick ("left",1255, 95,1,5) ;orbit
  128. sleep (30000)
  129. mouseclick ("left",1305, 95,5,1) ;lock astro
  130. sleep (100)
  131. sleep (5000)
  132.  
  133. send ("{F1}")
  134. sleep (41)
  135. send ("{F2}")
  136. sleep (42)
  137. send ("{F3}")
  138. sleep (43)
  139. send ("{F4}")
  140. sleep (44)
  141. send ("{F5}")
  142. sleep (45)
  143. send ("{F6}")
  144.  
  145. send ("{F10}")
  146. sleep (2000)
  147. While 1
  148. If PixelGetColor(708, 242) = $color4 Then
  149. ;send Ctr+space
  150. ExitLoop
  151. Else
  152. send ("{F1}")
  153. sleep (41)
  154. send ("{F2}")
  155. sleep (42)
  156. send ("{F3}")
  157. sleep (43)
  158. send ("{F4}")
  159. sleep (44)
  160. send ("{F5}")
  161. sleep (45)
  162. send ("{F6}")
  163. ContinueLoop
  164. EndIf
  165. WEnd
  166. send ("{F10}")
  167. sleep (2000)
  168.  
  169.  
  170. send ("{F10}")
  171. sleep (2000)
  172.  
  173. While 1
  174. If PixelGetColor(336, 789) <> $color3 Then ;when cargo is full head back to station, 2fönster bakom cargo needed..
  175. ExitLoop
  176. Else
  177. ContinueLoop
  178. EndIf
  179. WEnd
  180.  
  181. send ("{F10}") ;close f10
  182. sleep (2000)
  183.  
  184. ;step four: Head back to the station (and the script is going to restart)
  185. mouseclick ("left",54, 68,1,5)
  186. sleep (100)
  187. mousemove (93, 119,5)
  188. sleep (100)
  189. mousemove (447, 119,6)
  190. sleep (100)
  191. mouseclick("left",422, 166,1,5)
  192.  
  193.  
  194. WEnd
  195. EndFunc
  196.  
  197.  
  198. Func avsluta()
  199. exit
  200. EndFunc
create new paste | create new version of this paste RAW Paste Data