HotKeySet('{END}', 'Quit')
HotKeySet('{HOME}', 'Pause')

SARKOTH()
Func SARKOTH()
   Sleep(10000)
   WinActivate("Diablo III")
   Sleep(800)
   WinMove("Diablo III", "", 0, 0, 800, 600)
   Sleep(800)
   Sleep(800)
   MouseClick("left", 140, 260)
   Sleep(6000)
   $PIXELBROKEN = PixelSearch(0, 0, 800, 600, 14745600, 3, 0, 0)
   If Not @error Then
      Send("t")
      Sleep(7000)
      MouseClick("left", 762, 64)
      Sleep(5000)
      MouseClick("left", 427, 129)
      Sleep(2000)
      MouseClick("left", 291, 294)
      MouseClick("left", 153, 358)
      Send("{ESC}")
      Sleep(800)
      Send("{ESC}")
      MouseClick("left", 405, 350)
      SARKOTH()
   EndIf
   Sleep(500)
   MouseMove(47, 254)
   Send(1)
   Sleep(650)
   Send(1)
   Sleep(650)
   Send(1)
   Sleep(650)
   Send(1)
   Sleep(650)
   Send(1)
   Sleep(750)
$PIXEL_MAGICITEM = PixelSearch(0, 0, 800, 600, 8121593, 3, 0, 0)
   If Not @error Then
      Sleep(800)
      Send("{ESC}")
      MouseClick("left", 405, 350)
      Sleep(15000)
      SARKOTH()
   EndIf
   Sleep(1000)
   $PIXEL_CELLAR = PixelSearch(0, 0, 800, 600, 6523365, 3, 0, 0)
   If Not @error Then
      MouseClick("left", $PIXEL_CELLAR[0], $PIXEL_CELLAR[1])
      Sleep(2500)
       MouseClick("left", 22, 573)
      Sleep(1200)
      MouseClick("right", 98, 73)
      Sleep(800)
      MouseClick("right", 105, 73)
      Send(2)
      Sleep(800)
      MouseClick("right", 93, 73)
      Sleep(800)
      Send(2)
      MouseClick("right", 105, 73)
      Sleep(800)
      Send("{SHIFTUP}")
      Sleep(800)
      Send(2)
      MouseClick("right", 21, 109)
      Sleep(800)
      MouseClick("right", 134, 59)
      Sleep(800)
      Send(2)
      MouseClick("right", 134, 59)
      Sleep(800)
      Send(2)
      MouseClick("right", 134, 59)
      Sleep(800)
      Send(2)
      MouseClick("left", 34, 81)
      Sleep(4000)
      Send("{ALTDOWN}")
      $PIXEL_MAGICITEM = PixelSearch(0, 0, 800, 600, 4868516, 3, 0, 0)
      If Not @error Then
         MouseClick("left", $PIXEL_MAGICITEM[0], $PIXEL_MAGICITEM[1])
      EndIf
      Send("{ALTUP}")
      Sleep(1000)
      Send("{ALTDOWN}")
      $PIXEL_MAGICITEM = PixelSearch(0, 0, 800, 600, 6908415, 3, 0, 0)
      If Not @error Then
         MouseClick("left", $PIXEL_MAGICITEM[0], $PIXEL_MAGICITEM[1])
      EndIf
      Send("{ALTUP}")
      Sleep(1000)
      Send("{ALTDOWN}")
      $PIXEL_LEGEND = PixelSearch(0, 0, 800, 600, 8932652, 3, 0, 0)
      If Not @error Then
         MouseClick("left", $PIXEL_LEGEND[0], $PIXEL_LEGEND[1])
      EndIf
      Send("{ALTUP}")
      Sleep(1000)
      Send("{ALTDOWN}")
      $PIXEL_LEGEND = PixelSearch(0, 0, 800, 600, 10376748, 3, 0, 0)
      If Not @error Then
         MouseClick("left", $PIXEL_LEGEND[0], $PIXEL_LEGEND[1])
      EndIf
      Send("{ALTUP}")
      Sleep(1000)
      Send("{ALTDOWN}")
      $PIXEL_LEGEND = PixelSearch(0, 0, 800, 600, 14737669, 3, 0, 0)
      If Not @error Then
         MouseClick("left", $PIXEL_LEGEND[0], $PIXEL_LEGEND[1])
      EndIf
      Send("{ALTUP}")
      Sleep(1000)
      Send("{ALTDOWN}")
      $PIXEL_MAGICITEM = PixelSearch(0, 0, 800, 600, 14540289, 3, 0, 0)
      If Not @error Then
         MouseClick("left", $PIXEL_LEGEND[0], $PIXEL_LEGEND[1])
      EndIf
      Send("{ALTUP}")
      Send("{ALTUP}")
      Sleep(1000)
      Send("T")
      Sleep(7000)
      Send("{ESC}")
      Sleep(800)
      MouseClick("left", 405, 350)
      Sleep(12000)
      SARKOTH()
   Else
      Send("T")
      Sleep(7000)
      Send("{ESC}")
      Sleep(800)
      MouseClick("left", 405, 350)
      Sleep(5000)
      SARKOTH()
   EndIf
EndFunc