// Hook into Battle Calc Loop
prBCSkillWANDidntGiveANameYetShrug:
{
    rBCWrapper
        rIf(_prCheckForUnitsWithSkillInRange)
            rForEachUnitInRange(0, 3) // 1-3 range, default support range
                rIfUnitsAreAllied
                    rBSCAddUnitsSupportBonuses(1)

_prCheckForUnitsWithSkillInRange:
    rCallSequence(prNullify _prCheck)

_prCheck:
    rForEachUnitInRangeTemplate(pTestShape)
        rIfUnitsAreAllied
            rOr(rCall(/* Check */)) // (rWithConstant(SKILL_SOMETHING, rCall(prCheckUnitHasSkill)))
}


// 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