DH royals!

;Skill order needed
;Slot 1 companion ferret
;Slot 2 Traps
;Slot 3 rain of vengeance dark cloud
;Right click grenades extra aoe


Global $Paused
HotKeySet("9", "TogglePause")
HotKeySet("0", "Terminate")

Dim $Color, $Left, $Top, $Right, $Bottom
$Color = 0xFFFF00   ;rare color code
$Color2 = 0xBF642F  ;blue color code     I have the ; in the 6969ff so it doesent pickup remove if you want it too!
$Color3 = 0xBF642F  ;legendary color code
$Color4 = 0x00FF00 ;SET color
$Left = 0
$Top = 0
$Right = 1280
$Bottom = 1024
$RunsAmount = 0
$Repairs = 0

While 1
    Sleep(500)
   ToolTip("Not Running Hit '9' to start/pause '0' to end!", 0, 0)
WEnd


Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
      ToolTip("Runs: " & $RunsAmount & @CRLF & "Repairs:" & $Repairs, 0, 0)
       MouseClick("left",228,398) ;clicks resume game random spot
      Sleep(4000)






Sleep(1000)
Send(1)
Sleep(100)
Send(3)
Sleep(2000)
Call("Checkarmor")
MouseClick("right",584,554)
Sleep(200)
MouseMove(584,554,1) ;Moving command
Sleep(200)
Send("m")
Sleep(1000)

MouseClick("right",761,343)
Sleep(200)
MouseMove(761,343,1) ;Moving command
Sleep(200)
Send("m")
Sleep(1000)

MouseClick("right",991,858)
Sleep(200)
MouseMove(991,858,1) ;Moving command
Sleep(200)
Send("m")
sleep(1600)

MouseClick("right",1158,801)
Sleep(200)
MouseMove(1158,801,1) ;Moving command
Sleep(200)
Send("m")
sleep(1600)
Send(2)

MouseClick("right",971,425)
Sleep(200)
MouseMove(971,425,1) ;Moving command-5
Sleep(200)
Send("m")
sleep(1600)

MouseClick("right",975,274)
Sleep(200)
MouseMove(975,274,1) ;Moving command
Sleep(200)
Send("m")
sleep(1600)

MouseClick("right",975,274)
Sleep(200)
MouseMove(975,274,1) ;Moving command
Sleep(200)
Send("m")
sleep(1600)
send(2)

MouseClick("right",667,407)
Sleep(200)
MouseMove(667,407,1) ;Moving command
Sleep(200)
Send("m")
sleep(1600)
Send(4)

MouseMove(729,351,5) ;moves cursor over to the cellar door so the proper blue pixel becomes highlighted
        Sleep(200)
         $Pixel2 = PixelSearch(0,0,($right),($bottom),0x37516C,3) ;searches for the specific blue pixel that only occurs when mouse hovers over cellar door
            If Not @error Then
              MouseClick("left", 729,351, 1, 10) ; clicks the door
     EndIf

MouseClick("right",992,202)
Sleep(200)
MouseMove(992,202,1) ;Moving command
Sleep(200)
Send("m")
sleep(1600)

MouseClick("right",1073,454)
Sleep(200)
MouseMove(1073,454,1) ;Moving command-10
Sleep(200)
Send("m")
sleep(1600)

MouseClick("right",916,201)
Sleep(200)
MouseMove(916,201,1) ;Moving command
Sleep(200)
Send("m")
sleep(1600)


MouseClick("right",1183,726)
Sleep(200)
MouseMove(1183,726,1) ;Moving command
Sleep(200)
Send("m")
sleep(1600)
send(3)

MouseClick("right",1128,333)
Sleep(200)
MouseMove(1128,333,1) ;Moving command
Sleep(200)
Send("m")
sleep(1600)

MouseClick("right",1215,706)
Sleep(200)
MouseMove(1215,706,1) ;Moving command
Sleep(200)
Send("m")
sleep(1600)
Send(2)

MouseClick("right",1201,769)
Sleep(200)
MouseMove(1201,769,1) ;Moving command-15
Sleep(200)
Send("m")
sleep(1600)

MouseClick("right",1180,838)
Sleep(200)
MouseMove(1180,838,1) ;Moving command
Sleep(200)
Send("m")
sleep(1600)
send(2)

MouseClick("right",1002,514)
Sleep(200)
MouseMove(1002,514,1) ;Moving command
Sleep(200)
Send("m")
sleep(1600)

MouseClick("right",129,289)
Sleep(200)
MouseMove(129,289,1) ;Moving command
Sleep(200)
Send("m")
sleep(1600)
send(2)
MouseClick("right",158,108)
Sleep(200)
MouseMove(158,108,1) ;Moving command
Sleep(200)
Send("m")
sleep(1600)

MouseClick("right",428,205)
Sleep(200)
MouseMove(428,205,1) ;Moving command-20
Sleep(200)
Send("m")
sleep(1600)
Send(2)

MouseClick("right",1062,124)
Sleep(200)
MouseMove(1062,124,1) ;Moving command
Sleep(200)
Send("m")
Sleep(2200)

MouseClick("right",31,249)
Sleep(200)
MouseMove(31,249,1) ;Moving command-22
Sleep(200)
Send("m")
sleep(1600)
send(2)
MouseClick("right",85,284)
Sleep(200)
MouseMove(85,284,1) ;Moving command
Sleep(200)
Send("m")
sleep(1600)

MouseClick("right",157,801)
Sleep(200)
MouseMove(157,801,1) ;Moving command
Sleep(200)
Send("m")
Sleep(2200)

MouseClick("right",95,116)
Sleep(200)
MouseMove(95,116,1) ;Moving command-25
Sleep(200)
Send("m")
sleep(1600)
Send(2)

MouseClick("right",457,282)
Sleep(200)
MouseMove(457,282,1) ;Moving command
Sleep(200)
Send("m")
sleep(1600)

MouseClick("right",438,829)
Sleep(200)
MouseMove(438,829,1) ;Moving command
Sleep(200)
Send("m")
sleep(1600)
send(3)

MouseClick("right",1235,790)
Sleep(200)
MouseMove(1235,790,1) ;Moving command
Sleep(200)
Send("m")
sleep(1600)
Send(2)

MouseClick("right",1191,815)
Sleep(200)
MouseMove(1191,815,1) ;Moving command
Sleep(200)
Send("m")
sleep(1600)

MouseClick("right",68,865)
Sleep(200)
MouseMove(68,865,1) ;Moving command-30
Sleep(200)
Send("m")
sleep(1600)

MouseClick("right",1188,835)
Sleep(200)
MouseMove(1188,835,1) ;Moving command
Sleep(200)
Send("m")
sleep(1600)
send(2)

    Sleep(600)
    Send("t")
   Sleep(8200)
   Send("{Escape}") ;menu
   MouseClick("left",650,549)   ;button to leave game
    Sleep(13000)
    $RunsAmount += 1

WEnd
EndFunc

  Func Checkarmor()
   $Pixel1 = PixelSearch(879,20,911,88,0xFFF000) ;searches top right screen for yellow of broken armor
      If Not @error Then
         Send("t")
         Sleep(8000)
         MouseClick("left", 19,616);begin movement towards merchant
         Sleep(1500)
         MouseClick("left", 131,138) ;moves to get merchant in screen
         Sleep(2300)
         MouseClick("left", 478,496) ;NPC Merchant to the right of cain's home
         Sleep(1500)
         MouseClick("left", 484,580) ;button to open up repair menu
         Sleep(1500)
         MouseClick("left", 261,506) ;button to pay for repairs
         $Repairs += 1
         Sleep(2500)
         Send("{ESCAPE}") ;exits store menu
         Sleep(250)
         Send("{ESCAPE}") ;opens menu
         Sleep(1000)
         MouseClick("left",650,549) ;button to leave game
         Sleep(8000)
         MouseClick("left",228,398) ;clicks resume game random spot
         Sleep(4000)

         EndIf
      EndFunc

Func Terminate()
    Exit 0
EndFunc