#IfWinActive, ahk_class POEWindowClass

BaseName := " Penetrating Arrow Quiver "

ClickAlt()
{
	random, altclickX, 135, 169
	random, altclickY, 421, 457

	MouseClick, right, altclickX, altclickY

	random, craftclickX, 406, 477
	random, craftclickY, 598, 720

	MouseClick, left, craftclickX, craftclickY
}

ClickAugment()
{
	random, augclickX, 291, 329
	random, augclickY, 495, 533

	MouseClick, right, augclickX, augclickY

	random, craftclickX, 406, 477
	random, craftclickY, 598, 720

	MouseClick, left, craftclickX, craftclickY
}

DamageAverage(stringarray, str, average)
{
	if InStr(Clipboard, str)
	{
		GotValues := RegExMatch(stringarray, "Adds ([0-9]+) to ([0-9]+) ", Vals)
		DmgCalc := (Vals1+Vals2)/2
		If DmgCalc >= average
		{
			return true
		}
		else
		{
			return false
		}
	}
	else
	{
		return false
	}
}
;232 to Accuracy Rating
ToStatMinimum(stringarray, str, min)
{
	if InStr(stringarray, str)
	{
		GotValues := RegExMatch(stringarray, "\+([0-9]+) to "+str, Vals)

		If (Vals1 >= min)
		{
		return true
		}
		else
		{
			return false
		}
	}
	else
	{
		return false
	}
}

IncreasedStatMinimum(stringarray, str, min)
{
	if InStr(stringarray, str)
	{
		GotValues := RegExMatch(stringarray, "([0-9]+)% increased "+str, Vals)

		If (Vals1 >= min)
		{
		return true
		}
		else
		{
			return false
		}
	}
	else
	{
		return false
	}
}

E::
{
	random, craftclickX, 406, 477
	random, craftclickY, 598, 720
	MouseClick, right, craftclickX, craftclickY

	Send ^c
	ClipWait

	random, delay, 30, 60
	sleep, delay

	If (InStr(Clipboard, "Additional Arrow" ))
	{
		MsgBox, STOP
		return
	}

	If ToStatMinimum(Clipboard, "Accuracy Rating", 300)
	{
		MsgBox, STOP
		return
	}

	If ToStatMinimum(Clipboard, "maximum Life", 80)
	{
		MsgBox, STOP
		return
	}

	If IncreasedStatMinimum(Clipboard, "Elemental Damage with Attack Skills", 43)
	{
		MsgBox, STOP
		return
	}

	If not InStr(Clipboard, BaseName)
	{
		ClickAugment()
	}
	Else
	{
		ClickAlt()
	}
}
return