收藏本页
切换浏览模式

华夏网·人人艺术论坛校园网络教学网络学院电脑培训软件硬件 → 收集实用的牧师宏

关闭 帖子评论
选取类型: 中立 支持 反对
观点标题:
验证码: 验证码,看不清楚?请点击刷新验证码
观点内容:
(不支持HTML)
  1. 请以客观、真实地作出评论,并注意语言文明;
  2. 观点发表后不能作出更改;
您是本帖的第 2399 个阅读者
树形 打印
标题: 收集实用的牧师宏
云中漫步
帅哥哟,离线,有人找我吗?
等级:版主
文章:167
积分:1095
注册:2006年3月20日
发贴心情
收集实用的牧师宏

真正实用的牧师宏

说明:可以为低级职业加盾加buff。在和一些低级玩家组队或是公会带新人帮忙时非常有用。
我自己copy了官方链接中的宏,测试成功,无问题。
直接copy下面的宏,由于有些论坛格式的限制,我稍微改动了一下,相信没问题,如果不行,打开官方地址copy。

--------------------------------------------------------------------------------------
Power Word: Fortitude
/script r=Spell_Rank;l={1,12,24,36,48,60};t=UnitLevel("target");if (t==0) then t=UnitLevel("player");end;if UnitIsFriend("player","target") then for i=r,1,-1 do if (t>=l[i]-10) then CastSpellByName("Power Word: Fortitude(Rank "..i..")");break;end;end;end

Example for a Level 60 Priest:
/script r=6;l={1,12,24,36,48,60};t=UnitLevel("target");if (t==0) then t=UnitLevel("player");end;if UnitIsFriend("player","target") then for i=r,1,-1 do if (t>=l[i]-10) then CastSpellByName("Power Word: Fortitude(Rank "..i..")");break;end;end;end



Shadow Protection
/script r=Spell_Rank;l={30,42,56};t=UnitLevel("target");if (t==0) then t=UnitLevel("player");end;if UnitIsFriend("player","target") then for i=r,1,-1 do if (t>=l[i]-10) then CastSpellByName("Shadow Protection(Rank "..i..")");break;end;end;end

Example for a Level 60 Priest:
/script r=3;l={30,42,56};t=UnitLevel("target");if (t==0) then t=UnitLevel("player");end;if UnitIsFriend("player","target") then for i=r,1,-1 do if (t>=l[i]-10) then CastSpellByName("Shadow Protection(Rank "..i..")");break;end;end;end



Power Word: Shield
/script r=Spell_Rank;l={6,12,18,24,30,36,42,48,54,60};t=UnitLevel("target");if (t==0) then t=UnitLevel("player");end;if UnitIsFriend("player","target") then for i=r,1,-1 do if (t>=l[i]-10) then CastSpellByName("Power Word: Shield(Rank "..i..")");break;end;end;end

Example for a Level 60 Priest:
/script r=10;l={6,12,18,24,30,36,42,48,54,60};t=UnitLevel("target");if (t==0) then t=UnitLevel("player");end;if UnitIsFriend("player","target") then for i=r,1,-1 do if (t>=l[i]-10) then CastSpellByName("Power Word: Shield(Rank "..i..")");break;end;end;end


Macro for Self-Casting Spells
/script r=Spell_Rank;TargetByName("name");CastSpellByName("Spell_Name(Rank "..r..")");

[em]13[/em]

 

 

************************************************************************************

 

提示你和你加血对象的坐标。

/script SetMapToCurrentZone(); Px,Py=GetPlayerMapPosition("player"); Tx,Ty=GetPlayerMapPosition("player");SendChatMessage(format("我在 %s %s,坐标 %d, %d",GetZoneText(),GetSubZoneText(),Px*100,Py*100),"say");SendChatMessage(format("目标在 %s %s,坐标 %d, %d",GetZoneText(),GetSubZoneText(),Tx*100,Ty*100),"say");

 

************************************************************************************

 

选择你周围血量低于70%的团队中的人,加血!(不管是不是你小队中的人,你甚至可以不转身,不看血条,盲目的点击这个宏,你也可以准确的给周围掉血的人加血,同时不丢失你的目标,永远不会让你看见你身边的人倒下)

/script for i=1,40 do TargetNearestFriend(); if UnitHealth("target")/UnitHealthMax("target") < 0.7 then if UnitIsPlayer("target") then CastSpellByName("快速治疗") end end end; TargetLastTarget();

 

************************************************************************************

 

给周围的敌人驱散buff用的,省得到时候跑得飞快的敌人你找不到:

 

/script for i=1,40 do TargetNearestEnemy();  if not UnitIsPlayer("target") then CastSpellByName("驱散魔法") end  end; TargetLastTarget();

 

 

***********************************************************************************'

 

===============分割线=====================

下面就要说到这个宏,用它可以大大提高治疗质量:

/script if ((UnitHealthMax("target"))-(UnitHealth("target"))<1) then SpellStopCasting();end

此宏作用为判断目标血量,如果满血,停止当前动作。

===============分割线=====================

推荐两种治疗方法:

(1)治疗前判断,目标费血则施放“次级治疗波(等级 6)”如果目标满血则无动作,通过宏操作:

/script if ((UnitHealthMax("target"))-(UnitHealth("target"))>1) then CastSpellByName("次级治疗波(等级 6)");end

PS: (UnitHealthMax("target")) 为目标最大血量,(UnitHealth("target")) 为目标当前血量,((UnitHealthMax("target"))-(UnitHealth("target"))>1) 的意思就是:目标当最大血量减去当前血量大于1。CastSpellByName("次级治疗波(等级 6)") 意思是施放魔法("次级治疗波(等级 6)")。次级治疗波(等级 6) 为萨满治疗技能名称和等级,职业不同请自行更换。

(2)无限吟唱法。此方法适用于MT治疗组,不知道大家在看一些强会的视频中有没有注意到,他们的治疗者都是在不停的施放魔法。他们就是用这个方法:

所有MT治疗组成员先将/script if ((UnitHealthMax("target"))-(UnitHealth("target"))<1) then SpellStopCasting();end做成宏,设置一个快捷键。锁定目标为MT,然后开始施放大治疗,当施放魔法还差最后一点结束的时候按宏快捷键,动作结束再开始释放大治疗,按快捷键,循环。

***********************************************************************************

原因找到了,我直接copy原因为帖里的marco就ok的,楼主是因为这里论坛的格式,所以稍微修改了一下宏,比如某些地方加了空格,可能是这个原因造 成的。以下是官方网直接copy过来的,我自己修改了。应该可以的,大家可以试试直接copy到游戏里,如果还不行就去官方网原贴copy。

原帖地址:
http://forums.worldofwarcraft.co ... amp;tmp=1#post81234

--------------------------------------------------------------------------

Power Word: Fortitude
/script r=Spell_Rank;l={1,12,24,36,48,60};t=UnitLevel("target");if (t==0) then t=UnitLevel("player");end;if UnitIsFriend("player","target") then for i=r,1,-1 do if (t>=l[i]-10) then CastSpellByName("Power Word: Fortitude(Rank "..i..")");break;end;end;end

Example for a Level 60 Priest:
/script r=6;l={1,12,24,36,48,60};t=UnitLevel("target");if (t==0) then t=UnitLevel("player");end;if UnitIsFriend("player","target") then for i=r,1,-1 do if (t>=l[i]-10) then CastSpellByName("Power Word: Fortitude(Rank "..i..")");break;end;end;end



Shadow Protection
/script r=Spell_Rank;l={30,42,56};t=UnitLevel("target");if (t==0) then t=UnitLevel("player");end;if UnitIsFriend("player","target") then for i=r,1,-1 do if (t>=l[i]-10) then CastSpellByName("Shadow Protection(Rank "..i..")");break;end;end;end

Example for a Level 60 Priest:
/script r=3;l={30,42,56};t=UnitLevel("target");if (t==0) then t=UnitLevel("player");end;if UnitIsFriend("player","target") then for i=r,1,-1 do if (t>=l[i]-10) then CastSpellByName("Shadow Protection(Rank "..i..")");break;end;end;end



Power Word: Shield
/script r=Spell_Rank;l={6,12,18,24,30,36,42,48,54,60};t=UnitLevel("target");if (t==0) then t=UnitLevel("player");end;if UnitIsFriend("player","target") then for i=r,1,-1 do if (t>=l[i]-10) then CastSpellByName("Power Word: Shield(Rank "..i..")");break;end;end;end

Example for a Level 60 Priest:
/script r=10;l={6,12,18,24,30,36,42,48,54,60};t=UnitLevel("target");if (t==0) then t=UnitLevel("player");end;if UnitIsFriend("player","target") then for i=r,1,-1 do if (t>=l[i]-10) then CastSpellByName("Power Word: Shield(Rank "..i..")");break;end;end;end


Macro for Self-Casting Spells
/script r=Spell_Rank;TargetByName("name");CastSpellByName("Spell_Name(Rank "..r..")");



云中漫步,潇洒人生。
ip地址已设置保密
2007/4/1 12:14:20
点击参与评论 | 引用 | 回复 回到顶部

  
收集实用的牧师宏
发贴表情
字体颜色 字体背景颜色 粗体 斜体 下划线 超级连接 插入图片 Flash图片 realplay视频文件 Media Player视频文件 引用 清理代码 生成一个财付通交易信息
显示:
预览
回复标题
上传表单
字节.
Copyright ©2004 - 2023 cnrr.cn
Powered By Dvbbs Version 8.0.0
页面执行时间 0.03906 秒, 4 次数据查询