超级科技盗贼FARM宏【增加了以前使用的个智能战士的视频】

abc110

最下面有视频可以看，下面是简单教程，供有能力的WOWER去改装，
我平时比较忙，不一定有时间回答得上，以及做特定的插件，或宏，这些由有能力的高手继续自由发挥了。

插件：

这个宏查找对应的技能代码，因为1.12的是按角色的技能书序号做编码，可能会因为学习了新的技能导致技能ID发生变化，请自行检测。

1. /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;
   

复制代码

抽筋判断条件

1. 
   
2. 
   
3. function CastSpell()
   
4.     local p, c, b, i, f = GetComboPoints(); -- 获取玩家的连击点数，并将它们存储在本地变量p，c，b，i和f中。
   
5. 
   
6.     -- 循环遍历玩家的增益效果（buffs），检查是否存在一个名字中包含"DualWield"的增益效果。
   
7.     for i = 1, 16 do
   
8.         b = UnitBuff("player", i); -- 获取玩家单位（角色）在索引i处的增益效果信息。
   
9.         if b and strfind(b, "DualWield") then -- 检查增益效果是否存在，并且它是否包含"DualWield"。
   
10.             f = 1; -- 将f设置为1，表示玩家拥有"DualWield"增益效果。
    
11.             break; -- 早早地退出循环，因为我们找到了"DualWield"增益效果。
    
12.         end;
    
13.     end;
    
14. 
    
15.     if p > 0 and not f then -- 检查玩家是否有连击点数（p > 0），并且没有"DualWield"增益效果（not f）。
    
16.         return "兴奋"; -- 返回字符串"兴奋"。
    
17.     elseif p == 5 and f then -- 检查玩家是否有5个连击点数（p == 5），并且有"DualWield"增益效果（f为true）。
    
18.         return "剔骨"; -- 返回字符串"剔骨"。
    
19.     else
    
20.         -- 如果以上条件不满足，则检查"鬼魅攻击"法术（动作ID为50）是否可用，不处于冷却状态，并且玩家的法力值足够（>=40）。
    
21.         if IsUsableAction(50) and GetSpellCooldown(50, "spell") == 0 and UnitMana("player") >= 40 then
    
22.             return "鬼魅攻击"; -- 返回字符串"鬼魅攻击"。
    
23.         end;
    
24. 
    
25.         -- 如果以上条件不满足，则检查玩家的法力值是否足够（>=40），并返回"邪恶攻击"。
    
26.         if UnitMana("player") >= 40 then
    
27.             return "邪恶攻击"; -- 返回字符串"邪恶攻击"。
    
28.         end
    
29. 
    
30.         -- 如果以上条件都不满足，则检查"还击"法术（动作ID为37）是否可用，不处于冷却状态，并且玩家的法力值足够（>=10）。
    
31.         if IsUsableAction(37) and GetSpellCooldown(37, "spell") == 0 and UnitMana("player") >= 10 then
    
32.             return "还击"; -- 返回字符串"还击"。
    
33.         end;
    
34.     end;
    
35. end
    
36. 
    

复制代码

抽筋执行宏

1. /Equip 安图苏尔之手
   
2. /script tsx=CastSpell() if (tsx) then CastSpellByName(tsx);end

复制代码

我是这样的天赋

------------------------------------分割线---------------------------------------------

超级科技盗贼FARM宏。

思路：自动下马，潜行，智能换主匕首，伏击，智能换主剑，兴奋，智能打还击，鬼魅攻击，邪恶，（看情况，卡一个切割），继续一个循环。

需要下载ClassicMacros 经典简化宏 插件

因为乌龟采用的是1.12的端，在界面上有很多判断的BUG，比如反击，单纯属用自带的IsUsableAction是无法判断的，因为在法术书里，均为启亮的状态。

启亮状态

实际判断的要为非启亮状态。

那问题来了！那如何解决这个问题呢？

正确答案：创建一个简单的执行功能宏，

然后拖放到按键槽里，记注这个位置。

利用ClassicMacros 的IsUsableAction判断这个按键是否可用，ClassicMacros 里有很多的一些命令，想进阶的，自己自行学习。

1.          local canhj,_=IsUsableAction(3,"player");
   
2.             if canhj and GetSpellCooldown(38, "spell") == 0 and UnitMana("player") >= 10 then
   
3.                 return "还击";
   
4.             end

复制代码

比如这样，IsUsableAction后面的3 就是上述按键3了，至于38 是法术书的还击技能ID，技能ID会因为洗天赋等情况，改变而改变，要注意更新！！！

自行替换这些武器的名称，自动会在背包里查找武器

主手武器潜行状态
    zswqQX = "断肠";
副手武器潜行状态
    fswqQX = "迅击匕首";
主手武器非潜行状态
    zswqNQX = "安图苏尔之手";
副手武器非潜行状态
    fswqNQX = "迅击匕首";

1. 
   
2. 
   
3. 
   
4. 
   
5. LoadAddOn("ClassicMacros")
   
6. function CastRun()
   
7.     CastXWG();
   
8.     local tsx = CastSpellx();
   
9.     if tsx and tsx ~= "" then
   
10.         CastSpellByName(tsx);
    
11.     end
    
12. end
    
13. 
    
14. function CastXWG()
    
15.     local i, b;
    
16.     for i = 1, 16 do
    
17.         b = UnitBuff("player", i);
    
18.         if b and (strfind(b, "speedy") or strfind(b, "RidingHorse")) then
    
19.             CastQHWQ(1);
    
20.             if strfind(b, "speedy") then
    
21.                 CastSpellByName("骑乘乌龟");
    
22.             else
    
23.                 CastSpellByName("白马");
    
24.             end
    
25.             break;
    
26.         end
    
27.     end
    
28. end
    
29. 
    
30. function CastQHWQ2(mainHand, offHand)
    
31.     local mhEquipped = GetInventoryItemLink("player", 16);
    
32.     local ohEquipped = GetInventoryItemLink("player", 17);
    
33. 
    
34.     if not strfind(mhEquipped, mainHand) or not strfind(ohEquipped, offHand) then
    
35.         PickupInventoryItem(GetInventorySlotInfo("MainHandSlot"));
    
36.         PickupInventoryItem(GetInventorySlotInfo("SecondaryHandSlot"));
    
37.     end
    
38. end
    
39. 
    
40. function CastQHWQ(a1)
    
41.     local zswqQX, fswqQX, zswqNQX, fswqNQX, zswq, fswq;
    
42.     zswqQX = "断肠";
    
43.     fswqQX = "痛击之刃";
    
44.     zswqNQX = "痛击之刃";
    
45.     fswqNQX = "断肠";
    
46. 
    
47.     if a1 == 1 then  
    
48.         zswq, fswq = zswqQX, fswqQX;
    
49.     else
    
50.         zswq, fswq = zswqNQX, fswqNQX;
    
51.     end
    
52. 
    
53.     if zswqQX == fswqNQX and fswqQX == zswqNQX then
    
54.         return CastQHWQ2(zswq, fswq);
    
55.     end
    
56. 
    
57.     local mainHandName = GetInventoryItemLink("player", 16);
    
58.     local b, s, l;
    
59. 
    
60.     if strfind(mainHandName , zswq) then
    
61.         for b = 0, 4 do
    
62.             for s = 1, 18 do
    
63.                 l = GetContainerItemLink(b, s);
    
64.                 if l and strfind(l, zswq) then
    
65.                     PickupContainerItem(b, s);
    
66.                     PickupInventoryItem(16);
    
67.                     break;
    
68.                 end
    
69.             end
    
70.         end
    
71.     end
    
72. 
    
73.     mainHandName = GetInventoryItemLink("player", 17);
    
74. 
    
75.     if strfind(mainHandName , fswq ) then
    
76.         for b = 0, 4 do
    
77.             for s = 1, 18 do
    
78.                 l = GetContainerItemLink(b, s);
    
79.                 if l and strfind(l, fswq) then
    
80.                     PickupContainerItem(b, s);
    
81.                     PickupInventoryItem(17);
    
82.                     break;
    
83.                 end
    
84.             end
    
85.         end
    
86.     end
    
87. end
    
88. function CastSpellx()
    
89.     local p, c, b, i, f = GetComboPoints();
    
90.     local a, a1,bftime, _;
    
91. 
    
92.     for i = 1, 16 do
    
93.         b = UnitBuff("player", i);
    
94.         if b and strfind(b, "Stealth") then
    
95.             a1 = 1;
    
96.             break;
    
97.         end
    
98.     end
    
99. 
    
100.     if not UnitAffectingCombat("player") then
     
101.         if a1 then
     
102.             CastQHWQ(1);
     
103.             _, _, a = GetShapeshiftFormInfo(1);
     
104.             return "伏击";
     
105.         end
     
106. 
     
107.         if not a then
     
108.             if GetSpellCooldown(46, "spell") == 0 then
     
109.                 CastQHWQ(1);
     
110.                 return "潜行";
     
111.             else
     
112.                 print("潜行法术CD中");
     
113.                 return nil;
     
114.             end
     
115.         end
     
116.     else
     
117.         if a1 and UnitMana("player") >= 60 then  
     
118.             CastQHWQ(1);
     
119.             return "伏击";
     
120.         end
     
121. 
     
122.         CastQHWQ(0);
     
123.         for i = 1, 16 do
     
124.             b = UnitBuff("player", i);
     
125.             if b and strfind(b, "DualWield") then
     
126.                 f = 1;
     
127.                 bftime=  GetPlayerBuffTimeLeft(i)
     
128.                 break;
     
129.             end
     
130.         end
     
131. 
     
132.         if p > 0 and not f then
     
133.             return "兴奋";
     
134.         elseif p > 0 and f and bftime>=4 and UnitMana("player")>=25 then
     
135.             return "切割";
     
136.         else
     
137.             if IsUsableAction(51) and GetSpellCooldown(51, "spell") == 0 and UnitMana("player") >= 45 then
     
138.                 return "鬼魅攻击";
     
139.             end
     
140.             local canhj,_=IsUsableAction(3,"player");
     
141.             if canhj and GetSpellCooldown(38, "spell") == 0 and UnitMana("player") >= 10 then
     
142.                 return "还击";
     
143.             end
     
144.             if UnitMana("player") >= 45 then
     
145.                 return "邪恶攻击";
     
146.             end
     
147.         end
     
148.     end
     
149. 
     
150.     return nil;
     
151. end
     
152. 
     
153. 
     
154. 
     

复制代码

1. /script CastRun();
   

复制代码

以下附件需要回复 1 次可见，已回复 0 次 1、QQ录屏20230809053041~1.mp4 23.67MB 已下载 212 次 2、ClassicMacros.rar 10KB 已下载 23 次 3、QQ录屏20230807112557~1.mp4 32.84MB 已下载 261 次 4、QQ录屏20230806173342~1.mp4 10.57MB 已下载 433 次 5、SuperMacro.rar 40KB 已下载 28 次

admin

guihua

大佬牛逼

w4280634wm

萌新问下下载了视频看不懂  抽筋宏的作用是什么 我也玩DZ

wallabc

兴奋是什么技能还是天赋

abc110

wallabc 发表于 2023-8-9 11:37
兴奋是什么技能还是天赋

42级学的技能

moonxo

请教大哥，德鲁伊切换圣物的宏能 帮忙写一个吗？
比如：在猫形态下 使用【爪击】，自动切换 猫形态爪击降低能量的圣物
          在能形态下使用 【槌击】，自动切换 熊形态槌击降低怒气的圣物
          在人形态使用 [回春]，自动切换 人形态增加回春技能效果的圣物

moonxo

技能 ID 要怎么看？

abc110

moonxo 发表于 2023-8-11 14:22
技能 ID 要怎么看？

1. /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;
   

复制代码

abc110

moonxo 发表于 2023-8-11 14:18
请教大哥，德鲁伊切换圣物的宏能 帮忙写一个吗？
比如：在猫形态下 使用【爪击】，自动切换 猫形态爪击降低 ...

我没玩小德，做不了。

旧拾光

大佬战士的超级宏还有吗

aminvanbuurn

检查buff的宏会有问题 因为有时候raid情况下 buff超过16个 ,请问能更换成计时器模式么?比如检查如果没有Xbuff 则施放X ,然后延迟20秒不再施放

liugege

非常感谢！