prAdd1ForEachUnitInAreaOfUnitInArea:
    rForEachUnitInRangeTemplate(pTestShape)
        rIf/* CONDITION (Probably a Skill right?) */
            rAdd
                rCallOther(prCountUnitsAroundSubject)

prCountUnitsAroundSubject:
{
    rCallSequence(_prConst _prCount)

_prConst:
    rConstant(10) // N

_prCount:
    rForEachUnitInRangeTemplate(pTestShape)
        rAdd(rConstant(1)) // X
}

// Defining Range Shape
pTestShape:
    // Header
    BYTE 5 5 // Size
    BYTE 2 2 // Origin (Where the Unit would be)

    // Data
    BYTE 0 1 1 1 0
    BYTE 1 0 1 0 1
    BYTE 1 1 0 1 1
    BYTE 1 0 1 0 1
    BYTE 0 1 1 1 0

    // For good measure
    ALIGN 4