--Macro 1: (fill up who list)
            who={}
            SendWho('z-"Tanaris"')
            for i=1,GetNumWhoResults() do
                n=GetWhoInfo(i)
                who[i]=n
            end
            curWho=1
            maxWho=#who

            local me = UnitName("player")

            for i=1,maxWho do
                --TargetUnit("none")
                print("Targeting: "..who[i])
                TargetUnit(who[i])
                if UnitName("target") then
                    if UnitName("target") ~=  me then
                        CastSpellByName("Crown Parcel Service Uniform")
                    end
                end
            end
            curWho=1