Results 1 to 13 of 13
  1. #1
    Member
    Reputation
    1
    Join Date
    Jun 2012
    Posts
    7
    CoreCoins
    0

    Trade Feedbacks

    Status
    n/a
    Positive
    0 (0%)
    Negative
    0 (0%)

    Sarkoth Gold Farm DH [AutiIT Script] - Modified by Oden2005 NO MORE STUCK IN MENUS



    Donate to Remove Ads, Get ShoutBawx - Elite Forum Access
    I had Tried notAres' DH script and a few versions modified by other board members here but eventually it would keep getting stuck in the game menu if I died or sometimes after repairing so I added a function to check that the game was at the main menu before each time the script attempts to click the resume game button. If you are not at the main menu and stuck in any of the menus I saw it get hung up in, game menu, game menu exit diablo III confirmation, banner customization menu, player menu, it will automatically exit back out to the main menu and resume game.

    I also customized the load time for my SSD and the combat times for my DH who has much less damage with my 250% GF gear on.

    Feel free to use the main menu check function in your own version if you have already customized one for yourself, just posting this up so others don't have to go through the trouble for themselves.

    pastebin

  2. #2
    Member
    Reputation
    1
    Join Date
    Jun 2012
    Posts
    9
    CoreCoins
    0

    Trade Feedbacks

    Status
    n/a
    Positive
    0 (0%)
    Negative
    0 (0%)
    Hi,

    Thanks for the script. Can you come out with one without loots finding? I'm still getting the common problem where the character will run, clicked on dank cellar but run south and teleport back to town.

    I don't need a loot findings function all i need is GF.. appreciate it man.

  3. #3
    Member
    Reputation
    1
    Join Date
    Jun 2012
    Posts
    7
    CoreCoins
    0

    Trade Feedbacks

    Status
    n/a
    Positive
    0 (0%)
    Negative
    0 (0%)
    Although I never had an issue with the looting in this version as it is very basic, doesn't stash or vendor etc. here is a version without loot:

    pastebin

  4. #4
    Member
    Reputation
    1
    Join Date
    Jun 2012
    Posts
    9
    CoreCoins
    0

    Trade Feedbacks

    Status
    n/a
    Positive
    0 (0%)
    Negative
    0 (0%)
    Hi,

    Thanks. Appreciated. Will try it out later.

    Btw, hopefully it doesn't run south and teleport again where it used to be. The only script that is working for me without any images loader/ loots findings is this.

    Code:
    Global $Paused
    
    HotKeySet("=","Leave")  ;script can START by pressing =
    HotKeySet("-", "Pause") ;script can be Pause by pressing -
    HotKeySet("x", "Stop") ;script can be Stopped by pressing x
    
    $go = True
    $Leave = False
    $runMade = 0
    
    While $go
       if($Leave) Then
       $Pixel1 = PixelSearch(1482,20,1535,95,0xFFF000) ;searches top right screen for yellow of broken armor
    	  If Not @error Then
    		 ;we need to repair
    		 Send("t")
    		 Sleep(8000)
    		 MouseClick("left", 1480, 281) ;begin movement towards merchant
    		 Sleep(1500)
    		 MouseClick("left", 1316, 206) ;moves to get merchant in screen
    		 Sleep(1500)
    		 MouseClick("left", 845, 225) ;NPC Merchant to the right of cain's home
    		 Sleep(1500)
    		 MouseClick("left", 521, 506) ;button to open up repair menu
    		 Sleep(1500)
    		 MouseClick("left", 260, 595) ;button to pay for repairs
    		 Sleep(2500)
    		 Send("{ESCAPE}") ;close windows
    		 Sleep(200);
    		 ResumeGame()
    	  Else
    		 ;starts the run
    		 MouseClick("left", 54, 129) 
    		 Sleep(1000)
    		 Send("2")
    		 Sleep(800)
    		 Send("1")
    		 Sleep(1000)
    		 MouseClick("left", 87, 429)
    		 Sleep(800)
    		 Send("1")
    		 Sleep(1500)
    		 Send("3")
    		 MouseMove(203, 186,1) ;moves cursor over to the cellar so the proper blue pixel becomes highlighted
    		 Sleep(2000)
    			$Pixel2 = PixelSearch(69,96,288,246,0xffffff) ;searches for the specific blue pixel that only occurs when mouse hovers over open cellar
    			   If Not @error Then
    				  MouseClick("left",203, 186) ;Entrance to cellar
    				  Sleep(3000)
    				  Send(2)
    				  Sleep(1800)
    				  MouseClick("left", 531, 769)
    				  Send(4) 
    				  Sleep(2000)
    				  MouseClick("left", 547, 490) ;moves to doorway leading to rare inside cellar
    				  Sleep(1500)
    				  MouseMove(624,258,1) ;hovers over the rare Sarkoth
    				  Send("{SHIFTDOWN}")
    				  MouseDown("right")
    				  Sleep(3200)
    				  MouseMove(474, 273, 1) ;attack left, add more sleep time if you can't kill minion on left
    				  Sleep(1000)
    				  MouseMove(732, 232, 1) ;attack right
    				  Sleep(500)
    				  MouseMove(624,258, 1) ;attack mid again
    				  Sleep(1000)
    				  MouseUP("right")
    				  Sleep(300)
    				  Send("{SHIFTUP}")
    				  Send(4)
    				  Sleep(500)
    				  SearchBlue()
    				  SearchYellow()
    				  SearchOrange()
    				  SearchWhite()
    				  SearchBlue()
    				  SearchYellow()
    				  SearchOrange()
    				  SearchWhite()
    				  Sleep(1500)
    				  Send("t")
    				  Sleep(10200)
    				  Town()
    				  ResumeGame()
    			   Else
    				  Send("t")
    				  Sleep(8200)
    				  ResumeGame()
    			   EndIf
    	  EndIf
       EndIf
    WEnd
    
    Func Pause()
       $Leave = False
    EndFunc
    
    Func Stop() ;to allow the script to stop
        Exit
    EndFunc 
     
    Func Leave()
        $Leave = True
     EndFunc
     
    Func SearchBlue()
       $cnt = 0
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(0,0,1950,1120,0x6969ff)
    	  if Not @error Then
    		 Send("{ALTDOWN}")
    		 Send("{ALTUP}")
    		 MouseClick("left", $Pixel3[0], $Pixel3[1])
    		 Sleep(1000)
    		 $cnt = $cnt + 1
    		 if $cnt > 8 Then
    			$Searching = False
    			EndIf
    	  Else
    		 $Searching = False
    	  EndIf
       WEnd
    EndFunc
     
    Func SearchYellow()
       $cnt = 0
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(0,0,1950,1120,0xe0e205)
    	  if Not @error Then
    		 Send("{ALTDOWN}")
    		 Send("{ALTUP}")
    		 MouseClick("left", $Pixel3[0], $Pixel3[1])
    		 Sleep(1000)
    		 $cnt = $cnt + 1
    		 if $cnt > 8 Then
    			$Searching = False
    			EndIf
    	  Else
    		 $Searching = False
    	  EndIf
       WEnd
       
       $cnt = 0
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(0,0,1950,1120,0xc5c509)
    	  if Not @error Then
    		 Send("{ALTDOWN}")
    		 Send("{ALTUP}")
    		 MouseClick("left", $Pixel3[0], $Pixel3[1])
    		 Sleep(1000)
    		 $cnt = $cnt + 1
    		 if $cnt > 8 Then
    			$Searching = False
    			EndIf
    	  Else
    		 $Searching = False
    	  EndIf
       WEnd
       
       $cnt = 0
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(0,0,1950,1120,0xd4d711)
    	  if Not @error Then
    		 Send("{ALTDOWN}")
    		 Send("{ALTUP}")
    		 MouseClick("left", $Pixel3[0], $Pixel3[1])
    		 Sleep(1000)
    		 $cnt = $cnt + 1
    		 if $cnt > 8 Then
    			$Searching = False
    			EndIf
    	  Else
    		 $Searching = False
    	  EndIf
       WEnd
       
       $cnt = 0
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(0,0,1950,1120,0xdddd00)
    	  if Not @error Then
    		 Send("{ALTDOWN}")
    		 Send("{ALTUP}")
    		 MouseClick("left", $Pixel3[0], $Pixel3[1])
    		 Sleep(1000)
    		 $cnt = $cnt + 1
    		 if $cnt > 8 Then
    			$Searching = False
    			EndIf
    	  Else
    		 $Searching = False
    	  EndIf
       WEnd
    EndFunc
     
    Func SearchOrange()
       $cnt = 0
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(0,0,1950,1120,0x9b5227)
    	  if Not @error Then
    		 Send("{ALTDOWN}")
    		 Send("{ALTUP}")
    		 MouseClick("left", $Pixel3[0], $Pixel3[1])
    		 Sleep(1000)
    		 $cnt = $cnt + 1
    		 if $cnt > 8 Then
    			$Searching = False
    			EndIf
    	  Else
    		 $Searching = False
    	  EndIf
       WEnd
    EndFunc
     
    Func SearchWhite()
       $cnt = 0
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(350,200,1350,800,0xeeeeee)
    	  if Not @error Then
    		 Send("{ALTDOWN}")
    		 Send("{ALTUP}")
    		 MouseClick("left", $Pixel3[0], $Pixel3[1])
    		 Sleep(1000)
    		 $cnt = $cnt + 1
    		 if $cnt > 8 Then
    			$Searching = False
    			EndIf
    	  Else
    		 $Searching = False
    	  EndIf
       WEnd
    EndFunc
     
    Func Town()
       $runMade = $runMade + 1
       If $runMade > 5 Then
    	  MouseClick("left", 1064, 256)		;go to chest
    	  Sleep(2000)
    	  MouseClick("left", 517, 251)		; 1st tab
    	  Sleep(500);
    	  DropInChest();
    	  MouseClick("left", 517, 378)		; 2nd tab
    	  Sleep(500);
    	  DepositRare()
    	  MouseClick("left", 517, 500)		; 3rd tab
    	  Sleep(500);
    	  DepositRare()
    	  Sleep(500);
    	  Send("{ESCAPE}") ;close windows
    	  Sleep(500)
    	  MouseClick("left", 1515, 69)		;go half way to vendor
    	  Sleep(2000)
    	  MouseClick("left", 1105, 225)		;go half way to vendor
    	  Sleep(2000)
    	  VendorAll()
    	  ;SellBlue()
    	  ;Sleep(500)
    	  ;SellWhite()
    	  MouseClick("left", 506, 483)		;click repair tab
    	  Sleep(200)
    	  MouseClick("left", 242, 528)		;click repair
    	  Sleep(200)
    	  Send("{ESCAPE}") ;close windows
    	  Sleep(500)
       EndIf
    EndFunc
       
    Func DropInChest()
       ; Tome of secret
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x507554 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
      
       ; Yellow gems
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0xce8200 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; Yellow gems
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0xc17900 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
      
       ; Green gems
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x319e31 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; Green gems
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x3db835 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
      
       ; Red gems
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0xf01d1f)			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; Red gems
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0xe90b0b)			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
      
       ; Purple gems
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x9905db )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; Purple gems
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0xb110f7 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
    EndFunc
    
    Func VendorAll()
       For $i = 0 To 9 Step 1
    	  MouseClick("right", 1432 + (50 * $i), 609)
    	  Sleep(25)
    	  MouseClick("right", 1432 + (50 * $i), 609 + 50)
    	  Sleep(25)
    	  MouseClick("right", 1432 + (50 * $i), 609 + 100)
    	  Sleep(25)
    	  MouseClick("right", 1432 + (50 * $i), 609 + 150)
    	  Sleep(25)
    	  MouseClick("right", 1432 + (50 * $i), 609 + 200)
    	  Sleep(25)
    	  MouseClick("right", 1432 + (50 * $i), 609 + 250)
    	  Sleep(25)
       Next
    EndFunc
    
    Func SellBlue()
       
       ; 1st color
       ; 2 slots items
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x161829 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; 1 slots items
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x161c36 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x13233c )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x182343 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x233055 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x102039 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
    EndFunc
    
    Func SellWhite()
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0xffffff )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
    endFunc
    
    Func DepositRare()
       ;Yellow
       ;1st color
       ; 2 slots items
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x604f0b )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
       ; 1 slots items
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x5a4d10 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x5d4e10 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x66580f )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0xf5f500 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x554914 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ;orange
       ; 2 slots items
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x593212 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
       ; 1 slots items
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x693e12 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
    EndFunc
    
    Func CheckDeath()
    	  $Pixel3 = PixelSearch(670,812,1263,881,0x0e0604 )			
    	  if Not @error Then
    		 ; dead
    	  EndIf
       EndFunc
       
    Func ResumeGame()
       Send("{ESCAPE}") ;opens menu
       Sleep(1000)
       MouseClick("left", 956, 579) ;button to leave game
       ;Sleep(13000)
       
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(60,384,411,450,0x3c0700 )			
    	  if Not @error Then
    		 MouseClick("left", 230, 416) ;button to resume game from main menu
    		 Sleep(8000)
    		 $Searching = False
    	  EndIf
       WEnd
    EndFunc
    But somehow the looting isn't that perfect but it doesnt bring me to cellar without running south and teleport back to town. hopefully yours will finally work for me this time. but does your script for basic gold findings require any image loading?
    Last edited by DennisToo; 06-12-2012 at 04:32 AM.

  5. #5
    Member
    Reputation
    1
    Join Date
    Jun 2012
    Posts
    61
    CoreCoins
    0

    Trade Feedbacks

    Status
    n/a
    Positive
    0 (0%)
    Negative
    0 (0%)
    Quote Originally Posted by DennisToo View Post
    Hi,

    Thanks. Appreciated. Will try it out later.

    Btw, hopefully it doesn't run south and teleport again where it used to be. The only script that is working for me without any images loader/ loots findings is this.

    Code:
    Global $Paused
    
    HotKeySet("=","Leave")  ;script can START by pressing =
    HotKeySet("-", "Pause") ;script can be Pause by pressing -
    HotKeySet("x", "Stop") ;script can be Stopped by pressing x
    
    $go = True
    $Leave = False
    $runMade = 0
    
    While $go
       if($Leave) Then
       $Pixel1 = PixelSearch(1482,20,1535,95,0xFFF000) ;searches top right screen for yellow of broken armor
    	  If Not @error Then
    		 ;we need to repair
    		 Send("t")
    		 Sleep(8000)
    		 MouseClick("left", 1480, 281) ;begin movement towards merchant
    		 Sleep(1500)
    		 MouseClick("left", 1316, 206) ;moves to get merchant in screen
    		 Sleep(1500)
    		 MouseClick("left", 845, 225) ;NPC Merchant to the right of cain's home
    		 Sleep(1500)
    		 MouseClick("left", 521, 506) ;button to open up repair menu
    		 Sleep(1500)
    		 MouseClick("left", 260, 595) ;button to pay for repairs
    		 Sleep(2500)
    		 Send("{ESCAPE}") ;close windows
    		 Sleep(200);
    		 ResumeGame()
    	  Else
    		 ;starts the run
    		 MouseClick("left", 54, 129) 
    		 Sleep(1000)
    		 Send("2")
    		 Sleep(800)
    		 Send("1")
    		 Sleep(1000)
    		 MouseClick("left", 87, 429)
    		 Sleep(800)
    		 Send("1")
    		 Sleep(1500)
    		 Send("3")
    		 MouseMove(203, 186,1) ;moves cursor over to the cellar so the proper blue pixel becomes highlighted
    		 Sleep(2000)
    			$Pixel2 = PixelSearch(69,96,288,246,0xffffff) ;searches for the specific blue pixel that only occurs when mouse hovers over open cellar
    			   If Not @error Then
    				  MouseClick("left",203, 186) ;Entrance to cellar
    				  Sleep(3000)
    				  Send(2)
    				  Sleep(1800)
    				  MouseClick("left", 531, 769)
    				  Send(4) 
    				  Sleep(2000)
    				  MouseClick("left", 547, 490) ;moves to doorway leading to rare inside cellar
    				  Sleep(1500)
    				  MouseMove(624,258,1) ;hovers over the rare Sarkoth
    				  Send("{SHIFTDOWN}")
    				  MouseDown("right")
    				  Sleep(3200)
    				  MouseMove(474, 273, 1) ;attack left, add more sleep time if you can't kill minion on left
    				  Sleep(1000)
    				  MouseMove(732, 232, 1) ;attack right
    				  Sleep(500)
    				  MouseMove(624,258, 1) ;attack mid again
    				  Sleep(1000)
    				  MouseUP("right")
    				  Sleep(300)
    				  Send("{SHIFTUP}")
    				  Send(4)
    				  Sleep(500)
    				  SearchBlue()
    				  SearchYellow()
    				  SearchOrange()
    				  SearchWhite()
    				  SearchBlue()
    				  SearchYellow()
    				  SearchOrange()
    				  SearchWhite()
    				  Sleep(1500)
    				  Send("t")
    				  Sleep(10200)
    				  Town()
    				  ResumeGame()
    			   Else
    				  Send("t")
    				  Sleep(8200)
    				  ResumeGame()
    			   EndIf
    	  EndIf
       EndIf
    WEnd
    
    Func Pause()
       $Leave = False
    EndFunc
    
    Func Stop() ;to allow the script to stop
        Exit
    EndFunc 
     
    Func Leave()
        $Leave = True
     EndFunc
     
    Func SearchBlue()
       $cnt = 0
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(0,0,1950,1120,0x6969ff)
    	  if Not @error Then
    		 Send("{ALTDOWN}")
    		 Send("{ALTUP}")
    		 MouseClick("left", $Pixel3[0], $Pixel3[1])
    		 Sleep(1000)
    		 $cnt = $cnt + 1
    		 if $cnt > 8 Then
    			$Searching = False
    			EndIf
    	  Else
    		 $Searching = False
    	  EndIf
       WEnd
    EndFunc
     
    Func SearchYellow()
       $cnt = 0
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(0,0,1950,1120,0xe0e205)
    	  if Not @error Then
    		 Send("{ALTDOWN}")
    		 Send("{ALTUP}")
    		 MouseClick("left", $Pixel3[0], $Pixel3[1])
    		 Sleep(1000)
    		 $cnt = $cnt + 1
    		 if $cnt > 8 Then
    			$Searching = False
    			EndIf
    	  Else
    		 $Searching = False
    	  EndIf
       WEnd
       
       $cnt = 0
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(0,0,1950,1120,0xc5c509)
    	  if Not @error Then
    		 Send("{ALTDOWN}")
    		 Send("{ALTUP}")
    		 MouseClick("left", $Pixel3[0], $Pixel3[1])
    		 Sleep(1000)
    		 $cnt = $cnt + 1
    		 if $cnt > 8 Then
    			$Searching = False
    			EndIf
    	  Else
    		 $Searching = False
    	  EndIf
       WEnd
       
       $cnt = 0
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(0,0,1950,1120,0xd4d711)
    	  if Not @error Then
    		 Send("{ALTDOWN}")
    		 Send("{ALTUP}")
    		 MouseClick("left", $Pixel3[0], $Pixel3[1])
    		 Sleep(1000)
    		 $cnt = $cnt + 1
    		 if $cnt > 8 Then
    			$Searching = False
    			EndIf
    	  Else
    		 $Searching = False
    	  EndIf
       WEnd
       
       $cnt = 0
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(0,0,1950,1120,0xdddd00)
    	  if Not @error Then
    		 Send("{ALTDOWN}")
    		 Send("{ALTUP}")
    		 MouseClick("left", $Pixel3[0], $Pixel3[1])
    		 Sleep(1000)
    		 $cnt = $cnt + 1
    		 if $cnt > 8 Then
    			$Searching = False
    			EndIf
    	  Else
    		 $Searching = False
    	  EndIf
       WEnd
    EndFunc
     
    Func SearchOrange()
       $cnt = 0
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(0,0,1950,1120,0x9b5227)
    	  if Not @error Then
    		 Send("{ALTDOWN}")
    		 Send("{ALTUP}")
    		 MouseClick("left", $Pixel3[0], $Pixel3[1])
    		 Sleep(1000)
    		 $cnt = $cnt + 1
    		 if $cnt > 8 Then
    			$Searching = False
    			EndIf
    	  Else
    		 $Searching = False
    	  EndIf
       WEnd
    EndFunc
     
    Func SearchWhite()
       $cnt = 0
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(350,200,1350,800,0xeeeeee)
    	  if Not @error Then
    		 Send("{ALTDOWN}")
    		 Send("{ALTUP}")
    		 MouseClick("left", $Pixel3[0], $Pixel3[1])
    		 Sleep(1000)
    		 $cnt = $cnt + 1
    		 if $cnt > 8 Then
    			$Searching = False
    			EndIf
    	  Else
    		 $Searching = False
    	  EndIf
       WEnd
    EndFunc
     
    Func Town()
       $runMade = $runMade + 1
       If $runMade > 5 Then
    	  MouseClick("left", 1064, 256)		;go to chest
    	  Sleep(2000)
    	  MouseClick("left", 517, 251)		; 1st tab
    	  Sleep(500);
    	  DropInChest();
    	  MouseClick("left", 517, 378)		; 2nd tab
    	  Sleep(500);
    	  DepositRare()
    	  MouseClick("left", 517, 500)		; 3rd tab
    	  Sleep(500);
    	  DepositRare()
    	  Sleep(500);
    	  Send("{ESCAPE}") ;close windows
    	  Sleep(500)
    	  MouseClick("left", 1515, 69)		;go half way to vendor
    	  Sleep(2000)
    	  MouseClick("left", 1105, 225)		;go half way to vendor
    	  Sleep(2000)
    	  VendorAll()
    	  ;SellBlue()
    	  ;Sleep(500)
    	  ;SellWhite()
    	  MouseClick("left", 506, 483)		;click repair tab
    	  Sleep(200)
    	  MouseClick("left", 242, 528)		;click repair
    	  Sleep(200)
    	  Send("{ESCAPE}") ;close windows
    	  Sleep(500)
       EndIf
    EndFunc
       
    Func DropInChest()
       ; Tome of secret
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x507554 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
      
       ; Yellow gems
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0xce8200 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; Yellow gems
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0xc17900 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
      
       ; Green gems
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x319e31 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; Green gems
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x3db835 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
      
       ; Red gems
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0xf01d1f)			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; Red gems
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0xe90b0b)			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
      
       ; Purple gems
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x9905db )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; Purple gems
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0xb110f7 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
    EndFunc
    
    Func VendorAll()
       For $i = 0 To 9 Step 1
    	  MouseClick("right", 1432 + (50 * $i), 609)
    	  Sleep(25)
    	  MouseClick("right", 1432 + (50 * $i), 609 + 50)
    	  Sleep(25)
    	  MouseClick("right", 1432 + (50 * $i), 609 + 100)
    	  Sleep(25)
    	  MouseClick("right", 1432 + (50 * $i), 609 + 150)
    	  Sleep(25)
    	  MouseClick("right", 1432 + (50 * $i), 609 + 200)
    	  Sleep(25)
    	  MouseClick("right", 1432 + (50 * $i), 609 + 250)
    	  Sleep(25)
       Next
    EndFunc
    
    Func SellBlue()
       
       ; 1st color
       ; 2 slots items
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x161829 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; 1 slots items
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x161c36 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x13233c )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x182343 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x233055 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x102039 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
    EndFunc
    
    Func SellWhite()
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0xffffff )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
    endFunc
    
    Func DepositRare()
       ;Yellow
       ;1st color
       ; 2 slots items
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x604f0b )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
       ; 1 slots items
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x5a4d10 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x5d4e10 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x66580f )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0xf5f500 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x554914 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ;orange
       ; 2 slots items
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x593212 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
       ; 1 slots items
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x693e12 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
    EndFunc
    
    Func CheckDeath()
    	  $Pixel3 = PixelSearch(670,812,1263,881,0x0e0604 )			
    	  if Not @error Then
    		 ; dead
    	  EndIf
       EndFunc
       
    Func ResumeGame()
       Send("{ESCAPE}") ;opens menu
       Sleep(1000)
       MouseClick("left", 956, 579) ;button to leave game
       ;Sleep(13000)
       
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(60,384,411,450,0x3c0700 )			
    	  if Not @error Then
    		 MouseClick("left", 230, 416) ;button to resume game from main menu
    		 Sleep(8000)
    		 $Searching = False
    	  EndIf
       WEnd
    EndFunc
    But somehow the looting isn't that perfect but it doesnt bring me to cellar without running south and teleport back to town. hopefully yours will finally work for me this time. but does your script for basic gold findings require any image loading?

    Did you try the script I posted in the original wizard forum? Its somewhere on page 15-17. There are 2 and I would suggest the second one. The difference is that it casts the knockback skill which is keepin my death rate REALLY low. Maybe it will work for you with some minor adjustment to the sleep timer for your dps.

  6. #6
    Member
    Reputation
    1
    Join Date
    Jun 2012
    Posts
    61
    CoreCoins
    0

    Trade Feedbacks

    Status
    n/a
    Positive
    0 (0%)
    Negative
    0 (0%)
    Quote Originally Posted by oden2005 View Post
    I had Tried notAres' DH script and a few versions modified by other board members here but eventually it would keep getting stuck in the game menu if I died or sometimes after repairing so I added a function to check that the game was at the main menu before each time the script attempts to click the resume game button. If you are not at the main menu and stuck in any of the menus I saw it get hung up in, game menu, game menu exit diablo III confirmation, banner customization menu, player menu, it will automatically exit back out to the main menu and resume game.

    I also customized the load time for my SSD and the combat times for my DH who has much less damage with my 250% GF gear on.

    Feel free to use the main menu check function in your own version if you have already customized one for yourself, just posting this up so others don't have to go through the trouble for themselves.

    pastebin


    OMG BRO I LOVE YOU. I have been trying to work this issue out forever as have many people. I have a wizard code that I need to put this in I just can't figure out exactly where the code for the stuck in menu part begins and ends. If you could post just the part for the stuck in menu area or if its easier I can post the code several ppl including myself are using in the wizard forum and add it in yourself. Sorry for being so needy but it would be greatly appreciated.

    travincall123 - Pastebin.com

  7. #7
    Member
    Reputation
    1
    Join Date
    Jun 2012
    Posts
    7
    CoreCoins
    0

    Trade Feedbacks

    Status
    n/a
    Positive
    0 (0%)
    Negative
    0 (0%)
    Quote Originally Posted by Travincall View Post
    OMG BRO I LOVE YOU. I have been trying to work this issue out forever as have many people. I have a wizard code that I need to put this in I just can't figure out exactly where the code for the stuck in menu part begins and ends. If you could post just the part for the stuck in menu area or if its easier I can post the code several ppl including myself are using in the wizard forum and add it in yourself. Sorry for being so needy but it would be greatly appreciated.

    travincall123 - Pastebin.com
    this should do it

  8. #8
    Member
    Reputation
    1
    Join Date
    Jun 2012
    Posts
    7
    CoreCoins
    0

    Trade Feedbacks

    Status
    n/a
    Positive
    0 (0%)
    Negative
    0 (0%)
    Quote Originally Posted by DennisToo View Post
    Hi,
    But somehow the looting isn't that perfect but it doesnt bring me to cellar without running south and teleport back to town. hopefully yours will finally work for me this time. but does your script for basic gold findings require any image loading?

    This version does not require any image loading.

  9. #9
    Member
    Reputation
    1
    Join Date
    Jun 2012
    Posts
    61
    CoreCoins
    0

    Trade Feedbacks

    Status
    n/a
    Positive
    0 (0%)
    Negative
    0 (0%)
    Quote Originally Posted by oden2005 View Post
    Damn you beat me to it. I already figured it out and posted in wizard forum. I gave credits to you because you're a ****ing champ for solving that problem and you deserve it. Now peeps can run all night lol. <------ probably not a good thing

  10. #10
    Member
    Reputation
    1
    Join Date
    Jun 2012
    Posts
    9
    CoreCoins
    0

    Trade Feedbacks

    Status
    n/a
    Positive
    0 (0%)
    Negative
    0 (0%)
    Hi Oden,

    Tired the script, as usual the hero will run south after bypass the first monster and teleport back to town.

    the only version that work is this http://www.ownedcore.com/forums/diab...imized-dh.html (Sharing my autoIt script :: Sarkoth (loot and optimized for DH))

    but whenever cellar is open it doesnt teleport back and continue to do as per the script and it doesnt resume game.

    could you take a look at the above thread script and input his and mixed with yours in it?

    Code:
    Global $Paused
    
    HotKeySet("=","Leave")  ;script can START by pressing =
    HotKeySet("-", "Pause") ;script can be Pause by pressing -
    HotKeySet("x", "Stop") ;script can be Stopped by pressing x
    
    $go = True
    $Leave = False
    $runMade = 0
    
    While $go
       if($Leave) Then
       $Pixel1 = PixelSearch(1482,20,1535,95,0xFFF000) ;searches top right screen for yellow of broken armor
    	  If Not @error Then
    		 ;we need to repair
    		 Send("t")
    		 Sleep(8000)
    		 MouseClick("left", 1480, 281) ;begin movement towards merchant
    		 Sleep(1500)
    		 MouseClick("left", 1316, 206) ;moves to get merchant in screen
    		 Sleep(1500)
    		 MouseClick("left", 845, 225) ;NPC Merchant to the right of cain's home
    		 Sleep(1500)
    		 MouseClick("left", 521, 506) ;button to open up repair menu
    		 Sleep(1500)
    		 MouseClick("left", 260, 595) ;button to pay for repairs
    		 Sleep(2500)
    		 Send("{ESCAPE}") ;close windows
    		 Sleep(200);
    		 ResumeGame()
    	  Else
    		 ;starts the run
    		 MouseClick("left", 54, 129) 
    		 Sleep(1000)
    		 Send("2")
    		 Sleep(800)
    		 Send("1")
    		 Sleep(1000)
    		 MouseClick("left", 87, 429)
    		 Sleep(800)
    		 Send("1")
    		 Sleep(1500)
    		 Send("3")
    		 MouseMove(203, 186,1) ;moves cursor over to the cellar so the proper blue pixel becomes highlighted
    		 Sleep(2000)
    			$Pixel2 = PixelSearch(69,96,288,246,0xffffff) ;searches for the specific blue pixel that only occurs when mouse hovers over open cellar
    			   If Not @error Then
    				  MouseClick("left",203, 186) ;Entrance to cellar
    				  Sleep(3000)
    				  Send(2)
    				  Sleep(1800)
    				  MouseClick("left", 531, 769)
    				  Send(4) 
    				  Sleep(2000)
    				  MouseClick("left", 547, 490) ;moves to doorway leading to rare inside cellar
    				  Sleep(1500)
    				  MouseMove(624,258,1) ;hovers over the rare Sarkoth
    				  Send("{SHIFTDOWN}")
    				  MouseDown("right")
    				  Sleep(3200)
    				  MouseMove(474, 273, 1) ;attack left, add more sleep time if you can't kill minion on left
    				  Sleep(1000)
    				  MouseMove(732, 232, 1) ;attack right
    				  Sleep(500)
    				  MouseMove(624,258, 1) ;attack mid again
    				  Sleep(1000)
    				  MouseUP("right")
    				  Sleep(300)
    				  Send("{SHIFTUP}")
    				  Send(4)
    				  Sleep(500)
    				  SearchBlue()
    				  SearchYellow()
    				  SearchOrange()
    				  SearchWhite()
    				  SearchBlue()
    				  SearchYellow()
    				  SearchOrange()
    				  SearchWhite()
    				  Sleep(1500)
    				  Send("t")
    				  Sleep(10200)
    				  Town()
    				  ResumeGame()
    			   Else
    				  Send("t")
    				  Sleep(8200)
    				  ResumeGame()
    			   EndIf
    	  EndIf
       EndIf
    WEnd
    
    Func Pause()
       $Leave = False
    EndFunc
    
    Func Stop() ;to allow the script to stop
        Exit
    EndFunc 
     
    Func Leave()
        $Leave = True
     EndFunc
     
    Func SearchBlue()
       $cnt = 0
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(0,0,1950,1120,0x6969ff)
    	  if Not @error Then
    		 Send("{ALTDOWN}")
    		 Send("{ALTUP}")
    		 MouseClick("left", $Pixel3[0], $Pixel3[1])
    		 Sleep(1000)
    		 $cnt = $cnt + 1
    		 if $cnt > 8 Then
    			$Searching = False
    			EndIf
    	  Else
    		 $Searching = False
    	  EndIf
       WEnd
    EndFunc
     
    Func SearchYellow()
       $cnt = 0
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(0,0,1950,1120,0xe0e205)
    	  if Not @error Then
    		 Send("{ALTDOWN}")
    		 Send("{ALTUP}")
    		 MouseClick("left", $Pixel3[0], $Pixel3[1])
    		 Sleep(1000)
    		 $cnt = $cnt + 1
    		 if $cnt > 8 Then
    			$Searching = False
    			EndIf
    	  Else
    		 $Searching = False
    	  EndIf
       WEnd
       
       $cnt = 0
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(0,0,1950,1120,0xc5c509)
    	  if Not @error Then
    		 Send("{ALTDOWN}")
    		 Send("{ALTUP}")
    		 MouseClick("left", $Pixel3[0], $Pixel3[1])
    		 Sleep(1000)
    		 $cnt = $cnt + 1
    		 if $cnt > 8 Then
    			$Searching = False
    			EndIf
    	  Else
    		 $Searching = False
    	  EndIf
       WEnd
       
       $cnt = 0
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(0,0,1950,1120,0xd4d711)
    	  if Not @error Then
    		 Send("{ALTDOWN}")
    		 Send("{ALTUP}")
    		 MouseClick("left", $Pixel3[0], $Pixel3[1])
    		 Sleep(1000)
    		 $cnt = $cnt + 1
    		 if $cnt > 8 Then
    			$Searching = False
    			EndIf
    	  Else
    		 $Searching = False
    	  EndIf
       WEnd
       
       $cnt = 0
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(0,0,1950,1120,0xdddd00)
    	  if Not @error Then
    		 Send("{ALTDOWN}")
    		 Send("{ALTUP}")
    		 MouseClick("left", $Pixel3[0], $Pixel3[1])
    		 Sleep(1000)
    		 $cnt = $cnt + 1
    		 if $cnt > 8 Then
    			$Searching = False
    			EndIf
    	  Else
    		 $Searching = False
    	  EndIf
       WEnd
    EndFunc
     
    Func SearchOrange()
       $cnt = 0
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(0,0,1950,1120,0x9b5227)
    	  if Not @error Then
    		 Send("{ALTDOWN}")
    		 Send("{ALTUP}")
    		 MouseClick("left", $Pixel3[0], $Pixel3[1])
    		 Sleep(1000)
    		 $cnt = $cnt + 1
    		 if $cnt > 8 Then
    			$Searching = False
    			EndIf
    	  Else
    		 $Searching = False
    	  EndIf
       WEnd
    EndFunc
     
    Func SearchWhite()
       $cnt = 0
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(350,200,1350,800,0xeeeeee)
    	  if Not @error Then
    		 Send("{ALTDOWN}")
    		 Send("{ALTUP}")
    		 MouseClick("left", $Pixel3[0], $Pixel3[1])
    		 Sleep(1000)
    		 $cnt = $cnt + 1
    		 if $cnt > 8 Then
    			$Searching = False
    			EndIf
    	  Else
    		 $Searching = False
    	  EndIf
       WEnd
    EndFunc
     
    Func Town()
       $runMade = $runMade + 1
       If $runMade > 5 Then
    	  MouseClick("left", 1064, 256)		;go to chest
    	  Sleep(2000)
    	  MouseClick("left", 517, 251)		; 1st tab
    	  Sleep(500);
    	  DropInChest();
    	  MouseClick("left", 517, 378)		; 2nd tab
    	  Sleep(500);
    	  DepositRare()
    	  MouseClick("left", 517, 500)		; 3rd tab
    	  Sleep(500);
    	  DepositRare()
    	  Sleep(500);
    	  Send("{ESCAPE}") ;close windows
    	  Sleep(500)
    	  MouseClick("left", 1515, 69)		;go half way to vendor
    	  Sleep(2000)
    	  MouseClick("left", 1105, 225)		;go half way to vendor
    	  Sleep(2000)
    	  VendorAll()
    	  ;SellBlue()
    	  ;Sleep(500)
    	  ;SellWhite()
    	  MouseClick("left", 506, 483)		;click repair tab
    	  Sleep(200)
    	  MouseClick("left", 242, 528)		;click repair
    	  Sleep(200)
    	  Send("{ESCAPE}") ;close windows
    	  Sleep(500)
    	  $runMade = 0
       EndIf
    EndFunc
       
    Func DropInChest()
       ; Tome of secret
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x507554 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
      
       ; Yellow gems
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0xce8200 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; Yellow gems
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0xc17900 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
      
       ; Green gems
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x319e31 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; Green gems
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x3db835 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
      
       ; Red gems
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0xf01d1f)			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; Red gems
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0xe90b0b)			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
      
       ; Purple gems
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x9905db )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; Purple gems
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0xb110f7 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
    EndFunc
    
    Func VendorAll()
       For $i = 0 To 9 Step 1
    	  MouseClick("right", 1432 + (50 * $i), 609)
    	  Sleep(25)
    	  MouseClick("right", 1432 + (50 * $i), 609 + 50)
    	  Sleep(25)
    	  MouseClick("right", 1432 + (50 * $i), 609 + 100)
    	  Sleep(25)
    	  MouseClick("right", 1432 + (50 * $i), 609 + 150)
    	  Sleep(25)
    	  MouseClick("right", 1432 + (50 * $i), 609 + 200)
    	  Sleep(25)
    	  MouseClick("right", 1432 + (50 * $i), 609 + 250)
    	  Sleep(25)
       Next
    EndFunc
    
    Func SellBlue()
       
       ; 1st color
       ; 2 slots items
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x161829 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; 1 slots items
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x161c36 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x13233c )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x182343 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x233055 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x102039 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
    EndFunc
    
    Func SellWhite()
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0xffffff )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
    endFunc
    
    Func DepositRare()
       ;Yellow
       ;1st color
       ; 2 slots items
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x604f0b )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
       ; 1 slots items
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x5a4d10 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x5d4e10 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x66580f )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0xf5f500 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
       ; more color
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x554914 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
      
       ;orange
       ; 2 slots items
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x593212 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
       ; 1 slots items
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(1400,584,1900,874,0x693e12 )			
    	  if Not @error Then
    		 MouseClick("right", $Pixel3[0], $Pixel3[1])
    		 Sleep(500)
    	  Else
    		 $Searching = False
    	  EndIf
      WEnd
    EndFunc
    
    Func CheckDeath()
    	  $Pixel3 = PixelSearch(670,812,1263,881,0x0e0604 )			
    	  if Not @error Then
    		 ; dead
    	  EndIf
       EndFunc
       
    Func ResumeGame()
       Send("{ESCAPE}") ;opens menu
       Sleep(1000)
       MouseClick("left", 956, 579) ;button to leave game
       ;Sleep(13000)
       
       $Searching = True
       while $Searching
    	  $Pixel3 = PixelSearch(60,384,411,450,0x3c0700 )			
    	  if Not @error Then
    		 MouseClick("left", 230, 416) ;button to resume game from main menu
    		 Sleep(8000)
    		 $Searching = False
    	  EndIf
       WEnd
    EndFunc
    Last edited by DennisToo; 06-12-2012 at 08:46 AM.

  11. #11
    Member
    Reputation
    1
    Join Date
    Jun 2012
    Posts
    61
    CoreCoins
    0

    Trade Feedbacks

    Status
    n/a
    Positive
    0 (0%)
    Negative
    0 (0%)
    Quote Originally Posted by Travincall View Post
    Damn you beat me to it. I already figured it out and posted in wizard forum. I gave credits to you because you're a ****ing champ for solving that problem and you deserve it. Now peeps can run all night lol. <------ probably not a good thing
    Hey I tried the script you sent which was a version of mine with your exit menu script thrown in.....It didn't work. Apparently I thought it was working but some others tested and claimed it still wasn't working so instead of trying mine I decided to test yours and it was even worse. Once it got into the menu area it would give an error

    Line 149
    Call MainMenu()
    ^ERROR

    error: Error parsing function call.



    Anyway not sure what that means but that's what happens if it ends up on the exit diablo screen

  12. #12
    Member
    Reputation
    1
    Join Date
    Jun 2012
    Posts
    7
    CoreCoins
    0

    Trade Feedbacks

    Status
    n/a
    Positive
    0 (0%)
    Negative
    0 (0%)
    Quote Originally Posted by Travincall View Post
    Hey I tried the script you sent which was a version of mine with your exit menu script thrown in.....It didn't work. Apparently I thought it was working but some others tested and claimed it still wasn't working so instead of trying mine I decided to test yours and it was even worse. Once it got into the menu area it would give an error

    Line 149
    Call MainMenu()
    ^ERROR

    error: Error parsing function call.



    Anyway not sure what that means but that's what happens if it ends up on the exit diablo screen
    well line 149 of my script isnt even a call to Main Menu it is a sleep but i took another look at the version you posted try this

  13. #13
    Member
    Reputation
    1
    Join Date
    Jun 2012
    Posts
    6
    CoreCoins
    0

    Trade Feedbacks

    Status
    n/a
    Positive
    0 (0%)
    Negative
    0 (0%)
    Im having the same problem as u used to have,oden.I was using a version for 1280x720 since my max res is 1440x900.
    Could you pls make a working one for this resolution?Im pretty sure there are lots who will be gratefull..

 

 

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
All times are GMT -4. The time now is 02:41 PM. Powered by vBulletin® Version 4.2.0
Copyright © 2014 vBulletin Solutions, Inc. All rights reserved. vBulletin Optimisation provided by vB Optimise (Pro) - vBulletin Mods & Addons Copyright © 2014 DragonByte Technologies Ltd.
Digital Point modules: Sphinx-based search