彩虹拾取装备鉴定脚本

1. 
   
2. [@拾取物品]
   
3. #IF
   
4. Small $PARAM(23) 11 ;怪物掉落
   
5. #ACT
   
6. ;SENDMSG 6 不是怪物掉落
   
7. BREAK
   
8. #IF
   
9. RANDOM 5 ;概率
   
10. #ACT
    
11. ;SENDMSG 6 <$PARAM(21)>----<$PARAM(22)>----<$PARAM(23)>----<$PARAM(24)>
    
12. ;SENDMSG 6 <$ITEMINFO[$PARAM(21)].STDMODE>
    
13. ; 5/6 武器| 10/11 衣服| 15 头盔 shape 0| 19/20 项链 shape 0|21 特殊项链 |22 戒指 shape 0| 26 手镯 shape 0 |58腰带 |81 靴子
    
14. #ELSEACT
    
15. BREAK
    
16. #IF
    
17. EQUAL $ITEMINFO[$PARAM(21)].STDMODE 5
    
18. #ACT
    
19. GOTO @武器加属性
    
20. BREAK
    
21. #IF
    
22. EQUAL $ITEMINFO[$PARAM(21)].STDMODE 6
    
23. #ACT
    
24. GOTO @武器加属性
    
25. #IF
    
26. EQUAL $ITEMINFO[$PARAM(21)].STDMODE 10
    
27. #ACT
    
28. GOTO @衣盔靴腰勋加属性
    
29. #IF
    
30. EQUAL $ITEMINFO[$PARAM(21)].STDMODE 11
    
31. #ACT
    
32. GOTO @衣盔靴腰勋加属性
    
33. #IF
    
34. EQUAL $ITEMINFO[$PARAM(21)].STDMODE 15
    
35. EQUAL $ITEMINFO[$PARAM(21)].SHAPE 0
    
36. #ACT
    
37. GOTO @衣盔靴腰勋加属性
    
38. #IF
    
39. EQUAL $ITEMINFO[$PARAM(21)].STDMODE 81
    
40. #ACT
    
41. GOTO @衣盔靴腰勋加属性
    
42. #IF
    
43. EQUAL $ITEMINFO[$PARAM(21)].STDMODE 58
    
44. #ACT
    
45. GOTO @衣盔靴腰勋加属性
    
46. #IF
    
47. EQUAL $ITEMINFO[$PARAM(21)].STDMODE 19
    
48. EQUAL $ITEMINFO[$PARAM(21)].SHAPE 0
    
49. #ACT
    
50. GOTO @项链手镯戒指加属性
    
51. #IF
    
52. EQUAL $ITEMINFO[$PARAM(21)].STDMODE 20
    
53. EQUAL $ITEMINFO[$PARAM(21)].SHAPE 0
    
54. #ACT
    
55. GOTO @项链手镯戒指加属性
    
56. #IF
    
57. EQUAL $ITEMINFO[$PARAM(21)].STDMODE 22
    
58. EQUAL $ITEMINFO[$PARAM(21)].SHAPE 0
    
59. #ACT
    
60. GOTO @项链手镯戒指加属性
    
61. #IF
    
62. EQUAL $ITEMINFO[$PARAM(21)].STDMODE 26
    
63. EQUAL $ITEMINFO[$PARAM(21)].SHAPE 0
    
64. #ACT
    
65. GOTO @项链手镯戒指加属性
    
66. BREAK
    
67. 
    
68. [@衣盔靴腰勋加属性]
    
69. #IF
    
70. TRUE
    
71. #ACT
    
72. MOV S1 极·
    
73. #IF
    
74. RANDOM 30 100
    
75. #ACT
    
76. MOV M1 $RANDOM(9) ;取一个10以内随机数
    
77. INC M1 1
    
78. INC S1 防
    
79. INC S1 (
    
80. INC S1 $STR(M1)
    
81. INC S1 )
    
82. UPGRADEUSERITEM $PARAM(21) 1 + $STR(M1)
    
83. #IF
    
84. RANDOM 30 100
    
85. #ACT
    
86. MOV M1 $RANDOM(9) ;取一个10以内随机数
    
87. INC M1 1
    
88. INC S1 魔防
    
89. INC S1 (
    
90. INC S1 $STR(M1)
    
91. INC S1 )
    
92. UPGRADEUSERITEM $PARAM(21) 3 + $STR(M1)
    
93. #IF
    
94. RANDOM 30 100
    
95. #ACT
    
96. MOV M1 $RANDOM(9) ;取一个10以内随机数
    
97. INC M1 1
    
98. INC S1 攻
    
99. INC S1 (
    
100. INC S1 $STR(M1)
     
101. INC S1 )
     
102. UPGRADEUSERITEM $PARAM(21) 5 + $STR(M1)
     
103. #IF
     
104. RANDOM 30 100
     
105. #ACT
     
106. MOV M1 $RANDOM(9) ;取一个10以内随机数
     
107. INC M1 1
     
108. INC S1 法
     
109. INC S1 (
     
110. INC S1 $STR(M1)
     
111. INC S1 )
     
112. UPGRADEUSERITEM $PARAM(21) 7 + $STR(M1)
     
113. #IF
     
114. RANDOM 30 100
     
115. #ACT
     
116. MOV M1 $RANDOM(9) ;取一个10以内随机数
     
117. INC M1 1
     
118. INC S1 道
     
119. INC S1 (
     
120. INC S1 $STR(M1)
     
121. INC S1 )
     
122. UPGRADEUSERITEM $PARAM(21) 9 + $STR(M1)
     
123. #IF
     
124. !EQUAL S1 极·
     
125. #ACT
     
126. SENDMSG 6 <$PARAM(22)>极品鉴定成功
     
127. SETITEMSEAL $PARAM(21) = 1 $STR(S1)
     
128. #ELSEACT
     
129. SENDMSG 6 <$PARAM(22)>极品鉴定失败
     
130. BREAK
     
131. 
     
132. [@武器加属性]
     
133. #IF
     
134. TRUE
     
135. #ACT
     
136. ;SENDMSG 6 武器加属性 ;$PARAM(22)
     
137. MOV S1 极·
     
138. ;SENDMSG 6 $STR(S1)
     
139. #IF
     
140. RANDOM 30 100
     
141. #ACT
     
142. MOV M1 $RANDOM(9) ;取一个10以内随机数
     
143. INC M1 1
     
144. INC S1 攻
     
145. INC S1 (
     
146. INC S1 $STR(M1)
     
147. INC S1 )
     
148. UPGRADEUSERITEM $PARAM(21) 1 + $STR(M1)
     
149. #IF
     
150. RANDOM 30 100
     
151. #ACT
     
152. MOV M1 $RANDOM(9) ;取一个10以内随机数
     
153. INC M1 1
     
154. INC S1 法
     
155. INC S1 (
     
156. INC S1 $STR(M1)
     
157. INC S1 )
     
158. UPGRADEUSERITEM $PARAM(21) 3 + $STR(M1)
     
159. #IF
     
160. RANDOM 30 100
     
161. #ACT
     
162. MOV M1 $RANDOM(9) ;取一个10以内随机数
     
163. INC M1 1
     
164. INC S1 道
     
165. INC S1 (
     
166. INC S1 $STR(M1)
     
167. INC S1 )
     
168. UPGRADEUSERITEM $PARAM(21) 5 + $STR(M1)
     
169. #IF
     
170. RANDOM 30 100
     
171. #ACT
     
172. MOV M1 $RANDOM(9) ;取一个10以内随机数
     
173. INC M1 1
     
174. INC S1 命
     
175. INC S1 (
     
176. INC S1 $STR(M1)
     
177. INC S1 )
     
178. UPGRADEUSERITEM $PARAM(21) 7 + $STR(M1)
     
179. #IF
     
180. !EQUAL S1 极·
     
181. #ACT
     
182. ;SENDMSG 6 <$STR(S1)>
     
183. ;MOV S2 $PARAM(22)
     
184. ;INC S2 ·极
     
185. ;SetUseItemName $PARAM(21) $STR(S2) ;设置名字标注极品
     
186. SENDMSG 6 <$PARAM(22)>极品鉴定成功
     
187. SETITEMSEAL $PARAM(21) = 1 $STR(S1)
     
188. #ELSEACT
     
189. SENDMSG 6 <$PARAM(22)>极品鉴定失败
     
190. BREAK
     
191. 
     
192. [@项链手镯戒指加属性]
     
193. #IF
     
194. TRUE
     
195. #ACT
     
196. MOV S1 极·
     
197. #IF
     
198. RANDOM 30 100
     
199. #ACT
     
200. MOV M1 $RANDOM(9) ;取一个10以内随机数
     
201. INC M1 1
     
202. INC S1 攻
     
203. INC S1 (
     
204. INC S1 $STR(M1)
     
205. INC S1 )
     
206. UPGRADEUSERITEM $PARAM(21) 5 + $STR(M1)
     
207. #IF
     
208. RANDOM 30 100
     
209. #ACT
     
210. MOV M1 $RANDOM(9) ;取一个10以内随机数
     
211. INC M1 1
     
212. INC S1 法
     
213. INC S1 (
     
214. INC S1 $STR(M1)
     
215. INC S1 )
     
216. UPGRADEUSERITEM $PARAM(21) 7 + $STR(M1)
     
217. #IF
     
218. RANDOM 30 100
     
219. #ACT
     
220. MOV M1 $RANDOM(9) ;取一个10以内随机数
     
221. INC M1 1
     
222. INC S1 道
     
223. INC S1 (
     
224. INC S1 $STR(M1)
     
225. INC S1 )
     
226. UPGRADEUSERITEM $PARAM(21) 9 + $STR(M1)
     
227. #IF
     
228. !EQUAL S1 极·
     
229. #ACT
     
230. SENDMSG 6 <$PARAM(22)>极品鉴定成功
     
231. SETITEMSEAL $PARAM(21) = 1 $STR(S1)
     
232. #ELSEACT
     
233. SENDMSG 6 <$PARAM(22)>极品鉴定失败
     
234. BREAK

复制代码