CCWLK-魔兽80怀旧公益服论坛

发表于： **2017-08-17 13:04:21**

占坑……

发表于： **2017-10-06 20:12:41**

我在用的骑士宏，也是从各个地方折腾过来的。放在这里就当做个备份。
希望对有帮助的朋友多组组我

骑羊跑天下

。嗯，只要有蓝，总会给你加到血的。

1

圣印

代码：全选

/script ShengYing(1,"十字军圣印","HolySmite","Holy_HolySmite");if nil then CastSpellByName("十字军圣印");end;

代码：全选

function ShengYing(p,s,m,n)
local c,i,j,b,d,f,e=CastSpellByName;if IsAltKeyDown() then c(s);end;if not IsCurrentAction(7) then AttackTarget();end;for i=1,16 do b=UnitBuff("player",i);if b and strfind(b,m) then f=1;break;end;end;if f then if n then for j=1,16 do d=UnitDebuff("target",j);if d and strfind(d,n) then e=1;break;end;end;if not e then if p then c("审判");end;end;else if p then c("审判");end;end;else CastSpellByName(s);end;end;

2

救人

代码：全选

/script FuHuo(44);if nil then CastSpellByName("救赎");end;

代码：全选

function FuHuo(m)
local n,p,t,i=4,"party";
if UnitInRaid("player") then n=40;p="raid";end;
for i=1,n do t=p..i;
if UnitIsDead(t) and CheckInteractDistance(t,4) then TargetUnit(t);if not IsCurrentAction(m) and not UnitAffectingCombat("player") then SendChatMessage("我开始复活 %t","yell");end;CastSpellByName("救赎");break;end;end;CastSpellByName("救赎");end;

3

清洁

代码：全选

/script JieJD("清洁术");if nil then CastSpellByName("清洁术");end;

代码：全选

function JieJD(m) local n,p,t,i,d=nil,"party";
if UnitInParty("player") then n=GetNumPartyMembers();if n>0 then p="party";else n=nil;end;end;
if UnitInRaid("player") then n=GetNumRaidMembers();p="raid";end;
if not n then CastSpellByName(m);else
for i=0,n do if i>0 then t=p..i;else t="player";end;if UnitDebuff(t,1,1) and CheckInteractDistance(t,4) then TargetUnit(t);CastSpellByName(m);TargetLastTarget();break;end;end;end;CastSpellByName("清洁术");end;

4

圣骑绝招

代码：全选

/script local b,s,l;if PlayerFrame.inCombat then CastSpellByName("圣盾术");for b=0,4 do for s=1,18 do l=GetContainerItemLink(b,s);if l and strfind(l,"炉石") then UseContainerItem(b,s);break;end;end;end;end;

5

雷达

代码：全选

/script local c,t=CastSpellByName,GetTrackingTexture();if IsAltKeyDown() then c("感知亡灵");end;if t and strfind(t, "Treasure") then CastSpellByName("寻找矿物");else c("寻找财宝");end;

6

武器摸油

代码：全选

/use 致密磨刀石
/script USEBag("致密磨刀石",16);

代码：全选

function USEBag(n,m) local b,s,l;for b=0,4 do for s=1,18 do l=GetContainerItemLink(b,s);if l and strfind(l,n) then UseContainerItem(b,s,'onSelf');if m then PickupInventoryItem(m)break;end;end;end;end;end;

7

掉血百分比最多圣光

代码：全选

/script XLBaiFen(1,nil);if nil then CastSpellByName("圣光术");end;

代码：全选

function XLDiaoXue(s,r)

--if s == 1 ShengGuangShu ;nil ShengGuangShanXian
--r==nil 非团队 ;其它 团队
local h,m,n,p,q,i,l=UnitHealth,UnitHealthMax,nil,"player","target";
if UnitInParty("player") then 
    n=GetNumPartyMembers();
    if n>0 then 
        l="party";
    else 
        n=nil;
    end;
end;
if UnitInRaid("player") and r then 
    n=GetNumRaidMembers();l="raid";
end;
if IsAltKeyDown() then 
    ZhiLiao(s);
else 
    if not n then 
        ZhiLiao(s);
    else 
        for i=1,n do 
            if n then 
                q=l..i;
            end;
            if CheckInteractDistance(q,4) and m(p)-h(p)<m(q)-h(q) and h(q)>1 then 
                p=q;
            end;
        end;
        TargetUnit(p);ZhiLiao(s);
    end;
end;
end;

8

掉血百分比最多闪现

代码：全选

/script XLBaiFen(0,nil);if nil then CastSpellByName("圣光闪现");end;

代码：全选

function XLBaiFen(s,r)
--if s == 1 ShengGuangShu ;nil ShengGuangShanXian
--r==nil 非团队 ;其它 团队
local h,m,n,p,q,i,l=UnitHealth,UnitHealthMax,nil,"player","target";
if UnitInParty("player") then 
    n=GetNumPartyMembers();
    if n>0 then 
        l="party";
    else 
        n=nil;
    end;
end;
if UnitInRaid("player") and r then 
    n=GetNumRaidMembers();l="raid";
end;
if IsAltKeyDown() then 
    ZhiLiao(s);
else 
    if not n then 
        ZhiLiao(s);
    else 
        for i=1,n do 
            if n then 
                q=l..i;
            end;
            if CheckInteractDistance(q,4) and h(p)/m(p) > h(q)/m(q) and h(q)>1 then 
                p=q;
            end;
        end;
        TargetUnit(p);ZhiLiao(s);
    end;
end;
end;

9

掉血最多圣光

代码：全选

/script XLDiaoXue(1,nil);if nil then CastSpellByName("圣光术");end;

代码：全选

function ZhiLiao(f)
--if f == 1 ShengGuangShu ;2 ZhengJi ; nil ShengGuangShanXian
--n ZhiLiaoLiang
local n,x,h,m,t,l,p,d,o=220,{[3]=210,[4]=399,[5]=620,[6]=874,[7]=1180,[8]=1555},UnitHealth,UnitHealthMax,"target";
if m(t)<2 or UnitIsEnemy("player","target") then 
    t="player";
end;
if f==1 then 
    l=m(t)-h(t);
    --ChatFrame1:AddMessage(l);
    if h(t)>1 then 
        if l>1 then 
            for i,j in x 
                do o=j+n;
                if o>l then 
                    p="圣光术(等级 "..i..")";d=9+i;break;
                end;
                p="圣光术(等级 "..i..")";d=9+i;
            end;
            --if not IsCurrentAction(d) then CastSpellByName(p);end;
            CastSpellByName(p);
            if GetNumPartyMembers()>0 then ChatFrame1:AddMessage("失血:"..l..",技能:"..p..",治疗:"..o.." "..UnitName(t));end;
        else
            CastSpellByName("圣光术(等级 4)");
        end;
    end;
elseif f==2 then
    CastSpellByName("神圣震击");
else 
    CastSpellByName("圣光闪现");
end;
end;

10

掉血最多闪现

代码：全选

/script XLDiaoXue(0,nil);if nil then CastSpellByName("圣光闪现");end;

发表于： **2017-10-06 20:27:42**

法师用的宏

1

找人

代码：全选

/script local s="纳兹加克王子";TargetByName(s,1);if UnitName("target")==s then ChatFrame1:AddMessage("找到 : "..s);end;

2

找技能书位置

代码：全选

/script local s,i,n="º®±ùÆÁÕÏ",1;while 1 do n=GetSpellName(i,"spell");if n then if strfind(n,s) then ChatFrame1:AddMessage(i);break;end;i=i+1;else break;end;end;

3

找BUFF

代码：全选

/script local i,b;for i=1,16 do b=UnitBuff("player",i);if b then ChatFrame1:AddMessage(i.." : "..b);end;end;

4

闪现

代码：全选

/script CancelBuff("寒冰屏障");SpellStopCasting();CastSpellByName("闪现术");

5

做宝石

代码：全选

/script ConjureManaStone();if nil then CastSpellByName("制造魔法红宝石");end

代码：全选

function        ConjureManaStone() 
   local        x,j,b,s,l,f={"红宝石","黄水晶","翡翠","玛瑙"},1; 
   while j<5        do 
      f=nil; 
      for        b=0,4 do 
         for s=1,18 do 
                          l=GetContainerItemLink(b,s); 
                   if l and strfind(l,"法力"..x[j]) then 
                             f=j;break; 
                   end; 
         end; 
                if f then break;end; 
             end; 
      if f then        j=j+1; 
      else        CastSpellByName("制造魔法"..x[j]);break; 
             end; 
   end; 
end;

6

吃宝石

代码：全选

/script useManaStone();if nil then CastSpellByName("制造魔法红宝石");end

代码：全选

function        useManaStone() 
   local        x,j,b,s,l,f={"红宝石","黄水晶","翡翠","玛瑙"},1; 
   while j<5        do 
      f=nil; 
      for        b=0,4 do 
         for s=1,18 do 
                          l=GetContainerItemLink(b,s); 
                   if l and strfind(l,"法力"..x[j]) then 
                             f=j;UseContainerItem(b,s);break; 
                   end; 
         end; 
                if f then break;end; 
             end; 
      if f then        break; 
      else        j=j+1; 
             end; 
   end; 
end;

7

下雪

代码：全选

/script local c,i,b,f=CastSpellByName;for i=1,16 do b=UnitBuff("player",i);if b and strfind(b,"ManaB") then f=1;break;end;end;if f then c("暴风雪");else CastSpellByName("暴风雪(等级 1)");end;

8

冰箱

代码：全选

/script local c,i,b,f,d,_=CastSpellByName;for i=1,16 do b=UnitBuff("player",i);if b and strsub(b,5)=="Frost" then f=1;break;end;end;if not f then _,d=GetSpellCooldown(29,"spell");if d<2 then SpellStopCasting();CastSpellByName("寒冰屏障");end;end;

9

反制

代码：全选

/script CancelBuff("寒冰屏障");SpellStopCasting();CastSpellByName("法术反制");

发表于： **2017-10-07 16:00:52**

CCWLK-魔兽80怀旧公益服论坛

弄点关注度，晚上把法师的宏发出来

弄点关注度，晚上把法师的宏发出来

Re: 弄点关注度，晚上把法师的宏发出来

Re: 弄点关注度，晚上把法师的宏发出来

Re: 弄点关注度，晚上把法师的宏发出来