再也不用挨个点了：一键检测团队buff宏

/script local f=false

local p=GetClientPlayer()

if p.IsInParty() then

local h=GetClientTeam()

for i=0,h.nGroupNum-1 do

local hInfo=h.GetGroupInfo(i)

if hInfo and hInfo.MemberList then

for _,dwID in pairs(hInfo.MemberList) do

local hp=GetPlayer(dwID)

if hp then

local bList=hp.GetBuffList() or {}

local b1=false;b2=false;b4=false;szText=""

for _,tBuff in pairs(bList) do

local bType=GetBuffInfo(tBuff.dwID,tBuff.nLevel,{}).nDetachType

if bType==17 or bType==18 then b1=true end

if bType==19 or bType==20 then b2=true end

if f and (tBuff.dwID==316 or tBuff.dwID==2313) and tBuff.nLevel==1 then

b4=true

end

end

if not b1 then szText=szText.."1食品无" end

if not b2 then szText=szText.."2药品无" end

if f and not b4 then szText=szText.."3复活无" end

if not b1 or not b2 or (f and not b4) then

p.Talk(PLAYER_TALK_CHANNEL.NEARBY,"",{{type="text",text="["..hp.szName.."]："..szText.." \n"}})

end

end

end

end

end

end

　　PS：要检测否有可复活BUFF时，修改第一行“local f=false”为“local f=true”