local integer have_qty

    local integer need_qty

    local integer afford_gold

    local integer afford_wood

    local integer afford_qty

    local integer gold_cost

    local integer wood_cost

    //------------------------------------------------------------------------

    // if we have all we're asking for then make nothing

    //

    if town == -1 then

        set have_qty = TownCount(unitid)

    else

        set have_qty = TownCountTown(unitid,town)

    endif

    if have_qty >= ask_qty then

        return true

    endif

    set need_qty = ask_qty - have_qty

    //------------------------------------------------------------------------

    // limit the qty we're requesting to the amount of resources available

    //

    set gold_cost = GetUnitGoldCost(unitid)

    set wood_cost = GetUnitWoodCost(unitid)

    if gold_cost == 0 then

        set afford_gold = need_qty

    else

        set afford_gold = total_gold / gold_cost

    endif

    if afford_gold < need_qty then

        set afford_qty = afford_gold

    else

        set afford_qty = need_qty

    endif

    if wood_cost == 0 then

        set afford_wood = need_qty

    else

        set afford_wood = total_wood / wood_cost

    endif

    if afford_wood < afford_qty then

        set afford_qty = afford_wood

    endif

    // if we're waiting on gold/wood; pause build orders

    if afford_qty < 1 then

        return false

    endif

    //------------------------------------------------------------------------

    // whether we make right now what we're requesting or not, assume we will

    // and deduct the cost of the units from our fake gold total right away

    //

    set total_gold = total_gold - gold_cost * need_qty

    set total_wood = total_wood - wood_cost * need_qty

    if total_gold < 0 then

        set total_gold = 0

    endif

    if total_wood < 0 then

        set total_wood = 0

    endif

    //------------------------------------------------------------------------

    // give the AI a chance to make the units (it may not be able to right now

    // but that doesn't stop us from trying other units after this as long

    // as we have enough money to make this AND the needed, unbuilt ones)

    //

    return SetProduce(afford_qty,unitid,town)

endfunction