Blizzhackers

Return of the Jedi

* Login   * Register    * FAQ    * Search

Join us on IRC: #bh@irc.synirc.net (or Mibbit Web IRC)


MuleFactory
It is currently Sat May 25, 2013 2:01 pm

View unanswered posts | View active topics



Board index » Diablo III » Diablo III Research and Development

All times are UTC [ DST ]




Post new topic Reply to topic  Page 16 of 20
  [ 297 posts ]  Go to page Previous  1 ... 13, 14, 15, 16, 17, 18, 19, 20  Next
  Print view Previous topic | Next topic 
Author Message
-=ZaM=-
 Post subject: Re: [Goldfarming] AFK 150k-200k Gold Per Hour [AutoIT Script
PostPosted: Sun Jun 17, 2012 1:41 am 
 
User
User

Joined: Sun Aug 22, 2004 4:42 pm
I'm making changes of my own to the code, but I need the bot to search a (unhovered mouse) pixel for the cellar entrance, what can I replace the code with?

I'm not very familiar with Auto-it language so I'm not sure how to go about this without spending hours trying to figure it out on my own. I've so far tried using the code for picking up rares, but it's not working out very well.
Top
 Profile  
tiredmidget
 Post subject: Re: [Goldfarming] AFK 150k-200k Gold Per Hour [AutoIT Script
PostPosted: Sun Jun 17, 2012 1:50 am 
 
User
User

Joined: Sat Jun 16, 2012 11:27 am
@julianjg4186 tips would be great and appreciated! I am not putting my tag on here though, and I can't use messages on blizzhack, so send me your id to shadow_ardor_fox@yahoo.com and ill add ya in game. Make sure your running in fullscreen windowed.
Top
 Profile  
tiredmidget
 Post subject: Re: [Goldfarming] AFK 150k-200k Gold Per Hour [AutoIT Script
PostPosted: Sun Jun 17, 2012 3:35 am 
 
User
User

Joined: Sat Jun 16, 2012 11:27 am
Apologies, there was no Sleep() so you cancelled teleport and ran around the cellar lol. Here you go updated: (added a tooltip to show what run your on)

Code: Select all
Global $Paused

HotKeySet("=","Leave")
HotKeySet("-", "Pause")
HotKeySet("x", "Stop")

$default_resolutionX = 1920
$default_resolutionY = 1080
$x_ratio = @Desktopwidth / $default_resolutionX
$y_ratio = @Desktopheight / $default_resolutionY

$go = True
$Leave = False

Dim $Color, $Left, $Top, $Right, $Bottom
Local $Count = 0
$Color = 0xFFFF00   ;rare color code
$Color2 = 0x6969FF  ;blue color code     I have the ; in the 6969ff so it doesent pickup remove if you want it too!
$Color3 = 0xBF642F  ;legendary color code
$Color4 = 0x00FF00 ;SET color
$Left = 0                          ;TOP LEFT CORNER OF SCREEN 0,0
$Top = 0                           ;THESE ARE WHERE IT LOOKS FOR COLORS             
$Right = 1920                      ;BOTTOM RIGHT CORNER OF SCREEN 1920,1080
$Bottom = 1080


While $go
if($Leave) Then
$Pixel1 = PixelSearch((1482 * $x_ratio),(20 * $y_ratio),(1535 * $x_ratio),(95 * $y_ratio),0xFFF000) ;searches top right screen for yellow of broken armor
If Not @error Then
   Send ("t")
   Sleep(8000)
  MouseClick("left", Round(1480 * $x_ratio),Round(281 * $y_ratio));begin movement towards merchant
   Sleep(1500)
   MouseClick("left", Round(1316 * $x_ratio),Round(206 * $y_ratio)) ;moves to get merchant in screen
   Sleep(1500)
   MouseClick("left", Round(845 * $x_ratio),Round(225 * $y_ratio)) ;NPC Merchant to the right of cain's home
   Sleep(1500)
   MouseClick("left", Round(521 * $x_ratio),Round(506 * $y_ratio)) ;button to open up repair menu
   Sleep(1500)
   MouseClick("left", Round(260 * $x_ratio),Round(595 * $y_ratio)) ;button to pay for repairs
   Sleep(1500)
   MouseClick("left", Round(480 * $x_ratio),Round(180))
   Sleep(1500)
   MouseClick("right", Round(1450 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1500 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1550 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1600 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1645 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1690 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1730 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1775 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1840 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1885 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1450 * $x_ratio),Round(500))
   Sleep(1500)
   MouseClick("right", Round(1500 * $x_ratio),Round(500))
   Sleep(1500)
   MouseClick("right", Round(1550 * $x_ratio),Round(500))
   Sleep(1500)
   MouseClick("right", Round(1600 * $x_ratio),Round(500))
   Sleep(1500)
   MouseClick("right", Round(1645 * $x_ratio),Round(500))
   Sleep(1500)
   MouseClick("right", Round(1690 * $x_ratio),Round(500))
   Sleep(1500)
   MouseClick("right", Round(1730 * $x_ratio),Round(500))
   Sleep(1500)
   MouseClick("right", Round(1775 * $x_ratio),Round(500))
   Sleep(1500)
   MouseClick("right", Round(1840 * $x_ratio),Round(500))
   Sleep(1500)
   MouseClick("right", Round(1885 * $x_ratio),Round(500))
   Sleep(1500)
   MouseClick("right", Round(1450 * $x_ratio),Round(568))
   Sleep(1500)
   MouseClick("right", Round(1500 * $x_ratio),Round(568))
   Sleep(1500)
   MouseClick("right", Round(1550 * $x_ratio),Round(568))
   Sleep(1500)
   MouseClick("right", Round(1600 * $x_ratio),Round(568))
   Sleep(1500)
   MouseClick("right", Round(1645 * $x_ratio),Round(568))
   Sleep(1500)
   MouseClick("right", Round(1690 * $x_ratio),Round(568))
   Sleep(1500)
   MouseClick("right", Round(1730 * $x_ratio),Round(568))
   Sleep(1500)
   MouseClick("right", Round(1775 * $x_ratio),Round(568))
   Sleep(1500)
   MouseClick("right", Round(1840 * $x_ratio),Round(568))
   Sleep(1500)
   MouseClick("right", Round(1885 * $x_ratio),Round(568))
   Sleep(1500)
Sleep(8000)
Else
ToolTip($count)
MouseClick("left", Round(587 * $x_ratio),Round(333 * $y_ratio)) ;starts the main run
Sleep(1800)
Send("2")
MouseClick("left", Round(96 * $x_ratio),Round(383 * $y_ratio))
Sleep(800)
Send("1")
Sleep(1500)
MouseClick("left", Round(417 * $x_ratio),Round(422 * $y_ratio)) ;middle of area outside of cellar
Send("1")
Sleep(2000)
Send("3")
Send("2")
MouseMove(Round(115 * $x_ratio),Round(210 * $y_ratio),1) ;moves cursor over to the cellar so the proper blue pixel becomes highlighted
Sleep(2000)
$Pixel2 = PixelSearch(0,0,(960 * $x_ratio),(540 * $y_ratio),0x3B62E3,3) ;searches for the specific blue pixel that only occurs when mouse hovers over open cellar
If Not @error Then
MouseClick("left",Round(115 *$x_ratio),Round(210 * $y_ratio)) ;Entrance to cellar
Sleep(1900)
Send(2)
Sleep(1800)
MouseClick("left",Round(531 *$x_ratio),Round(769 * $y_ratio))
Sleep(2000)
MouseClick("left",Round(547 *$x_ratio),Round(490 * $y_ratio)) ;moves to doorway leading to rare inside cellar
Sleep(1500)
MouseMove(Round(579 * $x_ratio),Round(209 * $y_ratio),1) ;hovers over the rare Sarkoth
Send(4)
Sleep(1000)
Send("{SHIFTDOWN}")
MouseDown("right") ;attack middle
Sleep(3800)
MouseMove(Round(467 * $x_ratio),Round(269 * $y_ratio),1) ;attack left, add more sleep time if you can't kill minion on left
Sleep(3000)
MouseMove(Round(682 * $x_ratio),Round(147 * $y_ratio),1) ;attack right
Sleep(800)
MouseMove(Round(579 * $x_ratio),Round(209 * $y_ratio),1) ;move back to middle
Sleep(1000)
MouseUP("right")
Sleep(300)
Send("{SHIFTUP}")
Sleep(500)
MouseClick("left",Round(579 *$x_ratio),Round(209 * $y_ratio)) ;location of sarkoth after death
Sleep(2500)
MouseClick("left",Round(866 *$x_ratio),Round(324 * $y_ratio)) ;moves to right top corner for gold
Sleep(1500)
MouseClick("left",Round(902 *$x_ratio),Round(954 * $y_ratio)) ;moves to bottom middle for gold
Sleep(1500)
MouseClick("left",Round(687 *$x_ratio),Round(413 * $y_ratio)) ;moves to left top corner for gold
Sleep(1500)
call ("Search")
Sleep(1500)
Send("t")
$Count = $Count + 1
If $Count > 10 Then
   Sleep(8000)
     MouseClick("left", Round(1480 * $x_ratio),Round(281 * $y_ratio));begin movement towards merchant
   Sleep(1500)
   MouseClick("left", Round(1316 * $x_ratio),Round(206 * $y_ratio)) ;moves to get merchant in screen
   Sleep(1500)
   MouseClick("left", Round(845 * $x_ratio),Round(225 * $y_ratio)) ;NPC Merchant to the right of cain's home
   Sleep(1500)
   MouseClick("left", Round(521 * $x_ratio),Round(506 * $y_ratio)) ;button to open up repair menu
   Sleep(1500)
   MouseClick("left", Round(260 * $x_ratio),Round(595 * $y_ratio)) ;button to pay for repairs
   Sleep(1500)
   MouseClick("left", Round(480 * $x_ratio),Round(180))
   Sleep(1500)
   MouseClick("right", Round(1450 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1500 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1550 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1600 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1645 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1690 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1730 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1775 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1840 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1885 * $x_ratio),Round(447))
   $Count = $Count - 10
   Sleep(2500)
   Send("{ESCAPE}") ;exits store menu
   Sleep(250)
   Send("{ESCAPE}") ;opens menu
   Sleep(1000)
   MouseClick("left", Round(956 * $x_ratio),Round(579 * $y_ratio)) ;button to leave game
   Sleep(8000)
   MouseClick("left", Round(230 * $x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu
   Sleep(8000)
EndIf

Sleep(8200)
Send("{Escape}") ;menu
MouseClick("left",Round(956 *$x_ratio),Round(579 * $y_ratio)) ;button to leave game
Sleep(13000)
MouseClick("left",Round(230 *$x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu
Sleep(7000)
Else
MouseClick("left",Round(900 *$x_ratio),Round(900 * $y_ratio)) ;moves down screen away from cellar in attempt for safety before teleporting back to town
Sleep(1200)
Send("t")
Sleep(8200)
Send("{ESCAPE}") ;menu
MouseClick("left",Round(956 *$x_ratio),Round(579 * $y_ratio)) ;button to leave game
Sleep(13000)
MouseClick("left",Round(230 *$x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu
Sleep(8000)
EndIf
EndIf
EndIf
WEnd

Func Search()
    $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color)  ;searches for rares
    If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)  ;IF ITS THERE IT CLICKS IT.
    EndIf
   $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color2 )  ;searches for magics
   If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)    ;clicks magic
    EndIf
   
       $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color3 ) ;searches for legendarys
   If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)         ;clicks legendary
    EndIf   
    $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color4)  ;searches for SETS
    If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)  ;IF ITS THERE IT CLICKS IT.
     EndIf
EndFunc

Func Pause()
$Leave = False
EndFunc

Func Stop() ;to allow the script to stop
Exit
EndFunc

Func Leave()
$Leave = True
EndFunc


Last edited by tiredmidget on Sun Jun 17, 2012 4:23 am, edited 1 time in total.
Top
 Profile  
julianjg4186
 Post subject: Re: [Goldfarming] AFK 150k-200k Gold Per Hour [AutoIT Script
PostPosted: Sun Jun 17, 2012 4:11 am 
 
User
User

Joined: Tue Apr 10, 2012 4:06 pm
Oh i been running it in fullscreen and workking pretty well it doest always pick up the items but it is a million times better! Tiredmidget PM me you d3 acc info so i can compensate you plz! Would it be worth to add some random clicks like on the start menu resume button or random sleep timer to click it and at a cpl other places. Lastly after the mosters are killed and it runs up to the right then middle then left, on the right side it leaves before ferretts ca grab the gold and when in the niddle or right it missed picking up some items here ad there but thre wise been runninng more and more and its loking better and better Projec tEtal will love this Please add yourself in as the author or ill do it for you and post it up if its ok!

Code: Select all
#cs ----------------------------------------------------------------------------

AutoIt Version: 0.0.0.1
Author:         Tiredmidget

Script Function:
   Sarkoth the Dank Cellar
   Kill, Pickit, Sell, and Repair

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
Global $Paused

HotKeySet("=","Leave")
HotKeySet("-", "Pause")
HotKeySet("x", "Stop")

$default_resolutionX = 1920
$default_resolutionY = 1080
$x_ratio = @Desktopwidth / $default_resolutionX
$y_ratio = @Desktopheight / $default_resolutionY

$go = True
$Leave = False

Dim $Color, $Left, $Top, $Right, $Bottom
Local $Count = 0
$Color = 0xFFFF00   ;rare color code
$Color2 = 0x6969FF  ;blue color code     I have the ; in the 6969ff so it doesent pickup remove if you want it too!
$Color3 = 0xBF642F  ;legendary color code
$Color4 = 0x00FF00 ;SET color
$Left = 0                          ;TOP LEFT CORNER OF SCREEN 0,0
$Top = 0                           ;THESE ARE WHERE IT LOOKS FOR COLORS
$Right = 1920                      ;BOTTOM RIGHT CORNER OF SCREEN 1920,1080
$Bottom = 1080


While $go
if($Leave) Then
$Pixel1 = PixelSearch((1482 * $x_ratio),(20 * $y_ratio),(1535 * $x_ratio),(95 * $y_ratio),0xFFF000) ;searches top right screen for yellow of broken armor
If Not @error Then
   Send ("t")
  MouseClick("left", Round(1480 * $x_ratio),Round(281 * $y_ratio));begin movement towards merchant
   Sleep(1500)
   MouseClick("left", Round(1316 * $x_ratio),Round(206 * $y_ratio)) ;moves to get merchant in screen
   Sleep(1500)
   MouseClick("left", Round(845 * $x_ratio),Round(225 * $y_ratio)) ;NPC Merchant to the right of cain's home
   Sleep(1500)
   MouseClick("left", Round(521 * $x_ratio),Round(506 * $y_ratio)) ;button to open up repair menu
   Sleep(1500)
   MouseClick("left", Round(260 * $x_ratio),Round(595 * $y_ratio)) ;button to pay for repairs
   Sleep(1500)
   MouseClick("left", Round(480 * $x_ratio),Round(180))
   Sleep(1500)
   MouseClick("right", Round(1450 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1500 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1550 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1600 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1645 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1690 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1730 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1775 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1840 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1885 * $x_ratio),Round(447))
Sleep(8000)
Else
MouseClick("left", Round(587 * $x_ratio),Round(333 * $y_ratio)) ;starts the main run
Sleep(1800)
Send("2")
MouseClick("left", Round(96 * $x_ratio),Round(383 * $y_ratio))
Sleep(800)
Send("1")
Sleep(1500)
MouseClick("left", Round(417 * $x_ratio),Round(422 * $y_ratio)) ;middle of area outside of cellar
Send("1")
Sleep(2000)
Send("3")
Send("2")
MouseMove(Round(115 * $x_ratio),Round(210 * $y_ratio),1) ;moves cursor over to the cellar so the proper blue pixel becomes highlighted
Sleep(2000)
$Pixel2 = PixelSearch(0,0,(960 * $x_ratio),(540 * $y_ratio),0x3B62E3,3) ;searches for the specific blue pixel that only occurs when mouse hovers over open cellar
If Not @error Then
MouseClick("left",Round(115 *$x_ratio),Round(210 * $y_ratio)) ;Entrance to cellar
Sleep(1900)
Send(2)
Sleep(1800)
MouseClick("left",Round(531 *$x_ratio),Round(769 * $y_ratio))
Sleep(2000)
MouseClick("left",Round(547 *$x_ratio),Round(490 * $y_ratio)) ;moves to doorway leading to rare inside cellar
Sleep(1500)
MouseMove(Round(579 * $x_ratio),Round(209 * $y_ratio),1) ;hovers over the rare Sarkoth
Send(4)
Sleep(1000)
Send("{SHIFTDOWN}")
MouseDown("right") ;attack middle
Sleep(3800)
MouseMove(Round(467 * $x_ratio),Round(269 * $y_ratio),1) ;attack left, add more sleep time if you can't kill minion on left
Sleep(3000)
MouseMove(Round(682 * $x_ratio),Round(147 * $y_ratio),1) ;attack right
Sleep(800)
MouseMove(Round(579 * $x_ratio),Round(209 * $y_ratio),1) ;move back to middle
Sleep(1000)
MouseUP("right")
Sleep(300)
Send("{SHIFTUP}")
Sleep(500)
MouseClick("left",Round(579 *$x_ratio),Round(209 * $y_ratio)) ;location of sarkoth after death
Sleep(2500)
MouseClick("left",Round(866 *$x_ratio),Round(324 * $y_ratio)) ;moves to right top corner for gold
Sleep(1500)
MouseClick("left",Round(902 *$x_ratio),Round(954 * $y_ratio)) ;moves to bottom middle for gold
Sleep(1500)
MouseClick("left",Round(687 *$x_ratio),Round(413 * $y_ratio)) ;moves to left top corner for gold
Sleep(1500)
call ("Search")
Sleep(1500)
Send("t")
$Count = $Count + 1
If $Count > 10 Then
     MouseClick("left", Round(1480 * $x_ratio),Round(281 * $y_ratio));begin movement towards merchant
   Sleep(1500)
   MouseClick("left", Round(1316 * $x_ratio),Round(206 * $y_ratio)) ;moves to get merchant in screen
   Sleep(1500)
   MouseClick("left", Round(845 * $x_ratio),Round(225 * $y_ratio)) ;NPC Merchant to the right of cain's home
   Sleep(1500)
   MouseClick("left", Round(521 * $x_ratio),Round(506 * $y_ratio)) ;button to open up repair menu
   Sleep(1500)
   MouseClick("left", Round(260 * $x_ratio),Round(595 * $y_ratio)) ;button to pay for repairs
   Sleep(1500)
   MouseClick("left", Round(480 * $x_ratio),Round(180))
   Sleep(1500)
   MouseClick("right", Round(1450 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1500 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1550 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1600 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1645 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1690 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1730 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1775 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1840 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1885 * $x_ratio),Round(447))
   $Count = $Count - 10
   Sleep(2500)
   Send("{ESCAPE}") ;exits store menu
   Sleep(250)
   Send("{ESCAPE}") ;opens menu
   Sleep(1000)
   MouseClick("left", Round(956 * $x_ratio),Round(579 * $y_ratio)) ;button to leave game
   Sleep(8000)
   MouseClick("left", Round(230 * $x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu
   Sleep(8000)
EndIf

Sleep(8200)
Send("{Escape}") ;menu
MouseClick("left",Round(956 *$x_ratio),Round(579 * $y_ratio)) ;button to leave game
Sleep(13000)
MouseClick("left",Round(230 *$x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu
Sleep(7000)
Else
MouseClick("left",Round(900 *$x_ratio),Round(900 * $y_ratio)) ;moves down screen away from cellar in attempt for safety before teleporting back to town
Sleep(1200)
Send("t")
Sleep(8200)
Send("{ESCAPE}") ;menu
MouseClick("left",Round(956 *$x_ratio),Round(579 * $y_ratio)) ;button to leave game
Sleep(13000)
MouseClick("left",Round(230 *$x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu
Sleep(8000)
EndIf
EndIf
EndIf
WEnd

Func Search()
    $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color)  ;searches for rares
    If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)  ;IF ITS THERE IT CLICKS IT.
    EndIf
   $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color2 )  ;searches for magics
   If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)    ;clicks magic
    EndIf

       $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color3 ) ;searches for legendarys
   If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)         ;clicks legendary
    EndIf
    $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color4)  ;searches for SETS
    If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)  ;IF ITS THERE IT CLICKS IT.
     EndIf
EndFunc

Func Pause()
$Leave = False
EndFunc

Func Stop() ;to allow the script to stop
Exit
EndFunc

Func Leave()
$Leave = True
EndFunc
Top
 Profile  
tiredmidget
 Post subject: Re: [Goldfarming] AFK 150k-200k Gold Per Hour [AutoIT Script
PostPosted: Sun Jun 17, 2012 4:25 am 
 
User
User

Joined: Sat Jun 16, 2012 11:27 am
@julian use the updated code i just remade, had to add ANOTHER sleep at the second sell code after dungeon clear.... but yeah thanks for the props, but the pathway is all the OP. I cna recieve messages privately now as well apparently. Some people had questions :)
Top
 Profile  
julianjg4186
 Post subject: Re: [Goldfarming] AFK 150k-200k Gold Per Hour [AutoIT Script
PostPosted: Sun Jun 17, 2012 4:26 am 
 
User
User

Joined: Tue Apr 10, 2012 4:06 pm
[quote="tiredmidget » Sat Jun 16, 2012 2:40 pm"]Reworked to sell all item in inventory, enjoy

Code: Select all
Global $Paused

HotKeySet("=","Leave")
HotKeySet("-", "Pause")
HotKeySet("x", "Stop")

$default_resolutionX = 1920
$default_resolutionY = 1080
$x_ratio = @Desktopwidth / $default_resolutionX
$y_ratio = @Desktopheight / $default_resolutionY

$go = True
$Leave = False

Dim $Color, $Left, $Top, $Right, $Bottom
Local $Count = 0
$Color = 0xFFFF00   ;rare color code
$Color2 = 0x6969FF  ;blue color code     I have the ; in the 6969ff so it doesent pickup remove if you want it too!
$Color3 = 0xBF642F  ;legendary color code
$Color4 = 0x00FF00 ;SET color
$Left = 0                          ;TOP LEFT CORNER OF SCREEN 0,0
$Top = 0                           ;THESE ARE WHERE IT LOOKS FOR COLORS             
$Right = 1920                      ;BOTTOM RIGHT CORNER OF SCREEN 1920,1080
$Bottom = 1080


While $go
if($Leave) Then
$Pixel1 = PixelSearch((1482 * $x_ratio),(20 * $y_ratio),(1535 * $x_ratio),(95 * $y_ratio),0xFFF000) ;searches top right screen for yellow of broken armor
If Not @error Then
   Send ("t")
  MouseClick("left", Round(1480 * $x_ratio),Round(281 * $y_ratio));begin movement towards merchant
   Sleep(1500)
   MouseClick("left", Round(1316 * $x_ratio),Round(206 * $y_ratio)) ;moves to get merchant in screen
   Sleep(1500)
   MouseClick("left", Round(845 * $x_ratio),Round(225 * $y_ratio)) ;NPC Merchant to the right of cain's home
   Sleep(1500)
   MouseClick("left", Round(521 * $x_ratio),Round(506 * $y_ratio)) ;button to open up repair menu
   Sleep(1500)
   MouseClick("left", Round(260 * $x_ratio),Round(595 * $y_ratio)) ;button to pay for repairs
   Sleep(1500)
   MouseClick("left", Round(480 * $x_ratio),Round(180))
   Sleep(1500)
   MouseClick("right", Round(1450 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1500 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1550 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1600 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1645 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1690 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1730 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1775 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1840 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1885 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1450 * $x_ratio),Round(500))
   Sleep(1500)
   MouseClick("right", Round(1500 * $x_ratio),Round(500))
   Sleep(1500)
   MouseClick("right", Round(1550 * $x_ratio),Round(500))
   Sleep(1500)
   MouseClick("right", Round(1600 * $x_ratio),Round(500))
   Sleep(1500)
   MouseClick("right", Round(1645 * $x_ratio),Round(500))
   Sleep(1500)
   MouseClick("right", Round(1690 * $x_ratio),Round(500))
   Sleep(1500)
   MouseClick("right", Round(1730 * $x_ratio),Round(500))
   Sleep(1500)
   MouseClick("right", Round(1775 * $x_ratio),Round(500))
   Sleep(1500)
   MouseClick("right", Round(1840 * $x_ratio),Round(500))
   Sleep(1500)
   MouseClick("right", Round(1885 * $x_ratio),Round(500))
   Sleep(1500)
   MouseClick("right", Round(1450 * $x_ratio),Round(568))
   Sleep(1500)
   MouseClick("right", Round(1500 * $x_ratio),Round(568))
   Sleep(1500)
   MouseClick("right", Round(1550 * $x_ratio),Round(568))
   Sleep(1500)
   MouseClick("right", Round(1600 * $x_ratio),Round(568))
   Sleep(1500)
   MouseClick("right", Round(1645 * $x_ratio),Round(568))
   Sleep(1500)
   MouseClick("right", Round(1690 * $x_ratio),Round(568))
   Sleep(1500)
   MouseClick("right", Round(1730 * $x_ratio),Round(568))
   Sleep(1500)
   MouseClick("right", Round(1775 * $x_ratio),Round(568))
   Sleep(1500)
   MouseClick("right", Round(1840 * $x_ratio),Round(568))
   Sleep(1500)
   MouseClick("right", Round(1885 * $x_ratio),Round(568))
   Sleep(1500)
Sleep(8000)
Else
MouseClick("left", Round(587 * $x_ratio),Round(333 * $y_ratio)) ;starts the main run
Sleep(1800)
Send("2")
MouseClick("left", Round(96 * $x_ratio),Round(383 * $y_ratio))
Sleep(800)
Send("1")
Sleep(1500)
MouseClick("left", Round(417 * $x_ratio),Round(422 * $y_ratio)) ;middle of area outside of cellar
Send("1")
Sleep(2000)
Send("3")
Send("2")
MouseMove(Round(115 * $x_ratio),Round(210 * $y_ratio),1) ;moves cursor over to the cellar so the proper blue pixel becomes highlighted
Sleep(2000)
$Pixel2 = PixelSearch(0,0,(960 * $x_ratio),(540 * $y_ratio),0x3B62E3,3) ;searches for the specific blue pixel that only occurs when mouse hovers over open cellar
If Not @error Then
MouseClick("left",Round(115 *$x_ratio),Round(210 * $y_ratio)) ;Entrance to cellar
Sleep(1900)
Send(2)
Sleep(1800)
MouseClick("left",Round(531 *$x_ratio),Round(769 * $y_ratio))
Sleep(2000)
MouseClick("left",Round(547 *$x_ratio),Round(490 * $y_ratio)) ;moves to doorway leading to rare inside cellar
Sleep(1500)
MouseMove(Round(579 * $x_ratio),Round(209 * $y_ratio),1) ;hovers over the rare Sarkoth
Send(4)
Sleep(1000)
Send("{SHIFTDOWN}")
MouseDown("right") ;attack middle
Sleep(3800)
MouseMove(Round(467 * $x_ratio),Round(269 * $y_ratio),1) ;attack left, add more sleep time if you can't kill minion on left
Sleep(3000)
MouseMove(Round(682 * $x_ratio),Round(147 * $y_ratio),1) ;attack right
Sleep(800)
MouseMove(Round(579 * $x_ratio),Round(209 * $y_ratio),1) ;move back to middle
Sleep(1000)
MouseUP("right")
Sleep(300)
Send("{SHIFTUP}")
Sleep(500)
MouseClick("left",Round(579 *$x_ratio),Round(209 * $y_ratio)) ;location of sarkoth after death
Sleep(2500)
MouseClick("left",Round(866 *$x_ratio),Round(324 * $y_ratio)) ;moves to right top corner for gold
Sleep(1500)
MouseClick("left",Round(902 *$x_ratio),Round(954 * $y_ratio)) ;moves to bottom middle for gold
Sleep(1500)
MouseClick("left",Round(687 *$x_ratio),Round(413 * $y_ratio)) ;moves to left top corner for gold
Sleep(1500)
call ("Search")
Sleep(1500)
Send("t")
$Count = $Count + 1
If $Count > 10 Then
     MouseClick("left", Round(1480 * $x_ratio),Round(281 * $y_ratio));begin movement towards merchant
   Sleep(1500)
   MouseClick("left", Round(1316 * $x_ratio),Round(206 * $y_ratio)) ;moves to get merchant in screen
   Sleep(1500)
   MouseClick("left", Round(845 * $x_ratio),Round(225 * $y_ratio)) ;NPC Merchant to the right of cain's home
   Sleep(1500)
   MouseClick("left", Round(521 * $x_ratio),Round(506 * $y_ratio)) ;button to open up repair menu
   Sleep(1500)
   MouseClick("left", Round(260 * $x_ratio),Round(595 * $y_ratio)) ;button to pay for repairs
   Sleep(1500)
   MouseClick("left", Round(480 * $x_ratio),Round(180))
   Sleep(1500)
   MouseClick("right", Round(1450 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1500 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1550 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1600 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1645 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1690 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1730 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1775 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1840 * $x_ratio),Round(447))
   Sleep(1500)
   MouseClick("right", Round(1885 * $x_ratio),Round(447))
   $Count = $Count - 10
   Sleep(2500)
   Send("{ESCAPE}") ;exits store menu
   Sleep(250)
   Send("{ESCAPE}") ;opens menu
   Sleep(1000)
   MouseClick("left", Round(956 * $x_ratio),Round(579 * $y_ratio)) ;button to leave game
   Sleep(8000)
   MouseClick("left", Round(230 * $x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu
   Sleep(8000)
EndIf

Sleep(8200)
Send("{Escape}") ;menu
MouseClick("left",Round(956 *$x_ratio),Round(579 * $y_ratio)) ;button to leave game
Sleep(13000)
MouseClick("left",Round(230 *$x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu
Sleep(7000)
Else
MouseClick("left",Round(900 *$x_ratio),Round(900 * $y_ratio)) ;moves down screen away from cellar in attempt for safety before teleporting back to town
Sleep(1200)
Send("t")
Sleep(8200)
Send("{ESCAPE}") ;menu
MouseClick("left",Round(956 *$x_ratio),Round(579 * $y_ratio)) ;button to leave game
Sleep(13000)
MouseClick("left",Round(230 *$x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu
Sleep(8000)
EndIf
EndIf
EndIf
WEnd

Func Search()
    $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color)  ;searches for rares
    If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)  ;IF ITS THERE IT CLICKS IT.
    EndIf
   $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color2 )  ;searches for magics
   If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)    ;clicks magic
    EndIf
   
       $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color3 ) ;searches for legendarys
   If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)         ;clicks legendary
    EndIf   
    $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color4)  ;searches for SETS
    If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)  ;IF ITS THERE IT CLICKS IT.
     EndIf
EndFunc

Func Pause()
$Leave = False
EndFunc

Func Stop() ;to allow the script to stop
Exit
EndFunc

Func Leave()
$Leave = True
EndFunc


Code still requires normal operations (settings etc,) this is just for a laptop. Still need windowed fullscreen.[/quote

What code still needs normal operations, setttings ect? Im learning autoit more and more im almost there!

my d3 ac julianjg4186@1282
Top
 Profile  
tiredmidget
 Post subject: Re: [Goldfarming] AFK 150k-200k Gold Per Hour [AutoIT Script
PostPosted: Sun Jun 17, 2012 4:55 am 
 
User
User

Joined: Sat Jun 16, 2012 11:27 am
sigh.... reupdating code decreasing sell times and forgot to paste the code to sell ALL rows to your 11th run sell.... done:

Code: Select all
Global $Paused

HotKeySet("=","Leave")
HotKeySet("-", "Pause")
HotKeySet("x", "Stop")

$default_resolutionX = 1920
$default_resolutionY = 1080
$x_ratio = @Desktopwidth / $default_resolutionX
$y_ratio = @Desktopheight / $default_resolutionY

$go = True
$Leave = False

Dim $Color, $Left, $Top, $Right, $Bottom
Local $Count = 0
$Color = 0xFFFF00   ;rare color code
$Color2 = 0x6969FF  ;blue color code     I have the ; in the 6969ff so it doesent pickup remove if you want it too!
$Color3 = 0xBF642F  ;legendary color code
$Color4 = 0x00FF00 ;SET color
$Left = 0                          ;TOP LEFT CORNER OF SCREEN 0,0
$Top = 0                           ;THESE ARE WHERE IT LOOKS FOR COLORS             
$Right = 1920                      ;BOTTOM RIGHT CORNER OF SCREEN 1920,1080
$Bottom = 1080


While $go
if($Leave) Then
$Pixel1 = PixelSearch((1482 * $x_ratio),(20 * $y_ratio),(1535 * $x_ratio),(95 * $y_ratio),0xFFF000) ;searches top right screen for yellow of broken armor
If Not @error Then
   Send ("t")
   Sleep(8000)
  MouseClick("left", Round(1480 * $x_ratio),Round(281 * $y_ratio));begin movement towards merchant
   Sleep(1500)
   MouseClick("left", Round(1316 * $x_ratio),Round(206 * $y_ratio)) ;moves to get merchant in screen
   Sleep(1500)
   MouseClick("left", Round(845 * $x_ratio),Round(225 * $y_ratio)) ;NPC Merchant to the right of cain's home
   Sleep(1500)
   MouseClick("left", Round(521 * $x_ratio),Round(506 * $y_ratio)) ;button to open up repair menu
   Sleep(1500)
   MouseClick("left", Round(260 * $x_ratio),Round(595 * $y_ratio)) ;button to pay for repairs
   Sleep(1500)
   MouseClick("left", Round(480 * $x_ratio),Round(180))
   Sleep(1500)
MouseClick("left", Round(480 * $x_ratio),Round(180))
   Sleep(800)
   MouseClick("right", Round(1450 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1500 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1550 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1600 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1645 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1690 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1730 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1775 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1840 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1885 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1450 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1500 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1550 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1600 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1645 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1690 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1730 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1775 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1840 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1885 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1450 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1500 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1550 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1600 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1645 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1690 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1730 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1775 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1840 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1885 * $x_ratio),Round(568))
Sleep(8000)
Else
ToolTip($count)
MouseClick("left", Round(587 * $x_ratio),Round(333 * $y_ratio)) ;starts the main run
Sleep(1800)
Send("2")
MouseClick("left", Round(96 * $x_ratio),Round(383 * $y_ratio))
Sleep(800)
Send("1")
Sleep(1500)
MouseClick("left", Round(417 * $x_ratio),Round(422 * $y_ratio)) ;middle of area outside of cellar
Send("1")
Sleep(2000)
Send("3")
Send("2")
MouseMove(Round(115 * $x_ratio),Round(210 * $y_ratio),1) ;moves cursor over to the cellar so the proper blue pixel becomes highlighted
Sleep(2000)
$Pixel2 = PixelSearch(0,0,(960 * $x_ratio),(540 * $y_ratio),0x3B62E3,3) ;searches for the specific blue pixel that only occurs when mouse hovers over open cellar
If Not @error Then
MouseClick("left",Round(115 *$x_ratio),Round(210 * $y_ratio)) ;Entrance to cellar
Sleep(1900)
Send(2)
Sleep(1800)
MouseClick("left",Round(531 *$x_ratio),Round(769 * $y_ratio))
Sleep(2000)
MouseClick("left",Round(547 *$x_ratio),Round(490 * $y_ratio)) ;moves to doorway leading to rare inside cellar
Sleep(1500)
MouseMove(Round(579 * $x_ratio),Round(209 * $y_ratio),1) ;hovers over the rare Sarkoth
Send(4)
Sleep(1000)
Send("{SHIFTDOWN}")
MouseDown("right") ;attack middle
Sleep(3800)
MouseMove(Round(467 * $x_ratio),Round(269 * $y_ratio),1) ;attack left, add more sleep time if you can't kill minion on left
Sleep(3000)
MouseMove(Round(682 * $x_ratio),Round(147 * $y_ratio),1) ;attack right
Sleep(800)
MouseMove(Round(579 * $x_ratio),Round(209 * $y_ratio),1) ;move back to middle
Sleep(1000)
MouseUP("right")
Sleep(300)
Send("{SHIFTUP}")
Sleep(500)
MouseClick("left",Round(579 *$x_ratio),Round(209 * $y_ratio)) ;location of sarkoth after death
Sleep(2500)
MouseClick("left",Round(866 *$x_ratio),Round(324 * $y_ratio)) ;moves to right top corner for gold
Sleep(1500)
MouseClick("left",Round(902 *$x_ratio),Round(954 * $y_ratio)) ;moves to bottom middle for gold
Sleep(1500)
MouseClick("left",Round(687 *$x_ratio),Round(413 * $y_ratio)) ;moves to left top corner for gold
Sleep(1500)
call ("Search")
Sleep(1500)
Send("t")
$Count = $Count + 1
If $Count > 10 Then
   Sleep(8000)
     MouseClick("left", Round(1480 * $x_ratio),Round(281 * $y_ratio));begin movement towards merchant
   Sleep(1500)
   MouseClick("left", Round(1316 * $x_ratio),Round(206 * $y_ratio)) ;moves to get merchant in screen
   Sleep(1500)
   MouseClick("left", Round(845 * $x_ratio),Round(225 * $y_ratio)) ;NPC Merchant to the right of cain's home
   Sleep(1500)
   MouseClick("left", Round(521 * $x_ratio),Round(506 * $y_ratio)) ;button to open up repair menu
   Sleep(1500)
   MouseClick("left", Round(260 * $x_ratio),Round(595 * $y_ratio)) ;button to pay for repairs
   Sleep(1500)
   MouseClick("left", Round(480 * $x_ratio),Round(180))
   Sleep(800)
   MouseClick("right", Round(1450 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1500 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1550 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1600 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1645 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1690 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1730 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1775 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1840 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1885 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1450 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1500 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1550 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1600 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1645 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1690 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1730 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1775 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1840 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1885 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1450 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1500 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1550 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1600 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1645 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1690 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1730 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1775 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1840 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1885 * $x_ratio),Round(568))
   $Count = $Count - 10
   Sleep(2500)
   Send("{ESCAPE}") ;exits store menu
   Sleep(250)
   Send("{ESCAPE}") ;opens menu
   Sleep(1000)
   MouseClick("left", Round(956 * $x_ratio),Round(579 * $y_ratio)) ;button to leave game
   Sleep(8000)
   MouseClick("left", Round(230 * $x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu
   Sleep(8000)
EndIf

Sleep(8200)
Send("{Escape}") ;menu
MouseClick("left",Round(956 *$x_ratio),Round(579 * $y_ratio)) ;button to leave game
Sleep(13000)
MouseClick("left",Round(230 *$x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu
Sleep(7000)
Else
MouseClick("left",Round(900 *$x_ratio),Round(900 * $y_ratio)) ;moves down screen away from cellar in attempt for safety before teleporting back to town
Sleep(1200)
Send("t")
Sleep(8200)
Send("{ESCAPE}") ;menu
MouseClick("left",Round(956 *$x_ratio),Round(579 * $y_ratio)) ;button to leave game
Sleep(13000)
MouseClick("left",Round(230 *$x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu
Sleep(8000)
EndIf
EndIf
EndIf
WEnd

Func Search()
    $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color)  ;searches for rares
    If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)  ;IF ITS THERE IT CLICKS IT.
    EndIf
   $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color2 )  ;searches for magics
   If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)    ;clicks magic
    EndIf
   
       $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color3 ) ;searches for legendarys
   If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)         ;clicks legendary
    EndIf   
    $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color4)  ;searches for SETS
    If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)  ;IF ITS THERE IT CLICKS IT.
     EndIf
EndFunc

Func Pause()
$Leave = False
EndFunc

Func Stop() ;to allow the script to stop
Exit
EndFunc

Func Leave()
$Leave = True
EndFunc


Work in progress... I actually have some more ideas for functions and what not, but this will do for the standard gold runs for now.
Top
 Profile  
julianjg4186
 Post subject: Re: [Goldfarming] AFK 150k-200k Gold Per Hour [AutoIT Script
PostPosted: Sun Jun 17, 2012 4:58 am 
 
User
User

Joined: Tue Apr 10, 2012 4:06 pm
ok great thaank you!
Top
 Profile  
julianjg4186
 Post subject: Re: [Goldfarming] AFK 150k-200k Gold Per Hour [AutoIT Script
PostPosted: Sun Jun 17, 2012 6:47 am 
 
User
User

Joined: Tue Apr 10, 2012 4:06 pm
tiredmidget » Sat Jun 16, 2012 7:55 pm wrote:
sigh.... reupdating code decreasing sell times and forgot to paste the code to sell ALL rows to your 11th run sell.... done:

Code: Select all
Global $Paused

HotKeySet("=","Leave")
HotKeySet("-", "Pause")
HotKeySet("x", "Stop")

$default_resolutionX = 1920
$default_resolutionY = 1080
$x_ratio = @Desktopwidth / $default_resolutionX
$y_ratio = @Desktopheight / $default_resolutionY

$go = True
$Leave = False

Dim $Color, $Left, $Top, $Right, $Bottom
Local $Count = 0
$Color = 0xFFFF00   ;rare color code
$Color2 = 0x6969FF  ;blue color code     I have the ; in the 6969ff so it doesent pickup remove if you want it too!
$Color3 = 0xBF642F  ;legendary color code
$Color4 = 0x00FF00 ;SET color
$Left = 0                          ;TOP LEFT CORNER OF SCREEN 0,0
$Top = 0                           ;THESE ARE WHERE IT LOOKS FOR COLORS             
$Right = 1920                      ;BOTTOM RIGHT CORNER OF SCREEN 1920,1080
$Bottom = 1080


While $go
if($Leave) Then
$Pixel1 = PixelSearch((1482 * $x_ratio),(20 * $y_ratio),(1535 * $x_ratio),(95 * $y_ratio),0xFFF000) ;searches top right screen for yellow of broken armor
If Not @error Then
   Send ("t")
   Sleep(8000)
  MouseClick("left", Round(1480 * $x_ratio),Round(281 * $y_ratio));begin movement towards merchant
   Sleep(1500)
   MouseClick("left", Round(1316 * $x_ratio),Round(206 * $y_ratio)) ;moves to get merchant in screen
   Sleep(1500)
   MouseClick("left", Round(845 * $x_ratio),Round(225 * $y_ratio)) ;NPC Merchant to the right of cain's home
   Sleep(1500)
   MouseClick("left", Round(521 * $x_ratio),Round(506 * $y_ratio)) ;button to open up repair menu
   Sleep(1500)
   MouseClick("left", Round(260 * $x_ratio),Round(595 * $y_ratio)) ;button to pay for repairs
   Sleep(1500)
   MouseClick("left", Round(480 * $x_ratio),Round(180))
   Sleep(1500)
MouseClick("left", Round(480 * $x_ratio),Round(180))
   Sleep(800)
   MouseClick("right", Round(1450 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1500 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1550 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1600 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1645 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1690 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1730 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1775 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1840 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1885 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1450 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1500 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1550 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1600 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1645 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1690 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1730 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1775 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1840 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1885 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1450 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1500 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1550 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1600 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1645 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1690 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1730 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1775 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1840 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1885 * $x_ratio),Round(568))
Sleep(8000)
Else
ToolTip($count)
MouseClick("left", Round(587 * $x_ratio),Round(333 * $y_ratio)) ;starts the main run
Sleep(1800)
Send("2")
MouseClick("left", Round(96 * $x_ratio),Round(383 * $y_ratio))
Sleep(800)
Send("1")
Sleep(1500)
MouseClick("left", Round(417 * $x_ratio),Round(422 * $y_ratio)) ;middle of area outside of cellar
Send("1")
Sleep(2000)
Send("3")
Send("2")
MouseMove(Round(115 * $x_ratio),Round(210 * $y_ratio),1) ;moves cursor over to the cellar so the proper blue pixel becomes highlighted
Sleep(2000)
$Pixel2 = PixelSearch(0,0,(960 * $x_ratio),(540 * $y_ratio),0x3B62E3,3) ;searches for the specific blue pixel that only occurs when mouse hovers over open cellar
If Not @error Then
MouseClick("left",Round(115 *$x_ratio),Round(210 * $y_ratio)) ;Entrance to cellar
Sleep(1900)
Send(2)
Sleep(1800)
MouseClick("left",Round(531 *$x_ratio),Round(769 * $y_ratio))
Sleep(2000)
MouseClick("left",Round(547 *$x_ratio),Round(490 * $y_ratio)) ;moves to doorway leading to rare inside cellar
Sleep(1500)
MouseMove(Round(579 * $x_ratio),Round(209 * $y_ratio),1) ;hovers over the rare Sarkoth
Send(4)
Sleep(1000)
Send("{SHIFTDOWN}")
MouseDown("right") ;attack middle
Sleep(3800)
MouseMove(Round(467 * $x_ratio),Round(269 * $y_ratio),1) ;attack left, add more sleep time if you can't kill minion on left
Sleep(3000)
MouseMove(Round(682 * $x_ratio),Round(147 * $y_ratio),1) ;attack right
Sleep(800)
MouseMove(Round(579 * $x_ratio),Round(209 * $y_ratio),1) ;move back to middle
Sleep(1000)
MouseUP("right")
Sleep(300)
Send("{SHIFTUP}")
Sleep(500)
MouseClick("left",Round(579 *$x_ratio),Round(209 * $y_ratio)) ;location of sarkoth after death
Sleep(2500)
MouseClick("left",Round(866 *$x_ratio),Round(324 * $y_ratio)) ;moves to right top corner for gold
Sleep(1500)
MouseClick("left",Round(902 *$x_ratio),Round(954 * $y_ratio)) ;moves to bottom middle for gold
Sleep(1500)
MouseClick("left",Round(687 *$x_ratio),Round(413 * $y_ratio)) ;moves to left top corner for gold
Sleep(1500)
call ("Search")
Sleep(1500)
Send("t")
$Count = $Count + 1
If $Count > 10 Then
   Sleep(8000)
     MouseClick("left", Round(1480 * $x_ratio),Round(281 * $y_ratio));begin movement towards merchant
   Sleep(1500)
   MouseClick("left", Round(1316 * $x_ratio),Round(206 * $y_ratio)) ;moves to get merchant in screen
   Sleep(1500)
   MouseClick("left", Round(845 * $x_ratio),Round(225 * $y_ratio)) ;NPC Merchant to the right of cain's home
   Sleep(1500)
   MouseClick("left", Round(521 * $x_ratio),Round(506 * $y_ratio)) ;button to open up repair menu
   Sleep(1500)
   MouseClick("left", Round(260 * $x_ratio),Round(595 * $y_ratio)) ;button to pay for repairs
   Sleep(1500)
   MouseClick("left", Round(480 * $x_ratio),Round(180))
   Sleep(800)
   MouseClick("right", Round(1450 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1500 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1550 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1600 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1645 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1690 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1730 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1775 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1840 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1885 * $x_ratio),Round(447))
   Sleep(800)
   MouseClick("right", Round(1450 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1500 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1550 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1600 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1645 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1690 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1730 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1775 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1840 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1885 * $x_ratio),Round(500))
   Sleep(800)
   MouseClick("right", Round(1450 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1500 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1550 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1600 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1645 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1690 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1730 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1775 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1840 * $x_ratio),Round(568))
   Sleep(800)
   MouseClick("right", Round(1885 * $x_ratio),Round(568))
   $Count = $Count - 10
   Sleep(2500)
   Send("{ESCAPE}") ;exits store menu
   Sleep(250)
   Send("{ESCAPE}") ;opens menu
   Sleep(1000)
   MouseClick("left", Round(956 * $x_ratio),Round(579 * $y_ratio)) ;button to leave game
   Sleep(8000)
   MouseClick("left", Round(230 * $x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu
   Sleep(8000)
EndIf

Sleep(8200)
Send("{Escape}") ;menu
MouseClick("left",Round(956 *$x_ratio),Round(579 * $y_ratio)) ;button to leave game
Sleep(13000)
MouseClick("left",Round(230 *$x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu
Sleep(7000)
Else
MouseClick("left",Round(900 *$x_ratio),Round(900 * $y_ratio)) ;moves down screen away from cellar in attempt for safety before teleporting back to town
Sleep(1200)
Send("t")
Sleep(8200)
Send("{ESCAPE}") ;menu
MouseClick("left",Round(956 *$x_ratio),Round(579 * $y_ratio)) ;button to leave game
Sleep(13000)
MouseClick("left",Round(230 *$x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu
Sleep(8000)
EndIf
EndIf
EndIf
WEnd

Func Search()
    $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color)  ;searches for rares
    If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)  ;IF ITS THERE IT CLICKS IT.
    EndIf
   $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color2 )  ;searches for magics
   If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)    ;clicks magic
    EndIf
   
       $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color3 ) ;searches for legendarys
   If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)         ;clicks legendary
    EndIf   
    $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color4)  ;searches for SETS
    If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)  ;IF ITS THERE IT CLICKS IT.
     EndIf
EndFunc

Func Pause()
$Leave = False
EndFunc

Func Stop() ;to allow the script to stop
Exit
EndFunc

Func Leave()
$Leave = True
EndFunc


Work in progress... I actually have some more ideas for functions and what not, but this will do for the standard gold runs for now.


rUN GOING PRETTY GOOD , he could use a little more time on the right side after killing because not all the gold is being grabbed by ferrets but it literally would only be like a half a second or so! oN THE TENTH RUN HE WENT TO TOWN LOOKED LIKE TO SELL WENT RIGHT NEXT TO THE MERCHANT BUT STARTED SHOOTING over and over and moving to the right towards the front gate! He seems to not grab some blues and no gems or tomes but i know it is picking items up he might of been full checking now!!
Top
 Profile  
-=ZaM=-
 Post subject: Re: [Goldfarming] AFK 150k-200k Gold Per Hour [AutoIT Script
PostPosted: Sun Jun 17, 2012 7:37 am 
 
User
User

Joined: Sun Aug 22, 2004 4:42 pm
-=ZaM=- » Sat Jun 16, 2012 7:41 pm wrote:
I'm making changes of my own to the code, but I need the bot to search a (unhovered mouse) pixel for the cellar entrance, what can I replace the code with?

I'm not very familiar with Auto-it language so I'm not sure how to go about this without spending hours trying to figure it out on my own. I've so far tried using the code for picking up rares, but it's not working out very well.

nvm I spent hours and it works wonderfully.
Top
 Profile  
julianjg4186
 Post subject: Re: [Goldfarming] AFK 150k-200k Gold Per Hour [AutoIT Script
PostPosted: Sun Jun 17, 2012 8:22 am 
 
User
User

Joined: Tue Apr 10, 2012 4:06 pm
IM gonna post this onto etal for now and i will run the post for you and put updates there as soon as you get them to me! tHANKS

Also i added you to friends list and sent u message but ur afk!
Top
 Profile  
hectorin
 Post subject: Re: [Goldfarming] AFK 150k-200k Gold Per Hour [AutoIT Script
PostPosted: Sun Jun 17, 2012 8:47 am 
 
User
User

Joined: Mon Jul 25, 2011 10:54 am
i am using 1280 x 720 and func search to pikup items is missing

can u tell me the coords to change in func search

thx
Top
 Profile  
tiredmidget
 Post subject: Re: [Goldfarming] AFK 150k-200k Gold Per Hour [AutoIT Script
PostPosted: Sun Jun 17, 2012 2:13 pm 
 
User
User

Joined: Sat Jun 16, 2012 11:27 am
ofc im afk lol, try during daylight hours most likey around.

@hectoin make sure your texture settings is high, and you have tooltips for ground items enabled, should pick up one of each item (blue yellow legendary) if they exist.
Top
 Profile  
tiredmidget
 Post subject: Re: [Goldfarming] AFK 150k-200k Gold Per Hour [AutoIT Script
PostPosted: Sun Jun 17, 2012 5:01 pm 
 
User
User

Joined: Sat Jun 16, 2012 11:27 am
Need for speed version (25% move speed dont know if you need it or not but you might) Selling sleep timers have been removed, pathing has been changed to make it much faster and to deal with the pesky first set of zombies. Edit your Smoke Screen with rune to move faster, Caltrops to immobilze.

Code: Select all
Global $Paused

HotKeySet("=","Leave")
HotKeySet("-", "Pause")
HotKeySet("x", "Stop")

$default_resolutionX = 1920
$default_resolutionY = 1080
$x_ratio = @Desktopwidth / $default_resolutionX
$y_ratio = @Desktopheight / $default_resolutionY

$go = True
$Leave = False

Dim $Color, $Left, $Top, $Right, $Bottom
Local $Count = 0
$Color = 0xFFFF00   ;rare color code
$Color2 = 0x6969FF  ;blue color code     I have the ; in the 6969ff so it doesent pickup remove if you want it too!
$Color3 = 0xBF642F  ;legendary color code
$Color4 = 0x00FF00 ;SET color
$Left = 0                          ;TOP LEFT CORNER OF SCREEN 0,0
$Top = 0                           ;THESE ARE WHERE IT LOOKS FOR COLORS             
$Right = 1920                      ;BOTTOM RIGHT CORNER OF SCREEN 1920,1080
$Bottom = 1080


While $go
if($Leave) Then
$Pixel1 = PixelSearch((1482 * $x_ratio),(20 * $y_ratio),(1535 * $x_ratio),(95 * $y_ratio),0xFFF000) ;searches top right screen for yellow of broken armor
If Not @error Then
   Send ("t")
   Sleep(8000)
  MouseClick("left", Round(1480 * $x_ratio),Round(281 * $y_ratio));begin movement towards merchant
   Sleep(1500)
   MouseClick("left", Round(1316 * $x_ratio),Round(206 * $y_ratio)) ;moves to get merchant in screen
   Sleep(1500)
   MouseClick("left", Round(845 * $x_ratio),Round(225 * $y_ratio)) ;NPC Merchant to the right of cain's home
   Sleep(1500)
   MouseClick("left", Round(521 * $x_ratio),Round(506 * $y_ratio)) ;button to open up repair menu
   Sleep(1500)
   MouseClick("left", Round(260 * $x_ratio),Round(595 * $y_ratio)) ;button to pay for repairs
   Sleep(1500)
   MouseClick("left", Round(480 * $x_ratio),Round(180))
   Sleep(1500)
   MouseClick("left", Round(480 * $x_ratio),Round(180))
   MouseClick("right", Round(1450 * $x_ratio),Round(447))
   MouseClick("right", Round(1500 * $x_ratio),Round(447))
   MouseClick("right", Round(1550 * $x_ratio),Round(447))
   MouseClick("right", Round(1600 * $x_ratio),Round(447))
   MouseClick("right", Round(1645 * $x_ratio),Round(447))
   MouseClick("right", Round(1690 * $x_ratio),Round(447))
   MouseClick("right", Round(1730 * $x_ratio),Round(447))
   MouseClick("right", Round(1775 * $x_ratio),Round(447))
   MouseClick("right", Round(1840 * $x_ratio),Round(447))
   MouseClick("right", Round(1885 * $x_ratio),Round(447))
   MouseClick("right", Round(1450 * $x_ratio),Round(500))
   MouseClick("right", Round(1500 * $x_ratio),Round(500))
   MouseClick("right", Round(1550 * $x_ratio),Round(500))
   MouseClick("right", Round(1600 * $x_ratio),Round(500))
   MouseClick("right", Round(1645 * $x_ratio),Round(500))
   MouseClick("right", Round(1690 * $x_ratio),Round(500))
   MouseClick("right", Round(1730 * $x_ratio),Round(500))
   MouseClick("right", Round(1775 * $x_ratio),Round(500))
   MouseClick("right", Round(1840 * $x_ratio),Round(500))
   MouseClick("right", Round(1885 * $x_ratio),Round(500))
   MouseClick("right", Round(1450 * $x_ratio),Round(568))
   MouseClick("right", Round(1500 * $x_ratio),Round(568))
   MouseClick("right", Round(1550 * $x_ratio),Round(568))
   MouseClick("right", Round(1600 * $x_ratio),Round(568))
   MouseClick("right", Round(1645 * $x_ratio),Round(568))
   MouseClick("right", Round(1690 * $x_ratio),Round(568))
   MouseClick("right", Round(1730 * $x_ratio),Round(568))
   MouseClick("right", Round(1775 * $x_ratio),Round(568))
   MouseClick("right", Round(1840 * $x_ratio),Round(568))
   MouseClick("right", Round(1885 * $x_ratio),Round(568))
   Send("{ESCAPE}") ;exits store menu
   Sleep(250)
   Send("{ESCAPE}") ;opens menu
   Sleep(1000)
   MouseClick("left", Round(956 * $x_ratio),Round(579 * $y_ratio)) ;button to leave game
   Sleep(8000)
   MouseClick("left", Round(230 * $x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu
   Sleep(8000)
Else
ToolTip($count)
MouseClick("left", Round(587 * $x_ratio),Round(333 * $y_ratio)) ;starts the main run
Sleep(1000)
Send("2")
MouseClick("left", Round(96 * $x_ratio),Round(383 * $y_ratio))
Send("2")
Sleep(1500)
Send("3")
MouseClick("left", Round(417 * $x_ratio),Round(422 * $y_ratio)) ;middle of area outside of cellar
Send("1")
Sleep(1000)
MouseMove(Round(115 * $x_ratio),Round(210 * $y_ratio),1) ;moves cursor over to the cellar so the proper blue pixel becomes highlighted
Sleep(1000)
$Pixel2 = PixelSearch(0,0,(960 * $x_ratio),(540 * $y_ratio),0x3B62E3,3) ;searches for the specific blue pixel that only occurs when mouse hovers over open cellar
If Not @error Then
MouseClick("left",Round(115 *$x_ratio),Round(210 * $y_ratio)) ;Entrance to cellar
              Sleep(1900)
              Send(2)
              Sleep(1800)
              MouseClick("left",Round(531 *$x_ratio),Round(769 * $y_ratio))
              Sleep(2000)
              MouseClick("left",Round(547 *$x_ratio),Round(490 * $y_ratio)) ;moves to doorway leading to rare inside cellar
              Sleep(1500)
MouseMove(Round(579 * $x_ratio),Round(209 * $y_ratio),1) ;hovers over the rare Sarkoth
Send(4)
Sleep(1000)
Send("{SHIFTDOWN}")
MouseDown("right") ;attack middle
Sleep(3800)
MouseMove(Round(467 * $x_ratio),Round(269 * $y_ratio),1) ;attack left, add more sleep time if you can't kill minion on left
Sleep(3000)
MouseMove(Round(682 * $x_ratio),Round(147 * $y_ratio),1) ;attack right
Sleep(800)
MouseMove(Round(579 * $x_ratio),Round(209 * $y_ratio),1) ;move back to middle
Sleep(1000)
MouseUP("right")
Sleep(300)
Send("{SHIFTUP}")
Sleep(500)
MouseClick("left",Round(579 *$x_ratio),Round(209 * $y_ratio)) ;location of sarkoth after death
Sleep(2500)
MouseClick("left",Round(866 *$x_ratio),Round(324 * $y_ratio)) ;moves to right top corner for gold
Sleep(1500)
MouseClick("left",Round(902 *$x_ratio),Round(954 * $y_ratio)) ;moves to bottom middle for gold
Sleep(1500)
MouseClick("left",Round(687 *$x_ratio),Round(413 * $y_ratio)) ;moves to left top corner for gold
Sleep(1500)
call ("Search")
Sleep(1500)
Send("t")
$Count = $Count + 1
If $Count > 10 Then
   Sleep(8000)
     MouseClick("left", Round(1480 * $x_ratio),Round(281 * $y_ratio));begin movement towards merchant
   Sleep(1500)
   MouseClick("left", Round(1316 * $x_ratio),Round(206 * $y_ratio)) ;moves to get merchant in screen
   Sleep(1500)
   MouseClick("left", Round(845 * $x_ratio),Round(225 * $y_ratio)) ;NPC Merchant to the right of cain's home
   Sleep(1500)
   MouseClick("left", Round(521 * $x_ratio),Round(506 * $y_ratio)) ;button to open up repair menu
   Sleep(1500)
   MouseClick("left", Round(260 * $x_ratio),Round(595 * $y_ratio)) ;button to pay for repairs
   Sleep(1500)
   MouseClick("left", Round(480 * $x_ratio),Round(180))
   Sleep(800)
   MouseClick("left", Round(480 * $x_ratio),Round(180))
   MouseClick("right", Round(1450 * $x_ratio),Round(447))
   MouseClick("right", Round(1500 * $x_ratio),Round(447))
   MouseClick("right", Round(1550 * $x_ratio),Round(447))
   MouseClick("right", Round(1600 * $x_ratio),Round(447))
   MouseClick("right", Round(1645 * $x_ratio),Round(447))
   MouseClick("right", Round(1690 * $x_ratio),Round(447))
   MouseClick("right", Round(1730 * $x_ratio),Round(447))
   MouseClick("right", Round(1775 * $x_ratio),Round(447))
   MouseClick("right", Round(1840 * $x_ratio),Round(447))
   MouseClick("right", Round(1885 * $x_ratio),Round(447))
   MouseClick("right", Round(1450 * $x_ratio),Round(500))
   MouseClick("right", Round(1500 * $x_ratio),Round(500))
   MouseClick("right", Round(1550 * $x_ratio),Round(500))
   MouseClick("right", Round(1600 * $x_ratio),Round(500))
   MouseClick("right", Round(1645 * $x_ratio),Round(500))
   MouseClick("right", Round(1690 * $x_ratio),Round(500))
   MouseClick("right", Round(1730 * $x_ratio),Round(500))
   MouseClick("right", Round(1775 * $x_ratio),Round(500))
   MouseClick("right", Round(1840 * $x_ratio),Round(500))
   MouseClick("right", Round(1885 * $x_ratio),Round(500))
   MouseClick("right", Round(1450 * $x_ratio),Round(568))
   MouseClick("right", Round(1500 * $x_ratio),Round(568))
   MouseClick("right", Round(1550 * $x_ratio),Round(568))
   MouseClick("right", Round(1600 * $x_ratio),Round(568))
   MouseClick("right", Round(1645 * $x_ratio),Round(568))
   MouseClick("right", Round(1690 * $x_ratio),Round(568))
   MouseClick("right", Round(1730 * $x_ratio),Round(568))
   MouseClick("right", Round(1775 * $x_ratio),Round(568))
   MouseClick("right", Round(1840 * $x_ratio),Round(568))
   MouseClick("right", Round(1885 * $x_ratio),Round(568))
   $Count = $Count - 10
   Sleep(2500)
   Send("{ESCAPE}") ;exits store menu
   Sleep(250)
   Send("{ESCAPE}") ;opens menu
   Sleep(1000)
   MouseClick("left", Round(956 * $x_ratio),Round(579 * $y_ratio)) ;button to leave game
   Sleep(8000)
   MouseClick("left", Round(230 * $x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu
   Sleep(8000)
EndIf

Sleep(8200)
Send("{Escape}") ;menu
MouseClick("left",Round(956 *$x_ratio),Round(579 * $y_ratio)) ;button to leave game
Sleep(13000)
MouseClick("left",Round(230 *$x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu
Sleep(7000)
Else
Send("1")
Send("t")
Sleep(8300)
Send("{ESCAPE}") ;menu
MouseClick("left",Round(956 *$x_ratio),Round(579 * $y_ratio)) ;button to leave game
Sleep(13000)
MouseClick("left",Round(230 *$x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu
Sleep(8000)
EndIf
EndIf
EndIf
WEnd

Func Search()
    $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color)  ;searches for rares
    If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)  ;IF ITS THERE IT CLICKS IT.
    EndIf
   $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color2 )  ;searches for magics
   If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)    ;clicks magic
    EndIf
   
       $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color3 ) ;searches for legendarys
   If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)         ;clicks legendary
    EndIf   
    $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color4)  ;searches for SETS
    If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)  ;IF ITS THERE IT CLICKS IT.
     EndIf
EndFunc

Func Pause()
$Leave = False
EndFunc

Func Stop() ;to allow the script to stop
Exit
EndFunc

Func Leave()
$Leave = True
EndFunc
Top
 Profile  
julianjg4186
 Post subject: Re: [Goldfarming] AFK 150k-200k Gold Per Hour [AutoIT Script
PostPosted: Sun Jun 17, 2012 6:31 pm 
 
User
User

Joined: Tue Apr 10, 2012 4:06 pm
tiredmidget » Sun Jun 17, 2012 8:01 am wrote:
Need for speed version (25% move speed dont know if you need it or not but you might) Selling sleep timers have been removed, pathing has been changed to make it much faster and to deal with the pesky first set of zombies. Edit your Smoke Screen with rune to move faster, Caltrops to immobilze.

Code: Select all
Global $Paused

HotKeySet("=","Leave")
HotKeySet("-", "Pause")
HotKeySet("x", "Stop")

$default_resolutionX = 1920
$default_resolutionY = 1080
$x_ratio = @Desktopwidth / $default_resolutionX
$y_ratio = @Desktopheight / $default_resolutionY

$go = True
$Leave = False

Dim $Color, $Left, $Top, $Right, $Bottom
Local $Count = 0
$Color = 0xFFFF00   ;rare color code
$Color2 = 0x6969FF  ;blue color code     I have the ; in the 6969ff so it doesent pickup remove if you want it too!
$Color3 = 0xBF642F  ;legendary color code
$Color4 = 0x00FF00 ;SET color
$Left = 0                          ;TOP LEFT CORNER OF SCREEN 0,0
$Top = 0                           ;THESE ARE WHERE IT LOOKS FOR COLORS             
$Right = 1920                      ;BOTTOM RIGHT CORNER OF SCREEN 1920,1080
$Bottom = 1080


While $go
if($Leave) Then
$Pixel1 = PixelSearch((1482 * $x_ratio),(20 * $y_ratio),(1535 * $x_ratio),(95 * $y_ratio),0xFFF000) ;searches top right screen for yellow of broken armor
If Not @error Then
   Send ("t")
   Sleep(8000)
  MouseClick("left", Round(1480 * $x_ratio),Round(281 * $y_ratio));begin movement towards merchant
   Sleep(1500)
   MouseClick("left", Round(1316 * $x_ratio),Round(206 * $y_ratio)) ;moves to get merchant in screen
   Sleep(1500)
   MouseClick("left", Round(845 * $x_ratio),Round(225 * $y_ratio)) ;NPC Merchant to the right of cain's home
   Sleep(1500)
   MouseClick("left", Round(521 * $x_ratio),Round(506 * $y_ratio)) ;button to open up repair menu
   Sleep(1500)
   MouseClick("left", Round(260 * $x_ratio),Round(595 * $y_ratio)) ;button to pay for repairs
   Sleep(1500)
   MouseClick("left", Round(480 * $x_ratio),Round(180))
   Sleep(1500)
   MouseClick("left", Round(480 * $x_ratio),Round(180))
   MouseClick("right", Round(1450 * $x_ratio),Round(447))
   MouseClick("right", Round(1500 * $x_ratio),Round(447))
   MouseClick("right", Round(1550 * $x_ratio),Round(447))
   MouseClick("right", Round(1600 * $x_ratio),Round(447))
   MouseClick("right", Round(1645 * $x_ratio),Round(447))
   MouseClick("right", Round(1690 * $x_ratio),Round(447))
   MouseClick("right", Round(1730 * $x_ratio),Round(447))
   MouseClick("right", Round(1775 * $x_ratio),Round(447))
   MouseClick("right", Round(1840 * $x_ratio),Round(447))
   MouseClick("right", Round(1885 * $x_ratio),Round(447))
   MouseClick("right", Round(1450 * $x_ratio),Round(500))
   MouseClick("right", Round(1500 * $x_ratio),Round(500))
   MouseClick("right", Round(1550 * $x_ratio),Round(500))
   MouseClick("right", Round(1600 * $x_ratio),Round(500))
   MouseClick("right", Round(1645 * $x_ratio),Round(500))
   MouseClick("right", Round(1690 * $x_ratio),Round(500))
   MouseClick("right", Round(1730 * $x_ratio),Round(500))
   MouseClick("right", Round(1775 * $x_ratio),Round(500))
   MouseClick("right", Round(1840 * $x_ratio),Round(500))
   MouseClick("right", Round(1885 * $x_ratio),Round(500))
   MouseClick("right", Round(1450 * $x_ratio),Round(568))
   MouseClick("right", Round(1500 * $x_ratio),Round(568))
   MouseClick("right", Round(1550 * $x_ratio),Round(568))
   MouseClick("right", Round(1600 * $x_ratio),Round(568))
   MouseClick("right", Round(1645 * $x_ratio),Round(568))
   MouseClick("right", Round(1690 * $x_ratio),Round(568))
   MouseClick("right", Round(1730 * $x_ratio),Round(568))
   MouseClick("right", Round(1775 * $x_ratio),Round(568))
   MouseClick("right", Round(1840 * $x_ratio),Round(568))
   MouseClick("right", Round(1885 * $x_ratio),Round(568))
   Send("{ESCAPE}") ;exits store menu
   Sleep(250)
   Send("{ESCAPE}") ;opens menu
   Sleep(1000)
   MouseClick("left", Round(956 * $x_ratio),Round(579 * $y_ratio)) ;button to leave game
   Sleep(8000)
   MouseClick("left", Round(230 * $x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu
   Sleep(8000)
Else
ToolTip($count)
MouseClick("left", Round(587 * $x_ratio),Round(333 * $y_ratio)) ;starts the main run
Sleep(1000)
Send("2")
MouseClick("left", Round(96 * $x_ratio),Round(383 * $y_ratio))
Send("2")
Sleep(1500)
Send("3")
MouseClick("left", Round(417 * $x_ratio),Round(422 * $y_ratio)) ;middle of area outside of cellar
Send("1")
Sleep(1000)
MouseMove(Round(115 * $x_ratio),Round(210 * $y_ratio),1) ;moves cursor over to the cellar so the proper blue pixel becomes highlighted
Sleep(1000)
$Pixel2 = PixelSearch(0,0,(960 * $x_ratio),(540 * $y_ratio),0x3B62E3,3) ;searches for the specific blue pixel that only occurs when mouse hovers over open cellar
If Not @error Then
MouseClick("left",Round(115 *$x_ratio),Round(210 * $y_ratio)) ;Entrance to cellar
              Sleep(1900)
              Send(2)
              Sleep(1800)
              MouseClick("left",Round(531 *$x_ratio),Round(769 * $y_ratio))
              Sleep(2000)
              MouseClick("left",Round(547 *$x_ratio),Round(490 * $y_ratio)) ;moves to doorway leading to rare inside cellar
              Sleep(1500)
MouseMove(Round(579 * $x_ratio),Round(209 * $y_ratio),1) ;hovers over the rare Sarkoth
Send(4)
Sleep(1000)
Send("{SHIFTDOWN}")
MouseDown("right") ;attack middle
Sleep(3800)
MouseMove(Round(467 * $x_ratio),Round(269 * $y_ratio),1) ;attack left, add more sleep time if you can't kill minion on left
Sleep(3000)
MouseMove(Round(682 * $x_ratio),Round(147 * $y_ratio),1) ;attack right
Sleep(800)
MouseMove(Round(579 * $x_ratio),Round(209 * $y_ratio),1) ;move back to middle
Sleep(1000)
MouseUP("right")
Sleep(300)
Send("{SHIFTUP}")
Sleep(500)
MouseClick("left",Round(579 *$x_ratio),Round(209 * $y_ratio)) ;location of sarkoth after death
Sleep(2500)
MouseClick("left",Round(866 *$x_ratio),Round(324 * $y_ratio)) ;moves to right top corner for gold
Sleep(1500)
MouseClick("left",Round(902 *$x_ratio),Round(954 * $y_ratio)) ;moves to bottom middle for gold
Sleep(1500)
MouseClick("left",Round(687 *$x_ratio),Round(413 * $y_ratio)) ;moves to left top corner for gold
Sleep(1500)
call ("Search")
Sleep(1500)
Send("t")
$Count = $Count + 1
If $Count > 10 Then
   Sleep(8000)
     MouseClick("left", Round(1480 * $x_ratio),Round(281 * $y_ratio));begin movement towards merchant
   Sleep(1500)
   MouseClick("left", Round(1316 * $x_ratio),Round(206 * $y_ratio)) ;moves to get merchant in screen
   Sleep(1500)
   MouseClick("left", Round(845 * $x_ratio),Round(225 * $y_ratio)) ;NPC Merchant to the right of cain's home
   Sleep(1500)
   MouseClick("left", Round(521 * $x_ratio),Round(506 * $y_ratio)) ;button to open up repair menu
   Sleep(1500)
   MouseClick("left", Round(260 * $x_ratio),Round(595 * $y_ratio)) ;button to pay for repairs
   Sleep(1500)
   MouseClick("left", Round(480 * $x_ratio),Round(180))
   Sleep(800)
   MouseClick("left", Round(480 * $x_ratio),Round(180))
   MouseClick("right", Round(1450 * $x_ratio),Round(447))
   MouseClick("right", Round(1500 * $x_ratio),Round(447))
   MouseClick("right", Round(1550 * $x_ratio),Round(447))
   MouseClick("right", Round(1600 * $x_ratio),Round(447))
   MouseClick("right", Round(1645 * $x_ratio),Round(447))
   MouseClick("right", Round(1690 * $x_ratio),Round(447))
   MouseClick("right", Round(1730 * $x_ratio),Round(447))
   MouseClick("right", Round(1775 * $x_ratio),Round(447))
   MouseClick("right", Round(1840 * $x_ratio),Round(447))
   MouseClick("right", Round(1885 * $x_ratio),Round(447))
   MouseClick("right", Round(1450 * $x_ratio),Round(500))
   MouseClick("right", Round(1500 * $x_ratio),Round(500))
   MouseClick("right", Round(1550 * $x_ratio),Round(500))
   MouseClick("right", Round(1600 * $x_ratio),Round(500))
   MouseClick("right", Round(1645 * $x_ratio),Round(500))
   MouseClick("right", Round(1690 * $x_ratio),Round(500))
   MouseClick("right", Round(1730 * $x_ratio),Round(500))
   MouseClick("right", Round(1775 * $x_ratio),Round(500))
   MouseClick("right", Round(1840 * $x_ratio),Round(500))
   MouseClick("right", Round(1885 * $x_ratio),Round(500))
   MouseClick("right", Round(1450 * $x_ratio),Round(568))
   MouseClick("right", Round(1500 * $x_ratio),Round(568))
   MouseClick("right", Round(1550 * $x_ratio),Round(568))
   MouseClick("right", Round(1600 * $x_ratio),Round(568))
   MouseClick("right", Round(1645 * $x_ratio),Round(568))
   MouseClick("right", Round(1690 * $x_ratio),Round(568))
   MouseClick("right", Round(1730 * $x_ratio),Round(568))
   MouseClick("right", Round(1775 * $x_ratio),Round(568))
   MouseClick("right", Round(1840 * $x_ratio),Round(568))
   MouseClick("right", Round(1885 * $x_ratio),Round(568))
   $Count = $Count - 10
   Sleep(2500)
   Send("{ESCAPE}") ;exits store menu
   Sleep(250)
   Send("{ESCAPE}") ;opens menu
   Sleep(1000)
   MouseClick("left", Round(956 * $x_ratio),Round(579 * $y_ratio)) ;button to leave game
   Sleep(8000)
   MouseClick("left", Round(230 * $x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu
   Sleep(8000)
EndIf

Sleep(8200)
Send("{Escape}") ;menu
MouseClick("left",Round(956 *$x_ratio),Round(579 * $y_ratio)) ;button to leave game
Sleep(13000)
MouseClick("left",Round(230 *$x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu
Sleep(7000)
Else
Send("1")
Send("t")
Sleep(8300)
Send("{ESCAPE}") ;menu
MouseClick("left",Round(956 *$x_ratio),Round(579 * $y_ratio)) ;button to leave game
Sleep(13000)
MouseClick("left",Round(230 *$x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu
Sleep(8000)
EndIf
EndIf
EndIf
WEnd

Func Search()
    $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color)  ;searches for rares
    If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)  ;IF ITS THERE IT CLICKS IT.
    EndIf
   $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color2 )  ;searches for magics
   If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)    ;clicks magic
    EndIf
   
       $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color3 ) ;searches for legendarys
   If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)         ;clicks legendary
    EndIf   
    $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color4)  ;searches for SETS
    If Not @error Then
      MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)  ;IF ITS THERE IT CLICKS IT.
     EndIf
EndFunc

Func Pause()
$Leave = False
EndFunc

Func Stop() ;to allow the script to stop
Exit
EndFunc

Func Leave()
$Leave = True
EndFunc


the new oe seems fast but it doesnt go far enough its like an inch away from putting moue over cellar to see if its there . So since it ca reach it ust TP;s out of there and exits game. The other ones or 2 were working good but they sometomes would get stuck after killing . I even seen the last script sell items tooz!!
Top
 Profile  
Display posts from previous:  Sort by  
Post new topic Reply to topic  Page 16 of 20
  [ 297 posts ]  Go to page Previous  1 ... 13, 14, 15, 16, 17, 18, 19, 20  Next

Board index » Diablo III » Diablo III Research and Development

All times are UTC [ DST ]

Who is online

Users browsing this forum: No registered users and 2 guests

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum

Search for:
Jump to:  
cron