Problem with GetItemMaxDmg

[some ectos for sale]

Hello!

Can someone help me with GetItemMaxDmg function, please?

 Spoiler

Func PickUpLoot()
If GetMapLoading() == 2 Then Disconnected()
Local $lMe, $lAgent, $lItem
Local $lBlockedTimer
Local $lBlockedCount = 0
Local $lItemExists = True
For $i = 1 To GetMaxAgents()
If GetMapLoading() == 2 Then Disconnected()
$lMe = GetAgentByID(-2)
If DllStructGetData($lMe, 'HP') <= 0.0 Then Return
$lAgent = GetAgentByID($i)
If Not GetIsMovable($lAgent) Then ContinueLoop
If Not GetCanPickUp($lAgent) Then ContinueLoop
$lItem = GetItemByAgentID($i)
If CanPickUp($lItem) Then
Do
If GetMapLoading() == 2 Then Disconnected()
;If $lBlockedCount > 2 Then UseSkillEx(6,-2)
PickUpItem($lItem)
Sleep(GetPing())
Do
Sleep(100)
$lMe = GetAgentByID(-2)
Until DllStructGetData($lMe, 'MoveX') == 0 And DllStructGetData($lMe, 'MoveY') == 0
$lBlockedTimer = TimerInit()
Do
Sleep(3)
$lItemExists = IsDllStruct(GetAgentByID($i))
Until Not $lItemExists Or TimerDiff($lBlockedTimer) > Random(5000, 7500, 1)
If $lItemExists Then $lBlockedCount += 1
Until Not $lItemExists Or $lBlockedCount > 5
EndIf
Next
EndFunc

Func CanPickUp($item)
If GetMapLoading() == 2 Then Disconnected()
$id = DllStructGetData($item, 'ModelID')
$r = GetRarity($item)
$q = GetItemReq($item)
$t = DllStructGetData($item, 'Type')
$e = DllStructGetData($item, 'ExtraID')
If $t = 20 Then ;Gold
Return True
ElseIf $r = 2624 Then ;Gold items
Return True
ElseIf $id = 146 Then ;Dye
If $e = 10 Or $e = 12 Then ;Black & White
Return True
EndIf
ElseIf $r = 2623 or $r = 2626 Then
If $t = 27 And $q = 8 And GetItemMaxDmg($item) = 22 Then ; req8 Swords
Return True
EndIf
ElseIf $r = 2623 or $r = 2626 Then
If $t = 24 And $q = 8 And GetItemMaxDmg($item) = 16 Then
Return True
EndIf
ElseIf $r = 2623 or $r = 2626 Then
If $t = 24 And $q = 7 And GetItemMaxDmg($item) = 15 Then
Return True
EndIf
ElseIf $r = 2623 or $r = 2626 Then
If $t = 24 And $q = 6 And GetItemMaxDmg($item) = 14 Then
Return True
EndIf
ElseIf $r = 2623 or $r = 2626 Then
If $t = 32 And $q = 5 And GetItemMaxDmg($item) = 13 Then
Return True
EndIf
ElseIf $r = 2623 or $r = 2626 Then
If $t = 32 And $q = 6 And GetItemMaxDmg($item) = 14 Then
Return True
EndIf
ElseIf $r = 2623 or $r = 2626 Then
If $t = 32 And $q = 7 And GetItemMaxDmg($item) = 15 Then
Return True
EndIf
ElseIf $r = 2623 or $r = 2626 Then
If $t = 12 And $q = 8 And GetItemMaxDmg($item) = 12 Then
Return True
EndIf
ElseIf $r = 2623 or $r = 2626 Then
If $t = 12 And $q = 6 And GetItemMaxDmg($item) = 11 Then
Return True
EndIf
Return False
EndFunc

Func GetItemMaxDmg($aItem)
If Not IsDllStruct($aItem) Then $aItem = GetItemByItemID($aItem)
Local $lModString = GetModStruct($aItem)
Local $lPos = StringInStr($lModString, "A8A7") ; Weapon Damage
If $lPos = 0 Then $lPos = StringInStr($lModString, "C867") ; Energy (focus)
If $lPos = 0 Then $lPos = StringInStr($lModString, "B8A7") ; Armor (shield)
If $lPos = 0 Then Return 0
Return Int("0x" & StringMid($lModString, $lPos - 2, 2))
EndFunc

Something wrong with variables I think.

THANK YOU!

[ayyy_lmao]

Func IsReq8Max($aItem)
	Local $Req = GetItemReq($aItem)
	Local $Attribute = GetItemAttribute($aItem)
	Local $Rarity = GetRarity($aItem)
	Local $Dmg = GetItemMaxDmg($aItem)

    Switch $Rarity
    Case 2624
	   If $Req = 8 Then
		  If $Attribute = 20 Or $Attribute = 21 Or $Attribute = 17 Then
			 If $Dmg = 22 Or $Dmg = 16 Then
				Return True
			 EndIf
		  EndIf
	   EndIf
    Case 2623
	   If $Req = 8 Then
		  If $Attribute = 20 Or $Attribute = 21 Or $Attribute = 17 Then
			 If $Dmg = 22 Or $Dmg = 16 Then
				Return True
			 EndIf
		  EndIf
	   EndIf
    Case 2626
	   If $Req = 8 Then
		  If $Attribute = 20 Or $Attribute = 21 Or $Attribute = 17 Then
			 If $Dmg = 22 Or $Dmg = 16 Then
				Return True
			 EndIf
		  EndIf
	   EndIf
	EndSwitch
	Return False
EndFunc

This is from what moon posted has gotten plenty of r8's look how getitemmaxdmg is a local variable . You would have to add to your can pick up something like

 Local $IsReq8 = IsReq8Max($aItem)
 Switch $IsReq8
   Case True
	  Return True ; Is req8 max
   EndSwitch

should add these to your can pick ups

 Global Const $Rarity_white = 2621
 Global Const $ITEMTYPE_BOW = 5
 Local $ModStruct = GetModStruct($aItem)
 Local $13to25DMG = StringInStr($ModStruct, "0D19A8A7")
 Local $14to25DMG = StringInStr($ModStruct, "0E18A8A7")
 
 
	If $type == $ITEMTYPE_BOW and $13to25DMG and $requirement = 6 and $rarity <> $Rarity_white Then ; Solo DoA Bow
		Return True
	EndIf

	If $type == $ITEMTYPE_BOW and $14to25DMG and $requirement = 6 and $rarity <> $Rarity_white Then ; Solo DoA Bow
		Return True
	EndIf