WoW / Macros

Link to this macro!
Name	Delete Grays
Description	Deletes all grays in all of your bags
Code	/script for bag = 0,4,1 do for slot = 1, GetContainerNumSlots(bag), 1 do local name = GetContainerItemLink(bag,slot); if name and string.find(name,"ff9d9d9d") then PickupContainerItem(bag,slot) DeleteCursorItem() end; end;end;

Link to this macro!
Name	Vendor Grays
Description	Vendors all grays in all of your bags (must have vendor window open)
Code	/run p=0 for b=0,4 do for s=1,GetContainerNumSlots(b) do n=GetContainerItemLink(b,s)if n and string.find(n,"9d")then N={GetItemInfo(n)} c=GetItemCount(n) p=p+(N[11]*c)UseContainerItem(b,s)end end end print("Sold grays for "..GetCoinText(p))

Link to this macro!
Name	Scaryface
Description	A scary face made with raid icons (doesn't work in general/trade)
Code	{square}{square}{square}{square}{square} {square}{circle}{square}{circle}{square} {square}{square}{square}{square}{square} {square}{triangle}{triangle}{triangle}{square} {square}{square}{square}{square}{square} om nom nom nom

Link to this macro!
Name	All-in-one Misdirection
Description	Click = select target (normal); Shift-click = MD to pet; Ctrl-click = MD to focus
Code	#show Misdirection /cast [modifier:shift,target=pet] Misdirection; [modifier:ctrl,target=focus] Misdirection; Misdirection

Link to this macro!
Name	Repeatable Rep Turnin
Description	Right click quest giver. Click macro. Repeat.
Code	/script SelectGossipAvailableQuest(1) /script CompleteQuest() /script GetQuestReward()

Link to this macro!
Name	Delete Grays (Keep Lucky Rock)
Description	Deletes all grays in all of your bags (except Lucky Rock)
Code	/script for x = 0,4,1 do for y = 1, GetContainerNumSlots(x), 1 do local name = GetContainerItemLink(x,y); if name and string.find(name,"ff9d9d9d") and not string.find(name,"Lucky Rock") then PickupContainerItem(x,y) DeleteCursorItem() end;end;end;

Link to this macro!
Name	Shaman Locomotion
Description	Shift- or Ctrl-Click = Ghost Wolf; Alt-Click = Water Walking + Mount; Just Click = Mount
Code	#showtooltip /cast [modifier:alt] Water Walking; /cast [modifier:shift] Ghost Wolf; [modifier:ctrl] Ghost Wolf; [modifier:alt] <Mount Name Here>; <Mount Name Here>

Link to this macro!
Name	Send Party Experience Details
Description	Example: I am 1.5 bars into this level (18.5 bars left)
Code	/script local e=UnitXP("player"); local m=UnitXPMax("player"); local b=m/20; local rba=floor((e/b)10+0.5)/10; local rbb=floor((20-(e/b))10+0.5)/10; SendChatMessage("I am "..rba.." bars into "..UnitLevel("player").." ("..rbb.." bars left)","PARTY",nil);

Link to this macro!
Name	Gold Counter
Description	Shift-click to set current gold, click later and it'll tell you how much you've made since
Code	/run if IsModifierKeyDown()then cG=GetMoney() print("Setting start point")else print("Total money made: "..GetCoinText(GetMoney()-cG))end

Link to this macro!
Name	Gold Checker
Description	Tells you the most money your target has ever owned
Code	/run if not zb then zb=CreateFrame("Frame")zb:RegisterEvent("INSPECT_ACHIEVEMENT_READY")zb:SetScript("OnEvent",function()print(UnitName("target").." ("..UnitLevel("target")..") "..GetComparisonStatistic(334))end)end SetAchievementComparisonUnit("target")

Link to this macro!
Name	Warrior Shield Slam/Shield Block
Description	Macros in Berserker Rage and Shield Block since they should always be up
Code	#showtooltip Shield Slam /run sfx=GetCVar("Sound_EnableSFX"); /console Sound_EnableSFX 0 /cast Berserker Rage /cast [nomod] Shield Block /run SetCVar("Sound_EnableSFX",sfx); /cast Shield Slam

Link to this macro!
Name	Instant/Deadly Poisons
Description	Puts instant on main-hand (left click), deadly on off-hand (right click)
Code	#showtooltip /cast [button:1] Instant Poison; Deadly Poison /cast [button:1] 16; 17 /click StaticPopup1Button1

Link to this macro!
Name	Righreous Fury Scanner
Description	Scans through your party, if anyone has Righteous Fury on it'll tell them to turn it off
Code	/run for p=1,GetNumPartyMembers() do b=UnitBuff("party"..p,"Righteous Fury") if b then SendChatMessage("TAKE OFF RIGHTEOUS FURY "..string.upper(UnitName("party"..p)),"party") end end

Link to this macro!
Name	Archaeology Solves Counter
Description	Prints a list of each Archaeology race and how many of their artifacts you've solved
Code	/run print("Total artifacts"); for x=1,9 do local c=GetNumArtifactsByRace(x); local a =0; for y=1,c do local t = select(9, GetArtifactInfoByRace(x, y)); a=a+t;end local rn = GetArchaeologyRaceInfo(x); if( c > 1 ) then print(rn .. ": " .. a); end end

Link to this macro!
Name	Send Instance Experience Details
Description	Sends bars-into and bars-left to next level to instance chat
Code	/script local e=UnitXP("player"); local m=UnitXPMax("player"); local b=m/20; local rba=floor((e/b)10+0.5)/10; local rbb=floor((20-(e/b))10+0.5)/10; SendChatMessage(rba.." bars into "..UnitLevel("player").." ("..rbb.." bars left)","INSTANCE_CHAT",nil);