Sarkoth Farmer

#include <ImageSearch.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#Include <WinAPI.au3>
#include <File.au3>
#include <Date.au3>

Global $ImageFiles[6][5]
Global $SoundFiles[6]
Global $PasswordField[2]
Global $ResumeButton[2]
Global $LeaveButton[2]
Global $DisconnectButton[2]
Global $GameLobbyCode[3]
Global $GameScreenCode[3]
Global $MoveToCellar1[2]
Global $MoveToCellar2[2]
Global $MoveToCellar3[2]
Global $MoveInCellar1[2]
Global $MoveInCellar2[2]
Global $MoveToGoldLoot1[2]
Global $MoveToGoldLoot2[2]
Global $MoveToGoldLoot3[2]
Global $MoveToMerchant[2]
Global $MoveToStash1[2]
Global $MoveToStash2[2]
Global $CellarLocation[2]
Global $MonsterLocation[2]
Global $MerchantLocation[2]
Global $StashLocation[2]
Global $PortalLocation[2]
Global $CharHitBox[4]
Global $MonsterSearchArea[4]
Global $LootingArea[4]
Global $FullBagSearchArea[4]
Global $SellItemsArea[4]
Global $FullStashSearchArea[4]
Global $RepairSearchArea[4]
Global $DeathSearchArea[4]
Global $DisconnectSearchArea[4]
Global $StashBag2[2]
Global $StashBag3[2]
Global $RepairButton[2]
Global $AllItemsButton[2]
Global $CellarOffset
Global $CellarPixel
Global $Paused
Global $runtimeHour, $runtimeMins, $runtimeSecs, $runtime, $sruntime
Global $runtimeinit = TimerInit()
Global $CellerRunTime = TimerInit()
Global $wintitle="Diablo III"
Global $winhandle=Wingethandle($wintitle)
Global $ingamewait

;///////////////////////////////////////--CONFIG--////////////////////////////////////////////////////////////////////////////////
;                                                                                                                               //
;                                       Important                                                                               //
$ComputerLag        = 0                                         ;Increase this in steps of 400 if you have slow loading times   //
$MoveDelay          = 0                                         ;Increase this in steps of 100 if you have movement issues      //
$LootDelay          = 0                                         ;Increase this in steps of 200 if you have looting issues       //
$ImgDir             = "C:\Users\Administrator\Desktop\Am\"      ;Location of the image folder                                   //
;                                                                                                                               //
;                                       Functions                                                                               //
$Repair             = True                                      ;Orders the bot to repair when items are damaged                //
$Sell               = True                                      ;Orders the bot to sell magic items when bag is full            //
$UseStash           = True                                      ;Orders the bot to put gems and rare items into the stash       //
$HighGoldRadius     = False                                     ;Set this to true if you have more than +18 gold radius         //
;                                                                                                                               //
;                                     Miscellaneous                                                                             //
$Sounds             = False                                     ;Enable pickup sounds                                           //
$SoundsDir          = "C:\Users\Administrator\Desktop\Am\"      ;Location of the sounds folder                                  //
$ShowLootArea       = True                                      ;Shows lootarea                                                 //
$ShowStatTooltip    = True                                      ;Shows statistics from current session                          //
;                                                                                                                               //
;                                      Relogging                                                                                //
$UseRelogging       = False                                     ;Enable Relogging                                               //
$Password           = "XXXXXXXX"                                ;Your password                                                  //
;                                                                                                                               //
;                                                                                                                               //
;                                        Looting                                                                                //
$LootLegendaries    = True                                      ;Loot legendary items                                           //
$LootSets           = True                                      ;Loot set items                                                 //
$LootRares          = True                                      ;Loot rare items                                                //
$LootMagics         = True                                      ;Loot magic items (includes tomes)                              //
$LootTomes          = True                                      ;Loot tomes                                                     //
$LootGems           = True                                      ;Loot gems                                                      //
;                                                                                                                               //
;      <<<Changes below have an significant impact on the needed time for one run>>>                                            //
;                                                                                                                               //
$RareLootAmount     = 2                                         ;Amount of rare items to loot                                   //
$MagicLootAmount    = 3                                         ;Amount of magic items to loot (including tomes)                //
$TomeLootAmount     = 1                                         ;Amount of tomes to loot                                        //
$GemLootAmount      = 2                                         ;Amount of gems to loot                                         //
;                                                                                                                               //
$LootingArea[0]     = 600                                       ;Left   (lower -> bigger)                                       //
$LootingArea[1]     = 250                                       ;Top    (lower -> bigger)                                       //
$LootingArea[2]     = 1350                                      ;Right  (higher -> bigger)                                      //
$LootingArea[3]     = 700                                       ;Bot    (higher -> bigger)                                      //
;                                                                                                                               //
;/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

$ImageFiles[0][0]           = "legendaryA.png|110"
$ImageFiles[0][1]           = "legendaryE.png|110"
$ImageFiles[0][2]           = "legendaryI.png|110"
$ImageFiles[0][3]           = "legendaryO.png|110"
$ImageFiles[0][4]           = "legendaryU.png|110"
$ImageFiles[1][0]           = "setA.png|110"
$ImageFiles[1][1]           = "setE.png|110"
$ImageFiles[1][2]           = "setU.png|110"
$ImageFiles[1][3]           = "setO.png|110"
$ImageFiles[1][4]           = "setI.png|110"
$ImageFiles[2][0]           = "rareA.png|110"
$ImageFiles[2][1]           = "rareE.png|110"
$ImageFiles[2][2]           = "rareI.png|110"
$ImageFiles[2][3]           = "rareO.png|110"
$ImageFiles[2][4]           = "rareU.png|110"
$ImageFiles[3][0]           = "blueA.png|250"
$ImageFiles[3][1]           = "blueE.png|250"
$ImageFiles[3][2]           = "blueI.png|250"
$ImageFiles[3][3]           = "blueO.png|250"
$ImageFiles[3][4]           = "blueU.png|250"
$ImageFiles[4][0]           = "tome.png|200"
$ImageFiles[4][1]           = "uare.png|110"
$ImageFiles[5][0]           = "you.png|100"
$ImageFiles[5][1]           = "sellNew.png|55"
$ImageFiles[5][2]           = "sell1x1.png|50"
$ImageFiles[5][3]           = "not.png|120"

$SoundFiles[0]              = "legendary.wav"
$SoundFiles[1]              = "set.wav"
$SoundFiles[2]              = "rare.wav"
$SoundFiles[3]              = "magic.wav"
$SoundFiles[4]              = "tome.wav"
$SoundFiles[5]              = "gem.wav"

$PasswordField[0]           = 820
$PasswordField[1]           = 705

$ResumeButton[0]            = 319
$ResumeButton[1]            = 416

$LeaveButton[0]             = 969
$LeaveButton[1]             = 582

$DisconnectButton[0]        = 960
$DisconnectButton[1]        = 630

$GameLobbyCode[0]           = 319
$GameLobbyCode[1]           = 416
$GameLobbyCode[2]           = 4065536

$GameScreenCode[0]          = 1119
$GameScreenCode[1]          = 1044
$GameScreenCode[2]          = 0xDEFDFE

$MoveToCellar1[0]           = 500
$MoveToCellar1[1]           = 250
$MoveToCellar2[0]           = 1
$MoveToCellar2[1]           = 370
$MoveToCellar3[0]           = 400
$MoveToCellar3[1]           = 600

$MoveInCellar1[0]           = 116
$MoveInCellar1[1]           = 986
$MoveInCellar2[0]           = 776
$MoveInCellar2[1]           = 328

$MoveToGoldLoot1[0]         = 577
$MoveToGoldLoot1[1]         = 306
$MoveToGoldLoot2[0]         = 1260
$MoveToGoldLoot2[1]         = 351
$MoveToGoldLoot3[0]         = 911
$MoveToGoldLoot3[1]         = 694

$MoveToMerchant[0]          = 1690
$MoveToMerchant[1]          = 102

$MoveToStash1[0]            = 780
$MoveToStash1[1]            = 950
$MoveToStash2[0]            = 270
$MoveToStash2[1]            = 930

$CellarLocation[0]          = 307
$CellarLocation[1]          = 74

$MonsterLocation[0]         = 577
$MonsterLocation[1]         = 183

$MerchantLocation[0]        = 930
$MerchantLocation[1]        = 136

$StashLocation[0]           = 805
$StashLocation[1]           = 430

$PortalLocation[0]          = 650
$PortalLocation[1]          = 500

$CharHitBox[0]              = 790
$CharHitBox[1]              = 315
$CharHitBox[2]              = 1200
$CharHitBox[3]              = 730

$MonsterSearchArea[0]       = 150
$MonsterSearchArea[1]       = 20
$MonsterSearchArea[2]       = 1248
$MonsterSearchArea[3]       = 446

$FullBagSearchArea[0]       = 795
$FullBagSearchArea[1]       = 125
$FullBagSearchArea[2]       = 830
$FullBagSearchArea[3]       = 160

$SellItemsArea[0]           = 1460
$SellItemsArea[1]           = 585
$SellItemsArea[2]           = 1900
$SellItemsArea[3]           = 875

$FullStashSearchArea[0]     = 700
$FullStashSearchArea[1]     = 135
$FullStashSearchArea[2]     = 730
$FullStashSearchArea[3]     = 155

$RepairSearchArea[0]        = 1507
$RepairSearchArea[1]        = 36
$RepairSearchArea[2]        = 1512
$RepairSearchArea[3]        = 41

$DeathSearchArea[0]         = 538
$DeathSearchArea[1]         = 335
$DeathSearchArea[2]         = 542
$DeathSearchArea[3]         = 339

$DisconnectSearchArea[0]    = 840
$DisconnectSearchArea[1]    = 410
$DisconnectSearchArea[2]    = 950
$DisconnectSearchArea[3]    = 440

$StashBag2[0]               = 510
$StashBag2[1]               = 360

$StashBag3[0]               = 510
$StashBag3[1]               = 490

$RepairButton[0]            = 517
$RepairButton[1]            = 483

$AllItemsButton[0]          = 223
$AllItemsButton[1]          = 592

$CellarOffset               = 33

$RareLootAttempts           = 0
$MagicLootAttempts          = 0
$TomeLootAttempts           = 0
$GemLootAttempts            = 0

$StartTime                  = @HOUR & ":" & @MIN & " Uhr"
$Runs                       = 0
$Closed                     = 0
$Runtime                    = "0h 0m 0s"
$Disconnects                = 0

$Legendaries                = 0
$Sets                       = 0
$Rares                      = 0
$Magics                     = 0
$Gems                       = 0
$Tomes                      = 0
$Sold                       = 0

$ISx                        = 0
$ISy                        = 0
$StashBag                   = 1
$DisconnectState            = 0
$FullBag                    = False

$LootingAreaWidth           = $LootingArea[2] - $LootingArea[0]
$LootingAreaHeight          = $LootingArea[3] - $LootingArea[1]

If $ShowLootArea = True Then
   DrawLootArea()
EndIf

Opt('MouseCoordMode', 2)
Opt('PixelCoordMode', 2)

HotKeySet('=', 'Pause')
HotKeySet('{END}', 'Terminate')

Pause()

   ;Logging Var
   $Deaths=0
   $Repairs=0
   $Found=0
   $NotFound=0
Global $RunNum=0
   $Leave = False
   $Dead = False
   $Window = False
   $Logout = False
   $i = 0
   $CellarClickFail=False
   $default_resolutionX = 1920
   $default_resolutionY = 1080
   $x_ratio = @Desktopwidth / $default_resolutionX
   $y_ratio = @Desktopheight / $default_resolutionY
   $gX = 0
   $gY = 0
   $gX0 = 0
   $gY0 = 0

WinActivate('Diablo III')
While 1
   If WinActive('Diablo III') Then

If $ShowStatTooltip = True Then
   $RunNum = $Found + $NotFound
   $Repairp = $Repairs / $RunNum
   $DeathsP = $Deaths / $RunNum
   $FoundP = $Found /  $RunNum
   $NotfoundP = $NotFound / $RunNum
   ToolTip("Runs: " & $Runs & @CRLF & "Found: " & $Found & " (" & Round($FoundP * 100,.00) & "%" & ")" & @CRLF & "Not Found: " & $NotFound & " (" & Round($NotFoundP * 100,.00) & "%" & ")"& _
   @CRLF & "Deaths: " & $Deaths &  " (" & Round($DeathsP * 100,.00) & "%" & ")"& @CRLF & "Legendaries: " & $Legendaries & @CRLF & "Sets: " & $Sets & @CRLF & "Rares: " & $Rares & @CRLF & "Magics: " & $Magics & @CRLF & "Tomes: " & $Tomes & @CRLF & "Gems: " & $Gems & @CRLF & "Sold: " & $Sold & @CRLF & "Repairs: " & $Repairs &  " (" & Round($RepairP * 100,.00) & "%" & ")", 20, 20, "Run Time: " & Call("Update_Time",$runtimeinit), 1)
EndIf

      While $DisconnectState < 2
      For $i = 18 To 0 step -1
         If InGameLobby() Then
            ExitLoop
         EndIf

         Sleep(500)
         If $i == 1 Then
            CheckForDisconnectState()
            Sleep(500 + $Computerlag)
         EndIf
      Next

      MouseClick('LEFT', $ResumeButton[0], $ResumeButton[1], 1, 5)
      Sleep(1250 + $Computerlag)

      For $i = 20 To 0 step -1
         If InGameplayScreen() Then
            $DisconnectState = 0
            ExitLoop
         EndIf

         Sleep(500)
         If $i == 1 Then
            CheckForDisconnectState()
            Sleep(500 + $Computerlag)
         EndIf
      Next

      If $DisconnectState = 2 Then
         If $UseRelogging = True Then
            Relog()
         Else
            Terminate()
         EndIf
      Else
         If $DisconnectState = 0 Then
            ExitLoop
         EndIf
      EndIf
      WEnd

      MouseClick("middle", Round(0 * $x_ratio),Round(250 * $y_ratio)) ;starts the main run
      Send("{3 down}")
      Sleep(1900)
      Send("{3 up}")
      send("1")
      MouseMove(Round(255*$x_ratio),Round(290*$y_ratio),1) ;moves cursor over to the cellar so the proper blue pixel becomes highlighted
      Sleep(500)
      Sleep(250)
      Call("CheckForDeath")

      If $Window Then
         Call("InputReqScrn")
         $Window = False
         ExitLoop
      ElseIf $Dead or $Logout Then
         ExitLoop
      EndIf

      $Pixel2 = PixelSearch(0,0,Round(600 * $x_ratio),Round(400 * $y_ratio),0x334FB7,6) ;searches for the specific blue pixel that only occurs when mouse hovers over open cellar
      If Not @error Then
         MouseClick("left",Round(255*$x_ratio),Round(290*$y_ratio)) ;Entrance to cellar
         Cellarwait()
         If $CellarClickFail=true Then
           ExitLoop
         Endif

         MouseClick("middle",Round(20*$x_ratio),Round(708*$y_ratio)) ;moves to doorway leading to rare inside cellar
         Sleep(3100)
         MouseMove(Round(440*$x_ratio),Round(80*$y_ratio),1) ;hovers over the rare Sarkoth
         Send(4)
         Sleep(600)
         Send("{SHIFTDOWN}")
         MouseDown("right") ;attack middle
         Sleep(3300)
         ;MouseMove(Round(521 * $x_ratio),Round(260 * $y_ratio),1) ;attack left, add more sleep time if you can't kill minion on left
         MouseUP("right")
         ;MouseClick("right",Round(620*$x_ratio),Round(20*$y_ratio),2) ;break the table & chair
         Sleep(10)
         Send("{SHIFTUP}")
         MouseClick("right",694,929) ;cancel archon
         Sleep(400)
         Call("Logs","killed")
      Else
         OhShit()
         If Not $Logout And Not $Dead And Not $Window Then
            Sleep(300)
            Call("CheckForDeath")
            LeaveGame()
            If Not $Logout Then
               Call("InputReqScrn")
            EndIf
         Else
            Call("InputReqScrn")
            $Window = False ; reset the flag so it doesn't think a window is always up
         Endif
      Endif

      If $HighGoldRadius = True Then
         Move($MoveToGoldLoot1[0], $MoveToGoldLoot1[1])
         Sleep(250 + $MoveDelay)
         AttackNearbyMonsters()
      Else
         Move(402, 306)
         Sleep(250 + $MoveDelay)
         AttackNearbyMonsters()
         Move($MoveToGoldLoot2[0], $MoveToGoldLoot2[1])
         Sleep(250 + $MoveDelay)
         AttackNearbyMonsters()
         Move($MoveToGoldLoot3[0], $MoveToGoldLoot3[1])
         Sleep(250 + $MoveDelay)
         AttackNearbyMonsters()
      EndIf

      MouseMove(120, 120, 2)
      Sleep(100)

      If $LootSets Then
         LootSets()
      EndIf

      If $LootLegendaries Then
         LootLegendaries()
      EndIf

      If $LootRares Then
         LootRares()
         $RareLootAttempts = 0
      EndIf

      If $LootMagics Then
         LootMagics()
         $MagicLootAttempts = 0
      Else
         If $LootTomes Then
            LootTomes()
            $TomesLootAttempts = 0
         EndIf
      EndIf

      If $LootGems Then
         LootGems()
         $GemLootAttempts = 0
      EndIf

      If CheckForDeath() Then
         ContinueLoop
      EndIf

      Sleep(500)
      Send("{t}")
      Sleep(7000 + $Computerlag)

      If $Repair Then
         RepairItems()
      EndIf

      LeaveGame()
      Sleep(1000 + $Computerlag)
   EndIf
WEnd

Func InputReqScrn()
   Menuwait()
   MouseClick("left", Round(198*$x_ratio),Round(417*$y_ratio)) ;button to resume game from main menu
   Ingamewait()
   $Target = _ImageSearchArea($ImgDir & "DisconnectError.png",1,0,0,@DesktopHeight,@DesktopWidth,$gX0,$gY0,0)
   If $Target And ($gX > 15) And ($gY > 15) Then
      sleep(1500)
      MouseClick("left", Round(960*$y_ratio), Round(635*$x_ratio), 50 ,10)
      Sleep(Random(1000, 2000))
      MouseClick("left", Round(198*$x_ratio),Round(417*$y_ratio)) ;button to resume game from main menu
      $gX0 = 0
      $gY0 = 0
      Ingamewait()
   EndIf
EndFunc

Func Menuwait()
   $menuwait=0
   Do
      sleep(100)
      $menuwait=$menuwait+1
      PixelSearch(1630*$x_ratio ,990*$y_ratio, 1660*$x_ratio ,1030*$y_ratio, 0xAF681B, 20, 1, $winhandle) ; wait for that helmet button to appear
   Until (Not @Error OR $menuwait=100)

   If $menuwait=100 Then
      send("{ESC}")
      sleep(2000)
      send("{ESC}")
      $menuwait=0
   EndIf
   $menuwait=0
   sleep(100)
 EndFunc

Func Ingamewait()
   Do
      sleep(100)
      $ingamewait=$ingamewait+1
      PixelSearch(1100*$x_ratio ,1000*$y_ratio,1140*$x_ratio ,1060*$y_ratio, 0x426AFA, 20, 1, $winhandle) ; wait for blue townportalbutton to appear
   Until (Not @Error OR $ingamewait=100)
   $ingamewait=0
   sleep(200)
EndFunc

Func Cellarwait()
   $menuwait=0
   Do
      sleep(100)
      $menuwait=$menuwait+1
      PixelSearch(811*$x_ratio ,222*$y_ratio, 900*$x_ratio ,320*$y_ratio, 0xFDFD34, 40, 1, $winhandle) ; wait for the light of the lamp next to the entrance appears
   Until (Not @Error OR $menuwait=100)
   If $menuwait=100 Then
      OhShit()
      $CellarClickFail=True
      $menuwait=0
   EndIf
EndFunc

Func OhShit()
   mousemove(962,518,1)
   Send("4")
   Sleep(620)
   send("2")
   Sleep(400)
   send("{SHIFTDOWN}")
   sleep(200)
   Mouseclick("left")
   sleep(300)
   send("{SHIFTUP}")
   sleep(400)
   Send("t")
   Sleep(7000)
   Call("CheckForDeath")
   Call("Logs","notpresent")
EndFunc

Func Logs($LogStats)
   $Sarkothkill=Iniread("Sarkoth.ini","Misc","Sarkothkill",0)
   $Sarkothnotfound=Iniread("Sarkoth.ini","Misc","Sarkothnotfound",0)
   $Died=Iniread("Sarkoth.ini","Misc","Died",0)
   $Repair=Iniread("Sarkoth.ini","Misc","Repair",0)
   $RunNum = $Found + $NotFound
   $Repairp = $Repairs / $RunNum
   $DeathsP = $Deaths / $RunNum
   $FoundP = $Found /  $RunNum
   $NotfoundP = $NotFound / $RunNum

   If $LogStats = "repair" Then
      _FileWriteLog("Botlog.txt", "Repaired Items, it took " & Call("Update_Time",$CellerRunTime))
      $Repairs=$Repairs+1
      $Repair=$Repair+1
      $NotFound=$NotFound+1
      $Sarkothnotfound=$Sarkothnotfound+1
      IniWrite("Sarkoth.ini","Misc","Died",$Repair)
      IniWrite("Sarkoth.ini","Misc","Sarkothnotfound",$Sarkothnotfound)
   ElseIf $LogStats = "dead" then
      _FileWriteLog("Botlog.txt", "Oh my you have died, it took " & Call("Update_Time",$CellerRunTime))
      $Died=$Died+1
      $Sarkothnotfound=$Sarkothnotfound+1
      $Deaths=$Deaths+1
      $NotFound=$NotFound+1
      IniWrite("Sarkoth.ini","Misc","Died",$Died)
      IniWrite("Sarkoth.ini","Misc","Sarkothnotfound",$Sarkothnotfound)
   ElseIf $LogStats = "killed" then
      _FileWriteLog("Botlog.txt", "Sarkoth down, it took " & Call("Update_Time",$CellerRunTime))
      $Sarkothkill=$Sarkothkill+1
      $Found=$Found+1
      IniWrite("Sarkoth.ini","Misc","Sarkothkill",$Sarkothkill)
   ElseIf $LogStats = "notpresent" then
      _FileWriteLog("Botlog.txt", "Cellar Not Found, it took " & Call("Update_Time",$CellerRunTime))
      $Sarkothnotfound=$Sarkothnotfound+1
      $Notfound=$NotFound+1
      IniWrite("Sarkoth.ini","Misc","Sarkothnotfound",$Sarkothnotfound)
   ElseIf $LogStats = "stoped" Then
      _FileWriteLog("Botlog.txt",  @CRLF & "************************************************" & @CRLF & _
      "Dave's Dank Celler" & @CRLF & "Run has completed in:  " & Call("Update_Time",$runtimeinit) & @CRLF & _
      "Total Cellars Found: " & $Found & " (" & Round($FoundP * 100,.00) & "%" & ")" & @CRLF & "Total Cellars Not Found: " & $NotFound & " (" & Round($NotFoundP * 100,.00) & "%" & ")" & @CRLF & "Totals Deaths: " & $Deaths &  " (" & Round($DeathsP * 100,.00) & "%" & ")" & @CRLF & _
      "Total Repairs: " & $Repairs &  " (" & Round($RepairP * 100,.00) & "%" & ")" & @CRLF & "************************************************")
   Endif
EndFunc

;Loot
Func LootLegendaries()
   For $gI = 0 to 4
      $array = StringSplit($ImageFiles[0][$gI],"|")
      $file = $array[1]
      $accuracy = $array[2]

      $target = _ImageSearchArea($ImgDir & $file, 1, $LootingArea[0], $LootingArea[1], $LootingArea[2], $LootingArea[3], $ISx, $ISy, $accuracy)
      If $target = 1 Then
         If $Sounds = True Then
            SoundPlay($SoundsDir & $SoundFiles[0], 0)
         EndIf
         $Legendaries+=1
         MouseClick("LEFT", $ISx, $ISy, 1, 1)
         Sleep(300 + $LootDelay)
         MouseMove(120, 120, 2)
         Sleep(100)
         If $Sell = True Then
            CheckBagFull()
            If $FullBag = True Then
            $FullBag = False
            Sleep(300)
            LootLegendaries()
            EndIf
         EndIf
      EndIf
   Next
EndFunc

Func LootSets()
   For $gI = 0 to 4
      $array = StringSplit($ImageFiles[1][$gI],"|")
      $file = $array[1]
      $accuracy = $array[2]

      $target = _ImageSearchArea($ImgDir & $file, 1, $LootingArea[0], $LootingArea[1], $LootingArea[2], $LootingArea[3], $ISx, $ISy, $accuracy)
      If $target = 1 Then
         If $Sounds = True Then
            SoundPlay($SoundsDir & $SoundFiles[1], 0)
         EndIf
         $Sets+=1
         MouseClick("LEFT", $ISx, $ISy, 1, 1)
         Sleep(300 + $LootDelay)
         MouseMove(120, 120, 2)
         Sleep(100)
         If $Sell = True Then
            CheckBagFull()
            If $FullBag = True Then
               $FullBag = False
               Sleep(300)
               LootSets()
            EndIf
         EndIf
      EndIf
   Next
EndFunc

Func LootRares()
   For $gI = 0 to 4
      $array = StringSplit($ImageFiles[2][$gI],"|")
      $file = $array[1]
      $accuracy = $array[2]

      $target = _ImageSearchArea($ImgDir & $file, 1, $LootingArea[0], $LootingArea[1], $LootingArea[2], $LootingArea[3], $ISx, $ISy, $accuracy)
      If $target = 1 Then
         If $Sounds = True Then
            SoundPlay($SoundsDir & $SoundFiles[2], 0)
         EndIf
         $Rares+=1
         MouseClick("LEFT", $ISx, $ISy, 1, 1)
         Sleep(300 + $LootDelay)
         MouseMove(120, 120, 2)
         Sleep(100)
         If $Sell = True Then
            CheckBagFull()
            If $FullBag = True Then
               $FullBag = False
               Sleep(300)
               LootRares()
            EndIf
         EndIf
      EndIf
   Next

   $RareLootAttempts+=1

   If($RareLootAttempts >= $RareLootAmount) Then
      Return
   Else
      LootRares()
   EndIf
EndFunc

Func LootMagics()
   For $gI = 0 to 4
      $array = StringSplit($ImageFiles[3][$gI],"|")
      $file = $array[1]
      $accuracy = $array[2]

      $target = _ImageSearchArea($ImgDir & $file, 1, $LootingArea[0], $LootingArea[1], $LootingArea[2], $LootingArea[3], $ISx, $ISy, $accuracy)
      If $target > 0 Then
         If $Sounds = True Then
            SoundPlay($SoundsDir & $SoundFiles[3], 0)
         EndIf
         $Magics+=1
         MouseClick("LEFT", $ISx, $ISy, 1, 1)
         Sleep(300 + $LootDelay)
         MouseMove(120, 120, 2)
         Sleep(100)
         If $Sell = True Then
            CheckBagFull()
            If $FullBag = True Then
               $FullBag = False
               Sleep(300)
               LootMagics()
            EndIf
         EndIf
      EndIf
   Next

   $MagicLootAttempts+=1

   If($MagicLootAttempts >= $MagicLootAmount) Then
      Return
   Else
      LootMagics()
   EndIf
EndFunc

Func LootTomes()
   $array = StringSplit($ImageFiles[4][0],"|")
   $file = $array[1]
   $accuracy = $array[2]

   $target = _ImageSearchArea($ImgDir & $file, 1, $LootingArea[0], $LootingArea[1], $LootingArea[2], $LootingArea[3], $ISx, $ISy, $accuracy)
   If $target = 1 Then
      If $Sounds = True Then
            SoundPlay($SoundsDir & $SoundFiles[4], 0)
         EndIf
      $Tomes+=1
      MouseClick("LEFT", $ISx, $ISy, 1, 1)
      Sleep(750 + $LootDelay)
      MouseMove(120, 120, 2)
      Sleep(100)
      If $Sell = True Then
         CheckBagFull()
         If $FullBag = True Then
            $FullBag = False
            Sleep(300)
            LootTomes()
         EndIf
      EndIf
   EndIf

   $TomeLootAttempts+=1

   If($TomeLootAttempts >= $TomeLootAmount) Then
      Return
   Else
      LootTomes()
   EndIf
EndFunc

Func LootGems()
   $array = StringSplit($ImageFiles[4][1],"|")
   $file = $array[1]
   $accuracy = $array[2]

   $target = _ImageSearchArea($ImgDir & $file, 1, $LootingArea[0], $LootingArea[1], $LootingArea[2], $LootingArea[3], $ISx, $ISy, $accuracy)
   If $target = 1 Then
      If $Sounds = True Then
            SoundPlay($SoundsDir & $SoundFiles[5], 0)
         EndIf
      $Gems+=1
      MouseClick("LEFT", $ISx, $ISy, 1, 1)
      Sleep(750 + $LootDelay)
      MouseMove(120, 120, 2)
      Sleep(100)
      If $Sell = True Then
         CheckBagFull()
         If $FullBag = True Then
            $FullBag = False
            Sleep(300)
            LootGems()
         EndIf
      EndIf
   EndIf

   $GemLootAttempts+=1

   If($GemLootAttempts >= $GemLootAmount) Then
      Return
   Else
      LootGems()
   EndIf
EndFunc


;Sell, store and repair
Func CheckBagFull()
   $array = StringSplit($ImageFiles[5][0],"|")
   $file = $array[1]
   $accuracy = $array[2]

   $target = _ImageSearchArea($ImgDir & $file, 1, $FullBagSearchArea[0], $FullBagSearchArea[1], $FullBagSearchArea[2], $FullBagSearchArea[3], $ISx, $ISy, $accuracy)
   If $target = 1 Then
      $FullBag = True
      SellItems()
   EndIf
EndFunc

Func SellItems()
   Sleep(750)
   Send("{t}")
   Sleep(7000 + $Computerlag)
   Move($MoveToMerchant[0] , $MoveToMerchant[1])
   Sleep(2500 + $MoveDelay)
   MouseClick('LEFT', $MerchantLocation[0], $MerchantLocation[1], 1, 10)
   Sleep(2250 + $MoveDelay)

   For $gI = 1 to 2
      $array = StringSplit($ImageFiles[5][$gI],"|")
      $file = $array[1]
      $accuracy = $array[2]

      For $i = 40 To 0 step -1
         $target = _ImageSearchArea($ImgDir & $file, 1, $SellItemsArea[0], $SellItemsArea[1], $SellItemsArea[2], $SellItemsArea[3], $ISx, $ISy, $accuracy)
         If $target = 1 Then
            $Sold+=1
            MouseClick("RIGHT", $ISx, $ISy, 1, 0)
            Sleep(250)
         EndIf
      Next
   Next

   $RareLootAttempts    = 0
   $MagicLootAttempts   = 0
   $TomeLootAttempts    = 0
   $GemLootAttempts     = 0

   Move($MoveToStash1[0] , $MoveToStash1[1])
   Sleep(800 + $MoveDelay)
   Move($MoveToStash2[0] , $MoveToStash2[1])
   Sleep(1200 + $MoveDelay)
   If $UseStash = True Then
      ToStash()
      Sleep(200)
      Send("{ESC}")
   EndIf
   Sleep(700)
   MouseClick("LEFT", $PortalLocation[0], $PortalLocation[1], 1, 10)
   Sleep(3000 + $Computerlag)
EndFunc

Func ToStash()
   Sleep(300)
   MouseClick("LEFT", $StashLocation[0], $StashLocation[1], 1, 10)
   Sleep(500)

   For $x = 0 to 5 step + 1
      For $i = -1 To 8 step + 1
         If $x = 0 Then
            If $i = 8 Then
               Sleep(1)
            Else
               MouseClick("RIGHT", 1527 + ($i*47), 610 + ($x*50), 1, 0)
            EndIf
         Else
            MouseClick("RIGHT", 1480 + ($i*47), 610 + ($x*50), 1, 0)
         EndIf
         Sleep(25)
         CheckStashFull()
         If $UseStash = False Then
            ExitLoop (2)
         EndIf
      Next
   Next
EndFunc

Func CheckStashFull()
   $array = StringSplit($ImageFiles[5][3],"|")
   $file = $array[1]
   $accuracy = $array[2]

   $target = _ImageSearchArea($ImgDir & $file, 1, $FullStashSearchArea[0], $FullStashSearchArea[1], $FullStashSearchArea[2], $FullStashSearchArea[3], $ISx, $ISy, $accuracy)
   If $target = 1 Then
      Switch $StashBag
      Case 1
         Sleep(200)
         MouseClick("LEFT", $StashBag2[0], $StashBag2[1], 1, 5)
         $StashBag = 2
         Sleep(5000)
      Case 2
         Sleep(200)
         MouseClick("LEFT", $StashBag3[0], $StashBag3[1], 1, 5)
         $StashBag = 3
         Sleep(5000)
      Case 3
         $UseStash = False
      EndSwitch
   EndIf
EndFunc

Func RepairItems()
   If Not CheckForRepair() Then
      Return
   EndIf
   Move($MoveToMerchant[0] , $MoveToMerchant[1])
   Sleep(2500 + $MoveDelay)
   MouseClick('LEFT', $MerchantLocation[0], $MerchantLocation[1], 1, 10)
   Sleep(2500 + $MoveDelay)
   MouseClick('LEFT', $RepairButton[0], $RepairButton[1], 1, 5)
   Sleep(500)
   MouseClick('LEFT', $AllItemsButton[0], $AllItemsButton[1], 1, 5)
   Sleep(500)
   Call("Logs","repair")
   Sleep(200)
   Send("{ESC}")
EndFunc

Func CheckForRepair()
   $RepairNeeded = PixelSearch($RepairSearchArea[0], $RepairSearchArea[1], $RepairSearchArea[2], $RepairSearchArea[3], 0xFFE801,10)
   If Not @error Then
      Return True
   Else
      Return False
   EndIf
EndFunc


;Check gamestate, death and disconnect
Func InGameLobby()
    PixelSearch($GameLobbyCode[0], $GameLobbyCode[1], $GameLobbyCode[0]+10, $GameLobbyCode[1]+10, $GameLobbyCode[2], 10)
    If Not @error Then
       Return True
    Else
       Return False
   EndIf
EndFunc

Func InGameplayScreen()
    PixelSearch($GameScreenCode[0], $GameScreenCode[1], $GameScreenCode[0]+4, $GameScreenCode[1]+3, $GameScreenCode[2], 10)
    If Not @error Then
       Return True
    Else
       Return False
   EndIf
EndFunc

Func CheckForDeath()
   $Death = PixelSearch($DeathSearchArea[0], $DeathSearchArea[1], $DeathSearchArea[2], $DeathSearchArea[3], 0xFFFFFF)
   If Not @error Then
      Call("Logs","dead")
      LeaveGame()
      Sleep(12000 + $Computerlag)
      Return True
   Else
      Return False
   EndIf
EndFunc

Func CheckForDisconnectState()
   $target = _ImageSearchArea($ImgDir & "network.png", 1, $DisconnectSearchArea[0], $DisconnectSearchArea[1], $DisconnectSearchArea[2], $DisconnectSearchArea[3], $ISx, $ISy, 10)
   If $target = 1 Then
      $Disconnects+=1
      $DisconnectState = 1
      MouseClick("LEFT", $DisconnectButton[0], $DisconnectButton[1], 1, 5)
      Sleep(3000 + $Computerlag)
   EndIf

   $target = _ImageSearchArea($ImgDir & "lost.png", 1, $DisconnectSearchArea[0], $DisconnectSearchArea[1], $DisconnectSearchArea[2], $DisconnectSearchArea[3], $ISx, $ISy, 10)
   If $target = 1 Then
      If $DisconnectState = 0 Then
         $Disconnects+=1
      EndIf
      $DisconnectState = 2
      MouseClick("LEFT", $DisconnectButton[0], $DisconnectButton[1], 1, 5)
      Sleep(3000 + $Computerlag)
   EndIf
EndFunc

Func Relog()
   MouseClick("LEFT", $PasswordField[0], $PasswordField[1], 1, 5)
   Send($Password)
   Sleep(1000 + $Computerlag)
   Send("{ENTER}")
   Sleep(8000 + $Computerlag)
   $DisconnectState = 0
EndFunc


;Miscellaneous
Func Update_Time($time)
    _TicksToTime(Int(TimerDiff($time)), $runtimeHour, $runtimeMins, $runtimeSecs)
    $runtime = StringFormat("%02i:%02i:%02i", $runtimeHour, $runtimeMins, $runtimeSecs)
    Return $runtime
EndFunc

Func AttackNearbyMonsters()
   While 1
      $MonsterData =  PixelSearch($CharHitBox[0], $CharHitBox[1], $CharHitBox[2], $CharHitBox[3], 0xEE0000, 10)
      If @error Then
         ExitLoop
      EndIf
      Send("{4}")
      Sleep(300)
      For $i = 10 To 0 step -1
         Attack($MonsterData[0], $MonsterData[1])
         Sleep(150)
      Next
   WEnd
EndFunc

Func Attack($x, $y)
   Send("{SHIFTDOWN}")
   MouseClick('LEFT', Random($x - 3, $x + 3), Random($y - 3, $y + 3), 1, 0)
   Send("{SHIFTUP}")
EndFunc

Func Move($x, $y)
   MouseClick('MIDDLE', $x, $y, 1, 5)
   Sleep(1250)
EndFunc

Func DrawLootArea()
   $hFullScreen = WinGetHandle("Program Manager")
   $hGUI = GUICreate("", $LootingAreaWidth + 2, $LootingAreaHeight + 2, $LootingArea[0], $LootingArea[1], $WS_POPUP, BitOR($WS_EX_LAYERED,$WS_EX_TRANSPARENT))
   GuiSetBkColor(0xABCDEF)
   _WinAPI_SetLayeredWindowAttributes($hGUI, 0xABCDEF, 0xA0)
   WinSetOnTop($hGUI, "", 1)
   GuiSetState()
   $hDC = _WinAPI_GetWindowDC($hGUI)
   $hPen = _WinAPI_CreatePen($PS_SOLID, 2, 0x0000FF)
   $obj_orig = _WinAPI_SelectObject($hDC, $hPen)
   $user32_dll = DllOpen("user32.dll")
   _WinAPI_DrawLine($hDC, 0, 1, $LootingAreaWidth, 0)
   _WinAPI_DrawLine($hDC, 1, 0, 0, $LootingAreaHeight)
   _WinAPI_DrawLine($hDC, $LootingAreaWidth, $LootingAreaHeight, $LootingAreaWidth, 0)
   _WinAPI_DrawLine($hDC, $LootingAreaWidth, $LootingAreaHeight, 0, $LootingAreaHeight)
EndFunc

Func LeaveGame()
   $Runs+=1
;   $Sek    = Floor(TimerDIff($Timer) / 1000)
;   $Min    = Floor($Sek / 60)
;   $Hour   = Floor($Min / 60)
;   $Runtime = $Hour & "h " & ($Min-$Hour*60) & "m " & ($Sek-$Min*60) & "s"
;   If $ShowStatTooltip = True Then
;     ToolTip("Start: " & $StartTime & "  |  Runs: " & $Runs & "  |  Closed:  " & $Closed & "  |  Disconnects: " & $Disconnects & "  |  Runtime: " & $Runtime & "  |  Legendaries: " & $Legendaries & "  |  Sets: " & $Sets & "  |  Rares: " & $Rares & "  |  Magics: " & $Magics & "  |  Tomes: " & $Tomes & "  |  Gems: " & $Gems & "  |  Sold: " & $Sold, 530, 0)
;   EndIf
   Send("{ESC}")
   Sleep(200)
   MouseClick('LEFT', $LeaveButton[0], $LeaveButton[1], 1, 5)
   Sleep(1250 + $Computerlag)
EndFunc

Func Pause()
   $Paused = Not $Paused
   While $Paused
      Sleep(100)
      ToolTip('Paused... Press {PAUSE} to continue...', 850, 0)
   WEnd
   If $ShowStatTooltip = True Then
    ;  ToolTip("Start: " & $StartTime & "  |  Runs: " & $Runs & "  |  Closed:  " & $Closed & "  |  Disconnects: " & $Disconnects & "  |  Runtime: " & $Runtime & "  |  Legendaries: " & $Legendaries & "  |  Sets: " & $Sets & "  |  Rares: " & $Rares & "  |  Magics: " & $Magics & "  |  Tomes: " & $Tomes & "  |  Gems: " & $Gems & "  |  Sold: " & $Sold, 530, 0)
   Else
      ToolTip("")
   EndIf
EndFunc

Func Terminate()
   Call("Logs","stoped")
   Exit 0
EndFunc