[AutoIt] [1920x1080] Advanced Stashing Functions ilvl 62-63 magic, ilvl61 ring/amulet

[psychoangler]

Hey there

i write this a while ago, so this is basicly a rewritten stashing logic which will first of all use your total stash and furthermore gives you the ability to stash the following items:

- ilvl 63 magic (blue) items
- ilvl 62 magic (blue) items
- ilvl 61 magic (blue) rings/amulets

this allows you to collect all the good magic weapons and possible nice goldfind/magicfind blue items!

if you want to use it you need to loot ALL MAGIC items, id recommend to stash set/legendary/rare/gems/tomes and then use the VENDOR ALL option to clean your inventory after 15-20 successful runs.

so what the stashing logic does it starts at page 1 of your stash and stashes in until the page is full, then it will just swap to page 2 and stash there and then go to page 3.

it can be integrated in all 1920x1080 autoit scripts. I guess the original stashing functions are from notAres so i want to give credit to.

please note that the stashing can be quite resource heavy so you might consider not using it on virtual machines etc, well try it out.

Please let me know if you get this working, its working flawless for me, also if youre a contributer and want to integrate this in your script, it would be nice if you could give me the credit for it

How To Install
==========================

1. Download the images and extract them where your other scripts images are. DOWNLAOD LINK: https://rapidshare.com/files/1531792...edLootPics.zip


2. Add the following two functions somewhere in your script:

Global $stashPosition = 1, $dummyX = 0, $dummyY = 0
Func RandMouseMove($xPos, $yPos, $xOff = 10, $yOff = 10, $clicks = 1, $speed = 0)
	If $xOff < 1 Then $xOff = 1
	If $yOff < 1 Then $yOff = 1
	$randX = Round(Random($xPos - ($xOff * $x_ratio), $xPos + ($xOff * $x_ratio)))
	$randY = Round(Random($yPos - ($yOff * $y_ratio), $yPos + ($yOff * $y_ratio)))
	MouseMove($randX, $randY, $speed)
EndFunc

Func StashIsFull($left, $right)
   $pixel = PixelSearch(710, 135, 748, 161, 0xFF0000, 1)
   If Not @error And $stashPosition < 3 Then
	  $stashPosition += 1
	  If $stashPosition = 2 Then
		 Sleep(200)
		 MouseClick("left", 500 * $x_ratio, 360 * $y_ratio, 1, 4)
		 Sleep(200)
	  Else
		 Sleep(200)
		 MouseClick("left", 500 * $x_ratio, 520 * $y_ratio, 1, 4)
		 Sleep(200)
	  EndIf
	  MouseClick("right", $left, $right, 1, 4)
	  Sleep(8000)
   EndIf
EndFunc

3. Edit your current Sarkoth script and replace the function "StashLoot"

Func StashLoot(
...
EndFunc

with the new function below

Func StashLoot()
   GUICtrlSetData($lblStatus, "Status: Putting Items in Stash")
   MouseClick("left", 1064 * $x_ratio, 256 * $y_ratio)
   Moving(1600)
	
   ; Move to First Tab Of Stash
   If $stashPosition = 1 Then
	  MouseClick("left", 500 * $x_ratio, 200 * $y_ratio, 1, 4)
   ElseIf $stashPosition = 2 Then
	  MouseClick("left", 500 * $x_ratio, 360 * $y_ratio, 1, 4)
   Else
	  MouseClick("left", 500 * $x_ratio, 520 * $y_ratio, 1, 4)
   EndIf
   
   
   ;Tomes
   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("right", $gX, $gY, 1, 4)
	  Sleep(50)
	  StashIsFull($gX, $gY)
	  Sleep(80)
   EndIf
   
     
   If $StashLegendary == True Then
	  StashItems(0xFF7F00, 0)
	  StashItems(0x8F5C25, 1)
   EndIf
     
   If $StashRare == True Then
	  StashItems(0x4A3C0B, 1)
   EndIf
     
   ;Gems
   GUICtrlSetData($lblStatus, "Status: Stashing Gems")
   Sleep(Random(20, 100))
   For $i = 0 To 3
	  If _ImageSearchArea($pngLoc & $gems[$i], 1, 1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 888 * $y_ratio, $gX, $gY, 140) Then
		 MouseClick("right", $gX, $gY, 1, 3)
		 Sleep(50)
		 StashIsFull($gX, $gY)
	  EndIf
   Next
    
   $popupLeft = 995
   $popupTop = 830
   $popupRight = 1140 
   $popupBottom = 1080
   $magicLeft = 1050
   $magicRight = 1160
   
   $ringAmuletLeft = 1300
   $ringAmuletRight = 1462
   
   
   $magicTop = 595
   $magicBot = 800
   
   $mTop = $magicTop
   $mBot = $magicBot
   $pTop = $popupTop
   ;Stash ilvl 62, ilvl 63 and ilvl 61 rings and amulets
   GUICtrlSetData($lblStatus, "Status: ilvl62 and ilvl63")
   For $c = 1 To $vendorCols
	  If $c > 1 Then
	  $popupLeft += 49
	  $popupRight += 51
	  $magicLeft += 49
	  $magicRight += 51
	  $ringAmuletLeft += 49
	  $ringAmuletRight += 51
	  EndIf
	  
	  For $r = 1 To $vendorRows
		 $randX = (((($c - 1) * 50) + 32 + 1400) * $x_ratio)
		 $randY = (((($r - 1) * 50) + 32 + 580) * $y_ratio)
		 RandMouseMove($randX, $randY, 2, 2, 0)
		 sleep(Random(180,230))
		 If _ImageSearchArea($pngLoc & 'magicitem.png', 1, $magicLeft, $mTop, $magicRight, $mBot, $dummyX, $dummyY, 20) Then
			If _ImageSearchArea($pngLoc & 'ilvl62.png', 1, $popupLeft, $pTop, $popupRight, $popupBottom, $dummyX, $dummyY, 20) Or _ImageSearchArea($pngLoc & 'ilvl63.png', 1, $popupLeft, $pTop, $popupRight, $popupBottom, $dummyX, $dummyY, 20) Then
			   MouseClick("right", $randX, $randY, 1, 1)
			   Sleep(50)
			   StashIsFull($randX, $randY)
			ElseIf _ImageSearchArea($pngLoc & 'ilvl61.png', 1, $popupLeft, $pTop, $popupRight, $popupBottom, $dummyX, $dummyY, 20) Then
			   If _ImageSearchArea($pngLoc & 'item_ring.png', 1, $ringAmuletLeft, $mTop, $ringAmuletRight, $mBot, $dummyX, $dummyY, 20) Or _ImageSearchArea($pngLoc & 'item_amulet.png', 1, $ringAmuletLeft, $mTop, $ringAmuletRight, $mBot, $dummyX, $dummyY, 20) Then
				  MouseClick("right", $randX, $randY, 1, 1)
				  Sleep(50)
				  StashIsFull($randX, $randY)
			   EndIf
			EndIf
		 EndIf
	  Next
   Next
   
   
   Sleep(Random(200, 500))
   Send("{SPACE}")
EndFunc   ;==>StashLoot

4. replace the function StashItems

Func StashItems(
...
EndFunc

With the new function below:

 
Func StashItems($color, $tolerance)
	$c = 0
	While $c <= 50
		Sleep(Random(20, 100))
		$StashPixel = PixelSearch(1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 888 * $y_ratio, $color, $tolerance)
		If Not @error Then
			MouseClick("right", $StashPixel[0] + 4, $StashPixel[1], 1, 4)
			Sleep(50)
			StashIsFull($StashPixel[0] + 4, $StashPixel[1])
			$c += 1
		Else
			ExitLoop
		EndIf
	WEnd
 EndFunc   ;==>StashItems

[TheKingKong]

Will this help stash rings and amulets that are lvl 62 while salvaging other lvl 62 items? Also, what about the jewelcrafting tomes that are lvl 62 and salvaging the other ones?

Thanks!

[chancity]

Hey there

i write this a while ago, so this is basicly a rewritten stashing logic which will first of all use your total stash and furthermore gives you the ability to stash the following items:

- ilvl 63 magic (blue) items
- ilvl 62 magic (blue) items
- ilvl 61 magic (blue) rings/amulets

this allows you to collect all the good magic weapons and possible nice goldfind/magicfind blue items!

if you want to use it you need to loot ALL MAGIC items, id recommend to stash set/legendary/rare/gems/tomes and then use the VENDOR ALL option to clean your inventory after 15-20 successful runs.

so what the stashing logic does it starts at page 1 of your stash and stashes in until the page is full, then it will just swap to page 2 and stash there and then go to page 3.

it can be integrated in all 1920x1080 autoit scripts. I guess the original stashing functions are from notAres so i want to give credit to.

please note that the stashing can be quite resource heavy so you might consider not using it on virtual machines etc, well try it out.

Please let me know if you get this working, its working flawless for me, also if youre a contributer and want to integrate this in your script, it would be nice if you could give me the credit for it

How To Install
==========================

1. Download the images and extract them where your other scripts images are. DOWNLAOD LINK: https://rapidshare.com/files/1531792...edLootPics.zip


2. Add the following two functions somewhere in your script:

Global $stashPosition = 1
Func RandMouseMove($xPos, $yPos, $xOff = 10, $yOff = 10, $clicks = 1, $speed = 0)
	If $xOff < 1 Then $xOff = 1
	If $yOff < 1 Then $yOff = 1
	$randX = Round(Random($xPos - ($xOff * $x_ratio), $xPos + ($xOff * $x_ratio)))
	$randY = Round(Random($yPos - ($yOff * $y_ratio), $yPos + ($yOff * $y_ratio)))
	MouseMove($randX, $randY, $speed)
EndFunc

Func StashIsFull($left, $right)
   $pixel = PixelSearch(710, 135, 748, 161, 0xFF0000, 1)
   If Not @error And $stashPosition < 3 Then
	  $stashPosition += 1
	  If $stashPosition = 2 Then
		 Sleep(200)
		 MouseClick("left", 500 * $x_ratio, 360 * $y_ratio, 1, 4)
		 Sleep(200)
	  Else
		 Sleep(200)
		 MouseClick("left", 500 * $x_ratio, 520 * $y_ratio, 1, 4)
		 Sleep(200)
	  EndIf
	  MouseClick("right", $left, $right, 1, 4)
	  Sleep(8000)
   EndIf
EndFunc

3. Edit your current Sarkoth script and replace the function "StashLoot"

Func StashLoot(
...
EndFunc

with the new function below

Func StashLoot()
   GUICtrlSetData($lblStatus, "Status: Putting Items in Stash")
   MouseClick("left", 1064 * $x_ratio, 256 * $y_ratio)
   Moving(1600)
	
   ; Move to First Tab Of Stash
   If $stashPosition = 1 Then
	  MouseClick("left", 500 * $x_ratio, 200 * $y_ratio, 1, 4)
   ElseIf $stashPosition = 2 Then
	  MouseClick("left", 500 * $x_ratio, 360 * $y_ratio, 1, 4)
   Else
	  MouseClick("left", 500 * $x_ratio, 520 * $y_ratio, 1, 4)
   EndIf
   
   
   ;Tomes
   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("right", $gX, $gY, 1, 4)
	  Sleep(50)
	  StashIsFull($gX, $gY)
	  Sleep(80)
   EndIf
   
     
   If $StashLegendary == True Then
	  StashItems(0xFF7F00, 0)
	  StashItems(0x8F5C25, 1)
   EndIf
     
   If $StashRare == True Then
	  StashItems(0x4A3C0B, 1)
   EndIf
     
   ;Gems
   GUICtrlSetData($lblStatus, "Status: Stashing Gems")
   Sleep(Random(20, 100))
   For $i = 0 To 3
	  If _ImageSearchArea($pngLoc & $gems[$i], 1, 1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 888 * $y_ratio, $gX, $gY, 140) Then
		 MouseClick("right", $gX, $gY, 1, 3)
		 Sleep(50)
		 StashIsFull($gX, $gY)
	  EndIf
   Next
    
   $popupLeft = 995
   $popupTop = 830
   $popupRight = 1140 
   $popupBottom = 1080
   $magicLeft = 1050
   $magicRight = 1160
   
   $ringAmuletLeft = 1300
   $ringAmuletRight = 1462
   
   
   $magicTop = 595
   $magicBot = 800
   
   $mTop = $magicTop
   $mBot = $magicBot
   $pTop = $popupTop
   ;Stash ilvl 62, ilvl 63 and ilvl 61 rings and amulets
   GUICtrlSetData($lblStatus, "Status: ilvl62 and ilvl63")
   For $c = 1 To $vendorCols
	  If $c > 1 Then
	  $popupLeft += 49
	  $popupRight += 51
	  $magicLeft += 49
	  $magicRight += 51
	  $ringAmuletLeft += 49
	  $ringAmuletRight += 51
	  EndIf
	  
	  For $r = 1 To $vendorRows
		 $randX = (((($c - 1) * 50) + 32 + 1400) * $x_ratio)
		 $randY = (((($r - 1) * 50) + 32 + 580) * $y_ratio)
		 RandMouseMove($randX, $randY, 2, 2, 0)
		 sleep(Random(180,230))
		 If _ImageSearchArea($pngLoc & 'magicitem.png', 1, $magicLeft, $mTop, $magicRight, $mBot, $dummyX, $dummyY, 20) Then
			If _ImageSearchArea($pngLoc & 'ilvl62.png', 1, $popupLeft, $pTop, $popupRight, $popupBottom, $dummyX, $dummyY, 20) Or _ImageSearchArea($pngLoc & 'ilvl63.png', 1, $popupLeft, $pTop, $popupRight, $popupBottom, $dummyX, $dummyY, 20) Then
			   MouseClick("right", $randX, $randY, 1, 1)
			   Sleep(50)
			   StashIsFull($randX, $randY)
			ElseIf _ImageSearchArea($pngLoc & 'ilvl61.png', 1, $popupLeft, $pTop, $popupRight, $popupBottom, $dummyX, $dummyY, 20) Then
			   If _ImageSearchArea($pngLoc & 'item_ring.png', 1, $ringAmuletLeft, $mTop, $ringAmuletRight, $mBot, $dummyX, $dummyY, 20) Or _ImageSearchArea($pngLoc & 'item_amulet.png', 1, $ringAmuletLeft, $mTop, $ringAmuletRight, $mBot, $dummyX, $dummyY, 20) Then
				  MouseClick("right", $randX, $randY, 1, 1)
				  Sleep(50)
				  StashIsFull($randX, $randY)
			   EndIf
			EndIf
		 EndIf
	  Next
   Next
   
   
   Sleep(Random(200, 500))
   Send("{SPACE}")
EndFunc   ;==>StashLoot

4. replace the function StashItems

Func StashItems(
...
EndFunc

With the new function below:

 
Func StashItems($color, $tolerance)
	$c = 0
	While $c <= 50
		Sleep(Random(20, 100))
		$StashPixel = PixelSearch(1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 888 * $y_ratio, $color, $tolerance)
		If Not @error Then
			MouseClick("right", $StashPixel[0] + 4, $StashPixel[1], 1, 4)
			Sleep(50)
			StashIsFull($StashPixel[0] + 4, $StashPixel[1])
			$c += 1
		Else
			ExitLoop
		EndIf
	WEnd
 EndFunc   ;==>StashItems

Im creating something similar thats looks at the ilvl of every item in the inventory using a for loop through all the inventory cells. For 800x600 and 1920x1080...having issues with storing what to do with the items atm. Not sure how to properly create a 2-d array.

Sent from my DROID RAZR using Tapatalk 2

[psychoangler]

Will this help stash rings and amulets that are lvl 62 while salvaging other lvl 62 items? Also, what about the jewelcrafting tomes that are lvl 62 and salvaging the other ones?

Thanks!

all the script does is doing an additional round of stashing for specific ilvl magic items. stashes all ivl62 and 63 as well as ilvl 61 ring/amulet (ofc it also stashes lvl62 rings/amulets...) the rest of the stashing is done by your script anyway. its just an addition to the stashin method of the common scripts

[schlecki]

Thanks for sharing
Can't wait till chancity implements this or something similiar :3

+rep

[trix14]

I'm getting an error from the line

If $stashPosition = 1

Error from the variable being used without being declared or something or other.

Func StashLoot()
   GUICtrlSetData($lblStatus, "Status: Putting Items in Stash")
   MouseClick("left", 1064 * $x_ratio, 256 * $y_ratio)
   Moving(1600)
	
   ; Move to First Tab Of Stash
   If $stashPosition = 1 Then
	  MouseClick("left", 500 * $x_ratio, 200 * $y_ratio, 1, 4)
   ElseIf $stashPosition = 2 Then
	  MouseClick("left", 500 * $x_ratio, 360 * $y_ratio, 1, 4)
   Else
	  MouseClick("left", 500 * $x_ratio, 520 * $y_ratio, 1, 4)
   EndIf

from the beginning of Func StashLoot()

[lapoutre]

I'm getting an error from the line

If $stashPosition = 1

Error from the variable being used without being declared or something or other.

Global $stashPosition = 1
it's declared as global in the first quote.

[psychoangler]

correct normally that global should be somewhere at the top but i wanted to make it easy and just included it in the code to paste it in.

[smitty10]

I'm getting an error because I don't have the Moving function defined in my script. Do you know where that would be? I'm using Chancity's LAWL 1920x1080 script.

EDIT: It seems like a lot of the variables are not compatible with Chancity's script lol.

If _ImageSearchArea($pngLoc & 'magicitem.png', 1, $magicLeft, $mTop, $magicRight, $mBot, $dummyX, $dummyY, 20) Then
If _ImageSearchArea($pngLoc & 'ilvl62.png', 1, $popupLeft, $pTop, $popupRight, $popupBottom, $dummyX, $dummyY, 20) Or _ImageSearchArea($pngLoc & 'ilvl63.png', 1, $popupLeft, $pTop, $popupRight, $popupBottom, $dummyX, $dummyY, 20) Then
MouseClick("right", $randX, $randY, 1, 1)
Sleep(50)
StashIsFull($randX, $randY)
ElseIf _ImageSearchArea($pngLoc & 'ilvl61.png', 1, $popupLeft, $pTop, $popupRight, $popupBottom, $dummyX, $dummyY, 20) Then
If _ImageSearchArea($pngLoc & 'item_ring.png', 1, $ringAmuletLeft, $mTop, $ringAmuletRight, $mBot, $dummyX, $dummyY, 20) Or _ImageSearchArea($pngLoc & 'item_amulet.png', 1, $ringAmuletLeft, $mTop, $ringAmuletRight, $mBot, $dummyX, $dummyY, 20) Then

This is what's causing errors for me. $pngLoc is fine, but I couldn't find $magicLeft, $mTop etc. What are they supposed to be?

[Noizz]

Any way you can incorporate this to Blacksacks hybrid script?

[psychoangler]

forgot something there, at the first line of the inserts

Global $stashPosition = 1, $dummyX = 0, $dummyY = 0

the variables you are talking about are in the function, probably just the dummyX and dummyY are missing

[smitty10]

forgot something there, at the first line of the inserts

the variables you are talking about are in the function, probably just the dummyX and dummyY are missing

Awesome, works great! =) Thank you.