Code:
;-------------------------------------------- QuickLooks - Poe Pickit ------------------------------------------
#include <Misc.au3>
#include <MsgBoxConstants.au3>
#include <TrayConstants.au3>
#include <WinAPIFiles.au3>
#include <Timers.au3>
;----------------------------------------------------------------------------------------------------------
; Start Options Section
AutoItSetOption ("TrayMenuMode", 0); ; Show Checkmarks In Tray
AutoItSetOption ("TrayAutoPause", 0); ; Do Not Auto Pause When Tray Icon Is Clicked
AutoItSetOption ("TrayIconDebug", 1); ; Show Debug Info In Tray
AutoItSetOption ("WinTextMatchMode", 2); ; Quick Mode
AutoItSetOption ("WinTitleMatchMode", 3); ; Exact Title Match
AutoItSetOption ("MouseClickDelay", 50); ; Number of ms to pause between each mouse click - default 10ms
AutoItSetOption ("MouseClickDownDelay", 1); ; Number of ms to hold down mouse button after clicking - default 10ms
AutoItSetOption ("SendKeyDelay", 1); ; Number of ms to pause between each key press - default 5ms
AutoItSetOption ("SendKeyDownDelay", 1); ; Number of ms to hold down each key after pressing - default 5ms
AutoItSetOption ("PixelCoordMode", 0); ; Coordinates of a found pixel. [ 0 = window ] [ 1 = screen ] [ 2 = client ]
AutoItSetOption ("MouseCoordMode", 0); ; Coordinates used for mouse clicks. [ 0 = window ] [ 1 = screen ] [ 2 = client ]
AutoItSetOption("MustDeclareVars", 1); ;0=no, 1=require pre-declaration
TraySetIcon("Images\QuickLooksIcon.ico")
TraySetState($TRAY_ICONSTATE_SHOW)
TraySetToolTip("QuickLooks By Naut")
TrayTip("QuickLooks", "Written By Naut", 10)
; End Options Section
;----------------------------------------------------------------------------------------------------------
; Start Window Section
Local $handle = WinGetHandle ( "Path of Exile" )
Local $window = WinGetPos ( $handle )
Local $xresolution = ($window[2])
Local $yresolution = ($window[3])
; End Window Section
;----------------------------------------------------------------------------------------------------------
; Start Variables Section
Global $Pause
Global $Autoloot
Global $MouseLeftClickTimer
Local $MouseLeftClickCheck = 0
Global $MouseRightClickTimerA
Local $MouseRightClickCheckA = 0
Global $MouseRightClickTimerB
Local $MouseRightClickCheckB = 0
Global $MouseRightClickTimerC
Local $MouseRightClickCheckC = 0
Global $MouseRightClickTimerD
Local $MouseRightClickCheckD = 0
Global $QuickSilverFlask = IniRead ( "QuickLooks.ini", "Flasks", "QuickSilverFlask", 5 )
Global $QuickSilverDuration = IniRead ( "QuickLooks.ini", "Flasks", "QuickSilverDuration", 4800 )
Global $QuickSilverTimerA
Global $QuickSilverTimerB
Global $QuickSilverTimerDiffA
Global $QuickSilverTimerDiffB
Local $QuickSilverCheckA = 0
Local $QuickSilverCheckB = 0
Global $FlaskOne = IniRead ( "QuickLooks.ini", "Flasks", "FlaskOne", 1 )
Global $FlaskOneDuration = IniRead ( "QuickLooks.ini", "Flasks", "FlaskOneDuration", 4800 )
Global $FlaskOneTimerA
Global $FlaskOneTimerB
Global $FlaskOneTimerDiffA
Global $FlaskOneTimerDiffB
Local $FlaskOneCheckA = 0
Local $FlaskOneCheckB = 0
Global $FlaskTwo = IniRead ( "QuickLooks.ini", "Flasks", "FlaskTwo", 2 )
Global $FlaskTwoDuration = IniRead ( "QuickLooks.ini", "Flasks", "FlaskOneDuration", 4800 )
Global $FlaskTwoTimerA
Global $FlaskTwoTimerB
Global $FlaskTwoTimerDiffA
Global $FlaskTwoTimerDiffB
Local $FlaskTwoCheckA = 0
Local $FlaskTwoCheckB = 0
Global $FlaskThree = IniRead ( "QuickLooks.ini", "Flasks", "FlaskThree", 3 )
Global $FlaskThreeDuration = IniRead ( "QuickLooks.ini", "Flasks", "FlaskOneDuration", 4800 )
Global $FlaskThreeTimerA
Global $FlaskThreeTimerB
Global $FlaskThreeTimerDiffA
Global $FlaskThreeTimerDiffB
Local $FlaskThreeCheckA = 0
Local $FlaskThreeCheckB = 0
Global $FlaskFour = IniRead ( "QuickLooks.ini", "Flasks", "FlaskFour", 4 )
Global $FlaskFourDuration = IniRead ( "QuickLooks.ini", "Flasks", "FlaskOneDuration", 4800 )
Global $FlaskFourTimerA
Global $FlaskFourTimerB
Global $FlaskFourTimerDiffA
Global $FlaskFourTimerDiffB
Local $FlaskFourCheckA = 0
Local $FlaskFourCheckB = 0
Global $ColorPath = IniRead ( "QuickLooks.ini", "ColorPath", "HexColorCode", 0xABCDEF )
Global $Frequency = IniRead ( "QuickLooks.ini", "ClickSpeed", "Frequency", 50 )
;Global $ClickCounter
;$ClickCounter = 0
;$ClickCounter += 1
; End Variables Section
;----------------------------------------------------------------------------------------------------------
; Start Hotkeys Section
HotKeySet("+^{END}", "Terminate")
HotKeySet("+^{a}", "HotkeyList")
HotKeySet("+^{PAUSE}", "Pause")
HotKeySet("+^{ENTER}", "ChatPause")
HotKeySet("+^{SPACE}", "Autoloot")
HotKeySet("+^{F5}", "FindWisdomScroll")
HotKeySet("{F6}", "IdentifyItem")
HotKeySet("+^{F7}", "FindPortalScroll")
HotKeySet("+^{F8}", "FindPortalPosition")
HotKeySet("+^{F9}", "SetColor")
HotKeySet("+^{`}", "FlaskSetup")
HotKeySet("+^{1}", "FlaskOneKey")
HotKeySet("+!{1}", "FlaskOneDur")
HotKeySet("+^{2}", "FlaskTwoKey")
HotKeySet("+!{2}", "FlaskTwoDur")
HotKeySet("+^{3}", "FlaskThreeKey")
HotKeySet("+!{3}", "FlaskThreeDur")
HotKeySet("+^{4}", "FlaskFourKey")
HotKeySet("+^{4}", "QuickSilverKey")
HotKeySet("+!{5}", "FlaskFourDur")
HotKeySet("+!{5}", "QuickSilverDur")
; End Hotkeys Section
;----------------------------------------------------------------------------------------------------------
; Start Script Section
SendKeepActive ( $handle )
While WinExists ( $handle )
If WinActive ( $handle ) Then
;;;;;; Mouse Left Click Length Check-----------------------------------------------------------------
If _IsPressed ( "01" ) And $MouseLeftClickCheck = 0 Then
$MouseLeftClickTimer = TimerInit()
$MouseLeftClickCheck = 1
EndIf
If NOT _IsPressed ( "01" ) And TimerDiff($MouseLeftClickTimer) >= 1 And $MouseLeftClickCheck = 1 Then
$MouseLeftClickTimer = TimerInit()
$MouseLeftClickCheck = 0
EndIf
;;;;;; Quicksilver Flask Rotation--------------------------------------------------------------------
If _IsPressed ( "01" ) And $QuickSilverCheckA = 0 Then
$QuickSilverTimerA = TimerInit()
$QuickSilverCheckA = 1
EndIf
$QuickSilverTimerDiffA = TimerDiff($QuickSilverTimerA)
If _IsPressed ( "01" ) And $QuickSilverTimerDiffA > 500 Then
If $QuickSilverCheckB = 0 Then
If TimerDiff($MouseLeftClickTimer) >= 10 And $MouseLeftClickCheck = 1 Then
Send($QuickSilverFlask)
sleep($Frequency)
$QuickSilverTimerB = TimerInit()
sleep($Frequency)
$QuickSilverCheckB = 1
$MouseLeftClickCheck = 0
EndIf
EndIf
EndIf
$QuickSilverTimerDiffB = TimerDiff($QuickSilverTimerB)
If $QuickSilverCheckB = 1 And $QuickSilverTimerDiffB >= $QuickSilverDuration Then
$QuickSilverCheckB = 0
$QuickSilverCheckA = 0
EndIf
;;;;;; Mouse Right Click Length Check A-------------------------------------------------------------
If _IsPressed ( "02" ) And $MouseRightClickCheckA = 0 Then
$MouseRightClickTimerA = TimerInit()
$MouseRightClickCheckA = 1
EndIf
If NOT _IsPressed ( "02" ) And TimerDiff($MouseRightClickTimerA) >= 1 And $MouseRightClickCheckA = 1 Then
$MouseRightClickTimerA = TimerInit()
$MouseRightClickCheckA = 0
EndIf
;;;;;; Flask 1 Rotation--------------------------------------------------------------------------
If _IsPressed ( "02" ) And $FlaskOneCheckA = 0 Then
$FlaskOneTimerA = TimerInit()
$FlaskOneCheckA = 1
EndIf
$FlaskOneTimerDiffA = TimerDiff($FlaskOneTimerA)
If _IsPressed ( "02" ) And $FlaskOneTimerDiffA > 500 Then
If $FlaskOneCheckB = 0 Then
If TimerDiff($MouseRightClickTimerA) >= 10 And $MouseRightClickCheckA = 1 Then
Send($FlaskOne)
sleep($Frequency)
$FlaskOneTimerB = TimerInit()
sleep($Frequency)
$FlaskOneCheckB = 1
$MouseRightClickCheckA = 0
EndIf
EndIf
EndIf
$FlaskOneTimerDiffB = TimerDiff($FlaskOneTimerB)
If $FlaskOneCheckB = 1 And $FlaskOneTimerDiffB >= $FlaskOneDuration Then
$FlaskOneCheckB = 0
$FlaskOneCheckA = 0
EndIf
;;;;;; Mouse Right Click Length Check B-------------------------------------------------------------
If _IsPressed ( "02" ) And $MouseRightClickCheckB = 0 Then
$MouseRightClickTimerB = TimerInit()
$MouseRightClickCheckB = 1
EndIf
If NOT _IsPressed ( "02" ) And TimerDiff($MouseRightClickTimerB) >= 1 And $MouseRightClickCheckB = 1 Then
$MouseRightClickTimerB = TimerInit()
$MouseRightClickCheckB = 0
EndIf
;;;;;; Flask 2 Rotation----------------------------------------------------------------------------
If _IsPressed ( "02" ) And $FlaskTwoCheckA = 0 Then
$FlaskTwoTimerA = TimerInit()
$FlaskTwoCheckA = 1
EndIf
$FlaskTwoTimerDiffA = TimerDiff($FlaskTwoTimerA)
If _IsPressed ( "02" ) And $FlaskTwoTimerDiffA > 500 Then
If $FlaskTwoCheckB = 0 Then
If TimerDiff($MouseRightClickTimerB) >= 10 And $MouseRightClickCheckB = 1 Then
Send($FlaskTwo)
sleep($Frequency)
$FlaskTwoTimerB = TimerInit()
sleep($Frequency)
$FlaskTwoCheckB = 1
$MouseRightClickCheckB = 0
EndIf
EndIf
EndIf
$FlaskTwoTimerDiffB = TimerDiff($FlaskTwoTimerB)
If $FlaskTwoCheckB = 1 And $FlaskTwoTimerDiffB >= $FlaskTwoDuration Then
$FlaskTwoCheckB = 0
$FlaskTwoCheckA = 0
EndIf
;;;;;; Mouse Right Click Length Check C-------------------------------------------------------------
If _IsPressed ( "02" ) And $MouseRightClickCheckC = 0 Then
$MouseRightClickTimerC = TimerInit()
$MouseRightClickCheckC = 1
EndIf
If NOT _IsPressed ( "02" ) And TimerDiff($MouseRightClickTimerC) >= 1 And $MouseRightClickCheckC = 1 Then
$MouseRightClickTimerC = TimerInit()
$MouseRightClickCheckC = 0
EndIf
;;;;;; Flask 3 Rotation-----------------------------------------------------------------------------
If _IsPressed ( "02" ) And $FlaskThreeCheckA = 0 Then
$FlaskThreeTimerA = TimerInit()
$FlaskThreeCheckA = 1
EndIf
$FlaskThreeTimerDiffA = TimerDiff($FlaskThreeTimerA)
If _IsPressed ( "02" ) And $FlaskThreeTimerDiffA > 500 Then
If $FlaskThreeCheckB = 0 Then
If TimerDiff($MouseRightClickTimerC) >= 10 And $MouseRightClickCheckC = 1 Then
Send($FlaskThree)
sleep($Frequency)
$FlaskThreeTimerB = TimerInit()
sleep($Frequency)
$FlaskThreeCheckB = 1
$MouseRightClickCheckC = 0
EndIf
EndIf
EndIf
$FlaskThreeTimerDiffB = TimerDiff($FlaskThreeTimerB)
If $FlaskThreeCheckB = 1 And $FlaskThreeTimerDiffB >= $FlaskThreeDuration Then
$FlaskThreeCheckB = 0
$FlaskThreeCheckA = 0
EndIf
;;;;;; Mouse Right Click Length Check D-------------------------------------------------------------
If _IsPressed ( "02" ) And $MouseRightClickCheckD = 0 Then
$MouseRightClickTimerD = TimerInit()
$MouseRightClickCheckD = 1
EndIf
If NOT _IsPressed ( "02" ) And TimerDiff($MouseRightClickTimerD) >= 1 And $MouseRightClickCheckD = 1 Then
$MouseRightClickTimerD = TimerInit()
$MouseRightClickCheckD = 0
EndIf
;;;;;; Flask 4 Rotation----------------------------------------------------------------------------
If _IsPressed ( "02" ) And $FlaskFourCheckA = 0 Then
$FlaskFourTimerA = TimerInit()
$FlaskFourCheckA = 1
EndIf
$FlaskFourTimerDiffA = TimerDiff($FlaskFourTimerA)
If _IsPressed ( "02" ) And $FlaskFourTimerDiffA > 500 Then
If $FlaskFourCheckB = 0 Then
If TimerDiff($MouseRightClickTimerD) >= 10 And $MouseRightClickCheckD = 1 Then
Send($FlaskFour)
sleep($Frequency)
$FlaskFourTimerB = TimerInit()
sleep($Frequency)
$FlaskFourCheckB = 1
$MouseRightClickCheckD = 0
EndIf
EndIf
EndIf
$FlaskFourTimerDiffB = TimerDiff($FlaskFourTimerB)
If $FlaskFourCheckB = 1 And $FlaskFourTimerDiffB >= $FlaskFourDuration Then
$FlaskFourCheckB = 0
$FlaskFourCheckA = 0
EndIf
;;;;;; End Flask Rotation---------------------------------------------------------------------------
If _IsPressed ( "12" ) and _IsPressed ( "20" ) Then
Call("Loot")
EndIf
If _IsPressed ( "12" ) and _IsPressed ( "54" ) Then
Call("TownPortal")
EndIf
EndIf
WEnd
; End Script Section
;----------------------------------------------------------------------------------------------------------
; Start Core Functions Section
Func Terminate()
TrayTip("QuickLooks", "Terminating Script", 10)
Exit
EndFunc
Func HotkeyList()
MsgBox ( 0, "QuickLooks Hotkeys", "Shift+Ctrl+End - Terminate Script" & @LF & " " & @LF & "Shift+Ctrl+~ - Flask Setup" & @LF & " " & @LF & "Shift+Ctrl+Spacebar - Enable/Disable AutoLoot" & @LF & " " & @LF & "Alt+Spacebar - Loot Visible Items" & @LF & " " & @LF & "Shift+Ctrl+Enter - Enable/Disable Chat Pause" & @LF & " " & @LF & "Shift+Ctrl+Pause - Enable/Disable Pause Script " & @LF & " " & @LF & "Shift+Ctrl+F5 - Set Wisdom Scroll Location (In Inventory) " & @LF & " " & @LF & "F6 - Identify Item On Cursor " & @LF & " " & @LF & "Shift+Ctrl+F7 - Set Portal Scroll Location (In Inventory) " & @LF & " " & @LF & "Shift+Ctrl+F8 - Set Town Portal Location (Open Town Portal, Close Inventory, Hover Over Town Portal Then Use Hotkey) "& @LF & " " & @LF & "Alt+T - Create & Enter Town Portal " & @LF & " " & @LF & "Shift+Ctrl+F9 - Set Hex Color Of Items To Pick Up ( Drop Item On Ground, Cursor On Color You Want To Pick Up Then Use Hotkey) " )
EndFunc
Func Pause()
If NOT $Pause Then
TrayTip("QuickLooks", "Script Paused.", 10)
EndIf
$Pause = NOT $Pause
While $Pause
sleep(100)
WEnd
TrayTip("QuickLooks", "Script Unpaused.", 10)
EndFunc
Func ChatPause()
If NOT $Pause Then
TrayTip("QuickLooks", "Script Paused.", 10)
EndIf
WinActivate ( $handle )
Send("{ENTER}")
$Pause = NOT $Pause
While $Pause
sleep(100)
WEnd
TrayTip("QuickLooks", "Script Unpaused.", 10)
EndFunc
Func SetColor()
Local $xcolor = MouseGetPos ( 0 )
Local $ycolor = MouseGetPos ( 1 )
Local $mycolor = PixelGetColor ( $xcolor , $ycolor )
Local $myhex = Hex($mycolor, 6)
IniWrite ( "QuickLooks.ini", "ColorPath", "HexColorCode", "0x" & $myhex & "")
TrayTip("QuickLooks", "Hex Color Code: 0x" & $myhex & ". Value changed in QuickLooks.ini. ", 10)
EndFunc
; End Core Functions Section
;----------------------------------------------------------------------------------------------------------
; Start Loot Functions Section
Func Loot()
If WinActive ( $handle ) Then
Local $bCoord = PixelSearch(0, 0, $xresolution, $yresolution, $ColorPath, 1, 1, $handle)
If not @Error Then
If _IsPressed ( "02" ) Then
Else
If _IsPressed ( "01" ) Then
Else
MouseClick($MOUSE_CLICK_LEFT, ($bCoord[0] + 50), ($bCoord[1] + 10), 1, 0 )
sleep($Frequency*4)
EndIf
EndIf
EndIf
EndIf
EndFunc
Func Autoloot()
If NOT $Autoloot Then
TrayTip("QuickLooks", "Autoloot Enabled", 10)
EndIf
$Autoloot = NOT $Autoloot
While $Autoloot
If WinActive ( $handle ) Then
Call("Loot")
;;;;;; Mouse Left Click Length Check-----------------------------------------------------------------
If _IsPressed ( "01" ) And $MouseLeftClickCheck = 0 Then
$MouseLeftClickTimer = TimerInit()
$MouseLeftClickCheck = 1
EndIf
If NOT _IsPressed ( "01" ) And TimerDiff($MouseLeftClickTimer) >= 1 And $MouseLeftClickCheck = 1 Then
$MouseLeftClickTimer = TimerInit()
$MouseLeftClickCheck = 0
EndIf
;;;;;; Quicksilver Flask Rotation--------------------------------------------------------------------
If _IsPressed ( "01" ) And $QuickSilverCheckA = 0 Then
$QuickSilverTimerA = TimerInit()
$QuickSilverCheckA = 1
EndIf
$QuickSilverTimerDiffA = TimerDiff($QuickSilverTimerA)
If _IsPressed ( "01" ) And $QuickSilverTimerDiffA > 500 Then
If $QuickSilverCheckB = 0 Then
If TimerDiff($MouseLeftClickTimer) >= 10 And $MouseLeftClickCheck = 1 Then
Send($QuickSilverFlask)
sleep($Frequency)
$QuickSilverTimerB = TimerInit()
sleep($Frequency)
$QuickSilverCheckB = 1
$MouseLeftClickCheck = 0
EndIf
EndIf
EndIf
$QuickSilverTimerDiffB = TimerDiff($QuickSilverTimerB)
If $QuickSilverCheckB = 1 And $QuickSilverTimerDiffB >= $QuickSilverDuration Then
$QuickSilverCheckB = 0
$QuickSilverCheckA = 0
EndIf
;;;;;; Mouse Right Click Length Check A-------------------------------------------------------------
If _IsPressed ( "02" ) And $MouseRightClickCheckA = 0 Then
$MouseRightClickTimerA = TimerInit()
$MouseRightClickCheckA = 1
EndIf
If NOT _IsPressed ( "02" ) And TimerDiff($MouseRightClickTimerA) >= 1 And $MouseRightClickCheckA = 1 Then
$MouseRightClickTimerA = TimerInit()
$MouseRightClickCheckA = 0
EndIf
;;;;;; Flask 1 Rotation--------------------------------------------------------------------------
If _IsPressed ( "02" ) And $FlaskOneCheckA = 0 Then
$FlaskOneTimerA = TimerInit()
$FlaskOneCheckA = 1
EndIf
$FlaskOneTimerDiffA = TimerDiff($FlaskOneTimerA)
If _IsPressed ( "02" ) And $FlaskOneTimerDiffA > 500 Then
If $FlaskOneCheckB = 0 Then
If TimerDiff($MouseRightClickTimerA) >= 10 And $MouseRightClickCheckA = 1 Then
Send($FlaskOne)
sleep($Frequency)
$FlaskOneTimerB = TimerInit()
sleep($Frequency)
$FlaskOneCheckB = 1
$MouseRightClickCheckA = 0
EndIf
EndIf
EndIf
$FlaskOneTimerDiffB = TimerDiff($FlaskOneTimerB)
If $FlaskOneCheckB = 1 And $FlaskOneTimerDiffB >= $FlaskOneDuration Then
$FlaskOneCheckB = 0
$FlaskOneCheckA = 0
EndIf
;;;;;; Mouse Right Click Length Check B-------------------------------------------------------------
If _IsPressed ( "02" ) And $MouseRightClickCheckB = 0 Then
$MouseRightClickTimerB = TimerInit()
$MouseRightClickCheckB = 1
EndIf
If NOT _IsPressed ( "02" ) And TimerDiff($MouseRightClickTimerB) >= 1 And $MouseRightClickCheckB = 1 Then
$MouseRightClickTimerB = TimerInit()
$MouseRightClickCheckB = 0
EndIf
;;;;;; Flask 2 Rotation----------------------------------------------------------------------------
If _IsPressed ( "02" ) And $FlaskTwoCheckA = 0 Then
$FlaskTwoTimerA = TimerInit()
$FlaskTwoCheckA = 1
EndIf
$FlaskTwoTimerDiffA = TimerDiff($FlaskTwoTimerA)
If _IsPressed ( "02" ) And $FlaskTwoTimerDiffA > 500 Then
If $FlaskTwoCheckB = 0 Then
If TimerDiff($MouseRightClickTimerB) >= 10 And $MouseRightClickCheckB = 1 Then
Send($FlaskTwo)
sleep($Frequency)
$FlaskTwoTimerB = TimerInit()
sleep($Frequency)
$FlaskTwoCheckB = 1
$MouseRightClickCheckB = 0
EndIf
EndIf
EndIf
$FlaskTwoTimerDiffB = TimerDiff($FlaskTwoTimerB)
If $FlaskTwoCheckB = 1 And $FlaskTwoTimerDiffB >= $FlaskTwoDuration Then
$FlaskTwoCheckB = 0
$FlaskTwoCheckA = 0
EndIf
;;;;;; Mouse Right Click Length Check C-------------------------------------------------------------
If _IsPressed ( "02" ) And $MouseRightClickCheckC = 0 Then
$MouseRightClickTimerC = TimerInit()
$MouseRightClickCheckC = 1
EndIf
If NOT _IsPressed ( "02" ) And TimerDiff($MouseRightClickTimerC) >= 1 And $MouseRightClickCheckC = 1 Then
$MouseRightClickTimerC = TimerInit()
$MouseRightClickCheckC = 0
EndIf
;;;;;; Flask 3 Rotation-----------------------------------------------------------------------------
If _IsPressed ( "02" ) And $FlaskThreeCheckA = 0 Then
$FlaskThreeTimerA = TimerInit()
$FlaskThreeCheckA = 1
EndIf
$FlaskThreeTimerDiffA = TimerDiff($FlaskThreeTimerA)
If _IsPressed ( "02" ) And $FlaskThreeTimerDiffA > 500 Then
If $FlaskThreeCheckB = 0 Then
If TimerDiff($MouseRightClickTimerC) >= 10 And $MouseRightClickCheckC = 1 Then
Send($FlaskThree)
sleep($Frequency)
$FlaskThreeTimerB = TimerInit()
sleep($Frequency)
$FlaskThreeCheckB = 1
$MouseRightClickCheckC = 0
EndIf
EndIf
EndIf
$FlaskThreeTimerDiffB = TimerDiff($FlaskThreeTimerB)
If $FlaskThreeCheckB = 1 And $FlaskThreeTimerDiffB >= $FlaskThreeDuration Then
$FlaskThreeCheckB = 0
$FlaskThreeCheckA = 0
EndIf
;;;;;; Mouse Right Click Length Check D-------------------------------------------------------------
If _IsPressed ( "02" ) And $MouseRightClickCheckD = 0 Then
$MouseRightClickTimerD = TimerInit()
$MouseRightClickCheckD = 1
EndIf
If NOT _IsPressed ( "02" ) And TimerDiff($MouseRightClickTimerD) >= 1 And $MouseRightClickCheckD = 1 Then
$MouseRightClickTimerD = TimerInit()
$MouseRightClickCheckD = 0
EndIf
;;;;;; Flask 4 Rotation----------------------------------------------------------------------------
If _IsPressed ( "02" ) And $FlaskFourCheckA = 0 Then
$FlaskFourTimerA = TimerInit()
$FlaskFourCheckA = 1
EndIf
$FlaskFourTimerDiffA = TimerDiff($FlaskFourTimerA)
If _IsPressed ( "02" ) And $FlaskFourTimerDiffA > 500 Then
If $FlaskFourCheckB = 0 Then
If TimerDiff($MouseRightClickTimerD) >= 10 And $MouseRightClickCheckD = 1 Then
Send($FlaskFour)
sleep($Frequency)
$FlaskFourTimerB = TimerInit()
sleep($Frequency)
$FlaskFourCheckB = 1
$MouseRightClickCheckD = 0
EndIf
EndIf
EndIf
$FlaskFourTimerDiffB = TimerDiff($FlaskFourTimerB)
If $FlaskFourCheckB = 1 And $FlaskFourTimerDiffB >= $FlaskFourDuration Then
$FlaskFourCheckB = 0
$FlaskFourCheckA = 0
EndIf
;;;;;; End Flask Rotation---------------------------------------------------------------------------
If _IsPressed ( "12" ) and _IsPressed ( "54" ) Then
Call("TownPortal")
EndIf
EndIf
WEnd
TrayTip("QuickLooks", "Autoloot Disabled", 10)
EndFunc
; End Loot Functions Section
;----------------------------------------------------------------------------------------------------------
; Scrolls Functions Section
Func FindPortalScroll()
Local $xPortalScroll = MouseGetPos ( 0 )
Local $yPortalScroll = MouseGetPos ( 1 )
IniWrite ( "QuickLooks.ini", "ClickCoords", "PortalScrollX", $xPortalScroll )
IniWrite ( "QuickLooks.ini", "ClickCoords", "PortalScrollY", $yPortalScroll )
TrayTip("QuickLooks", "Portal Scroll Position Changed In QuickLooks.ini", 10)
EndFunc
Func FindPortalPosition()
Local $xPortalPosition = MouseGetPos ( 0 )
Local $yPortalPosition = MouseGetPos ( 1 )
IniWrite ( "QuickLooks.ini", "ClickCoords", "PortalPositionX", $xPortalPosition )
IniWrite ( "QuickLooks.ini", "ClickCoords", "PortalPositionY", $yPortalPosition )
TrayTip("QuickLooks", "Portal Position Changed In QuickLooks.ini", 10)
EndFunc
Func TownPortal()
Local $PortalScrollX = IniRead ( "QuickLooks.ini", "ClickCoords", "PortalScrollX", 0 )
Local $PortalScrollY = IniRead ( "QuickLooks.ini", "ClickCoords", "PortalScrollY", 0 )
Local $PortalPositionX = IniRead ( "QuickLooks.ini", "ClickCoords", "PortalPositionX", 0 )
Local $PortalPositionY = IniRead ( "QuickLooks.ini", "ClickCoords", "PortalPositionY", 0 )
If WinActive ( $handle ) Then
TrayTip("QuickLooks", "Creating Town Portal.", 10)
Send ("i")
sleep($Frequency)
MouseClick($MOUSE_CLICK_RIGHT, ($PortalScrollX), ($PortalScrollY), 1, 0 )
sleep($Frequency)
Send ("i")
sleep($Frequency)
sleep($Frequency*3)
MouseClick($MOUSE_CLICK_LEFT, ($PortalPositionX), ($PortalPositionY), 1, 0 )
sleep($Frequency*4)
EndIf
EndFunc
Func FindWisdomScroll()
Local $xWisdomScroll = MouseGetPos ( 0 )
Local $yWisdomScroll = MouseGetPos ( 1 )
IniWrite ( "QuickLooks.ini", "ClickCoords", "WisdomScrollX", $xWisdomScroll )
IniWrite ( "QuickLooks.ini", "ClickCoords", "WisdomScrollY", $yWisdomScroll )
TrayTip("QuickLooks", "Wisdom Scroll Position Changed In QuickLooks.ini", 10)
EndFunc
Func IdentifyItem()
Local $ItemPositionX = MouseGetPos ( 0 )
Local $ItemPositionY = MouseGetPos ( 1 )
Local $WisdomPositionX = IniRead ( "QuickLooks.ini", "ClickCoords", "WisdomScrollX", 0 )
Local $WisdomPositionY = IniRead ( "QuickLooks.ini", "ClickCoords", "WisdomScrollY", 0 )
If WinActive ( $handle ) Then
MouseClick($MOUSE_CLICK_RIGHT, ($WisdomPositionX), ($WisdomPositionY), 1, 0 )
sleep($Frequency*2)
MouseClick($MOUSE_CLICK_LEFT, ($ItemPositionX), ($ItemPositionY), 1, 0 )
EndIf
EndFunc
Func FlaskOneKey()
Local $FOneKey = InputBox("Flask One Hotkey", "Enter the hotkey of flask one.", "", " M1")
IniWrite ( "QuickLooks.ini", "Flasks", "FlaskOne", $FOneKey )
EndFunc
Func FlaskOneDur()
Local $FOneDur = InputBox("Flask One Duration", "Enter the duration of flask one.", "", " M4")
IniWrite ( "QuickLooks.ini", "Flasks", "FlaskOneDuration", $FOneDur )
EndFunc
Func FlaskTwoKey()
Local $FTwoKey = InputBox("Flask Two Hotkey", "Enter the hotkey of flask two.", "", " M1")
IniWrite ( "QuickLooks.ini", "Flasks", "FlaskTwo", $FTwoKey )
EndFunc
Func FlaskTwoDur()
Local $FTwoDur = InputBox("Flask Two Duration", "Enter the duration of flask two.", "", " M4")
IniWrite ( "QuickLooks.ini", "Flasks", "FlaskTwoDuration", $FTwoDur )
EndFunc
Func FlaskThreeKey()
Local $FThreeKey = InputBox("Flask Three Hotkey", "Enter the hotkey of flask three.", "", " M1")
IniWrite ( "QuickLooks.ini", "Flasks", "FlaskThree", $FThreeKey )
EndFunc
Func FlaskThreeDur()
Local $FThreeDur = InputBox("Flask Three Duration", "Enter the duration of flask three.", "", " M4")
IniWrite ( "QuickLooks.ini", "Flasks", "FlaskThreeDuration", $FThreeDur )
EndFunc
Func FlaskFourKey()
Local $FFourKey = InputBox("Flask Four Hotkey", "Enter the hotkey of flask four.", "", " M1")
IniWrite ( "QuickLooks.ini", "Flasks", "FlaskFour", $FFourKey )
EndFunc
Func FlaskFourDur()
Local $FFourDur = InputBox("Flask Four Duration", "Enter the duration of flask four.", "", " M4")
IniWrite ( "QuickLooks.ini", "Flasks", "FlaskFourDuration", $FFourDur )
EndFunc
Func QuickSilverKey()
Local $QuickSilverKey = InputBox("QuickSilver Hotkey", "Enter the hotkey of quicksilver flask.", "", " M1")
IniWrite ( "QuickLooks.ini", "Flasks", "QuickSilverFlask", $QuickSilverKey )
EndFunc
Func QuickSilverDur()
Local $QuickSilverDur = InputBox("QuickSilver Duration", "Enter the duration of quicksilver flask.", "", " M4")
IniWrite ( "QuickLooks.ini", "Flasks", "QuickSilverDuration", $QuickSilverDur )
EndFunc
Func FlaskSetup()
Call("FlaskOneKey")
Call("FlaskOneDur")
Call("FlaskTwoKey")
Call("FlaskTwoDur")
Call("FlaskThreeKey")
Call("FlaskThreeDur")
Call("FlaskFourKey")
Call("FlaskFourDur")
Call("QuickSilverKey")
Call("QuickSilverDur")
EndFunc