Results 1 to 2 of 2
  1. #1
    Knight-Lieutenant

    CoreCoins User

    lostsk8r's Avatar
    Reputation
    19
    Join Date
    Apr 2009
    Location
    Tampa
    Posts
    308
    CoreCoins
    567

    Trade Feedbacks

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

    Sarkoth Gold Farm for Witch Doctor?



    Donate to Remove Ads, Get ShoutBawx - Elite Forum Access
    Hello, I've been trying my hand at editing the already available gold farming scripts but have had not much luck at all. I'm running the 1920x1080 with 16:9 ratio. I'm still trying to figure out which skills I want to use, but I've edited jakesmurf's script (http://www.ownedcore.com/forums/diab...jakesmurf.html) a bit with permanent/custom mouse locs to get me into the sarkoth den (which is mostly reliable, my mouse coords that is).

    But once I'm in there, it walks to the door way and doesnt spam enough skills to kill sarkoth, and sarkoth decides to run around the room instead and the script doesnt aim in the right direction.. I was previously using firebats for my right click but didnt seem to be going that well..

    As of right now
    1 - wall of zombies w/ unrelenting grip (snare)
    2 - spirit walk w/ jaunt
    3 - hex w/ hedge magic
    4 - fetish army w/ legion of daggers

    right click - zombie charger w/ zombie bears (was at fire bats w/ dire bat - might change zombie bears due to the door way blocking bears, was thinking either fixing fire bats or doing fire bomb w/ flash fire)
    left click - fire bomb w/ flash fire

    the script also seems to not do anything once it goes to town, logs out, resumes game then sits there. I picked this one bc I heard it was good for picking up decent items, and I've already started with it as far as making the mouse clicks more reliable.. with my spirit walk I get 62% movement (12% unbuffed).

    Code:
    Global $Paused
     Global $Paused
    
    
    
    $default_resolutionX = 1920
    $default_resolutionY = 1080
    $x_ratio = @Desktopwidth / $default_resolutionX 
    $y_ratio = @Desktopheight / $default_resolutionY
    Dim $Color, $Left, $Top, $Right, $Bottom 
    $Color = 0xFFFF00   ;rare color code
    $Color2 = 0x6969;FF  ;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 = 300                         
    $Top = 0                            
    $Right = 1920                      
    $Bottom = 1080 
    $x = 1
    $LeftClear = 1000
    $RightClear = 1299
    $TopClear = 412
    $BottomClear = 620
    $BlueClear = 0x111E34
    $WhiteClear = 0x100908
    $HasCleared = 0
    $Amethyst = 0xA56DF1
    $Ruby = 0xFA8078
    $Emerald = 0x51965B
    $Topaz = 0xFFFF59
    $LeaveVar = 1
    $ResumeVar = 1
    
    $go = True
    
    While $go = true
       
       HotKeySet("=","Start") 
       HotKeySet("x", "Stop")
    
    Wend
       
    		 
    Func StartRun()
    		 MouseClick("middle", Round(500*$x_ratio), Round(250*$y_ratio)) ;starts the run [waypoint 1]
                     Sleep(630)
    				 Send("1")
    				 Sleep(650)
                     MouseClick("middle", 137, 223) ;waits 1 second then [waypoint 2]
    				 Call("CheckDead")
                     Sleep(100)
                     Send("2")
                     Sleep(1700)
                     MouseClick("middle", 74, 373) ;middle of courtyard
    				 Call("CheckDead")
    				 Sleep(1500)
    		 Send("3")
    	  	 sleep(200)
    		 
    		 ;cellar check
    		 
    		 MouseMove(235, 299, 1) ;moves cursor over to the cellar  ;moves cursor over to the cellar so the proper blue pixel becomes highlighted	
    		 Sleep(525)
    			$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", 235, 299) ;Entrance to cellar
    				  Sleep(525)
    				  Call("RunCellar")
    			   EndIf  
    		Call("CheckDead")	   
    			   MouseMove(320, 337, 1) ;moves cursor over to the cellar  ;moves cursor over to the cellar so the proper blue pixel becomes highlighted
    			   Sleep(300)
    				  $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",320, 337) ;Entrance to cellar
    				  Sleep(525)
    				  Call("RunCellar")
    			   EndIf
    			   
    		Call("CheckDead")	   
    		 MouseMove(349, 334, 1) ;moves cursor over to the cellar  ;moves cursor over to the cellar so the proper blue pixel becomes highlighted
    			Sleep(250)
    				  $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",349, 334) ;Entrance to cellar
    						Sleep(525)
    						Call("RunCellar")
    					 EndIf
    		Call("CheckDead")	   
    		 MouseMove(262, 203, 1) ;moves cursor over to the cellar  ;moves cursor over to the cellar so the proper blue pixel becomes highlighted
    			Sleep(250)
    			   $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", 262, 203) ;Entrance to cellar
    					 Sleep(525)
    					 Call("RunCellar")
    		   
    			   Else
    				  Call("NoCellar") ;send you to the townportal sequence
    			   EndIf
    EndFunc
    
    Func RunCellar()  ;this is the sequence for when you are inside the cellar
       if not @error Then
    				  Call("CheckDead")
    				  Sleep(150)
    				  Send(2)
    				  Sleep(2800)
    				  MouseClick("middle", 463, 831)
    				  Sleep(1100)
    				  MouseClick("middle", 582, 493) ;moves to doorway leading to rare inside cellar
    				  Sleep(1300)
    				  MouseMove(Round(579 * $x_ratio),Round(209 * $y_ratio),1) ;hovers over the rare Sarkoth
    				  Send(4)
    				  Sleep(500)
    				  Send("{SHIFTDOWN}")
    				  Sleep(500)
    				  MouseClick("left",Round(600 * $x_ratio),Round(239 * $y_ratio),1)
    				  sleep(500)
    				  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(2700)
    				  MouseUP("right")
    				  Sleep(300)
    				  Send("{SHIFTUP}")
    				  Sleep(500)
    				  MouseClick("middle",Round(579 *$x_ratio),Round(209 * $y_ratio)) ;location of sarkoth after death
    				  Sleep(1400)
    				  call("FindItem")
    				  call("FindItem")
    				  call("FindItem")
    				  call("FindItem")
    				  MouseClick("left",Round(912*$x_ratio),Round(300 * $y_ratio)) ;moves to right top corner for gold
    				  Sleep(500)
    				  Send("t")
    				  Sleep(7500)
    				  Call("CheckRepair")
    			   EndIf
    			EndFunc
    			
    Func NoCellar() ; town portal sequence if the cellar is not there
    			   if not @error then
    				  Call("CheckDead")
    				  Send("t")
    				  Sleep(7300)
    				  Call("CheckDead")
    				  Call("CheckRepair")
    			   EndIf
    EndFunc
    
    Func CheckRepair()
    					 If $x > 9 Then
    						MouseClick("middle", Round(1480 * $x_ratio),Round(281 * $y_ratio));begin movement towards merchant
    						Sleep(1400)
    						MouseClick("middle", Round(1316 * $x_ratio),Round(206 * $y_ratio)) ;moves to get merchant in screen
    						Sleep(1750)
    						MouseClick("left", Round(845 * $x_ratio),Round(225 * $y_ratio)) ;NPC Merchant to the right of cain's home
    						Sleep(1000)
    						MouseClick("left", Round(521 * $x_ratio),Round(506 * $y_ratio)) ;button to open up repair menu
    						Sleep(1000)
    						MouseClick("left", Round(260 * $x_ratio),Round(595 * $y_ratio)) ;button to pay for repairs		  
    						Sleep(500)
    						Send("{ESCAPE}") ;close menu
    						Sleep(500)
    						$x = 0
    						Call("LeaveGame")
    					 Else
    						$x = $x + 1
    						Call("LeaveGame")
    					EndIf	   
    			   
    			EndFunc 
    			
    Func FindItem()
                     $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color)  ;searches for rares
        If Not @error Then
    	   $HasCleared = 0
    	  call("ClearInv") 
          MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)  ;IF ITS THERE IT CLICKS IT.
          Sleep(1500)
        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
          Sleep(10)
        EndIf
        
           $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color3 ) ;searches for legendarys
       If Not @error Then
    	  $HasCleared = 0
    	  call("ClearInv") 
          MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)         ;clicks legendary
          Sleep(2000)
        EndIf    
        $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color4)  ;searches for SETS
        If Not @error Then
    	   $HasCleared = 0
    	   call("ClearInv") 
          MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)  ;IF ITS THERE IT CLICKS IT.
          Sleep(2000)
       EndIf
       
       ; search for gems
       
       $SearchResult = PixelSearch(300, 45, 1190, $Bottom, $Amethyst,8)  ;searches for gems
        If Not @error Then
          MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)  ;IF ITS THERE IT CLICKS IT.
          Sleep(1500)
       EndIf
       $SearchResult = PixelSearch(300, 45, 1190, 624, $Ruby,5)  ;searches for gems
        If Not @error Then
          MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)  ;IF ITS THERE IT CLICKS IT.
          Sleep(1500)
       EndIf
       $SearchResult = PixelSearch(300, 45, 1190, 624, $Emerald,9)  ;searches for gems
        If Not @error Then
          MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)  ;IF ITS THERE IT CLICKS IT.
          Sleep(1500)
       EndIf
     ;     $SearchResult = PixelSearch(300, 45, 1190, 624, $Topaz,2)  ;searches for gems
     ;   If Not @error Then
     ;     MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)  ;IF ITS THERE IT CLICKS IT.
     ;     Sleep(800)
     ;  EndIf
      EndFunc
      
      Func ClearInv()
    	  Send("{i}")
    	  Sleep(800)
    	 $SearchResult = PixelSearch($LeftClear, $TopClear, $RightClear, $BottomClear, $WhiteClear)
    	  If Not @error Then
    		 MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)
    		 Sleep(500)
    		 MouseClick("left", Round(697* $x_ratio),Round(459 * $y_ratio))
    		 Sleep(800)
    		 $HasCleared = 1
    	  EndIf
    	 $SearchResult = PixelSearch($LeftClear, $TopClear, $RightClear, $BottomClear, $BlueClear) 
    	  If Not @error Then
    		 If $HasCleared = 0 Then		
    	  		MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10)
    			Sleep(500)
    			MouseClick("left", Round(697* $x_ratio),Round(459 * $y_ratio))
    			Sleep(500)
    			$HasCleared = 1
    		EndIf	
    	 EndIf
    	 			Send("{ESCAPE}")
    				Sleep(500)
       EndFunc
       
    Func LeaveGame()
    Send("{ESCAPE}") ;opens menu
    Sleep(1000)
    
    MouseClick("left", Round(956 * $x_ratio),Round(579 * $y_ratio)) ;button to leave game
    Sleep(3000)
    Call("CheckResume")
    EndFunc
    					 
    Func CheckResume()
       
       Call("CheckWindow")
    					 
    					 if $LeaveVar > 24 Then
    						
    						   MouseClick("left", Round(230 * $x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu
    						   Sleep(2000)
    						   Call("JoinGame")
    						   $LeaveVar = 1						
    						
    					Else	
       
    						Sleep(500)
    						$Pixel3 = PixelSearch(1160,700,1180,730,0xE1B559,3)
    						If Not @error Then
    						   MouseClick("left", Round(230 * $x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu
    						   Sleep(2000)
    						   Call("JoinGame")
    						   $LeaveVar = 1
    						Else
    						   $LeaveVar = $LeaveVar + 1
    						   Call("CheckResume")
    						EndIf
    					 EndIf						
    
    	  EndFunc
    	  
    	  
    Func JoinGame()
    				 if $ResumeVar > 11 Then
    					
    					$ResumeVar = 1		
    					 Call("StartRun")
    					
    				  Else	
       
    						Sleep(500)
    						$Pixel3 = PixelSearch(725,720,770,750,0xDC1D1D,8)
    						If Not @error Then
    						   $ResumeVar = 1
    						   Call("StartRun")
    						Else
    						   Sleep(500)
    						   $LeaveVar = $LeaveVar + 1
    						   Call("JoinGame")
    						EndIf
    					 EndIf						
    
    	  EndFunc
    	  
    Func CheckWindow()
       
       $Pixel3 = PixelSearch(1115,75,1125,85,0xFFD594,4)
    	  If Not @error Then
    		 Send("{ESCAPE}")
    		 Sleep(500)
    		 Call("CheckResume")
    	  EndIf
    	  
    	$Pixel3 = PixelSearch(815,150,830,165,0xFFD594,4)  
    	  If Not @error Then
    		 Send("{ESCAPE}")
    		 Sleep(500)
    		 Call("CheckResume")
    	  EndIf
       EndFunc	  
       
    Func CheckDead()
       
       $Pixel3 = PixelSearch(990,247,1000,259,0xFFFFFF,4)
    	  If Not @error Then
    		 Sleep(500)
    		 Call("LeaveGame")
    	  EndIf
       
     EndFunc  
    
    Func Pause()
       $Leave = False
    EndFunc
    
    Func Stop() ;to allow the script to stop
        Exit
    EndFunc 
     
    Func Start()
        Call("StartRun")
     EndFunc
    I'd be happy to use someone's elses script, I just want a working one! It's frustrating if any reputable scripter wants to use my accnt to get one going for WD I'd be willing to.

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

    Trade Feedbacks

    Status
    n/a
    Positive
    0 (0%)
    Negative
    0 (0%)
    would be nice if some1 help here there is no working WD srcipts here :<

 

 

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 10:57 PM. Powered by vBulletin® Version 4.2.0
Copyright © 2014 vBulletin Solutions, Inc. All rights reserved.
Content Relevant URLs by vBSEO Resources saved on this page: MySQL 21.43%
vBulletin Optimisation provided by vB Optimise (Pro) - vBulletin Mods & Addons Copyright © 2014 DragonByte Technologies Ltd.
Digital Point modules: Sphinx-based search

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247