Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on May 12th, 2012  |  syntax: None  |  size: 1.60 KB  |  hits: 36  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. #include <ImageSearch.au3>
  2. Global $Paused
  3. MsgBox(0,"Bot starts in two seconds.","Set metallurgy for F1, location:Down the waterfall. Two blessed pans each slot.")
  4. sleep(2000)
  5. While 1
  6. MouseClickDrag ("Right",246, 503,350, 503)
  7. SLeep(2000)
  8. Send("{ALTDOWN}")
  9. $x1=0
  10. $y1=0
  11. SLeep(300)
  12. $result = _ImageSearch("silver.BMP",1,$x1,$y1,75)
  13. if $result=1 Then
  14.         $x3=0
  15.         $y3=0
  16.         Send("{ALTUP}")
  17.         SLeep(1000)
  18.         Send("{F1}")
  19.         Sleep(3000)
  20.         MouseClick("left",$x1,$y1+30,3)
  21.         Sleep(15000)
  22. EndIf
  23. $x2=0
  24. $y2=0
  25. Send("{ALTDOWN}")
  26. SLeep(1000)
  27. $result2 = _ImageSearch("ore.bmp",1,$x2,$y2,80)
  28. If $result2=1 Then
  29.         SLeep(1000)
  30.         MouseClick("left",$x2,$y2)
  31.         SLeep(2000)
  32. EndIf
  33. $result8 = _ImageSearch("ore.bmp",1,$x2,$y2,80)
  34. If $result8=1 Then
  35.         SLeep(1000)
  36.         MouseClick("left",$x2,$y2)
  37.         SLeep(2000)
  38. EndIf
  39. $result9 = _ImageSearch("ore.bmp",1,$x2,$y2,80)
  40. If $result8=1 Then
  41.         SLeep(1000)
  42.         MouseClick("left",$x2,$y2)
  43.         SLeep(2000)
  44. EndIf
  45. $result3 = _ImageSearch("diamond.jpg",1,$x2,$y2,80)
  46. If $result3=1 Then
  47.         SLeep(1000)
  48.         MouseClick("left",$x2,$y2)
  49.         SLeep(1000)
  50. SLeep(300)
  51. EndIf
  52. $result4 = _ImageSearch("emerald.jpg",1,$x2,$y2,80)
  53. If $result4=1 Then
  54.         SLeep(1000)
  55.         MouseClick("left",$x2,$y2)
  56.         SLeep(2000)
  57. EndIf
  58. $result5 = _ImageSearch("spinel.jpg",1,$x2,$y2,80)
  59. If $result5=1 Then
  60.         SLeep(1000)
  61.         MouseClick("left",$x2,$y2)
  62.         SLeep(2000)
  63. EndIf
  64. $result6 = _ImageSearch("topaz.jpg",1,$x2,$y2,80)
  65. If $result6=1 Then
  66.         SLeep(1000)
  67.         MouseClick("left",$x2,$y2)
  68.         SLeep(2000)
  69. EndIf
  70. $result7 = _ImageSearch("garnet.bmp",1,$x2,$y2,80)
  71. If $result7=1 Then
  72.         SLeep(1000)
  73.         MouseClick("left",$x2,$y2)
  74.         SLeep(2000)
  75. EndIf
  76. WEnd
create a new version of this paste RAW Paste Data