近日有许多求一个这样的宏,在RAID时候没爪子的给补上爪子,而不需要把团队助手拉出来一一查看了~
/script local i,j,b,f,p;for i=1,40 do f=nil;p="raid"..i;if UnitIsVisible(p) then for j=1,16 do b=UnitBuff(p,j);if b and strfind(b,"Regen") then f=1;break;end;end;if not f then TargetUnit(p);CastSpellByName("野性印记");break;end;end;end;
(但是掉线的，死亡的，不在视野内的都不会忽略掉~
遇到上面的情况就锁死那人不能进行下去了~
求有没有可以~忽略掉掉线的，死亡的，不在视野内的~
)
MACRO 16777220 "自动爪子"
/ script for i=1,40 do a="Raid"..i;if UnitName(a) then b="";for j=1,16 do if UnitBuff(a,j) then b=UnitBuff(a,j)..b;end;end;if (not strfind(b,"Rege")) then TargetUnit(a);CastSpellByName("野性印记"); SpellStopCasting();end;end;end;
MACRO 16777237 "爪子统计"
/ script c=0;d=SendChatMessage;for i=1,40 do a="Raid"..i;if UnitName(a) then b="";for j=1,20 do if UnitBuff(a,j) then b=UnitBuff(a,j)..b;end;end;if not strfind(b,"Rege") then c=c+1;d(UnitName(a));end;end;end;d(c.."个目标没有爪子","say");
MACRO 16777239 "耐统计"
/ script c=0;d=SendChatMessage;for i=1,40 do a="Raid"..i;if UnitName(a) then b="";for j=1,20 do if UnitBuff(a,j) then b=UnitBuff(a,j)..b;end;end;if not strfind(b,"Forti") then c=c+1;d(UnitName(a));end;end;end;d(c.."个目标没有耐","say");
不用判定距离,穷举就是了,按的时候机器不好会有些卡,不过完全符合要求
