GroupEnumUnitsInRange(G,x1,y1,500,null)
    loop
        E = FirstOfGroup(G)
        typ = GetUnitTypeId(E)
        exitwhen E == null
        n = CreateUnit(GetOwningPlayer(E),typ,GetUnitX(E),GetUnitY(E),GetUnitFacing(E))
        if typ == 'n007' then
            AddUnitToStock(n,'H045',1,1)
            AddUnitToStock(n,'H03L',1,1)
            AddUnitToStock(n,'H02M',1,1)
            AddUnitToStock(n,'H02K',1,1)
            AddUnitToStock(n,'H02J',1,1)
            AddUnitToStock(n,'H01L',1,1)
            AddUnitToStock(n,'H01C',1,1)
            AddUnitToStock(n,'H018',1,1)
            AddUnitToStock(n,'H012',1,1)
        elseif typ == 'n009' then
            AddUnitToStock(n,'H042',1,1)
            AddUnitToStock(n,'H03K',1,1)
            AddUnitToStock(n,'H034',1,1)
            AddUnitToStock(n,'H02O',1,1)
            AddUnitToStock(n,'H02L',1,1)
            AddUnitToStock(n,'H02I',1,1)
            AddUnitToStock(n,'H02H',1,1)
            AddUnitToStock(n,'H043',1,1)
            AddUnitToStock(n,'H048',1,1)
        elseif typ == 'n00D' then
            AddUnitToStock(n,'H044',1,1)
            AddUnitToStock(n,'H031',1,1)
            AddUnitToStock(n,'H03R',1,1)
            AddUnitToStock(n,'H047',1,1)
            AddUnitToStock(n,'H049',1,1)
            AddUnitToStock(n,'H04A',1,1)
        elseif typ == 'n000' then
            AddUnitToStock(n,'H03Z',1,1)
            AddUnitToStock(n,'H03S',1,1)
            AddUnitToStock(n,'H033',1,1)
            AddUnitToStock(n,'H032',1,1)
            AddUnitToStock(n,'H02X',1,1)
            AddUnitToStock(n,'H02R',1,1)
            AddUnitToStock(n,'H02D',1,1)
            AddUnitToStock(n,'H00E',1,1)
            AddUnitToStock(n,'H006',1,1)
        elseif typ == 'n001' then
            AddUnitToStock(n,'H00Y',1,1)
            AddUnitToStock(n,'H02U',1,1)
            AddUnitToStock(n,'H02S',1,1)
            AddUnitToStock(n,'H008',1,1)
            AddUnitToStock(n,'H02P',1,1)
            AddUnitToStock(n,'H00L',1,1)
            AddUnitToStock(n,'H011',1,1)
            AddUnitToStock(n,'H00P',1,1)
            AddUnitToStock(n,'H00M',1,1)
            AddUnitToStock(n,'H00K',1,1)
            AddUnitToStock(n,'H00J',1,1)
            AddUnitToStock(n,'H00D',1,1)
        elseif typ == 'n006' then
            AddUnitToStock(n,'H03P',1,1)
            AddUnitToStock(n,'H03B',1,1)
            AddUnitToStock(n,'H02V',1,1)
            AddUnitToStock(n,'H02G',1,1)
            AddUnitToStock(n,'H02F',1,1)
            AddUnitToStock(n,'H02B',1,1)
            AddUnitToStock(n,'H027',1,1)
            AddUnitToStock(n,'H01H',1,1)
            AddUnitToStock(n,'H01F',1,1)
            AddUnitToStock(n,'H01D',1,1)
            AddUnitToStock(n,'H017',1,1)
            AddUnitToStock(n,'H00Z',1,1)
        elseif typ == 'n002' then
            AddUnitToStock(n,'H02Y',1,1)
            AddUnitToStock(n,'H01B',1,1)
            AddUnitToStock(n,'H00N',1,1)
            AddUnitToStock(n,'H016',1,1)
            AddUnitToStock(n,'H014',1,1)
            AddUnitToStock(n,'H00X',1,1)
            AddUnitToStock(n,'H00H',1,1)
            AddUnitToStock(n,'H00I',1,1)
            AddUnitToStock(n,'H01A',1,1)
            AddUnitToStock(n,'H00C',1,1)
            AddUnitToStock(n,'H00A',1,1)
        endif
        GroupRemoveUnit(G,E)
        RemoveUnit(E)
    endloop