local integer index = 0

    local integer unitid

    local integer desire

    local integer count

    loop

        exitwhen index == harass_length

        set unitid = harass_units[index]

        set desire = harass_qty[index] + IgnoredUnits(unitid)

        set count  = TownCount(unitid)

        if count != desire then

            if not StartUnit(desire,unitid,-1) then

                return

            endif

        endif

        set index = index + 1

    endloop

endfunction