进入战斗后在经验条上显示所有宠物等级与经验 当前宠物红色 代码如下 效果图如下 Code (lua):
local petxp = CreateFrame("Frame", nil, UIParent) 
petxp:SetSize(200,10) 
petxp:SetPoint("center", PetBattleFrameXPBar, "center", 0, 0) 
 
petxp.Text = petxp:CreateFontString(nil, "OVERLAY') 
petxp.Text:SetFont('Fonts\\arialn.ttf', 13, 'THINOUTLINE') 
petxp.Text:SetPoint('CENTER') 
 
petxp:RegisterEvent("PET_BATTLE_XP_CHANGED") 
petxp:RegisterEvent("PET_BATTLE_OPENING_START") 
petxp:RegisterEvent("PET_BATTLE_PET_CHANGED") 
petxp:RegisterEvent("PET_BATTLE_OVER") 
petxp:SetScript("OnEvent", function(self,event) 
petIndex = C_PetBattles.GetActivePet(1) 
xp, maxXp = C_PetBattles.GetXP(1, petIndex) 
xp1, maxXp1 = C_PetBattles.GetXP(1, 1) 
xp2, maxXp2 = C_PetBattles.GetXP(1, 2) 
xp3, maxXp3 = C_PetBattles.GetXP(1, 3) 
name1 = C_PetBattles.GetName(1, 1) 
name2 = C_PetBattles.GetName(1, 2) 
name3 = C_PetBattles.GetName(1, 3) 
lv1 = C_PetBattles.GetLevel(1, 1) 
lv2 = C_PetBattles.GetLevel(1, 2) 
lv3 = C_PetBattles.GetLevel(1, 3) 
if xp == xp1 then 
petxp.Text:SetText('|cFFFF0000'..name1.."  "..lv1.."级".."  "..xp1.."/"..maxXp1..'|r'.."  "..name2.."  "..lv2.."级".."  "..xp2.."/"..maxXp2.."  "..name3.."  "..lv3.."级".."  "..xp3.."/"..maxXp3) 
elseif xp == xp2 then 
petxp.Text:SetText(name1.."  "..lv1.."级".."  "..xp1.."/"..maxXp1.."  "..'|cFFFF0000'..name2.."  "..lv2.."级".."  "..xp2.."/"..maxXp2..'|r'.."  "..name3.."  "..lv3.."级".."  "..xp3.."/"..maxXp3) 
else 
petxp.Text:SetText(name1.."  "..lv1.."级".."  "..xp1.."/"..maxXp1.."  "..name2.."  "..lv2.."级".."  "..xp2.."/"..maxXp2.."  "..'|cFFFF0000'..name3.."  "..lv3.."级".."  "..xp3.."/"..maxXp3..'|r') 
end 
--   petxp.Text:SetText(xp.."/"..maxXp) 
   petxp:SetAlpha(1) 
   if event=="PET_BATTLE_OVER" then 
   petxp:SetAlpha(0) 
   end 
end)