求个职业BUFF宏

说明：
自动搜索团队内没有相应单体buff（真言术：韧，奥术智慧，野性印记）的团队成员，
为其补上，掉线的，死亡的，不在射程的都会忽略掉。
我们工会加BUFF是个问题,老是有人抱怨,希望大家都用我一下我发的这个宏.

牧师版 - 真言术：韧
/script local i,p;for i=1,40 do p="raid"..i;if CheckInteractDistance(p,4) and not UnitBuff(p,1,1) then TargetUnit(p);CastSpellByName("真言术：韧");TargetLastTarget();break;end;end;

牧师版 - 神圣之灵
/script local i,j,b,f,p;for i=1,40 do f=nil;p="raid"..i;if CheckInteractDistance(p,4) then for j=1,16 do b=UnitBuff(p,j);if b and strfind(b,"eSpir") then f=1;break;end;end;if not f then TargetUnit(p);CastSpellByName("神圣之灵");break;end;end;end;

法师版：
/script local i,p;for i=1,40 do p="raid"..i;if CheckInteractDistance(p,4) and not UnitBuff(p,1,1) then TargetUnit(p);CastSpellByName("奥术智慧");TargetLastTarget();break;end;end;

德鲁伊版：
/script local i,p;for i=1,40 do p="raid"..i;if CheckInteractDistance(p,4) and not UnitBuff(p,1,1) th