[Goldfarming] Dank Celler Gold and Loot [AutoIT Script] [WIZARD] [1920x1080]

**DPad12** · 06-25-2012

Originally Posted by Siegercz1916

I have Problem that when I turn on the bot it did this http://i45.tinypic.com/egu8t5.jpg

I have the same problem as this guy. Anybody have a solution?

Edit: Nevermind I fixed this, but now it just sits in main menu while running. With Error:Cannot find Resume

**stealthingyew** · 06-25-2012

Stats:
Total Runtime: 9 hours, 54 minutes
Total Cellars Found: 392 (44%)
Total Cellars Not Found: 502 (56%)
Total Deaths: 10 (1%)
Total Repairs: 0 (0%)
Loot:
Magic: 535 - Gems: 387 - Tomes: 40
Legendary: 2 - Set: 0 - Rare: 20
182K Per Hour - Accumulated Gold: 1.8M

my golds a little lower because i have him salvage all magic items after 7 runs when he goes to stash which eats up a little extra time and lowers the gold per hour

note my wizard is super gimpy 180gf and like 50mf usually dies outside when lots of the quill fangs but still pulls in a heft sum while I am at work. There was infact 2 legendarys in my stash it was some gloves and one of the sledges.

**HumanMech** · 06-25-2012

Originally Posted by stealthingyew

Stats:
Total Runtime: 9 hours, 54 minutes
Total Cellars Found: 392 (44%)
Total Cellars Not Found: 502 (56%)
Total Deaths: 10 (1%)
Total Repairs: 0 (0%)
Loot:
Magic: 535 - Gems: 387 - Tomes: 40
Legendary: 2 - Set: 0 - Rare: 20
182K Per Hour - Accumulated Gold: 1.8M

my golds a little lower because i have him salvage all magic items after 7 runs when he goes to stash which eats up a little extra time and lowers the gold per hour

note my wizard is super gimpy 180gf and like 50mf usually dies outside when lots of the quill fangs but still pulls in a heft sum while I am at work. There was infact 2 legendarys in my stash it was some gloves and one of the sledges.

How do you make him salvage, I would like to do that! Please help.

**stealthingyew** · 06-25-2012

Originally Posted by ironman2284

can someone please answer my question:
I am LOSING rares, legendary and set ITEMS to vendoring DESPITE vendoring being set to "0", identifying being set to "0", stashing set to "1" in the INI. BRAND NEW .au3 file d/l'ed. How am I the only one experiencing this....

[Vendoring]
Loot=False
Rares=False
Magic=True
All=False make sure that says false or it will vendor anything in the bag regardless of other settings. In the new version it needs to be set to 0 not false I am using an older version.

Originally Posted by HumanMech

How do you make him salvage, I would like to do that! Please help.

I use an older version and it only works for me because the way mine is setup. I am sure chancity will eventually add it in the bot.

This should work for other resolutions however its only tested in 1920x1080. This only salvages the BLUE MAGIC ITEMS. I take no responsability for anything it may salvage of yours that is important or if you somehow mess up your script use at your own risk.
You need to set your ini file so It walks from the repair vendor so if your guy is not going to vendor during the town portion this will not work for you.

[Vendoring]
Loot=1
Rares=0
Magic=0
All=0

First you need to add this function after the function vendorloot

Code:

Func SalvageMagic()
   	GUICtrlSetData($lblStatus, "Status: Salvaging Magic Items")
	RandClick("left", Round(873 * $x_ratio), Round(958 * $y_ratio), 1, 1)
	Sleep(Random(1500, 2000))
	RandClick("left", Round(873 * $x_ratio), Round(958 * $y_ratio), 1, 1)
	Sleep(Random(1500, 2000))
	RandClick("left", Round(1609 * $x_ratio), Round(585 * $y_ratio), 1, 1)
	Sleep(Random(1500, 2000))
		RandClick("left", Round(261 * $x_ratio), Round(308 * $y_ratio), 1, 1)
	If $SalvageMagic == "True" Then
		$c = 0
		While $c <= 25
		 	Sleep(Random(100, 300))
			$MagicPixel = PixelSearch(1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 888 * $y_ratio, 0x182037, 1)
			If Not @error Then
				MouseClick("left", $MagicPixel[0], $MagicPixel[1], 1, 4)
				Sleep(Random(1400, 1600))
				$c += 1
			Else
				ExitLoop
			EndIf
		WEnd
	 EndIf
   GUICtrlSetData($lblStatus, "Status: Done With Salvage")
   Send("{ESCAPE}")
EndFunc ;==>Salvage Magic

Next you need to find this area of code which is under the function restartrun and add the part that is in red

Code:

If Not CheckDead() Then
			Sleep(600)
			If $mLootIn = 1 And CheckFor("NewTristram", "Area") Then ;If its time to manage loot and we are in town
				If $Identify == 1 Then Call("Identify")
				If $StashLoot == 1 Then
					Call("StashLoot")
				EndIf
				If $VendorLoot == 1 Then
					Call("VendorLoot")
				 EndIf
				  If $SalvageMagic == True Then
					Call("SalvageMagic")
					EndIf
				$mLootIn = Round(Random($mLoot - $mLootOff, $mLoot + $mLootOff)) ;Reset Counter
			ElseIf Not CheckFor("NewTristram", "Area") Then
				GUICtrlSetData($lblStatus, "Status: Skipping vendor, not in New Tristram")
				Sleep(3000)
			ElseIf $mLootIn <= 0 Then
				$mLootIn = 1
			Else
				$mLootIn -= 1
			EndIf
			If Not CheckDead() Then
				Call("LeaveGame")
			EndIf
			Return
		Else
			Return
		EndIf
	EndIf
EndFunc   ;==>RestartRun

Now you need to add the variables in red so find the one above it and add it below it.

Code:

$LootCustom = "0" ;1 if you want to pick up Custom Items (The items in the $pick array above)
$SalvageMagic="True"

Code:

$StashGems = "1" ;1 if you want to store Gems items in the stash
$StashExquisite="True"
$StashTear="True"
$StashHoof="True"
$StashWishful="True"

Now you have to edit the stashloot function so it will put your materials in the stash just add the part in red

Code:

Func StashLoot()
	GUICtrlSetData($lblStatus, "Status: Putting Items in Stash")
	MouseClick("left", 1064 * $x_ratio, 256 * $y_ratio)
	Moving(1600)

   	If $StashLegendary == 1 Then
		StashItems(0xFF7F00, 0)
		StashItems(0x8F5C25, 1)
	EndIf

	If $StashRare == 1 Then
		StashItems(0x4A3C0B, 1)
	EndIf

	If $StashMagic == 1 Then
		StashItems(0x182037, 1)
	 EndIf
	 
		While $StashTomes == 1
		Sleep(Random(100, 300))
		If _ImageSearchArea($pngLoc & "TomeIcon.png", 1, 1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 888 * $y_ratio, $gX, $gY, 140) Then
			GUICtrlSetData($lblStatus, "Status: Stashing Tomes")
			MouseClick("left", 500 * $x_ratio, 360 * $y_ratio, 1, 4)
			MouseClick("right", $gX, $gY, 1, 4)
			Sleep(80)
			MouseClick("left", 500 * $x_ratio, 200 * $y_ratio, 1, 4)
		Else
			ExitLoop
		EndIf
	WEnd
	
	While $StashTear == True
		Sleep(Random(1000, 1050))
		If _ImageSearchArea($pngLoc & "Tear.png", 1, 1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 888 * $y_ratio, $gX, $gY, 140) Then
			GUICtrlSetData($lblStatus, "Status: Stashing Tears")
			MouseClick("left", 500 * $x_ratio, 360 * $y_ratio, 1, 4)
			MouseClick("right", $gX, $gY, 1, 4)
			Sleep(80)
			MouseClick("left", 500 * $x_ratio, 200 * $y_ratio, 1, 4)
		Else
			ExitLoop
		EndIf
	WEnd
	
		While $StashWishful == True
		Sleep(Random(1000, 1050))
		If _ImageSearchArea($pngLoc & "Wishful.png", 1, 1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 888 * $y_ratio, $gX, $gY, 140) Then
			GUICtrlSetData($lblStatus, "Status: Stashing wishful essence")
			MouseClick("left", 500 * $x_ratio, 360 * $y_ratio, 1, 4)
			MouseClick("right", $gX, $gY, 1, 4)
			Sleep(80)
			MouseClick("left", 500 * $x_ratio, 200 * $y_ratio, 1, 4)
			
		Else
			ExitLoop
		EndIf
	WEnd

	While $StashExquisite == True
		Sleep(Random(1000, 1050))
		If _ImageSearchArea($pngLoc & "Exquisite.png", 1, 1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 888 * $y_ratio, $gX, $gY, 140) Then
			GUICtrlSetData($lblStatus, "Status: Stashing Exquisite essence")
			MouseClick("left", 500 * $x_ratio, 360 * $y_ratio, 1, 4)
			MouseClick("right", $gX, $gY, 1, 4)
			Sleep(80)
			MouseClick("left", 500 * $x_ratio, 200 * $y_ratio, 1, 4)
		Else
			ExitLoop
		EndIf
	WEnd
	
		While $StashHoof == True
		Sleep(Random(1000, 1050))
		If _ImageSearchArea($pngLoc & "Hoof.png", 1, 1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 888 * $y_ratio, $gX, $gY, 140) Then
			GUICtrlSetData($lblStatus, "Status: Stashing Hoof")
			MouseClick("left", 500 * $x_ratio, 360 * $y_ratio, 1, 4)
			MouseClick("right", $gX, $gY, 1, 4)
			Sleep(80)
			MouseClick("left", 500 * $x_ratio, 200 * $y_ratio, 1, 4)
		Else
			ExitLoop
		EndIf
	WEnd
	
	;Gems (DOESN'T STASH BOTTOM ROW!)
	If $StashGems == 1 Then
		GUICtrlSetData($lblStatus, "Status: Stashing Gems")
		MouseClick("left", 500 * $x_ratio, 360 * $y_ratio, 1, 4)
		Sleep(Random(20, 100))
		For $i = 0 To 7
			If _ImageSearchArea($pngLoc & $gems[$i], 1, 1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 820 * $y_ratio, $gX, $gY, 140) Then
				MouseClick("right", $gX, $gY, 1, 3)
			EndIf
		Next
	EndIf
	Sleep(Random(1000, 1500))
	Send("{SPACE}")
EndFunc   ;==>StashLoot

You also need images for for the crafting materials so it will stash them. Names need to be Exquiste.png, Tear.png, Wishful,png and i had to redo uniditified.png because it was trying to identify the crafting material tear. I attached my images which are for 1920x1080 otherwise you will have to make your own. It stashes the crafting materials in tab 2 on the next time it runs the town portion.

**Lass3-** · 06-25-2012

godbless me. im a freaking retard to this autoIT.. If anyone would make this work for me, i would appreciate it. If your a kindly soul, and wants to help me out. write a pm to me

**ironman2284** · 06-25-2012

Thanks stealth!

**stealthingyew** · 06-25-2012

Originally Posted by ironman2284

Thanks stealth!

Sorry its complicated and i cant post the whole script since any updates chancity does will overwrite this code that is one of the major reasons I am using the older release. You may want to in your inifile turn the autoupdate=0 so it doesnt update or you will lose this salvaging code. Also sorry its not more noob friendly but thats how its done ;/

**BASHKILLER** · 06-25-2012

Originally Posted by stealthingyew

[Vendoring]
Loot=False
Rares=False
Magic=True
All=False make sure that says false or it will vendor anything in the bag regardless of other settings. In the new version it needs to be set to 0 not false I am using an older version.

I use an older version and it only works for me because the way mine is setup. I am sure chancity will eventually add it in the bot.

This should work for other resolutions however its only tested in 1920x1080. This only salvages the BLUE MAGIC ITEMS. I take no responsability for anything it may salvage of yours that is important or if you somehow mess up your script use at your own risk.
You need to set your ini file so It walks from the repair vendor so if your guy is not going to vendor during the town portion this will not work for you.

[Vendoring]
Loot=1
Rares=0
Magic=0
All=0

First you need to add this function after the function vendorloot

Code:

Func SalvageMagic()
   	GUICtrlSetData($lblStatus, "Status: Salvaging Magic Items")
	RandClick("left", Round(873 * $x_ratio), Round(958 * $y_ratio), 1, 1)
	Sleep(Random(1500, 2000))
	RandClick("left", Round(873 * $x_ratio), Round(958 * $y_ratio), 1, 1)
	Sleep(Random(1500, 2000))
	RandClick("left", Round(1609 * $x_ratio), Round(585 * $y_ratio), 1, 1)
	Sleep(Random(1500, 2000))
		RandClick("left", Round(261 * $x_ratio), Round(308 * $y_ratio), 1, 1)
	If $SalvageMagic == "True" Then
		$c = 0
		While $c <= 25
		 	Sleep(Random(100, 300))
			$MagicPixel = PixelSearch(1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 888 * $y_ratio, 0x182037, 1)
			If Not @error Then
				MouseClick("left", $MagicPixel[0], $MagicPixel[1], 1, 4)
				Sleep(Random(1400, 1600))
				$c += 1
			Else
				ExitLoop
			EndIf
		WEnd
	 EndIf
   GUICtrlSetData($lblStatus, "Status: Done With Salvage")
   Send("{ESCAPE}")
EndFunc ;==>Salvage Magic

Next you need to find this area of code which is under the function restartrun and add the part that is in red

Code:

If Not CheckDead() Then
			Sleep(600)
			If $mLootIn = 1 And CheckFor("NewTristram", "Area") Then ;If its time to manage loot and we are in town
				If $Identify == 1 Then Call("Identify")
				If $StashLoot == 1 Then
					Call("StashLoot")
				EndIf
				If $VendorLoot == 1 Then
					Call("VendorLoot")
				 EndIf
				  If $SalvageMagic == True Then
					Call("SalvageMagic")
					EndIf
				$mLootIn = Round(Random($mLoot - $mLootOff, $mLoot + $mLootOff)) ;Reset Counter
			ElseIf Not CheckFor("NewTristram", "Area") Then
				GUICtrlSetData($lblStatus, "Status: Skipping vendor, not in New Tristram")
				Sleep(3000)
			ElseIf $mLootIn <= 0 Then
				$mLootIn = 1
			Else
				$mLootIn -= 1
			EndIf
			If Not CheckDead() Then
				Call("LeaveGame")
			EndIf
			Return
		Else
			Return
		EndIf
	EndIf
EndFunc   ;==>RestartRun

Now you need to add the variables in red so find the one above it and add it below it.

Code:

$LootCustom = "0" ;1 if you want to pick up Custom Items (The items in the $pick array above)
$SalvageMagic="True"

Code:

$StashGems = "1" ;1 if you want to store Gems items in the stash
$StashExquisite="True"
$StashTear="True"
$StashHoof="True"
$StashWishful="True"

Now you have to edit the stashloot function so it will put your materials in the stash just add the part in red

Code:

Func StashLoot()
	GUICtrlSetData($lblStatus, "Status: Putting Items in Stash")
	MouseClick("left", 1064 * $x_ratio, 256 * $y_ratio)
	Moving(1600)

   	If $StashLegendary == 1 Then
		StashItems(0xFF7F00, 0)
		StashItems(0x8F5C25, 1)
	EndIf

	If $StashRare == 1 Then
		StashItems(0x4A3C0B, 1)
	EndIf

	If $StashMagic == 1 Then
		StashItems(0x182037, 1)
	 EndIf
	 
		While $StashTomes == 1
		Sleep(Random(100, 300))
		If _ImageSearchArea($pngLoc & "TomeIcon.png", 1, 1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 888 * $y_ratio, $gX, $gY, 140) Then
			GUICtrlSetData($lblStatus, "Status: Stashing Tomes")
			MouseClick("left", 500 * $x_ratio, 360 * $y_ratio, 1, 4)
			MouseClick("right", $gX, $gY, 1, 4)
			Sleep(80)
			MouseClick("left", 500 * $x_ratio, 200 * $y_ratio, 1, 4)
		Else
			ExitLoop
		EndIf
	WEnd
	
	While $StashTear == True
		Sleep(Random(1000, 1050))
		If _ImageSearchArea($pngLoc & "Tear.png", 1, 1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 888 * $y_ratio, $gX, $gY, 140) Then
			GUICtrlSetData($lblStatus, "Status: Stashing Tears")
			MouseClick("left", 500 * $x_ratio, 360 * $y_ratio, 1, 4)
			MouseClick("right", $gX, $gY, 1, 4)
			Sleep(80)
			MouseClick("left", 500 * $x_ratio, 200 * $y_ratio, 1, 4)
		Else
			ExitLoop
		EndIf
	WEnd
	
		While $StashWishful == True
		Sleep(Random(1000, 1050))
		If _ImageSearchArea($pngLoc & "Wishful.png", 1, 1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 888 * $y_ratio, $gX, $gY, 140) Then
			GUICtrlSetData($lblStatus, "Status: Stashing wishful essence")
			MouseClick("left", 500 * $x_ratio, 360 * $y_ratio, 1, 4)
			MouseClick("right", $gX, $gY, 1, 4)
			Sleep(80)
			MouseClick("left", 500 * $x_ratio, 200 * $y_ratio, 1, 4)
			
		Else
			ExitLoop
		EndIf
	WEnd

	While $StashExquisite == True
		Sleep(Random(1000, 1050))
		If _ImageSearchArea($pngLoc & "Exquisite.png", 1, 1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 888 * $y_ratio, $gX, $gY, 140) Then
			GUICtrlSetData($lblStatus, "Status: Stashing Exquisite essence")
			MouseClick("left", 500 * $x_ratio, 360 * $y_ratio, 1, 4)
			MouseClick("right", $gX, $gY, 1, 4)
			Sleep(80)
			MouseClick("left", 500 * $x_ratio, 200 * $y_ratio, 1, 4)
		Else
			ExitLoop
		EndIf
	WEnd
	
		While $StashHoof == True
		Sleep(Random(1000, 1050))
		If _ImageSearchArea($pngLoc & "Hoof.png", 1, 1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 888 * $y_ratio, $gX, $gY, 140) Then
			GUICtrlSetData($lblStatus, "Status: Stashing Hoof")
			MouseClick("left", 500 * $x_ratio, 360 * $y_ratio, 1, 4)
			MouseClick("right", $gX, $gY, 1, 4)
			Sleep(80)
			MouseClick("left", 500 * $x_ratio, 200 * $y_ratio, 1, 4)
		Else
			ExitLoop
		EndIf
	WEnd
	
	;Gems (DOESN'T STASH BOTTOM ROW!)
	If $StashGems == 1 Then
		GUICtrlSetData($lblStatus, "Status: Stashing Gems")
		MouseClick("left", 500 * $x_ratio, 360 * $y_ratio, 1, 4)
		Sleep(Random(20, 100))
		For $i = 0 To 7
			If _ImageSearchArea($pngLoc & $gems[$i], 1, 1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 820 * $y_ratio, $gX, $gY, 140) Then
				MouseClick("right", $gX, $gY, 1, 3)
			EndIf
		Next
	EndIf
	Sleep(Random(1000, 1500))
	Send("{SPACE}")
EndFunc   ;==>StashLoot

You also need images for for the crafting materials so it will stash them. Names need to be Exquiste.png, Tear.png, Wishful,png and i had to redo uniditified.png because it was trying to identify the crafting material tear. I attached my images which are for 1920x1080 otherwise you will have to make your own. It stashes the crafting materials in tab 2 on the next time it runs the town portion.

HELP ME, I do not know what to do, here the bot does not take magic items: (!!

**dsonj** · 06-25-2012

hi all my wizard didn't pick all gold before leave the game every time, pic show below. Anyone helps?

http://i917.photobucket.com/albums/a...eenshot046.jpg

**stealthingyew** · 06-25-2012

Originally Posted by BASHKILLER

HELP ME, I do not know what to do, here the bot does not take magic items: (!!

In your ini file do you have it set to pick up magic items?

[Looting]
Sets=1
Legendaries=1
Rares=1
Magic=1
Gems=1
Tomes=1
Custom=0

Originally Posted by dsonj

hi all my wizard didn't pick all gold before leave the game every time, pic show below. Anyone helps?

http://i917.photobucket.com/albums/a...eenshot046.jpg

what is your pickup radius

**BASHKILLER** · 06-25-2012

Originally Posted by stealthingyew

In your ini file do you have it set to pick up magic items?

[Looting]
Sets=1
Legendaries=1
Rares=1
Magic=1
Gems=1
Tomes=1
Custom=0

what is your pickup radius

yesd ..

[Auto Start]
Auto Start=False
Game Location=E:\Diablo III\
Game Start Time=9000
Updater Start Time=5000
Password=Your Password
Task Manager Executable Name=Diablo III.exe
[Custom Loot]
PNG Location=C:\pics\
Total Items=1
[Skills]
DiamondSkin=1
MirrorImage=2
Teleport=3
Hydra=4
[Additional]
Movement Speed=0
Walk Time=3600
Load Time=2700
Teleport Time=6900
[Looting]
Sets=True
Legendaries=True
Rares=True
Magic=True
Gems=False
Tomes=False
Custom=False
[ManageLoot]
Every=12
Identify=True
[Stashing]
Loot=True
Legendaries=True
Rares=True
Magic=False
Tomes=False
Gems=False
[Vendoring]
Loot=True
Rares=False
Magic=True
All=True
All-Rows=6
All-Cols=10
[Variability]
Timer=False
Manage Off By=2
Attack Time=3400

all valors are true .. PS I use old bot files

tell me something, I have to get in AU3 equipment or ini? that the two values are all correct to pick up, take no more.

**stealthingyew** · 06-25-2012

are you using the code i posted or your original code none of the code i posted should have done anything to the looting

**BASHKILLER** · 06-25-2012

Originally Posted by stealthingyew

are you using the code i posted or your original code none of the code i posted should have done anything to the looting

I could spend wizard.au3 min you use to run? I use the script psycho because I thought faster, and the original chancity when dankcellar is open it does not enter!

**stealthingyew** · 06-25-2012

Originally Posted by BASHKILLER

I could spend wizard.au3 min you use to run? I use the script psycho because I thought faster, and the original chancity when dankcellar is open it does not enter!

I guess post it in a pastebin or something because I cant tell what the bot is actually trying to do.

**BASHKILLER** · 06-25-2012

Originally Posted by stealthingyew

I guess post it in a pastebin or something because I cant tell what the bot is actually trying to do.

i use this [Lua] ;notAres' Wizard Gold Script 1.9.3 Modified by Chancity - 6/18/2012 - New INI - Pastebin.com

Shout-Out

User Tag List

Thread: [Goldfarming] Dank Celler Gold and Loot [AutoIT Script] [WIZARD] [1920x1080]

Thread Tools

Search Thread

Similar Threads

[Goldfarming] Dank Cellar Gold and Loot [AutoIT Script] [WIZARD] [800x600]

[Goldfarming] Dank Celler [AutoIT Script] [DH based on chancitys] [800x600]

[Goldfarming] Dank Celler Gold, Exp and Loot [AutoIT Script] [DH] [800x600] Hellv.

[GoldFarming] [AutoIt] Sarkoth Gold and Loot Farming [DH] [1024x768]

[Goldfarming] Sarkoth Gold, Loot, Stash [AutoIT Script] [WIZARD] [1600x900 Windowed]

OwnedCore Forums

casino

CoreCoins

My OwnedCore

About Us

Casino