Current wizard Run Crypts

HotKeySet("x", "Terminate")

Func Terminate()
    Exit 0
EndFunc

Opt('MouseCoordMode', 0)
Opt('PixelCoordMode', 0)
HotKeySet('{END}', 'Quit')
HotKeySet('{SPACE}', 'Pause')
Global $Paused

;bot starts paused. press space to start.
Pause()

WinActivate('Diablo III')
While 1
   If WinActive('Diablo III') Then
      Sleep(3500)
      CheckDead()
      MouseClick("left",232, 419) ;resume
      Sleep(5000) ;load
      $Pixel1 = PixelSearch(1482,20,1535,95,0xFFF000)
      If Not @error Then
         Send("t")
         Sleep(8000)
         MouseClick("left", 1480, 281)
         Sleep(1500)
         MouseClick("left", 1316, 206)
         Sleep(1500)
         MouseClick("left", 845, 225)
         Sleep(1500)
         MouseClick("left", 521, 506)
         Sleep(1500)
         MouseClick("left", 260, 595)
         Sleep(2500)
         Send("{ESCAPE}")
         Sleep(1000)
         MouseClick("left", 956, 579)
         Sleep(8000)
         MouseClick("left", 230, 416)
         Sleep(8000)
        Else
          Send("4")
          MouseClick("left",1919, 1060)
          Sleep(2500)
          Send("4")
          MouseClick("left",1880, 220)
          Sleep(2000)
          Send("4")
          sleep(2000)
          MouseClick( "right",1380, 135)
          Sleep(1000)
          Send("4")
          MouseClick("left",1835, 65)
          Sleep(2000)
          Send("4")
          MouseClick("left",1796,493)
          sleep(2500)
          send("4")
          MouseClick("left",1796,475)
          sleep(2500)
          ;send("4")
          ;MouseClick("left",1661,824)
          ;sleep(2500)4
          ;send("4")
          ;MouseClick("left",1555,909)
          ;sleep(3000)
          ;send("4")
          ;MouseClick("left",1319,730)
          ;sleep(1500)
          ;send("2")
          ;sleep(25)
          ;send("1")
          ;sleep(1000)
          send("2")
          MouseClick("left",1078,593)
        EndIf
      sleep(700)
      Send("t")
      Sleep(7500)
      LeaveGame()
    Endif
WEnd

Func Pause()
   $Paused = Not $Paused
   While $Paused
      Sleep(100)
      ToolTip('Paused...', 0, 0)
   WEnd
   ToolTip("")
EndFunc   ;==>Pause
Func LeaveGame()
      Send("{Escape}")
      sleep(25)
      MouseClick("left",970, 578)
EndFunc

Func CheckDead()
    $actPixel = PixelSearch(203,194,263,253,0x926C32)
    If @error Then
        ToolTip('Dead...waiting',0,0)
        sleep(18000)
        ToolTip("")
    EndIf
EndFunc