从行囊（0号包）向左数第四个包里，从上往下数第16个格中取食物喂养宠物。
/run CastSpellByName("喂养宠物")PickupContainerItem(3,16)

如果宠物（或宠物的尸体）不在身边就召唤宠物（或宠物的尸体），
如果宠物的尸体在身边则复活宠物，
否则就治疗宠物。
/run if not UnitExists("pet") then CastSpellByName("召唤宠物") else if UnitIsDead("pet") then CastSpellByName("复活宠物") else CastSpellByName("治疗宠物") end end

影遁，且不会取消影遁。
/run local i,x=1,0 while UnitBuff("player",i) do if UnitBuff("player",i)=="Interface\\Icons\\Ability_Ambush" then x=1 end i=i+1 end if x==0 then CastSpellByName("影遁") else end

查询鼠标悬停动作条按键编号
/run local a=GetMouseFocus()message(ActionButton_GetPagedID(a))

按一下开始吃，再按一下开始喝，当已经开始吃喝，就不会再重复使用食物。
将35替换为食物所在的动作条编号，将36替换为饮料所在的动作条编号。
/run local e,d,s,u,a,p,x,z,f,b,_="INV_Misc_Fork&Knife","INV_Drink_07",strfind,UnitBuff,UseAction,"player",35,36;for i=1,32 do f=(s((u(p,i))or"",e))if(f)then x=nil end;b=(s((u(p,i))or"",d))if(b)then z=nil end;end;_=((x)and a(x))or((z)and a(z))

选取断牙为目标并驯服，重复按键不会重新开始读条。
/run TargetByName("断牙", exactMatch);
/run if not CastingBarFrame.channeling then CastSpellByName("驯服野兽"); end;

如果鼠标悬停在任何目标上，宠物攻击该目标。
如果鼠标未悬停于任何目标，宠物攻击当前目标。
如果鼠标未悬停于任何目标，且人物当前也未选取任何目标，锁定最近的可攻击目标并命令宠物攻击。
/script if UnitCanAttack("player","mouseover") then TargetUnit("mouseover");PetAttack();TargetUnit("playertarget"); else PetAttack(); end

如果身上有战斗怒吼就打顺劈，没有就吼战斗。
/run local z=0 for i=1,27 do t=UnitBuff("player",i) if (t and string.find(t,"BattleShout")) then z=1 break end end if z==1 then CastSpellByName("顺劈斩") else CastSpellByName("战斗怒吼") end

向商人NPC出售包里所有灰色物品。
/run 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 DEFAULT_CHAT_FRAME:AddMessage("Selling "..name);UseContainerItem(bag,slot) end; end; end

聊天框白字说出目标防护属性
/run local b={"护甲","神圣抗性","火焰抗性","自然抗性","冰霜抗性","暗影抗性","奥术抗性"} a=UnitName("target").."的属性: " for i=0,6 do a = a..b[i+1].." "..UnitResistance("target", i)..", " end SendChatMessage(a)

如果有鼠标指向目标就对鼠标指向目标援护，
如果没有就对目标的目标援护。
/run c=CastSpellByName s="援护" if UnitExists("mouseover") and UnitReaction("mouseover","player")>4 then TargetUnit("mouseover") c(s) TargetLastTarget() else TargetUnit("targettarget") c(s) TargetLastTarget() end

脱光宏
/run ClearCursor()local k;for i=1,4 do for j=1,GetContainerNumSlots(i)do if(not GetContainerItemLink(i,j))then repeat k,l=next({1,3,5,6,7,8,9,10,16,17,18},k)if(not k)then return;end;PickupInventoryItem(l)until(CursorHasItem())PutItemInBag(i+19)end;end;end

仅当怪物目标不是你时施放嘲讽。
/run if not UnitIsUnit('player', 'targettarget') then CastSpellByName('嘲讽'); end