Some fun macros!

I have a habit of copying my main to the PTR and destroying her on there and trying to play her, so I find these macros really useful! I'm sure someone else can find them neat too.

Delete all bag items:
/run for bag = 0,4,1 do for slot = 1, 32, 1 do local name = GetContainerItemLink(bag,slot); if name and string.find(name,"") then PickupContainerItem(bag,slot); DeleteCursorItem(); end; end; end

Clear all visible action bars:
/run for i = 1,120 do PickupAction(i) ClearCursor() end

Abandon all quests:
/run for i=1,GetNumQuestLogEntries() do SelectQuestLogEntry(i); SetAbandonQuest(); AbandonQuest(); end

Put topmost Battle Pet in cage (Need to spam this one!):
/run local p,j={},C_PetJournal for i=1,j.GetNumPets() do p={j.GetPetInfoByIndex(i)} if p[16] and p[1] then j.CagePetByID(p[1]) return end end