local integer count

    local integer town

    local unit    peon

    local integer gold_cost

    set count = TownCount(hall)

    if count >= qty then

        return true

    endif

    set town = GetNextExpansion()

    if town == -1 then

        return true

    endif

    set take_exp = true

    set gold_cost = GetUnitGoldCost(hall)

    if gold_cost > total_gold then

        return false

    endif

    set total_gold = total_gold - gold_cost

    if GetExpansionFoe() != null then

        return true

    endif

    set peon = GetExpansionPeon()

    if peon != null then

        return SetExpansion(peon,hall)

    endif

    return true

endfunction