QuickLooks - Path Of Exile Companion

[Genocyber]

Hm, I am not exactly sure. Just for peace of mind, run the game on 800x600 with the ini settings as they come by default and make sure that it works as it should.

That would be the best place to start trouble shooting I would think.

If that works as it should then the issue is something to do with your coords/colors.. which may take me a bit to narrow down the problem.

Nothing.
I'm thinking that it's something wrong with my windows or with the video drivers...
Is there any way i can see the color code true color? tried just google for it but don't work.

[xCROv]

I would create a custom function rather than using MouseClick() to be honest. Making repetitive and exact clicks is very easy to detect and probably one of the main things they detect for on the server side. Especially repetitive and fast actions. Would just throw Random() in a custom function using MouseClickDelay() or something to also add a random delay to the up and down actions. The end user will probably never notice but it wouldn't trip detection so easily.

[naut333]

I would create a custom function rather than using MouseClick() to be honest. Making repetitive and exact clicks is very easy to detect and probably one of the main things they detect for on the server side. Especially repetitive and fast actions. Would just throw Random() in a custom function using MouseClickDelay() or something to also add a random delay to the up and down actions. The end user will probably never notice but it wouldn't trip detection so easily.

Good suggestion, I will add this in the near future!

[darkfear41]

first off, thanks for making this script!

secondly, i have no idea how to work it haha.. just got the TP to work.. but how do i set which pot is the health pot ?

thanks!

[naut333]

first off, thanks for making this script!

secondly, i have no idea how to work it haha.. just got the TP to work.. but how do i set which pot is the health pot ?

thanks!

No problem

Potion hotkeys can be set in the ini file.

[Bashor7030]

Thanks for doing this but i cant get it to work :/ It only uses the Quicksilver Flask but it doesnt react if i lose HP my Health Flask is at 1 but its not working
Do i have to rename them? So it doesnt say FlaskOne anymore? pls help
Id also like to know if there is a way to activate a flask on skill use like it worked in poe hud?

[marvix]

i am just interested in the loot as an auto or with space bar loot.. but this didn't work.. i changed the items filter to one color.. but each time i hit Ctrl 12 it gives me another color.. and he some times move randomly but never close to the item i drop to test.. so any hit to help me plz ?

[naut333]

i am just interested in the loot as an auto or with space bar loot.. but this didn't work.. i changed the items filter to one color.. but each time i hit Ctrl 12 it gives me another color.. and he some times move randomly but never close to the item i drop to test.. so any hit to help me plz ?

It states in the readme, however most likely your issue is that you are setting your colors when the window is active.
Truthfully I am not sure what causes this issue, as when setting colors for health etc it does not matter either way.
However for some reason the hex code for colors will show up differently for items on the ground with the window active or not active.
Perhaps this was something added by GGG to prevent exactly what we are doing here

[naut333]

Thanks for doing this but i cant get it to work :/ It only uses the Quicksilver Flask but it doesnt react if i lose HP my Health Flask is at 1 but its not working
Do i have to rename them? So it doesnt say FlaskOne anymore? pls help
Id also like to know if there is a way to activate a flask on skill use like it worked in poe hud?

No you do not need to rename them, in fact if you do it will not work . As long as the hotkeys are set to the proper values then that part should be okay.
Beyond that it will be an issue with your colors as was said before.
I admit it can be challenging and a pain to set up but once it is set up you will never have to do it again and I truly feel it is the safest method out there at the moment.
Follow the instructions carefully to the T, if that doesnt work try running the game at 800x600 with the default settings I provided to ensure that the issue is not stemming from something else.

[andreluizlpg]

it is safe to use it ? already loosed on account...

[shad0wloh]

autopot doesnt work for me,autoloot always miss. is there a way to reload script with key ? and its possible to turnoff autoportal,autoswap keys?
its possible that limited user causing this?

[MACROS4LIFE]

is that working 3.4?

[Junkstabox]

Hi, I just tried this, it doesn't work for me.

The exe launches, detects my ping, i enable autoloot (the only feature i actually care about) and ofc I've made all stuff i want to loot into a very specific color. I tried with normal color and with color when mouseover, doesn't work. Help, pls ?

[DD2Shop]

Yo. Is it possible to unbind everything else but let's say (Auto TP, and Auto Loot) ? i don't want it do make an action ingame when i accidentally hit J or example.
Can i unbind everything else but auto TP and auto Loot?

Thanks.

[Gutsuu]

Source 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 - decreased to hinder the amount autoloot interferes with the user
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 - Written 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 $x1 = $window[0]
Local $y1 = $window[1]
Local $x2 = ($window[0] + $window[2])
Local $y2 = ($window[1] + $window[3])
Local $xresolution = ($x2 - $x1)
Local $yresolution = ($y2 - $y1)

; End Window Section

;----------------------------------------------------------------------------------------------------------

; Start Variables Section

Global $Pause
Global $Autoloot
Global $Alteration
Global $Jeweller
Global $Fusing
Global $Chromatic
Global $Chisel
Global $ArmorScrap
Global $Whetstone

Global $HealthCheck = IniRead ( "QuickLooks.ini", "Health", "HealthHexColorCode", 0xA41F29 )
Global $HealthCheck2
Global $xHealthHexCoordinate = IniRead ( "QuickLooks.ini", "Health", "HealthCoordinateX", 70 )
Global $yHealthHexCoordinate = IniRead ( "QuickLooks.ini", "Health", "HealthCoordinateY", 536 )

Global $ChatColorCheck = IniRead ( "QuickLooks.ini", "Health", "ChatHexColorCode", 0x901A23 )
Global $ChatColorCheck2
Global $xChatCoordinate = IniRead ( "QuickLooks.ini", "Health", "ChatCoordinateX", 70 )
Global $yChatCoordinate = IniRead ( "QuickLooks.ini", "Health", "ChatCoordinateX", 564 )

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
Local $QuickSilverCheckC = 0
Local $QuickSilverCheckD = 0

Global $FlaskOne = IniRead ( "QuickLooks.ini", "Flasks", "FlaskOne", 1 )
Global $FlaskOneDuration = IniRead ( "QuickLooks.ini", "Flasks", "FlaskOneDuration", 6000 )
Global $FlaskOneTimer
Global $FlaskOneTimerDiff
Local  $FlaskOneCheck = 0

Global $FlaskTwo = IniRead ( "QuickLooks.ini", "Flasks", "FlaskTwo", 2 )
Global $FlaskTwoDuration = IniRead ( "QuickLooks.ini", "Flasks", "FlaskTwoDuration", 6000 )
Global $FlaskTwoTimer
Global $FlaskTwoTimerDiff
Local  $FlaskTwoCheck = 0

Global $FlaskThree = IniRead ( "QuickLooks.ini", "Flasks", "FlaskThree", 3 )
Global $FlaskThreeDuration = IniRead ( "QuickLooks.ini", "Flasks", "FlaskThreeDuration", 6000 )
Global $FlaskThreeTimer
Global $FlaskThreeTimerDiff
Local  $FlaskThreeCheck = 0

Global $FlaskFour = IniRead ( "QuickLooks.ini", "Flasks", "FlaskFour", 4 )
Global $FlaskFourDuration = IniRead ( "QuickLooks.ini", "Flasks", "FlaskFourDuration", 6000 )
Global $FlaskFourTimer
Global $FlaskFourTimerDiff
Local  $FlaskFourCheck = 0

Global $ColorPath = IniRead ( "QuickLooks.ini", "ColorPath", "HexColorCode", 0xABCDEF )
Global $Frequency = IniRead ( "QuickLooks.ini", "ClickSpeed", "Frequency", 50 )
Global $WeaponSwapHotkey = IniRead ( "QuickLooks.ini", "CullingStrike", "WeaponSwapHotkey", "x" )
Global $CullingSkillHotkey = IniRead ( "QuickLooks.ini", "CullingStrike", "CullingSkillHotkey", "q" )

Global $WisdomScrollX = IniRead ( "QuickLooks.ini", "ClickCoords", "WisdomScrollX", 0 )
Global $WisdomScrollY = IniRead ( "QuickLooks.ini", "ClickCoords", "WisdomScrollY", 0 )


;Global $ClickCounter
;$ClickCounter = 0
;$ClickCounter += 1


; End Variables Section

;----------------------------------------------------------------------------------------------------------

; Start Hotkeys Section

HotKeySet("^{END}", "Terminate")
HotKeySet("^{PAUSE}", "Pause")
HotKeySet("^{HOME}", "CheckLatency")
HotKeySet("^{ENTER}", "ChatPause")
HotKeySet("^{SPACE}", "Autoloot")
HotKeySet("^{F1}", "FindTargetItem")
HotKeySet("^{F2}", "FindWisdomScroll")
HotKeySet("^{F3}", "FindPortalScroll")
HotKeySet("^{F4}", "FindPortalPosition")
HotKeySet("^{F5}", "FindAlteration")
HotKeySet("+{F5}", "Alteration")
HotKeySet("^{F6}", "FindJeweller")
HotKeySet("+{F6}", "Jeweller")
HotKeySet("^{F7}", "FindFusing")
HotKeySet("+{F7}", "Fusing")
HotKeySet("^{F8}", "FindChromatic")
HotKeySet("+{F8}", "Chromatic")
HotKeySet("^{F9}", "FindChisel")
HotKeySet("+{F9}", "Chisel")
HotKeySet("^{F10}", "FindArmorScrap")
HotKeySet("+{F10}", "ArmorScrap")
HotKeySet("^{F11}", "FindWhetstone")
HotKeySet("+{F11}", "Whetstone")
HotKeySet("^{F12}", "SetColor")
HotKeySet("^{INSERT}", "SetHealthCoordinates")
HotKeySet("+{INSERT}", "FindHealthColorCode")
HotKeySet("^{DEL}", "SetChatCoordinates")
HotKeySet("+{DEL}", "FindChatColorCode")
HotKeySet("f", "CullingStrike")
HotKeySet("j", "IdInventory")
HotKeySet("^j", "IdInventorySell")

; End Hotkeys Section

;----------------------------------------------------------------------------------------------------------

; Start Script Section

SendKeepActive ( $handle )

While WinExists ( $handle )
	
	If WinActive ( $handle ) Then
		$HealthCheck2 = PixelGetColor( $xHealthHexCoordinate, $yHealthHexCoordinate, $handle )
		$ChatColorCheck2 = PixelGetColor( $xChatCoordinate, $yChatCoordinate, $handle )
	
		If ( $HealthCheck <> $HealthCheck2 ) And ( $ChatColorCheck = $ChatColorCheck2 ) Then
			If $FlaskOneCheck = 0 Then
				Send($FlaskOne)
				sleep($Frequency)
				$FlaskOneCheck = 1
				$FlaskOneTimer = TimerInit()
			Else
				$FlaskOneTimerDiff = TimerDiff($FlaskOneTimer)
				If $FlaskOneTimerDiff >= $FlaskOneDuration Then
					$FlaskOneCheck = 0
				EndIf	
			EndIf	
		EndIf
		
		If ( $HealthCheck <> $HealthCheck2 ) And ( $ChatColorCheck = $ChatColorCheck2 ) Then
			If $FlaskTwoCheck = 0 Then
				Send($FlaskTwo)
				sleep($Frequency)
				$FlaskTwoCheck = 1
				$FlaskTwoTimer = TimerInit()
			Else
				$FlaskTwoTimerDiff = TimerDiff($FlaskTwoTimer)
				If $FlaskTwoTimerDiff >= $FlaskTwoDuration Then
					$FlaskTwoCheck = 0
				EndIf	
			EndIf	
		EndIf
		
		If ( $HealthCheck <> $HealthCheck2 ) And ( $ChatColorCheck = $ChatColorCheck2 ) Then
			If $FlaskThreeCheck = 0 Then
				Send($FlaskThree)
				sleep($Frequency)
				$FlaskThreeCheck = 1
				$FlaskThreeTimer = TimerInit()
			Else
				$FlaskThreeTimerDiff = TimerDiff($FlaskThreeTimer)
				If $FlaskThreeTimerDiff >= $FlaskThreeDuration Then
					$FlaskThreeCheck = 0
				EndIf	
			EndIf	
		EndIf
		
		If ( $HealthCheck <> $HealthCheck2 ) And ( $ChatColorCheck = $ChatColorCheck2 ) Then
			If $FlaskFourCheck = 0 Then
				Send($FlaskFour)
				sleep($Frequency)
				$FlaskFourCheck = 1
				$FlaskFourTimer = TimerInit()
			Else
				$FlaskFourTimerDiff = TimerDiff($FlaskFourTimer)
				If $FlaskFourTimerDiff >= $FlaskFourDuration Then
					$FlaskFourCheck = 0
				EndIf	
			EndIf	
		EndIf
	
		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
				Send($QuickSilverFlask)
				sleep($Frequency)
				$QuickSilverTimerB = TimerInit()
				sleep($Frequency)
				$QuickSilverCheckB = 1
			EndIf
		EndIf
		
		$QuickSilverTimerDiffB = TimerDiff($QuickSilverTimerB)
		
		If $QuickSilverCheckB = 1 And $QuickSilverTimerDiffB >= $QuickSilverDuration Then
			$QuickSilverCheckA = 0
			$QuickSilverCheckB = 0
		EndIf
		
		If _IsPressed ( "20" ) Then
			Call("Loot")
		EndIf

		If _IsPressed ( "4A" ) Then
			Call("IdInventory")
		EndIf
		
		If _IsPressed ( "54" ) Then
			Call("TownPortal")
		EndIf
	
	EndIf
	
WEnd

; End Script Section

;----------------------------------------------------------------------------------------------------------

; Start Core Functions Section
 
Func Terminate()
    Exit
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 SetHealthCoordinates()
	Local $xHealthCoordinate = MouseGetPos ( 0 )
	Local $yHealthCoordinate = MouseGetPos ( 1 )
	IniWrite ( "QuickLooks.ini", "Health", "HealthCoordinateX", $xHealthCoordinate )
	IniWrite ( "QuickLooks.ini", "Health", "HealthCoordinateY", $yHealthCoordinate )
	TrayTip("QuickLooks", "Health Coordinates Changed In QuickLooks.ini", 10)
EndFunc

Func FindHealthColorCode()
	Local $HealthColor = PixelGetColor( $xHealthHexCoordinate, $yHealthHexCoordinate, $handle )
	Local $HealthHexColor = Hex($HealthColor, 6)
	IniWrite ( "QuickLooks.ini", "Health", "HealthHexColorCode", "0x" & $HealthHexColor & "")
	TrayTip("QuickLooks", "HealthHexColorCode Changed In QuickLooks.ini", 10)
EndFunc

Func SetChatCoordinates()
	Local $xChatButtonCoordinate = MouseGetPos ( 0 )
	Local $yChatButtonCoordinate = MouseGetPos ( 1 )
	IniWrite ( "QuickLooks.ini", "Health", "ChatCoordinateX", $xChatButtonCoordinate )
	IniWrite ( "QuickLooks.ini", "Health", "ChatCoordinateY", $yChatButtonCoordinate )
	TrayTip("QuickLooks", "Chat Button Coordinates Changed In QuickLooks.ini", 10)
EndFunc

Func FindChatColorCode()
	Local $ChatColor = PixelGetColor( $xChatCoordinate, $yChatCoordinate, $handle )
	Local $ChatHexColor = Hex($ChatColor, 6)
	IniWrite ( "QuickLooks.ini", "Health", "ChatHexColorCode", "0x" & $ChatHexColor & "")
	TrayTip("QuickLooks", "ChatHexColorCode Changed In QuickLooks.ini", 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 & "")
	MsgBox("0", "Hex Color Info", "Hex Color Code: 0x" & $myhex & ". Value changed in QuickLooks.ini.")
EndFunc 

Func CheckLatency()
	Local $iPing = Ping("www.pathofexile.com", 250)
	If not @error Then
		If $iPing<100 Then
			IniWrite ( "QuickLooks.ini", "ClickSpeed", "Frequency", 50 )
			MsgBox("0", "Ping Info", "Latency: " & $iPing & "ms. Setting Click Frequency to 50ms in QuickLooks.ini.")
		Else
			IniWrite ( "QuickLooks.ini", "ClickSpeed", "Frequency", 200 )
			MsgBox("0", "Ping Info", "Latency: " & $iPing & "ms. Setting Click Frequency to 200ms in QuickLooks.ini.")
		EndIf
	Else 
		Local $pingfail = MsgBox("1", "Ping Error", "Error attempting to ping PoE servers. Click OK to continue anyway or Cancel to exit the script.")
		If $pingfail = 1 Then
			IniWrite ( "QuickLooks.ini", "ClickSpeed", "Frequency", 200 )
		Else
			Exit
		EndIf
	EndIf
EndFunc 

Func CullingStrike()
	If WinActive ( $handle ) Then
		Send ($WeaponSwapHotkey)
		sleep($Frequency*3)
		Send ($CullingSkillHotkey)
		sleep($Frequency*8)
		Send ($WeaponSwapHotkey)
		sleep($Frequency)
	EndIf
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
				MouseClick($MOUSE_CLICK_LEFT, ($bCoord[0] + 50), ($bCoord[1] + 10), 1, 0 )
				sleep($Frequency*2)
			EndIf
		EndIf
	EndIf	
EndFunc

Func Autoloot()
	If NOT $Autoloot Then
		TrayTip("QuickLooks", "Autoloot Enabled", 10)
	EndIf
    $Autoloot = NOT $Autoloot
    While $Autoloot
        Call("Loot")
		
		If _IsPressed ( "4A" ) Then
			Call("IdInventory")
		EndIf
		
		If _IsPressed ( "54" ) Then
			Call("TownPortal")
		EndIf
		
		If WinActive ( $handle ) Then
			$HealthCheck2 = PixelGetColor( $xHealthHexCoordinate, $yHealthHexCoordinate, $handle )
			$ChatColorCheck2 = PixelGetColor( $xChatCoordinate, $yChatCoordinate, $handle )
		
			If ( $HealthCheck <> $HealthCheck2 ) And ( $ChatColorCheck = $ChatColorCheck2 ) Then
				If $FlaskOneCheck = 0 Then
					Send($FlaskOne)
					sleep($Frequency)
					$FlaskOneCheck = 1
					$FlaskOneTimer = TimerInit()
				Else
					$FlaskOneTimerDiff = TimerDiff($FlaskOneTimer)
					If $FlaskOneTimerDiff >= $FlaskOneDuration Then
						$FlaskOneCheck = 0
					EndIf	
				EndIf	
			EndIf
			
			If ( $HealthCheck <> $HealthCheck2 ) And ( $ChatColorCheck = $ChatColorCheck2 ) Then
				If $FlaskTwoCheck = 0 Then
					Send($FlaskTwo)
					sleep($Frequency)
					$FlaskTwoCheck = 1
					$FlaskTwoTimer = TimerInit()
				Else
					$FlaskTwoTimerDiff = TimerDiff($FlaskTwoTimer)
					If $FlaskTwoTimerDiff >= $FlaskTwoDuration Then
						$FlaskTwoCheck = 0
					EndIf	
				EndIf	
			EndIf
			
			If ( $HealthCheck <> $HealthCheck2 ) And ( $ChatColorCheck = $ChatColorCheck2 ) Then
				If $FlaskThreeCheck = 0 Then
					Send($FlaskThree)
					sleep($Frequency)
					$FlaskThreeCheck = 1
					$FlaskThreeTimer = TimerInit()
				Else
					$FlaskThreeTimerDiff = TimerDiff($FlaskThreeTimer)
					If $FlaskThreeTimerDiff >= $FlaskThreeDuration Then
						$FlaskThreeCheck = 0
					EndIf	
				EndIf	
			EndIf
			
			If ( $HealthCheck <> $HealthCheck2 ) And ( $ChatColorCheck = $ChatColorCheck2 ) Then
				If $FlaskFourCheck = 0 Then
					Send($FlaskFour)
					sleep($Frequency)
					$FlaskFourCheck = 1
					$FlaskFourTimer = TimerInit()
				Else
					$FlaskFourTimerDiff = TimerDiff($FlaskFourTimer)
					If $FlaskFourTimerDiff >= $FlaskFourDuration Then
						$FlaskFourCheck = 0
					EndIf	
				EndIf	
			EndIf
			
			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
					Send($QuickSilverFlask)
					sleep($Frequency)
					$QuickSilverTimerB = TimerInit()
					sleep($Frequency)
					$QuickSilverCheckB = 1
				EndIf
			EndIf
		
			$QuickSilverTimerDiffB = TimerDiff($QuickSilverTimerB)
			
			If $QuickSilverCheckB = 1 And $QuickSilverTimerDiffB >= $QuickSilverDuration Then
				$QuickSilverCheckB = 0
				$QuickSilverCheckA = 0
			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*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 IdInventory()
	If WinActive ( $handle ) Then
		Local $aCoord = PixelSearch(0, 0, $xresolution, $yresolution, 0x2B0404, 1, 1, $handle)
		If not @error Then
				MouseClick($MOUSE_CLICK_RIGHT, ($WisdomScrollX), ($WisdomScrollY), 1, 0 )
				sleep($Frequency*2)
				MouseClick($MOUSE_CLICK_LEFT, ($aCoord[0] + 3), ($aCoord[1] + 3), 1, 0 )
				sleep($Frequency*2)
		EndIf
	EndIf
EndFunc

Func IdInventorySell()
	If WinActive ( $handle ) Then
		Local $aCoord = PixelSearch(0, 0, $xresolution, $yresolution, 0x2B0404, 1, 1, $handle)
		If not @error Then
				MouseClick($MOUSE_CLICK_RIGHT, ($WisdomScrollX), ($WisdomScrollY), 1, 0 )
				sleep($Frequency)
				MouseClick($MOUSE_CLICK_LEFT, ($aCoord[0] + 3), ($aCoord[1] + 3), 1, 0 )
				sleep($Frequency)
				Send("{LCTRL}down")
				MouseClick($MOUSE_CLICK_LEFT, ($aCoord[0] + 3), ($aCoord[1] + 3), 1, 0 )
				Send("{LCTRL}up")
				sleep($Frequency*2)
		EndIf
	EndIf
EndFunc

; End Scrolls Functions Section

;----------------------------------------------------------------------------------------------------------

; Orb Functions Section

Func FindTargetItem()
	Local $xTargetItem = MouseGetPos ( 0 )
	Local $yTargetItem = MouseGetPos ( 1 )
	IniWrite ( "QuickLooks.ini", "ClickCoords", "TargetItemX", $xTargetItem )
	IniWrite ( "QuickLooks.ini", "ClickCoords", "TargetItemY", $yTargetItem )
	TrayTip("QuickLooks", "Target Item Position Changed In QuickLooks.ini", 10)
EndFunc

Func FindAlteration()
	Local $xAlteration = MouseGetPos ( 0 )
	Local $yAlteration = MouseGetPos ( 1 )
	IniWrite ( "QuickLooks.ini", "ClickCoords", "AlterationX", $xAlteration )
	IniWrite ( "QuickLooks.ini", "ClickCoords", "AlterationY", $yAlteration )
	TrayTip("QuickLooks", "Alteration Orb Position Changed In QuickLooks.ini", 10)
EndFunc

Func Alteration()
	Local $AlterationX = IniRead ( "QuickLooks.ini", "ClickCoords", "AlterationX", 0 )
	Local $AlterationY = IniRead ( "QuickLooks.ini", "ClickCoords", "AlterationY", 0 )
	Local $TargetItemX = IniRead ( "QuickLooks.ini", "ClickCoords", "TargetItemX", 0 )
	Local $TargetItemY = IniRead ( "QuickLooks.ini", "ClickCoords", "TargetItemY", 0 )
	$Alteration= NOT $Alteration
    While $Alteration
		MouseClick($MOUSE_CLICK_RIGHT, ($AlterationX), ($AlterationY), 1)
		sleep(5)
		MouseClick($MOUSE_CLICK_LEFT, ($TargetItemX), ($TargetItemY), 1)
		sleep(5)
	WEnd
EndFunc

Func FindJeweller()
	Local $xJeweller = MouseGetPos ( 0 )
	Local $yJeweller = MouseGetPos ( 1 )
	IniWrite ( "QuickLooks.ini", "ClickCoords", "JewellerX", $xJeweller )
	IniWrite ( "QuickLooks.ini", "ClickCoords", "JewellerY", $yJeweller )
	TrayTip("QuickLooks", "Jeweller Orb Position Changed In QuickLooks.ini", 10)
EndFunc

Func Jeweller()
	Local $JewellerX = IniRead ( "QuickLooks.ini", "ClickCoords", "JewellerX", 0 )
	Local $JewellerY = IniRead ( "QuickLooks.ini", "ClickCoords", "JewellerY", 0 )
	Local $TargetItemX = IniRead ( "QuickLooks.ini", "ClickCoords", "TargetItemX", 0 )
	Local $TargetItemY = IniRead ( "QuickLooks.ini", "ClickCoords", "TargetItemY", 0 )
	$Jeweller= NOT $Jeweller
    While $Jeweller
		MouseClick($MOUSE_CLICK_RIGHT, ($JewellerX), ($JewellerY), 1)
		sleep(5)
		MouseClick($MOUSE_CLICK_LEFT, ($TargetItemX), ($TargetItemY), 1)
		sleep(5)
	WEnd
EndFunc

Func FindFusing()
	Local $xFusing = MouseGetPos ( 0 )
	Local $yFusing = MouseGetPos ( 1 )
	IniWrite ( "QuickLooks.ini", "ClickCoords", "FusingX", $xFusing )
	IniWrite ( "QuickLooks.ini", "ClickCoords", "FusingY", $yFusing )
	TrayTip("QuickLooks", "Fusing Orb Position Changed In QuickLooks.ini", 10)
EndFunc

Func Fusing()
	Local $FusingX = IniRead ( "QuickLooks.ini", "ClickCoords", "FusingX", 0 )
	Local $FusingY = IniRead ( "QuickLooks.ini", "ClickCoords", "FusingY", 0 )
	Local $TargetItemX = IniRead ( "QuickLooks.ini", "ClickCoords", "TargetItemX", 0 )
	Local $TargetItemY = IniRead ( "QuickLooks.ini", "ClickCoords", "TargetItemY", 0 )
	$Fusing= NOT $Fusing
    While $Fusing
		MouseClick($MOUSE_CLICK_RIGHT, ($FusingX), ($FusingY), 1)
		sleep(5)
		MouseClick($MOUSE_CLICK_LEFT, ($TargetItemX), ($TargetItemY), 1)
		sleep(5)
	WEnd
 EndFunc
 
Func FindChromatic()
	Local $xChromatic = MouseGetPos ( 0 )
	Local $yChromatic = MouseGetPos ( 1 )
	IniWrite ( "QuickLooks.ini", "ClickCoords", "ChromaticX", $xChromatic )
	IniWrite ( "QuickLooks.ini", "ClickCoords", "ChromaticY", $yChromatic )
	TrayTip("QuickLooks", "Chromatic Orb Position Changed In QuickLooks.ini", 10)
EndFunc

Func Chromatic()
	Local $ChromaticX = IniRead ( "QuickLooks.ini", "ClickCoords", "ChromaticX", 0 )
	Local $ChromaticY = IniRead ( "QuickLooks.ini", "ClickCoords", "ChromaticY", 0 )
	Local $TargetItemX = IniRead ( "QuickLooks.ini", "ClickCoords", "TargetItemX", 0 )
	Local $TargetItemY = IniRead ( "QuickLooks.ini", "ClickCoords", "TargetItemY", 0 )
	$Chromatic= NOT $Chromatic
    While $Chromatic
		MouseClick($MOUSE_CLICK_RIGHT, ($ChromaticX), ($ChromaticY), 1)
		sleep(5)
		MouseClick($MOUSE_CLICK_LEFT, ($TargetItemX), ($TargetItemY), 1)
		sleep(5)
	WEnd
EndFunc

Func FindWhetstone()
	Local $xWhetstone = MouseGetPos ( 0 )
	Local $yWhetstone = MouseGetPos ( 1 )
	IniWrite ( "QuickLooks.ini", "ClickCoords", "WhetstoneX", $xWhetstone )
	IniWrite ( "QuickLooks.ini", "ClickCoords", "WhetstoneY", $yWhetstone )
	TrayTip("QuickLooks", "Whetstone Position Changed In QuickLooks.ini", 10)
EndFunc

Func Whetstone()
	Local $WhetstoneX = IniRead ( "QuickLooks.ini", "ClickCoords", "WhetstoneX", 0 )
	Local $WhetstoneY = IniRead ( "QuickLooks.ini", "ClickCoords", "WhetstoneY", 0 )
	Local $TargetItemX = IniRead ( "QuickLooks.ini", "ClickCoords", "TargetItemX", 0 )
	Local $TargetItemY = IniRead ( "QuickLooks.ini", "ClickCoords", "TargetItemY", 0 )
	$Whetstone= NOT $Whetstone
    While $Whetstone
		MouseClick($MOUSE_CLICK_RIGHT, ($WhetstoneX), ($WhetstoneY), 1)
		sleep(5)
		MouseClick($MOUSE_CLICK_LEFT, ($TargetItemX), ($TargetItemY), 1)
		sleep(5)
	WEnd
EndFunc

Func FindArmorScrap()
	Local $xArmorScrap = MouseGetPos ( 0 )
	Local $yArmorScrap = MouseGetPos ( 1 )
	IniWrite ( "QuickLooks.ini", "ClickCoords", "ArmorScrapX", $xArmorScrap )
	IniWrite ( "QuickLooks.ini", "ClickCoords", "ArmorScrapY", $yArmorScrap )
	TrayTip("QuickLooks", "Armor Scrap Position Changed In QuickLooks.ini", 10)
EndFunc

Func ArmorScrap()
	Local $ArmorScrapX = IniRead ( "QuickLooks.ini", "ClickCoords", "ArmorScrapX", 0 )
	Local $ArmorScrapY = IniRead ( "QuickLooks.ini", "ClickCoords", "ArmorScrapY", 0 )
	Local $TargetItemX = IniRead ( "QuickLooks.ini", "ClickCoords", "TargetItemX", 0 )
	Local $TargetItemY = IniRead ( "QuickLooks.ini", "ClickCoords", "TargetItemY", 0 )
	$ArmorScrap= NOT $ArmorScrap
    While $ArmorScrap
		MouseClick($MOUSE_CLICK_RIGHT, ($ArmorScrapX), ($ArmorScrapY), 1)
		sleep(5)
		MouseClick($MOUSE_CLICK_LEFT, ($TargetItemX), ($TargetItemY), 1)
		sleep(5)
	WEnd
EndFunc

Func FindChisel()
	Local $xChisel = MouseGetPos ( 0 )
	Local $yChisel = MouseGetPos ( 1 )
	IniWrite ( "QuickLooks.ini", "ClickCoords", "ChiselX", $xChisel )
	IniWrite ( "QuickLooks.ini", "ClickCoords", "ChiselY", $yChisel )
	TrayTip("QuickLooks", "Chisel Position Changed In QuickLooks.ini", 10)
EndFunc

Func Chisel()
	Local $ChiselX = IniRead ( "QuickLooks.ini", "ClickCoords", "ChiselX", 0 )
	Local $ChiselY = IniRead ( "QuickLooks.ini", "ClickCoords", "ChiselY", 0 )
	Local $TargetItemX = IniRead ( "QuickLooks.ini", "ClickCoords", "TargetItemX", 0 )
	Local $TargetItemY = IniRead ( "QuickLooks.ini", "ClickCoords", "TargetItemY", 0 )
	$Chisel= NOT $Chisel
    While $Chisel
		MouseClick($MOUSE_CLICK_RIGHT, ($ChiselX), ($ChiselY), 1)
		sleep(5)
		MouseClick($MOUSE_CLICK_LEFT, ($TargetItemX), ($TargetItemY), 1)
		sleep(5)
	WEnd
EndFunc

; End Orb Functions Section

;----------------------------------------------------------------------------------------------------------

@naut333 do you have the newest ahk script, so that we can self intigrate code in if necessary?

i saw this post but it wasn't edited since june 2018.

Thanks buddy!