[AFT引擎]传世独一无二的新技能玄心奥妙诀

1. 传世独一无二的新技能玄心奥妙诀
   
2. 以下脚本需有一定的相关知识，新手自重
   
3. 1.怪物数据库设置  增加用于围困人物
   
4. 怪物名字自己设
   
5. Race=14 Racelmg=19 其余自行设置
   
6. 2.技能数据库 自行设置 MagicID 自定义 X
   
7. //;以下脚本放入Qfunction.txt 文本中
   
8. [@MagFuncX]
   
9. #IF
   
10. CHECKVAR HUMAN 技能冷却时间 > 0
    
11. #ACT
    
12. SENDMSG 5 无法连续使用该技能，请<$HUMAN(技能冷却时间)>秒后再使用。
    
13. break
    
14. #IF
    
15. RANDOM 1
    
16. #ACT
    
17. MOV S1 $POSITION($M,$PARAM(0),$PARAM(1))
    
18. MOV P1 $PARAM(0)
    
19. INC P1 1
    
20. MOV P2 $PARAM(1)
    
21. INC P2 1
    
22. MOV P3 $PARAM(0)
    
23. DEC P3 1
    
24. MOV P4 $PARAM(1)
    
25. DEC P4 1
    
26. MOV P5 $PARAM(0)
    
27. DEC P5 1
    
28. MOV P6 $PARAM(1)
    
29. INC P6 1
    
30. MOV P7 $PARAM(0)
    
31. INC P7 1
    
32. MOV P8 $PARAM(1)
    
33. DEC P8 1
    
34. MOV P9 $PARAM(0)
    
35. MOV P10 $PARAM(1)
    
36. DEC P10 1
    
37. MOV P11 $PARAM(0)
    
38. MOV P12 $PARAM(1)
    
39. INC P12 1
    
40. MOV P13 $PARAM(0)
    
41. DEC P13 1
    
42. MOV P14 $PARAM(1)
    
43. MOV P15 $PARAM(0)
    
44. INC P15 1
    
45. MOV P16 $PARAM(1)
    
46. #IF
    
47. !EQUAL S1 无
    
48. #ACT
    
49. CALCVAR HUMAN 技能冷却时间 = 120
    
50. SAVEVAR HUMAN 技能冷却时间 ..\QuestDiary\游戏数据\个人变量\个人变量.txt
    
51. SetTimerEx $USERNAME 1 @技能冷却时间 120
    
52. SHOWHUMEFFECT 45
    
53. $STR(S1).CHANGEMODE 15 1
    
54. $STR(S1).SHOWHUMEFFECT 31
    
55. $STR(S1).SHOWHUMEFFECT 169
    
56. PlayDefence 6 骷髅守卫 $STR(P9) $STR(P10)
    
57. PlayDefence 6 骷髅守卫 $STR(P11) $STR(P12)
    
58. PlayDefence 6 骷髅守卫 $STR(P13) $STR(P14)
    
59. PlayDefence 6 骷髅守卫 $STR(P15) $STR(P16)
    
60. $STR(S1).SetTimerEx $STR(S1) 4 @解除受缚效果 1
    
61. $STR(S1).DELAYCALL 1 @目标受缚状态 1
    
62. DELAYCALL 4 @引爆目标
    
63. break
    
64. #ELSEACT
    
65. SENDMSG 5 技能使用失效，请锁定人物目标后使用。
    
66. break
    
67. [@目标受缚状态]
    
68. #IF
    
69. EQUAL $PARAM(0) $HUMANINFO($STR(S1)).$X
    
70. EQUAL $PARAM(1) $HUMANINFO($STR(S1)).$Y
    
71. #ACT
    
72. SHOWHUMEFFECT 31
    
73. break
    
74. #ELSEACT
    
75. CHANGEMODE 15 0
    
76. break
    
77. [@引爆目标]
    
78. #IF
    
79. EQUAL $PARAM(0) $HUMANINFO($STR(S1)).$X
    
80. EQUAL $PARAM(1) $HUMANINFO($STR(S1)).$Y
    
81. #ACT
    
82. $STR(S1).SHOWHUMEFFECT 167
    
83. mobfireburn $M $PARAM(0) $PARAM(1) 0 1 800
    
84. KILLSLAVE 骷髅守卫
    
85. break
    
86. #ELSEACT
    
87. KILLSLAVE 骷髅守卫
    
88. break
    
89. ;//
    
90. //;以下脚本放入QManage.txt中5uwl.net
    
91. 每次登录都触发执行ChangeMode 15 0  以免玩家中了此技能小退 上线后无法解除受缚效果
    
92. 在此我这里问一下 彩虹的 ChangeMode 15   16 为什么小退后 不归 0
    
93. [@解除受缚效果]
    
94. #IF
    
95. RANDOM 1
    
96. #ACT
    
97. CHANGEMODE 15 0
    
98. [@技能冷却时间]
    
99. #IF
    
100. CHECKVAR HUMAN 技能冷却时间 > 0
     
101. #ACT
     
102. CALCVAR HUMAN 技能冷却时间 - 1
     
103. SAVEVAR HUMAN 技能冷却时间 ..\QuestDiary\游戏数据\个人变量\个人变量.txt
     
104. break
     
105. ;//
     
106. $POSITION($M,$PARAM(0),$PARAM(1)) 可用来区分对象是人还是怪
     
107. 此技能只对人物有效

复制代码

楼主666666666

楼主太厉害了！楼主，I*老*虎*U！我觉得老姚资源社区真是个好地方！