/run t="raid"; nps=1; npe=GetNumRaidMembers(); if npe==0 then t="party"; nps=0; npe=GetNumPartyMembers() end; w=nil; m=0; for i=nps,npe do if i==0 then tt="player" else tt=t..i end; if UnitExists(tt) and UnitInRange(tt)==1 and UnitIsDeadOrGhost(tt)~=1 then for j=1,40 do d={UnitDebuff(tt,j)}; if d~=nil and (d[5]=="Disease" or d[5]=="Magic") and d[7]>m then w=tt; m=d[7]; if d[5]=="Disease" then s="Cleanse" else s="Cleanse" end end end end end; if w~=nil then RunMacroText("/cast [@"..w.."] "..s) end;