GetNumberOfFoesInRangeOfAgent2 Examples

Func GetNumberOfFoesInRangeOfAgent2($aMaxDistance = 4000, $ModelID1 = 0, $ModelID2 = 0)
   Local $lCount = 0
   Local $lTargetTypeArray = MemoryReadAgentPtrStruct(3)
   For $i = 1 To $lTargetTypeArray[0]
      Switch(MemoryRead($lTargetTypeArray[$i] + 244, 'word'))
          Case $ModelID1, $ModelID2
              ContinueLoop
          Case Else
            If GetDistance($lTargetTypeArray[$i], $GMePtr) < $aMaxDistance Then $lCount += 1
      Endswitch
   Next
   Return $lCount
EndFunc

Func GetNumberOfFoesInRangeOfAgent2($aMaxDistance = 4000, $ModelID1 = 0, $ModelID2 = 0)
    Local $__ModelID = 0, $lCount = 0
    Local $lTargetTypeArray = MemoryReadAgentPtrStruct(3)
    For $i = 1 To $lTargetTypeArray[0]
        $__ModelID = MemoryRead($lTargetTypeArray[$i] + 244, 'word')
        If $__ModelID = $ModelID1 Then ContinueLoop ;Spirit 1
        If $__ModelID = $ModelID2 Then ContinueLoop ;Spirit 2
        If GetDistance($lTargetTypeArray[$i], $GMePtr) < $aMaxDistance Then $lCount += 1
    Next
Return $lCount
EndFunc