[AFT脚本] 【AFT4】拾取触发大极品完整脚本(新手向)

平淡香味

主要功能：实现1星可以随机获取1个属性位升级，星星越高，获得升级的属性位就越多，最高可以达到5星！
注意事项：拾取的装备要进行补全更新和调整。
需改动的位置：
1、按以下路径创建3个文本文件，并在里面添加相应内容，如果没有自行新建文件夹即可。

Mirserver\mir200\Envir\QuestDiary\大极品功能

• 文件名为：掉落广播.txt、防具位置.txt、武器位置.txt
  

• 掉落广播.txt的内容设置为怪物掉落的物品，例如：
  

        法神羽衣
        玄珠靴子
        神武战甲
        神武战袍
        天玄道袍
        逍遥无极扇

• 防具位置.txt的内容设置如下：
  

        0
        1
        2
        3
        4
        80
        81
        82
        83
        84
        1
        2
        3
        2
        3
        4
        80
        83
        81
        82
        4
        2
        1
        84
        3
        84

• 武器位置.txt的内容设置如下：
  

        2
        3
        5
        3
        1
        7
        84
        3
        5
        2
        1
        0
        82
        0
        84
        83
        82
        7
        5
        3
        2
        1
        0
        0
        1
        2
        3
        5
        7
        82
        83
        84

2、在QFunction-0.txt中的[@拾取触发]标签添加脚本：

文件路径：Mirserver\mir200\Envir\market_def\QFunction-0.txt

1. <font size="2">#IF
   
2. EQUAL $PARAM(23) 1
   
3. CHECKVARLIST $PARAM(22) ..\QuestDiary\大极品功能\掉落广播.txt
   
4. #ACT
   
5. SENDMSG 0 (*)勇士「%s」在<$MAPNAME>(<$X>,<$Y>)爆出：<$PARAM(22)>，我们一起恭喜他！
   
6. #IF
   
7. RANDOM 5
   
8. #ACT
   
9. MOVR P20 60
   
10. #IF
    
11. EQUAL $PARAM(23) 1
    
12. EQUAL $ItemExN.$PARAM(21).Stdmode 5
    
13. #ACT
    
14. GOTO @wqupdateA
    
15. #elaseact
    
16. #IF
    
17. EQUAL $PARAM(23) 1
    
18. EQUAL $ItemExN.$PARAM(21).Stdmode 10
    
19. #ACT
    
20. goto @zbupdateB
    
21. #elaseact
    
22. #IF
    
23. EQUAL $PARAM(23) 1
    
24. EQUAL $ItemExN.$PARAM(21).Stdmode 11
    
25. #ACT
    
26. goto @zbupdateB
    
27. #elaseact
    
28. #IF
    
29. EQUAL $PARAM(23) 1
    
30. EQUAL $ItemExN.$PARAM(21).Stdmode 15
    
31. #ACT
    
32. goto @zbupdateB
    
33. #elaseact
    
34. #IF
    
35. EQUAL $PARAM(23) 1
    
36. EQUAL $ItemExN.$PARAM(21).Stdmode 20
    
37. #ACT
    
38. goto @zbupdateB
    
39. #elaseact
    
40. #IF
    
41. EQUAL $PARAM(23) 1
    
42. EQUAL $ItemExN.$PARAM(21).Stdmode 22
    
43. #ACT
    
44. goto @zbupdateB
    
45. #elaseact
    
46. #IF
    
47. EQUAL $PARAM(23) 1
    
48. EQUAL $ItemExN.$PARAM(21).Stdmode 26
    
49. #ACT
    
50. goto @zbupdateB
    
51. #elaseact
    
52. #IF
    
53. EQUAL $PARAM(23) 1
    
54. EQUAL $ItemExN.$PARAM(21).Stdmode 58
    
55. #ACT
    
56. goto @zbupdateB
    
57. #elaseact
    
58. #IF
    
59. EQUAL $PARAM(23) 1
    
60. EQUAL $ItemExN.$PARAM(21).Stdmode 81
    
61. #ACT
    
62. goto @zbupdateB
    
63. break
    
64. 
    
65. [@wqupdateA]
    
66. #IF
    
67. LARGE P20 57
    
68. #ACT
    
69. ReadRandomStr ..\QuestDiary\大极品功能\武器位置.txt S1
    
70. ReadRandomStr ..\QuestDiary\大极品功能\武器位置.txt S2
    
71. ReadRandomStr ..\QuestDiary\大极品功能\武器位置.txt S3
    
72. ReadRandomStr ..\QuestDiary\大极品功能\武器位置.txt S4
    
73. ReadRandomStr ..\QuestDiary\大极品功能\武器位置.txt S5
    
74. UpgradeUserItemEx $PARAM(21) <$Str(S1)> + 5
    
75. UpgradeUserItemEx $PARAM(21) <$Str(S2)> + 5
    
76. UpgradeUserItemEx $PARAM(21) <$Str(S3)> + 5
    
77. UpgradeUserItemEx $PARAM(21) <$Str(S4)> + 5
    
78. UpgradeUserItemEx $PARAM(21) <$Str(S5)> + 5
    
79. UpgradeUserItemEx $PARAM(21) 9 = 5
    
80. MOV P20 0
    
81. SENDMSG 14 恭喜{<$USERNAME>}在%m(%x，%y)地图击杀怪物获得至尊五星武器『<$PARAM(22)>』！！
    
82. SENDMSG 14 恭喜{<$USERNAME>}在%m(%x，%y)地图击杀怪物获得至尊五星武器『<$PARAM(22)>』！！
    
83. SENDMSG 14 恭喜{<$USERNAME>}在%m(%x，%y)地图击杀怪物获得至尊五星武器『<$PARAM(22)>』！！
    
84. break
    
85. #IF
    
86. LARGE P20 54
    
87. SMALL P20 58
    
88. #act
    
89. ReadRandomStr ..\QuestDiary\大极品功能\武器位置.txt S1
    
90. ReadRandomStr ..\QuestDiary\大极品功能\武器位置.txt S2
    
91. ReadRandomStr ..\QuestDiary\大极品功能\武器位置.txt S3
    
92. ReadRandomStr ..\QuestDiary\大极品功能\武器位置.txt S4
    
93. UpgradeUserItemEx $PARAM(21) <$Str(S1)> + 4
    
94. UpgradeUserItemEx $PARAM(21) <$Str(S2)> + 4
    
95. UpgradeUserItemEx $PARAM(21) <$Str(S3)> + 4
    
96. UpgradeUserItemEx $PARAM(21) <$Str(S4)> + 4
    
97. UpgradeUserItemEx $PARAM(21) 9 = 4
    
98. MOV P20 0
    
99. SENDMSG 14 恭喜{<$USERNAME>}在%m(%x，%y)地图击杀怪物获得王者四星武器『<$PARAM(22)>』！！
    
100. SENDMSG 14 恭喜{<$USERNAME>}在%m(%x，%y)地图击杀怪物获得王者四星武器『<$PARAM(22)>』！！
     
101. break
     
102. #IF
     
103. LARGE P20 49
     
104. SMALL P20 55
     
105. #act
     
106. ReadRandomStr ..\QuestDiary\大极品功能\武器位置.txt S1
     
107. ReadRandomStr ..\QuestDiary\大极品功能\武器位置.txt S2
     
108. ReadRandomStr ..\QuestDiary\大极品功能\武器位置.txt S3
     
109. UpgradeUserItemEx $PARAM(21) <$Str(S1)> + 3
     
110. UpgradeUserItemEx $PARAM(21) <$Str(S2)> + 3
     
111. UpgradeUserItemEx $PARAM(21) <$Str(S3)> + 3
     
112. UpgradeUserItemEx $PARAM(21) 9 = 3
     
113. MOV P20 0
     
114. SENDMSG 14 {<$USERNAME>}在%m(%x，%y)地图击杀怪物获得三星武器『<$PARAM(22)>』，让我们一起恭喜他吧！
     
115. break
     
116. #IF
     
117. LARGE P20 25
     
118. SMALL P20 50
     
119. #act
     
120. ReadRandomStr ..\QuestDiary\大极品功能\武器位置.txt S1
     
121. ReadRandomStr ..\QuestDiary\大极品功能\武器位置.txt S2
     
122. UpgradeUserItemEx $PARAM(21) <$Str(S1)> + 2
     
123. UpgradeUserItemEx $PARAM(21) <$Str(S2)> + 2
     
124. UpgradeUserItemEx $PARAM(21) 9 = 2
     
125. MOV P20 0
     
126. SENDMSG 14 {<$USERNAME>}在%m(%x，%y)地图击杀怪物获得二星武器『<$PARAM(22)>』，让我们一起恭喜他吧！
     
127. break
     
128. #if
     
129. #IF
     
130. LARGE P20 0
     
131. SMALL P20 26
     
132. #act
     
133. ReadRandomStr ..\QuestDiary\大极品功能\武器位置.txt S1
     
134. UpgradeUserItemEx $PARAM(21) <$Str(S1)> + 1
     
135. UpgradeUserItemEx $PARAM(21) 9 = 1
     
136. MOV P20 0
     
137. SENDMSG 14 {<$USERNAME>}在%m(%x，%y)地图击杀怪物获得一星武器『<$PARAM(22)>』，让我们一起恭喜他吧！
     
138. break
     
139. 
     
140. [@zbupdateB]
     
141. #IF
     
142. LARGE P20 57
     
143. #act
     
144. ReadRandomStr ..\QuestDiary\大极品功能\防具位置.txt S1
     
145. ReadRandomStr ..\QuestDiary\大极品功能\防具位置.txt S2
     
146. ReadRandomStr ..\QuestDiary\大极品功能\防具位置.txt S3
     
147. ReadRandomStr ..\QuestDiary\大极品功能\防具位置.txt S4
     
148. ReadRandomStr ..\QuestDiary\大极品功能\防具位置.txt S5
     
149. UpgradeUserItemEx $PARAM(21) <$Str(S1)> + 5
     
150. UpgradeUserItemEx $PARAM(21) <$Str(S2)> + 5
     
151. UpgradeUserItemEx $PARAM(21) <$Str(S3)> + 5
     
152. UpgradeUserItemEx $PARAM(21) <$Str(S4)> + 5
     
153. UpgradeUserItemEx $PARAM(21) <$Str(S5)> + 5
     
154. UpgradeUserItemEx $PARAM(21) 9 = 5
     
155. MOV P20 0
     
156. SENDMSG 14 恭喜{<$USERNAME>}在%m(%x，%y)地图击杀怪物获得至尊五星装备『<$PARAM(22)>』！！
     
157. SENDMSG 14 恭喜{<$USERNAME>}在%m(%x，%y)地图击杀怪物获得至尊五星装备『<$PARAM(22)>』！！
     
158. SENDMSG 14 恭喜{<$USERNAME>}在%m(%x，%y)地图击杀怪物获得至尊五星装备『<$PARAM(22)>』！！
     
159. break
     
160. #IF
     
161. LARGE P20 54
     
162. SMALL P20 58
     
163. #act
     
164. ReadRandomStr ..\QuestDiary\大极品功能\防具位置.txt S1
     
165. ReadRandomStr ..\QuestDiary\大极品功能\防具位置.txt S2
     
166. ReadRandomStr ..\QuestDiary\大极品功能\防具位置.txt S3
     
167. ReadRandomStr ..\QuestDiary\大极品功能\防具位置.txt S4
     
168. UpgradeUserItemEx $PARAM(21) <$Str(S1)> + 4
     
169. UpgradeUserItemEx $PARAM(21) <$Str(S2)> + 4
     
170. UpgradeUserItemEx $PARAM(21) <$Str(S3)> + 4
     
171. UpgradeUserItemEx $PARAM(21) <$Str(S4)> + 4
     
172. UpgradeUserItemEx $PARAM(21) 9 = 4
     
173. MOV P20 0
     
174. SENDMSG 14 恭喜{<$USERNAME>}在%m(%x，%y)地图击杀怪物获得王者四星装备『<$PARAM(22)>』！！
     
175. SENDMSG 14 恭喜{<$USERNAME>}在%m(%x，%y)地图击杀怪物获得王者四星装备『<$PARAM(22)>』！！
     
176. break
     
177. #IF
     
178. LARGE P20 49
     
179. SMALL P20 55
     
180. #act
     
181. ReadRandomStr ..\QuestDiary\大极品功能\防具位置.txt S1
     
182. ReadRandomStr ..\QuestDiary\大极品功能\防具位置.txt S2
     
183. ReadRandomStr ..\QuestDiary\大极品功能\防具位置.txt S3
     
184. UpgradeUserItemEx $PARAM(21) <$Str(S1)> + 3
     
185. UpgradeUserItemEx $PARAM(21) <$Str(S2)> + 3
     
186. UpgradeUserItemEx $PARAM(21) <$Str(S3)> + 3
     
187. UpgradeUserItemEx $PARAM(21) 9 = 3
     
188. MOV P20 0
     
189. SENDMSG 14 {<$USERNAME>}在%m(%x，%y)地图击杀怪物获得三星装备『<$PARAM(22)>』，让我们一起恭喜他吧！
     
190. break
     
191. #IF
     
192. LARGE P20 25
     
193. SMALL P20 50
     
194. #act
     
195. ReadRandomStr ..\QuestDiary\大极品功能\防具位置.txt S1
     
196. ReadRandomStr ..\QuestDiary\大极品功能\防具位置.txt S2
     
197. UpgradeUserItemEx $PARAM(21) <$Str(S1)> + 2
     
198. UpgradeUserItemEx $PARAM(21) <$Str(S2)> + 2
     
199. UpgradeUserItemEx $PARAM(21) 9 = 2
     
200. MOV P20 0
     
201. SENDMSG 14 {<$USERNAME>}在%m(%x，%y)地图击杀怪物获得二星装备『<$PARAM(22)>』，让我们一起恭喜他吧！
     
202. break
     
203. #IF
     
204. LARGE P20 0
     
205. SMALL P20 26
     
206. #act
     
207. ReadRandomStr ..\QuestDiary\大极品功能\防具位置.txt S1
     
208. UpgradeUserItemEx $PARAM(21) <$Str(S1)> + 1
     
209. UpgradeUserItemEx $PARAM(21) 9 = 1
     
210. MOV P20 0
     
211. SENDMSG 14 {<$USERNAME>}在%m(%x，%y)地图击杀怪物获得一星装备『<$PARAM(22)>』，让我们一起恭喜他吧！
     
212. break</font>

复制代码

子墨764

感谢大大分享~~~~~~~~

ww492

感谢分享~~~~学习学习~~~~~~

Q万里雪飘Q

看看，学习学习～～～～

若比邻心

感谢大大分享~~~~~~~~

秀秀204

顶顶更健康！！！

懒惰的小野猫卣

感谢楼主，顶。

摩羯座羯l

感谢分享～～～～学习学习～～～～～

瞿叶丰

路过，支持一下

落落青丝

感谢楼主分享～～～～～

123473497

谢谢分享~~~~~

123471551

感谢楼主分享。