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

[BigLootz]

I am having a bunch of problems with the latest version. Is there anyway you could post a link to v.3 that version was working great for me.

Here is Version 3 (Not the whole install as it's too big to attache... butthe two script folders... 1920x1080 and 800x600

[Joe775]

chancity--The check to verify that it does not sell your gear is awesome! I have been testing it and it just pauses the script and its done. Awesome addition! New version seems to be much faster as well.

Thank you

[trevl]

some bugfix/improvement:

...

in StashLoot _ImageSearchArea misses last row (don't know if it's a bug or a choice.. for me it's a bug).. so change:

_ImageSearchArea($pngLoc & "TomeIcon.png", 1,  1400 * $x_ratio, 580 * $y_ratio, 1914 * $x_ratio, 820 * $y_ratio, $gX, $gY, 140) Then

with

_ImageSearchArea($pngLoc & "TomeIcon.png", 1, Round(1410 * $x_ratio), Round(585 * $y_ratio), Round(1900 * $x_ratio), Round(875 * $y_ratio), $gX, $gY, 140) Then

the same change with "$gems[$sg]" and "ExEss.png"

in StashLoot, StashGems.. change:

For $sg = 0 To 3

with

For $sg = 0 To Ubound($gems)-1

Got the rest to work, could use some help with this one though... tried several different variations now, just errors out :/ The tome stashing works fine, it's just the gems that doesn't.

Hmm got it working now...... kinda. Only stashed one gem stack out of several.

[chancity]

Can lower resolution people please take all of the new photos !! I'm going to add in a random auction sell trip that happens 15% of the time to sell the essences and emeralds. Along with that I'll be adding random complete log offs and random re-login functions. I may speed/slow the script alittle bit with random sleep times based off the values you provide in the GUI.

Got the rest to work, could use some help with this one though... tried several different variations now, just errors out :/ The tome stashing works fine, it's just the gems that doesn't.

All of that was taken out in version .5

[fenetic]

recently the script seems to always crash my D3, if i setup my auto login will it kill exe and reopen my D3?

[trevl]

Can lower resolution people please take all of the new photos !! I'm going to add in a random auction sell trip that happens 15% of the time to sell the essences and emeralds. Along with that I'll be adding random complete log offs and random re-login functions. I may speed/slow the script alittle bit with random sleep times based off the values you provide in the GUI.

All of that was taken out in version .5

I'm not using the latest version yet Lots of stuff i would like to have from it, but there still seems to be things discovered regularly which needs fixing, so i'll just wait a few days ^^

Could you offer any help with that particular part i asked about?

[bludd]

If salvaging wasnt worth it i wouldnt of put it in the script ass tard.




You need the pictures for the item qualities

Sent from my DROID RAZR using Tapatalk 2

Hey there, thanks for the reply. I tried taking the pictures for the item qualities but it still doesn't seem to register correctly.

http://imgur.com/1wuu3,fKcd9,3B0je,n...,9y0pb,dDlKN#0

Do they look correctly formatted?

Also with v5 it's not looting magic items properly, it loots it every so often but misses it quite often. It loots rares with no issues as well as custom items and tomes. It was working fine for me in v3 but was somewhat broken since v4. I have the looting set to 800.

Lastly it's only putting emerald gems and tomes into the stash for me and not all the types of gems. I don't have other types of loot to be stashed.

Thanks for the great work and taking time out for replies.

[chancity]

Set all your setting on low and try it again. If you're running 1920x1080 stashing shouldn't be an issue.

[farkedup]

The only crash I'm experiencing currently is the times the script pauses because it swapped out my gear while doing the salvaging. I think I'm going to try having it not salvage any rares automatically and just stash the 61+ and vendor the sub 60's hopefully this will fix the problem so it can actually run all night for the first time in a while.

[sydeu]

chancity would you mind giving a hint where in the script i can find white selling? trying to get the 800x600 to do that.

[stealthingyew]

mind explaining how you got the values for

$slot1x = 520 ; first slot x coordinate
$slot1y = 329 ;first slot y coordinate
$offset = 27 ; offset for each slot



$slotLineTopX = 518 ;First slot line x coordinate
$slotLineTopY = 320 ;First slot line y coordinate
$slotLineBotX = 543 ;First slot line x coordinate
$slotLineBotY = 352;First slot line y coordinate
$slotLineOffSet = 26.75 ;offset for each line




$CellMiddleTopX = 526
$CellMiddleTopY = 332
$CellMiddleBotX = 530
$CellMiddleBotY =338
$CellMiddleO = 26.75

Trying to port it to 800x600 but its missing random slots used the 1920x1080 version as well as the old scripts for references but kind of lost at the moment would those being off cause major missing issue? It will go like 5 rows over then just kinda stop
what i did was take ss of 1920x1080 inventory then 800x600 plotted your points then ploted mine similiar to how yours was positioned

edit: also thought it may be because on the larger resolution there is smaller lines on the slot lines and with 800x600 you just have the slot line kinda


my debug looks like this
****************************************************
2012-07-14 21:05:55 : Unknown Item Found iLvl=0 @ Cell 0,0
2012-07-14 21:05:57 : Magic Item Found iLvl=59 @ Cell 1,0
2012-07-14 21:05:59 : Rare Item Found iLvl=62 @ Cell 2,0
2012-07-14 21:06:00 : Magic Item Found iLvl=56 @ Cell 3,0
2012-07-14 21:06:02 : Magic Item Found iLvl=61 @ Cell 4,0
2012-07-14 21:06:03 :
iLvl Analyzing took 8.76 Seconds
****************************************************
2012-07-14 21:06:03 : Salvaging Items
2012-07-14 21:06:08 : Item to Salvage Magic 4,0
2012-07-14 21:06:14 : Item To Vendor Unknown 0,0
2012-07-14 21:06:14 : Item To Vendor Magic 1,0
2012-07-14 21:06:14 : Item To Vendor Magic 3,0

was 1 rare which was stashed and the rest was magic items

[fenetic]

does the bot have a function for terminate/restart/check if broken?

#include <ImageSearch.au3>
#include <Logging1024x768.au3>


;HotKeySet("{PAUSE}", "Terminate")
;HotKeySet("n", "TogglePause")
$Title = 'Diablo III' ; The Name Of The Game...
$Full = WinGetTitle ($Title) ; Get The Full Title..
$HWnD = WinGetHandle ($Full) ; Get The Handle
$mLeft="left"
$mRight="right"
$repair=0
$haveRare=0
$checkMonsters=IniRead("Options.ini","monster","CheckMonsters","GTFO")
$killMonsters=IniRead("Options.ini","monster","KillMonsters","GTFO")
$attackDelay=IniRead("Options.ini","monster","DelayBetweenAttack","")
$attackButton=IniRead("Options.ini","monster","AttackButton","")
$numberOfAttacks=IniRead("Options.ini","monster","NumberOfAttacksIfMonsterFound","")
$defButton=IniRead("Options.ini","monster","DefensiveSkillButton","")

While 1
   $log=logging()
   If $log=1 Then
     Sleep(1000)
     leaveChat()
     ExitLoop
   EndIf
WEnd

While 1
   enterGame()
   $repair=checkRepair()
   If $repair=1 Then
     repair()
   ElseIf $repair=0 Then
     ;turnOffQuest()
     startGold()
     quitGame()
   EndIf
WEnd

Func leaveChat()
   ControlClick ($HWnD, '','', "left", 1, 37, 614)
   Sleep(100)
   ControlClick ($HWnD, '','', "left", 1, 103,672)
   Sleep(100)
EndFunc

Func logging()
   While 1
     $logged=login()
     If $logged=1 Then
       return 1
     ElseIf $logged=0 Then
       Sleep(30000)
     EndIf
   WEnd
EndFunc

Func checkMonster()
   $coord= PixelSearch(67,0,1024,644,0xF90000,15)
   If IsArray($coord)=True Then
     If $killMonsters=1 Then
       $a=0
       ControlSend($HWnD, '','',$defButton)
       Sleep(200)
       Do
         ControlClick ($HWnD, '','', $attackButton, 1, $coord[0], $coord[1])
         Sleep($attackDelay)
         $a=$a+1
       Until $a=$numberOfAttacks
     ElseIf $killMonsters=0 Then
       ControlSend($HWnD, '','',$defButton)
       Sleep(200)
     EndIf
   EndIf
EndFunc

Func checkRepair()
   $repairYellowColor= PixelGetColor(736,24)
   if $repairYellowColor=0xFFEF00 OR $repairYellowColor=0xE10000 Then
     return 1
   Else
     return 0
   EndIf
EndFunc

Func checkItems()
   WinActivate("Diablo III")
   Sleep(100)
   checkItemsSet()
   checkItemsLegs()
   checkItemsRare()
EndFunc

Func checkAndTakeItem($coordX, $coordY)
   ControlClick ($HWnD, '','', "left", 1, $coordX, $coordY)
EndFunc

Func checkItemsRare()
   $coord= PixelSearch(55,0,1024,690,0xFFFF00,5)
   If IsArray($coord)=True Then
     $i=0
     Do
       $coords2=PixelGetColor($coord[0]+10+$i,$coord[1]+5)
       If $coords2=0xFFFF00 Then
         checkAndTakeItem($coord[0], $coord[1])
         $haveRare=1
         Sleep(4500) ; Time to run
         ExitLoop
       Else
         $haveRare=0
       EndIf
       $i=$i+1
     Until $i=20
   EndIf
EndFunc

Func checkItemsLegs()
   $coord= PixelSearch(55,0,1920,640,0x9D5327,4)
   If IsArray($coord)=True Then
     checkAndTakeItem($coord[0], $coord[1])
     Sleep(4500)
   EndIf
EndFunc

Func checkItemsSet()
   $coord= PixelSearch(0,0,1920,900,0x00FF00,5)
   If IsArray($coord)=True Then
     checkAndTakeItem($coord[0], $coord[1])
     Sleep(4500)
   EndIf
EndFunc

Func turnOffQuest()
   ControlClick ($HWnD, '','', "left", 1, 1877, 377)
   Sleep(100)
EndFunc

Func enterGame()
   $succ=0
   $x=0
   $y=0
   WinActivate("Diablo III")
   Sleep(200)
   $a=0
   Do
     $res= _ImageSearch("D3Images\ResumeGame1024x768.JPG",0,$x,$y,110)
     Sleep(50)
     If $res = 1 Then
       ControlClick ($HWnD, '','', "left", 1, $x, $y)
       Sleep(100)
       $succ=1
       ExitLoop
     Else
       ControlSend($HWnD, '','',"{ESC}")
       Sleep(1000)
     EndIf
     $a=$a+1
   Until $a=30
   If $succ=0 Then
     KillProc("Diablo III.exe")
     Sleep(100)
     Exit 0
   EndIf
   $x=0
   $y=0
   $a=0
   $succ=0
   Sleep(500)
   Do
     $res=_ImageSearch("D3Images\Tristam1024x768.JPG",0,$x,$y,100)
     Sleep(50)
     If $res = 1 Then
       $succ=1
       ExitLoop
     Else
       Sleep(200)
     EndIf
     $a=$a+1
   Until $a=50
   If $succ=0 Then
     KillProc("Diablo III.exe")
     Sleep(100)
     Exit 0
   EndIf
   Sleep(3000)
EndFunc

Func repair()
   WinActivate("Diablo III")
   Sleep(200)
   $x=(1400/1920)*1024
   $y=(80/1080)*768
   ControlClick ($HWnD, '','', "left", 1, $x, $y)
   Sleep(3500)
   $x=(950/1920)*1024
   $y=(390/1080)*768
   MouseMove($x,$y,0)
   Sleep(100)
   MouseClick("left")
   Sleep(1500)
   $x=(512/1920)*1024
   $y=(450/1080)*768
   ControlClick ($HWnD, '','', "left", 1, 363,339)
   Sleep(100)
   $x=(261/1920)*1024
   $y=(589/1080)*768
   ControlClick ($HWnD, '','', "left", 1, 190,422)
   Sleep(500)
   ControlSend($HWnD, '','',"{ESC}")
   Sleep(300)
   ControlSend($HWnD, '','',"{ESC}")
   Sleep(300)
   Sleep(200)
   $x=(951/1920)*1024
   $y=(579/1080)*768
   ControlClick ($HWnD, '','', "left", 1, $x, $y)
   Sleep(6000)
EndFunc

Func preBuff()
   $preBuffSkill1=IniRead("Options.ini","TownPreBuff","PrebuffSkill1","")
   $preBuffSkill2=IniRead("Options.ini","TownPreBuff","PrebuffSkill2","")
   $preBuffSkill3=IniRead("Options.ini","TownPreBuff","PrebuffSkill3","")
   $preBuffDelay=IniRead("Options.ini","TownPreBuff","DelayBetweenPrebuffs","")
   If $preBuffSkill1 <> 0 Then
     ControlSend($HWnD, '','',$preBuffSkill1)
     Sleep($preBuffDelay)
   EndIf
   If $preBuffSkill2 <> 0 Then
     ControlSend($HWnD, '','',$preBuffSkill2)
     Sleep($preBuffDelay)
   EndIf
   If $preBuffSkill3 <> 0 Then
     ControlSend($HWnD, '','',$preBuffSkill3)
     Sleep($preBuffDelay)
   EndIf
EndFunc

Func goWP()
   $x=0
   $y=0
   $a=0
   preBuff()
   Sleep(200)
   ControlClick ($HWnD, '','', "left", 1, 531,509)
   Sleep(2000)
   Do
     $res=_ImageSearch("D3Images\WP1024x768.JPG",0,$x,$y,100)
     If $res=1 Then
       WinActivate("Diablo III")
       Sleep(200)
       MouseMove($x,$y,0)
       Sleep(100)
       MouseClick("left")
       Sleep(2000)
       MouseMove(691,767,0)
       Sleep(100)
       ControlClick ($HWnD, '','', "left", 1, 170,350)
       Sleep(3000)
       return 1
     Else
       ControlClick ($HWnD, '','', "left", 1, 508,463)
       Sleep(1500)
     EndIf
   Until $a=5
   return 0
EndFunc

Func areWeInRoyalCrypts()
   $a=0
   $x=0
   $y=0
   Do
     $res=_ImageSearch("D3Images\RoyalCryptsWP1024x768.JPG",0,$x,$y,120)
     If $res=1 Then
       return 1
     EndIf
     $a=$a+1
   Until $a=20
   return 0
EndFunc

Func move($x,$y)
   MouseMove($x,$y,0)
   Sleep(20)
   Send("n")
   Sleep(20)
EndFunc

Func startGold()
   $WPSucc=0
   $WPSucc=goWP()
   If $WPSucc=0 Then
     quitGame()
     return
   EndIf
   $RCSucc=0
   $RCSucc=areWeInRoyalCrypts()
    If $RCSucc=0 Then
     quitGame()
     return
   EndIf
   Sleep(1000)
   move(83,53)
   Sleep(10)
   Send("n")
   Sleep(10)
   MouseMove(673,767,0)
   Sleep(4500)
   ControlClick($HWnD, '','', "right", 1, 309,332)
   Sleep(500)
   ControlClick($HWnD, '','', "right", 1, 534,245)
   Sleep(500)
   ControlClick($HWnD, '','', "right", 1, 736,622)
   Sleep(500)
   move(992,665)
   MouseMove(673,767,0)

   Sleep(2300)
   If $checkMonsters=1 Then
     checkMonster()
   EndIf
   Sleep(100)
   ControlClick($HWnD, '','', "right", 1, 682,310)
   Sleep(750)
   checkItems()
   Sleep(500)
   move(946,419)
   MouseMove(673,767,0)
   Sleep(2100)
   ControlClick($HWnD, '','', "right", 1, 538,293)
   Sleep(700)
   checkItems()
   Sleep(100)
   move(833,260)
   MouseMove(673,767,0)
   Sleep(2400)
   move(738,117)
   MouseMove(673,767,0)
   Sleep(3000)
   ControlClick($HWnD, '','', "right", 1, 311,461)
   Sleep(700)
   If $checkMonsters=1 Then
     checkMonster()
   EndIf
   Sleep(700)
   checkItems()
   Sleep(100)
   openDoor() ; Opens the door
   Sleep(400)
   If $checkMonsters=1 Then
     checkMonster()
   EndIf
   Sleep(100)
    ControlClick($HWnD, '','', "right", 1, 608,241)
   Sleep(500)
   MouseClick("left", 625,278, 1,0)
   Sleep(10)
   MouseMove(673,767,0)
   Sleep(2300)
   ControlClick($HWnD, '','', "right", 1, 779,87)
   Sleep(500)
   ControlClick($HWnD, '','', "right", 1, 937,165)
   Sleep(900)
   checkItems()
   Sleep(100)
   move(990,40)
   MouseMove(673,767,0)
   Sleep(3800)
   checkItems()
   Sleep(100)
   move(441,198)
   MouseMove(673,767,0)
   Sleep(1400)
   ControlClick ($HWnD, '','', "right", 1, 231,231)
   Sleep(500)
   ControlClick ($HWnD, '','', "right", 1, 598,201)
   Sleep(500)
   ControlClick ($HWnD, '','', "right", 1, 401,135)
   Sleep(1100)
   checkItems()
   Sleep(100)
   move(518,142)
   MouseMove(673,767,0)
   Sleep(2200)
   move(245,14)
   MouseMove(673,767,0)
   Sleep(4800)
   ControlClick ($HWnD, '','', "right", 1, 287,343)
   Sleep(500)
   ControlClick ($HWnD, '','', "right", 1, 504,237)
   Sleep(500)
   ControlClick ($HWnD, '','', "right", 1, 755,551)
   Sleep(1000)
   checkItems()
   Sleep(100)
   move(755,551)
   MouseMove(673,767,0)
   Sleep(2300)
   If $checkMonsters=1 Then
     checkMonster()
   EndIf
   Sleep(300)
   ControlClick ($HWnD, '','', "right", 1, 859,507)
   Sleep(1300)
   checkItems()
   Sleep(200)
   move(992,559)
   MouseMove(673,767,0)
   Sleep(2300)
   ControlClick ($HWnD, '','', "right", 1, 750,208)
   Sleep(500)
   move(906,180)
   MouseMove(673,767,0)
   Sleep(2300)
   ControlClick ($HWnD, '','', "right", 1, 651,316)
   Sleep(500)
   ControlClick ($HWnD, '','', "right", 1, 340,583)
   Sleep(500)
   ControlClick ($HWnD, '','', "right", 1, 670,651)
   Sleep(1400)
   checkItems()
   Sleep(100)
   move(983,513)
   MouseMove(673,767,0)
   Sleep(2800)
   move(678,255)
   MouseMove(673,767,0)
   Sleep(2300)
   ControlClick ($HWnD, '','', "right", 1, 561,165)
   Sleep(500)
   ControlClick ($HWnD, '','', "right", 1, 703,431)
   Sleep(500)
   ControlClick ($HWnD, '','', "right", 1, 904,249)
   Sleep(2000)
   checkItems()
   Sleep(300)
   move(356,663)
   MouseMove(673,767,0)
   Sleep(2300)
   ControlClick ($HWnD, '','', "right", 1, 840,492)
   Sleep(500)
   ControlClick ($HWnD, '','', "right", 1, 464,612)
   Sleep(500)
   move(657,671)
   MouseMove(673,767,0)
   Sleep(2300)
   ControlClick ($HWnD, '','', "right", 1, 595,500)
   Sleep(500)
   checkItems()
   Sleep(200)
   move(296,661)
   MouseMove(673,767,0)
   Sleep(2300)
   ControlClick ($HWnD, '','', "right", 1, 308,417)
   Sleep(500)
   move(48,676)
   MouseMove(673,767,0)
   Sleep(2800)
   ControlClick ($HWnD, '','', "right", 1, 329,252)
   Sleep(500)
   ControlClick ($HWnD, '','', "right", 1, 308,462)
   Sleep(1000)
   checkItems()
   Sleep(100)
   move(879,277)
   MouseMove(673,767,0)
   Sleep(2300)
   ControlClick ($HWnD, '','', "right", 1, 519,584)
   Sleep(500)
    ControlClick ($HWnD, '','', "right", 1, 820,438)
   Sleep(500)
   If $checkMonsters=1 Then
     checkMonster()
   EndIf
   Sleep(700)
   checkItems()
   Sleep(100)
   move(912,665)
   MouseMove(673,767,0)
   Sleep(2800)
   ControlClick ($HWnD, '','', "right", 1, 569,579)
   Sleep(700)
   If $checkMonsters=1 Then
     checkMonster()
   EndIf
   Sleep(200)
   checkItems()
   Sleep(100)
   move(938,618)
   MouseMove(673,767,0)
   Sleep(2300)
   move(678,509)
   MouseMove(673,767,0)
   Sleep(2000)
   If $checkMonsters=1 Then
     checkMonster()
   EndIf
   Sleep(100)
   ControlClick ($HWnD, '','', "right", 1, 392,434)
   Sleep(500)
   ControlClick ($HWnD, '','', "right", 1, 624,257)
   Sleep(1200)
   If $checkMonsters=1 Then
     checkMonster()
   EndIf
   Sleep(200)
   checkItems()
   Sleep(100)
   ControlSend($HWnD, '','',"{ESC}")
EndFunc

Func openDoor()
   WinActivate("Diablo III")
   Sleep(200)
   MouseMove(530,325,0)
   Sleep(100)
   MouseClick("left")
   Sleep(300)
   MouseMove(673,767,0)
EndFunc

Func checkChest()
   $a=0
   $x=0
   $y=0
   Do
     $res= _ImageSearch("D3Images\ChestLow.JPG",0,$x,$y,95)
     If $res = 1 Then
       WinActivate("Diablo III")
       Sleep(200)
       MouseMove($x,$y,0)
       Sleep(100)
       MouseClick("left")
       Sleep(3000)
       ExitLoop
     EndIf
     $a=$a+1
   Until $a=25
  checkItems()
EndFunc

Func quitGame()
   $x=0
   $y=0
   $succ=0
   $a=0
   WinActivate("Diablo III")
   Sleep(300)
   Do
     $res= _ImageSearch("D3Images\LeaveGame1024x768.JPG",0,$x,$y,100)
     Sleep(50)
     If $res = 1 Then
       ControlClick ($HWnD, '','', "left", 1, $x, $y)
       Sleep(100)
       $succ=1
       ExitLoop
     Else
       ControlSend($HWnD, '','',"{ESC}")
       Sleep(1000)
     EndIf
     $a=$a+1
   Until $a=10
   If $succ=0 Then
     KillProc("Diablo III.exe")
     Sleep(100)
     Exit 0
   EndIf
   Sleep(15000)
EndFunc

Func converCoords($x,$y)
   $a=1920
   $b=1080
   $ret=_ConvertCoords( $x, $y, $a, $b, $c = @DesktopWidth, $d = @DesktopHeight )
   return $ret
EndFunc

; converts coords (x,y) in (a,b ) screen resolution to (c,d) screen resolution
Func _ConvertCoords( $x, $y, $a, $b, $c = @DesktopWidth, $d = @DesktopHeight )
   Local $ret[2] = [( $c * $x ) / $a, ( $d * $y ) / $b]
   Return $ret
EndFunc

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
    WEnd
EndFunc

Func KillProc($name)
    $sPID=$name
    $sPID = ProcessExists($sPID)
    ;If Not $sPID Then Return SetError(1, 0, 0)
    Run(@ComSpec & " /c taskkill /F /PID " & $sPID & " /T", @SystemDir, @SW_HIDE)
EndFunc

Func Terminate()
    Exit 0
EndFunc   ;==>Terminate

[chancity]

does the bot have a function for terminate/restart/check if broken?

#include <ImageSearch.au3>
#include <Logging1024x768.au3>


;HotKeySet("{PAUSE}", "Terminate")
;HotKeySet("n", "TogglePause")
$Title = 'Diablo III' ; The Name Of The Game...
$Full = WinGetTitle ($Title) ; Get The Full Title..
$HWnD = WinGetHandle ($Full) ; Get The Handle
$mLeft="left"
$mRight="right"
$repair=0
$haveRare=0
$checkMonsters=IniRead("Options.ini","monster","CheckMonsters","GTFO")
$killMonsters=IniRead("Options.ini","monster","KillMonsters","GTFO")
$attackDelay=IniRead("Options.ini","monster","DelayBetweenAttack","")
$attackButton=IniRead("Options.ini","monster","AttackButton","")
$numberOfAttacks=IniRead("Options.ini","monster","NumberOfAttacksIfMonsterFound","")
$defButton=IniRead("Options.ini","monster","DefensiveSkillButton","")

While 1
   $log=logging()
   If $log=1 Then
     Sleep(1000)
     leaveChat()
     ExitLoop
   EndIf
WEnd

While 1
   enterGame()
   $repair=checkRepair()
   If $repair=1 Then
     repair()
   ElseIf $repair=0 Then
     ;turnOffQuest()
     startGold()
     quitGame()
   EndIf
WEnd

Func leaveChat()
   ControlClick ($HWnD, '','', "left", 1, 37, 614)
   Sleep(100)
   ControlClick ($HWnD, '','', "left", 1, 103,672)
   Sleep(100)
EndFunc

Func logging()
   While 1
     $logged=login()
     If $logged=1 Then
       return 1
     ElseIf $logged=0 Then
       Sleep(30000)
     EndIf
   WEnd
EndFunc

Func checkMonster()
   $coord= PixelSearch(67,0,1024,644,0xF90000,15)
   If IsArray($coord)=True Then
     If $killMonsters=1 Then
       $a=0
       ControlSend($HWnD, '','',$defButton)
       Sleep(200)
       Do
         ControlClick ($HWnD, '','', $attackButton, 1, $coord[0], $coord[1])
         Sleep($attackDelay)
         $a=$a+1
       Until $a=$numberOfAttacks
     ElseIf $killMonsters=0 Then
       ControlSend($HWnD, '','',$defButton)
       Sleep(200)
     EndIf
   EndIf
EndFunc

Func checkRepair()
   $repairYellowColor= PixelGetColor(736,24)
   if $repairYellowColor=0xFFEF00 OR $repairYellowColor=0xE10000 Then
     return 1
   Else
     return 0
   EndIf
EndFunc

Func checkItems()
   WinActivate("Diablo III")
   Sleep(100)
   checkItemsSet()
   checkItemsLegs()
   checkItemsRare()
EndFunc

Func checkAndTakeItem($coordX, $coordY)
   ControlClick ($HWnD, '','', "left", 1, $coordX, $coordY)
EndFunc

Func checkItemsRare()
   $coord= PixelSearch(55,0,1024,690,0xFFFF00,5)
   If IsArray($coord)=True Then
     $i=0
     Do
       $coords2=PixelGetColor($coord[0]+10+$i,$coord[1]+5)
       If $coords2=0xFFFF00 Then
         checkAndTakeItem($coord[0], $coord[1])
         $haveRare=1
         Sleep(4500) ; Time to run
         ExitLoop
       Else
         $haveRare=0
       EndIf
       $i=$i+1
     Until $i=20
   EndIf
EndFunc

Func checkItemsLegs()
   $coord= PixelSearch(55,0,1920,640,0x9D5327,4)
   If IsArray($coord)=True Then
     checkAndTakeItem($coord[0], $coord[1])
     Sleep(4500)
   EndIf
EndFunc

Func checkItemsSet()
   $coord= PixelSearch(0,0,1920,900,0x00FF00,5)
   If IsArray($coord)=True Then
     checkAndTakeItem($coord[0], $coord[1])
     Sleep(4500)
   EndIf
EndFunc

Func turnOffQuest()
   ControlClick ($HWnD, '','', "left", 1, 1877, 377)
   Sleep(100)
EndFunc

Func enterGame()
   $succ=0
   $x=0
   $y=0
   WinActivate("Diablo III")
   Sleep(200)
   $a=0
   Do
     $res= _ImageSearch("D3Images\ResumeGame1024x768.JPG",0,$x,$y,110)
     Sleep(50)
     If $res = 1 Then
       ControlClick ($HWnD, '','', "left", 1, $x, $y)
       Sleep(100)
       $succ=1
       ExitLoop
     Else
       ControlSend($HWnD, '','',"{ESC}")
       Sleep(1000)
     EndIf
     $a=$a+1
   Until $a=30
   If $succ=0 Then
     KillProc("Diablo III.exe")
     Sleep(100)
     Exit 0
   EndIf
   $x=0
   $y=0
   $a=0
   $succ=0
   Sleep(500)
   Do
     $res=_ImageSearch("D3Images\Tristam1024x768.JPG",0,$x,$y,100)
     Sleep(50)
     If $res = 1 Then
       $succ=1
       ExitLoop
     Else
       Sleep(200)
     EndIf
     $a=$a+1
   Until $a=50
   If $succ=0 Then
     KillProc("Diablo III.exe")
     Sleep(100)
     Exit 0
   EndIf
   Sleep(3000)
EndFunc

Func repair()
   WinActivate("Diablo III")
   Sleep(200)
   $x=(1400/1920)*1024
   $y=(80/1080)*768
   ControlClick ($HWnD, '','', "left", 1, $x, $y)
   Sleep(3500)
   $x=(950/1920)*1024
   $y=(390/1080)*768
   MouseMove($x,$y,0)
   Sleep(100)
   MouseClick("left")
   Sleep(1500)
   $x=(512/1920)*1024
   $y=(450/1080)*768
   ControlClick ($HWnD, '','', "left", 1, 363,339)
   Sleep(100)
   $x=(261/1920)*1024
   $y=(589/1080)*768
   ControlClick ($HWnD, '','', "left", 1, 190,422)
   Sleep(500)
   ControlSend($HWnD, '','',"{ESC}")
   Sleep(300)
   ControlSend($HWnD, '','',"{ESC}")
   Sleep(300)
   Sleep(200)
   $x=(951/1920)*1024
   $y=(579/1080)*768
   ControlClick ($HWnD, '','', "left", 1, $x, $y)
   Sleep(6000)
EndFunc

Func preBuff()
   $preBuffSkill1=IniRead("Options.ini","TownPreBuff","PrebuffSkill1","")
   $preBuffSkill2=IniRead("Options.ini","TownPreBuff","PrebuffSkill2","")
   $preBuffSkill3=IniRead("Options.ini","TownPreBuff","PrebuffSkill3","")
   $preBuffDelay=IniRead("Options.ini","TownPreBuff","DelayBetweenPrebuffs","")
   If $preBuffSkill1 <> 0 Then
     ControlSend($HWnD, '','',$preBuffSkill1)
     Sleep($preBuffDelay)
   EndIf
   If $preBuffSkill2 <> 0 Then
     ControlSend($HWnD, '','',$preBuffSkill2)
     Sleep($preBuffDelay)
   EndIf
   If $preBuffSkill3 <> 0 Then
     ControlSend($HWnD, '','',$preBuffSkill3)
     Sleep($preBuffDelay)
   EndIf
EndFunc

Func goWP()
   $x=0
   $y=0
   $a=0
   preBuff()
   Sleep(200)
   ControlClick ($HWnD, '','', "left", 1, 531,509)
   Sleep(2000)
   Do
     $res=_ImageSearch("D3Images\WP1024x768.JPG",0,$x,$y,100)
     If $res=1 Then
       WinActivate("Diablo III")
       Sleep(200)
       MouseMove($x,$y,0)
       Sleep(100)
       MouseClick("left")
       Sleep(2000)
       MouseMove(691,767,0)
       Sleep(100)
       ControlClick ($HWnD, '','', "left", 1, 170,350)
       Sleep(3000)
       return 1
     Else
       ControlClick ($HWnD, '','', "left", 1, 508,463)
       Sleep(1500)
     EndIf
   Until $a=5
   return 0
EndFunc

Func areWeInRoyalCrypts()
   $a=0
   $x=0
   $y=0
   Do
     $res=_ImageSearch("D3Images\RoyalCryptsWP1024x768.JPG",0,$x,$y,120)
     If $res=1 Then
       return 1
     EndIf
     $a=$a+1
   Until $a=20
   return 0
EndFunc

Func move($x,$y)
   MouseMove($x,$y,0)
   Sleep(20)
   Send("n")
   Sleep(20)
EndFunc

Func startGold()
   $WPSucc=0
   $WPSucc=goWP()
   If $WPSucc=0 Then
     quitGame()
     return
   EndIf
   $RCSucc=0
   $RCSucc=areWeInRoyalCrypts()
    If $RCSucc=0 Then
     quitGame()
     return
   EndIf
   Sleep(1000)
   move(83,53)
   Sleep(10)
   Send("n")
   Sleep(10)
   MouseMove(673,767,0)
   Sleep(4500)
   ControlClick($HWnD, '','', "right", 1, 309,332)
   Sleep(500)
   ControlClick($HWnD, '','', "right", 1, 534,245)
   Sleep(500)
   ControlClick($HWnD, '','', "right", 1, 736,622)
   Sleep(500)
   move(992,665)
   MouseMove(673,767,0)

   Sleep(2300)
   If $checkMonsters=1 Then
     checkMonster()
   EndIf
   Sleep(100)
   ControlClick($HWnD, '','', "right", 1, 682,310)
   Sleep(750)
   checkItems()
   Sleep(500)
   move(946,419)
   MouseMove(673,767,0)
   Sleep(2100)
   ControlClick($HWnD, '','', "right", 1, 538,293)
   Sleep(700)
   checkItems()
   Sleep(100)
   move(833,260)
   MouseMove(673,767,0)
   Sleep(2400)
   move(738,117)
   MouseMove(673,767,0)
   Sleep(3000)
   ControlClick($HWnD, '','', "right", 1, 311,461)
   Sleep(700)
   If $checkMonsters=1 Then
     checkMonster()
   EndIf
   Sleep(700)
   checkItems()
   Sleep(100)
   openDoor() ; Opens the door
   Sleep(400)
   If $checkMonsters=1 Then
     checkMonster()
   EndIf
   Sleep(100)
    ControlClick($HWnD, '','', "right", 1, 608,241)
   Sleep(500)
   MouseClick("left", 625,278, 1,0)
   Sleep(10)
   MouseMove(673,767,0)
   Sleep(2300)
   ControlClick($HWnD, '','', "right", 1, 779,87)
   Sleep(500)
   ControlClick($HWnD, '','', "right", 1, 937,165)
   Sleep(900)
   checkItems()
   Sleep(100)
   move(990,40)
   MouseMove(673,767,0)
   Sleep(3800)
   checkItems()
   Sleep(100)
   move(441,198)
   MouseMove(673,767,0)
   Sleep(1400)
   ControlClick ($HWnD, '','', "right", 1, 231,231)
   Sleep(500)
   ControlClick ($HWnD, '','', "right", 1, 598,201)
   Sleep(500)
   ControlClick ($HWnD, '','', "right", 1, 401,135)
   Sleep(1100)
   checkItems()
   Sleep(100)
   move(518,142)
   MouseMove(673,767,0)
   Sleep(2200)
   move(245,14)
   MouseMove(673,767,0)
   Sleep(4800)
   ControlClick ($HWnD, '','', "right", 1, 287,343)
   Sleep(500)
   ControlClick ($HWnD, '','', "right", 1, 504,237)
   Sleep(500)
   ControlClick ($HWnD, '','', "right", 1, 755,551)
   Sleep(1000)
   checkItems()
   Sleep(100)
   move(755,551)
   MouseMove(673,767,0)
   Sleep(2300)
   If $checkMonsters=1 Then
     checkMonster()
   EndIf
   Sleep(300)
   ControlClick ($HWnD, '','', "right", 1, 859,507)
   Sleep(1300)
   checkItems()
   Sleep(200)
   move(992,559)
   MouseMove(673,767,0)
   Sleep(2300)
   ControlClick ($HWnD, '','', "right", 1, 750,208)
   Sleep(500)
   move(906,180)
   MouseMove(673,767,0)
   Sleep(2300)
   ControlClick ($HWnD, '','', "right", 1, 651,316)
   Sleep(500)
   ControlClick ($HWnD, '','', "right", 1, 340,583)
   Sleep(500)
   ControlClick ($HWnD, '','', "right", 1, 670,651)
   Sleep(1400)
   checkItems()
   Sleep(100)
   move(983,513)
   MouseMove(673,767,0)
   Sleep(2800)
   move(678,255)
   MouseMove(673,767,0)
   Sleep(2300)
   ControlClick ($HWnD, '','', "right", 1, 561,165)
   Sleep(500)
   ControlClick ($HWnD, '','', "right", 1, 703,431)
   Sleep(500)
   ControlClick ($HWnD, '','', "right", 1, 904,249)
   Sleep(2000)
   checkItems()
   Sleep(300)
   move(356,663)
   MouseMove(673,767,0)
   Sleep(2300)
   ControlClick ($HWnD, '','', "right", 1, 840,492)
   Sleep(500)
   ControlClick ($HWnD, '','', "right", 1, 464,612)
   Sleep(500)
   move(657,671)
   MouseMove(673,767,0)
   Sleep(2300)
   ControlClick ($HWnD, '','', "right", 1, 595,500)
   Sleep(500)
   checkItems()
   Sleep(200)
   move(296,661)
   MouseMove(673,767,0)
   Sleep(2300)
   ControlClick ($HWnD, '','', "right", 1, 308,417)
   Sleep(500)
   move(48,676)
   MouseMove(673,767,0)
   Sleep(2800)
   ControlClick ($HWnD, '','', "right", 1, 329,252)
   Sleep(500)
   ControlClick ($HWnD, '','', "right", 1, 308,462)
   Sleep(1000)
   checkItems()
   Sleep(100)
   move(879,277)
   MouseMove(673,767,0)
   Sleep(2300)
   ControlClick ($HWnD, '','', "right", 1, 519,584)
   Sleep(500)
    ControlClick ($HWnD, '','', "right", 1, 820,438)
   Sleep(500)
   If $checkMonsters=1 Then
     checkMonster()
   EndIf
   Sleep(700)
   checkItems()
   Sleep(100)
   move(912,665)
   MouseMove(673,767,0)
   Sleep(2800)
   ControlClick ($HWnD, '','', "right", 1, 569,579)
   Sleep(700)
   If $checkMonsters=1 Then
     checkMonster()
   EndIf
   Sleep(200)
   checkItems()
   Sleep(100)
   move(938,618)
   MouseMove(673,767,0)
   Sleep(2300)
   move(678,509)
   MouseMove(673,767,0)
   Sleep(2000)
   If $checkMonsters=1 Then
     checkMonster()
   EndIf
   Sleep(100)
   ControlClick ($HWnD, '','', "right", 1, 392,434)
   Sleep(500)
   ControlClick ($HWnD, '','', "right", 1, 624,257)
   Sleep(1200)
   If $checkMonsters=1 Then
     checkMonster()
   EndIf
   Sleep(200)
   checkItems()
   Sleep(100)
   ControlSend($HWnD, '','',"{ESC}")
EndFunc

Func openDoor()
   WinActivate("Diablo III")
   Sleep(200)
   MouseMove(530,325,0)
   Sleep(100)
   MouseClick("left")
   Sleep(300)
   MouseMove(673,767,0)
EndFunc

Func checkChest()
   $a=0
   $x=0
   $y=0
   Do
     $res= _ImageSearch("D3Images\ChestLow.JPG",0,$x,$y,95)
     If $res = 1 Then
       WinActivate("Diablo III")
       Sleep(200)
       MouseMove($x,$y,0)
       Sleep(100)
       MouseClick("left")
       Sleep(3000)
       ExitLoop
     EndIf
     $a=$a+1
   Until $a=25
  checkItems()
EndFunc

Func quitGame()
   $x=0
   $y=0
   $succ=0
   $a=0
   WinActivate("Diablo III")
   Sleep(300)
   Do
     $res= _ImageSearch("D3Images\LeaveGame1024x768.JPG",0,$x,$y,100)
     Sleep(50)
     If $res = 1 Then
       ControlClick ($HWnD, '','', "left", 1, $x, $y)
       Sleep(100)
       $succ=1
       ExitLoop
     Else
       ControlSend($HWnD, '','',"{ESC}")
       Sleep(1000)
     EndIf
     $a=$a+1
   Until $a=10
   If $succ=0 Then
     KillProc("Diablo III.exe")
     Sleep(100)
     Exit 0
   EndIf
   Sleep(15000)
EndFunc

Func converCoords($x,$y)
   $a=1920
   $b=1080
   $ret=_ConvertCoords( $x, $y, $a, $b, $c = @DesktopWidth, $d = @DesktopHeight )
   return $ret
EndFunc

; converts coords (x,y) in (a,b ) screen resolution to (c,d) screen resolution
Func _ConvertCoords( $x, $y, $a, $b, $c = @DesktopWidth, $d = @DesktopHeight )
   Local $ret[2] = [( $c * $x ) / $a, ( $d * $y ) / $b]
   Return $ret
EndFunc

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
    WEnd
EndFunc

Func KillProc($name)
    $sPID=$name
    $sPID = ProcessExists($sPID)
    ;If Not $sPID Then Return SetError(1, 0, 0)
    Run(@ComSpec & " /c taskkill /F /PID " & $sPID & " /T", @SystemDir, @SW_HIDE)
EndFunc

Func Terminate()
    Exit 0
EndFunc   ;==>Terminate

Why did you post this?

[chancity]

mind explaining how you got the values for

$slot1x = 520 ; first slot x coordinate
$slot1y = 329 ;first slot y coordinate
$offset = 27 ; offset for each slot



$slotLineTopX = 518 ;First slot line x coordinate
$slotLineTopY = 320 ;First slot line y coordinate
$slotLineBotX = 543 ;First slot line x coordinate
$slotLineBotY = 352;First slot line y coordinate
$slotLineOffSet = 26.75 ;offset for each line




$CellMiddleTopX = 526
$CellMiddleTopY = 332
$CellMiddleBotX = 530
$CellMiddleBotY =338
$CellMiddleO = 26.75

Trying to port it to 800x600 but its missing random slots used the 1920x1080 version as well as the old scripts for references but kind of lost at the moment would those being off cause major missing issue? It will go like 5 rows over then just kinda stop
what i did was take ss of 1920x1080 inventory then 800x600 plotted your points then ploted mine similiar to how yours was positioned

edit: also thought it may be because on the larger resolution there is smaller lines on the slot lines and with 800x600 you just have the slot line kinda


my debug looks like this
****************************************************
2012-07-14 21:05:55 : Unknown Item Found iLvl=0 @ Cell 0,0
2012-07-14 21:05:57 : Magic Item Found iLvl=59 @ Cell 1,0
2012-07-14 21:05:59 : Rare Item Found iLvl=62 @ Cell 2,0
2012-07-14 21:06:00 : Magic Item Found iLvl=56 @ Cell 3,0
2012-07-14 21:06:02 : Magic Item Found iLvl=61 @ Cell 4,0
2012-07-14 21:06:03 :
iLvl Analyzing took 8.76 Seconds
****************************************************
2012-07-14 21:06:03 : Salvaging Items
2012-07-14 21:06:08 : Item to Salvage Magic 4,0
2012-07-14 21:06:14 : Item To Vendor Unknown 0,0
2012-07-14 21:06:14 : Item To Vendor Magic 1,0
2012-07-14 21:06:14 : Item To Vendor Magic 3,0

was 1 rare which was stashed and the rest was magic items

Location to move mouse for each cell

$slot1x = 520  ; first slot x coordinate
$slot1y = 329 ;first slot y coordinate
$offset = 27 ; offset for each slot

Line that separates items, use it to see if there's a two slot item.

$slotLineTopX = 518 ;First slot line x coordinate
$slotLineTopY = 320 ;First slot line y coordinate
$slotLineBotX = 543 ;First slot line x coordinate
$slotLineBotY = 352;First slot line y coordinate
$slotLineOffSet = 26.75 ;offset for each line

Used to see if there is an empty slot if so move to the next slot

$CellMiddleTopX = 526
$CellMiddleTopY = 332
$CellMiddleBotX = 530
$CellMiddleBotY =338
$CellMiddleO = 26.75

Really, the only thing that needs changed is the getiteminfo function, but you should already have most of the correct coordinates from my 800x600 ilvl stashing.

[Korstan2]

Here is Version 3 (Not the whole install as it's too big to attache... butthe two script folders... 1920x1080 and 800x600

do you happen to have 1366x768?