藏宝游传奇

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 173|回复: 0

[游戏修改] 装备加星不满意可以点击打造,每次需要一颗打造石

[复制链接]
  • TA的每日心情
    开心
    2020-12-29 20:57
  • 签到天数: 3 天

    [LV.2]圆转纯熟

    4329

    主题

    4336

    帖子

    26万

    积分

    超级版主

    Rank: 8Rank: 8

    积分
    267189
    发表于 2020-2-28 08:57:16 | 显示全部楼层 |阅读模式
    1. [@main]
    2. #IF
    3. #Act
    4. MOV S$衣服名称 <$DRESS>
    5. MOV S$武器名称 <$WEAPON>
    6. MOV S$头盔名称 <$HELMET>
    7. MOV S$项链名称 <$NECKLACE>
    8. MOV S$左手名称 <$ARMRING_R>
    9. MOV S$右手名称 <$ARMRING_L>
    10. MOV S$左戒名称 <$RING_R>
    11. MOV S$右戒名称 <$RING_L>
    12. MOV S$靴子名称 <$BOOTS>
    13. MOV S$腰带名称 <$BELT>
    14. MOV S$勋章名称 <$RIGHTHAND>
    15. MOV S$宝石名称 <$CHARM>
    16. MOV S$衣服名称A <$DRESS>
    17. MOV S$武器名称A <$WEAPON>
    18. MOV S$头盔名称A <$HELMET>
    19. MOV S$项链名称A <$NECKLACE>
    20. MOV S$左手名称A <$ARMRING_R>
    21. MOV S$右手名称A <$ARMRING_L>
    22. MOV S$左戒名称A <$RING_R>
    23. MOV S$右戒名称A <$RING_L>
    24. MOV S$靴子名称A <$BOOTS>
    25. MOV S$腰带名称A <$BELT>
    26. MOV S$勋章名称A <$RIGHTHAND>
    27. MOV S$宝石名称A <$CHARM>
    28. SetStringBlank <$STR(S$衣服名称)> 20 1
    29. SetStringBlank <$STR(S$武器名称)> 20 1
    30. SetStringBlank <$STR(S$头盔名称)> 20 1
    31. SetStringBlank <$STR(S$项链名称)> 20 1
    32. SetStringBlank <$STR(S$左手名称)> 20 1
    33. SetStringBlank <$STR(S$右手名称)> 20 1
    34. SetStringBlank <$STR(S$左戒名称)> 20 1
    35. SetStringBlank <$STR(S$右戒名称)> 20 1
    36. SetStringBlank <$STR(S$靴子名称)> 20 1
    37. SetStringBlank <$STR(S$腰带名称)> 20 1
    38. SetStringBlank <$STR(S$勋章名称)> 20 1
    39. SetStringBlank <$STR(S$宝石名称)> 20 1
    40. #say

    41.  \
    42.  <装备加星不满意可以点击打造,每次需要一颗/SCOLOR=87><[打造石]/SCOLOR=116>\
    43.  \
    44.   <[衣服]/SCOLOR=150> <打造/@衣服改造>:{<$STR(S$衣服名称)>/SCOLOR=210}<[武器]/SCOLOR=150> <打造/@武器改造>:{<$STR(S$武器名称)>/SCOLOR=210}\
    45.   <[头盔]/SCOLOR=150> <打造/@头盔改造>:{<$STR(S$头盔名称)>/SCOLOR=210}<[项链]/SCOLOR=150> <打造/@项链改造>:{<$STR(S$项链名称)>/SCOLOR=210}\
    46.   <[左手]/SCOLOR=150> <打造/@左手改造>:{<$STR(S$左手名称)>/SCOLOR=210}<[右手]/SCOLOR=150> <打造/@右手改造>:{<$STR(S$右手名称)>/SCOLOR=210}\
    47.   <[左戒]/SCOLOR=150> <打造/@左戒改造>:{<$STR(S$左戒名称)>/SCOLOR=210}<[右戒]/SCOLOR=150> <打造/@右戒改造>:{<$STR(S$右戒名称)>/SCOLOR=210}\
    48.   <[腰带]/SCOLOR=150> <打造/@腰带改造>:{<$STR(S$腰带名称)>/SCOLOR=210}<[靴子]/SCOLOR=150> <打造/@靴子改造>:{<$STR(S$靴子名称)>/SCOLOR=210}\
    49.   <[勋章]/SCOLOR=150> <打造/@勋章改造>:{<$STR(S$勋章名称)>/SCOLOR=210}<[宝石]/SCOLOR=150> <打造/@宝石改造>:{<$STR(S$宝石名称)>/SCOLOR=210}\\
    50.  \
    51.  \
    52.  \




    53. [@宝石改造]
    54. #IF
    55. NOT CHECKUSEITEM 12
    56. #ACT
    57. MESSAGEBOX \\这地方带装备了么?
    58. break

    59. #IF
    60. NOT CheckContainsTextListEx ..\QuestDiary\数据文件\品鉴抽取\装备名称.txt <$CHARM>
    61. #ACT
    62. MESSAGEBOX \\此物品禁止改造!
    63. break



    64. #IF
    65. checkitem 打造石 1
    66. random 300
    67. #ACT
    68. Take 打造石 1
    69. MOV S10
    70. MOV S11 <$CURRTEMNAME>
    71. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    72. CHANGECUSTOMITEMTEXT 12 上古品鉴*8星
    73. CHANGECUSTOMITEMTEXTCOLOR 11 250
    74. CHANGECUSTOMITEMABIL 12 0 0 70
    75. CHANGECUSTOMITEMABIL 12 0 1 <$STR(S10)>
    76. ;CHANGECUSTOMITEMABIL 12 1 1 <$STR(S10)>
    77. CHANGECUSTOMITEMVALUE 12 0 = 48
    78. CHANGECUSTOMITEMABIL 12 0 2 0
    79. ChangeItemUpgradeCount 12 = 8
    80. SENDUPGRADEITEM
    81. MESSAGEBOX \\装备重生成功,星级为:★★★★★★★★
    82. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    83. break


    84. #IF
    85. checkitem 打造石 1
    86. random 200
    87. #ACT
    88. Take 打造石 1
    89. MOV S10
    90. MOV S11 <$CURRTEMNAME>
    91. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    92. CHANGECUSTOMITEMTEXT 12 上古品鉴*7星
    93. CHANGECUSTOMITEMTEXTCOLOR 11 250
    94. CHANGECUSTOMITEMABIL 12 0 0 70
    95. CHANGECUSTOMITEMABIL 12 0 1 <$STR(S10)>
    96. ;CHANGECUSTOMITEMABIL 12 1 1 <$STR(S10)>
    97. CHANGECUSTOMITEMVALUE 12 0 = 32
    98. CHANGECUSTOMITEMABIL 12 0 2 0
    99. ChangeItemUpgradeCount 12 = 7
    100. SENDUPGRADEITEM
    101. MESSAGEBOX \\装备重生成功,星级为:★★★★★★★
    102. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    103. break


    104. #IF
    105. checkitem 打造石 1
    106. random 100
    107. #ACT
    108. Take 打造石 1
    109. MOV S10
    110. MOV S11 <$CURRTEMNAME>
    111. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    112. CHANGECUSTOMITEMTEXT 12 上古品鉴*6星
    113. CHANGECUSTOMITEMTEXTCOLOR 11 250
    114. CHANGECUSTOMITEMABIL 12 0 0 70
    115. CHANGECUSTOMITEMABIL 12 0 1 <$STR(S10)>
    116. ;CHANGECUSTOMITEMABIL 12 1 1 <$STR(S10)>
    117. CHANGECUSTOMITEMVALUE 12 0 = 22
    118. CHANGECUSTOMITEMABIL 12 0 2 0
    119. ChangeItemUpgradeCount 12 = 6
    120. SENDUPGRADEITEM
    121. MESSAGEBOX \\装备重生成功,星级为:★★★★★★
    122. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    123. break


    124. #IF
    125. checkitem 打造石 1
    126. random 50
    127. #ACT
    128. Take 打造石 1
    129. MOV S10
    130. MOV S11 <$CURRTEMNAME>
    131. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    132. CHANGECUSTOMITEMTEXT 12 上古品鉴*5星
    133. CHANGECUSTOMITEMTEXTCOLOR 11 250
    134. CHANGECUSTOMITEMABIL 12 0 0 70
    135. CHANGECUSTOMITEMABIL 12 0 1 <$STR(S10)>
    136. ;CHANGECUSTOMITEMABIL 12 1 1 <$STR(S10)>
    137. CHANGECUSTOMITEMVALUE 12 0 = 15
    138. CHANGECUSTOMITEMABIL 12 0 2 0
    139. ChangeItemUpgradeCount 12 = 5
    140. SENDUPGRADEITEM
    141. MESSAGEBOX \\装备重生成功,星级为:★★★★★
    142. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    143. break

    144. #IF
    145. checkitem 打造石 1
    146. random 15
    147. #ACT
    148. Take 打造石 1
    149. MOV S10
    150. MOV S11 <$CURRTEMNAME>
    151. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    152. CHANGECUSTOMITEMTEXT 12 上古品鉴*4星
    153. CHANGECUSTOMITEMTEXTCOLOR 11 250
    154. CHANGECUSTOMITEMABIL 12 0 0 70
    155. CHANGECUSTOMITEMABIL 12 0 1 <$STR(S10)>
    156. ;CHANGECUSTOMITEMABIL 12 1 1 <$STR(S10)>
    157. CHANGECUSTOMITEMVALUE 12 0 = 10
    158. CHANGECUSTOMITEMABIL 12 0 2 0
    159. ChangeItemUpgradeCount 12 = 4
    160. SENDUPGRADEITEM
    161. MESSAGEBOX \\装备重生成功,星级为:★★★★
    162. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    163. break

    164. #IF
    165. checkitem 打造石 1
    166. random 4
    167. #ACT
    168. Take 打造石 1
    169. MOV S10 0
    170. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    171. CHANGECUSTOMITEMTEXT 12 上古品鉴*3星
    172. CHANGECUSTOMITEMTEXTCOLOR 11 250
    173. CHANGECUSTOMITEMABIL 12 0 0 70
    174. CHANGECUSTOMITEMABIL 12 0 1 <$STR(S10)>
    175. ;CHANGECUSTOMITEMABIL 12 1 1 <$STR(S10)>
    176. CHANGECUSTOMITEMVALUE 12 0 = 7
    177. CHANGECUSTOMITEMABIL 12 1 2 0
    178. ChangeItemUpgradeCount 12 = 3
    179. SENDUPGRADEITEM
    180. MESSAGEBOX \\装备重生成功,星级为:★★★
    181. break

    182. #IF
    183. checkitem 打造石 1
    184. random 2
    185. #ACT
    186. Take 打造石 1
    187. MOV S10 0
    188. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    189. CHANGECUSTOMITEMTEXT 12 上古品鉴*2星
    190. CHANGECUSTOMITEMTEXTCOLOR 11 250
    191. CHANGECUSTOMITEMABIL 12 0 0 70
    192. CHANGECUSTOMITEMABIL 12 0 1 <$STR(S10)>
    193. ;CHANGECUSTOMITEMABIL 12 1 1 <$STR(S10)>
    194. CHANGECUSTOMITEMVALUE 12 0 = 5
    195. CHANGECUSTOMITEMABIL 12 1 2 0
    196. ChangeItemUpgradeCount 12 = 2
    197. SENDUPGRADEITEM
    198. MESSAGEBOX \\装备重生成功,星级为:★★
    199. break

    200. #IF
    201. checkitem 打造石 1
    202. random 1
    203. #ACT
    204. Take 打造石 1
    205. MOV S10 0
    206. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    207. CHANGECUSTOMITEMTEXT 12 上古品鉴*1星
    208. CHANGECUSTOMITEMTEXTCOLOR 11 250
    209. CHANGECUSTOMITEMABIL 12 0 0 70
    210. CHANGECUSTOMITEMABIL 12 0 1 <$STR(S10)>
    211. ;CHANGECUSTOMITEMABIL 12 1 1 <$STR(S10)>
    212. CHANGECUSTOMITEMVALUE 12 0 = 3
    213. CHANGECUSTOMITEMABIL 12 0 2 0
    214. ChangeItemUpgradeCount 12 = 1
    215. SENDUPGRADEITEM
    216. MESSAGEBOX \\装备重生成功,星级为:★
    217. break
    218. #ELSEACT
    219. MESSAGEBOX \\重生失败:原因如下\\    1.您没有"打造石"一个\\    2.请集齐以上材料在来找我吧!
    220. break

    221. [@靴子改造]
    222. #IF
    223. NOT CHECKUSEITEM 11
    224. #ACT
    225. MESSAGEBOX \\这地方带装备了么?
    226. break

    227. #IF
    228. NOT CheckContainsTextListEx ..\QuestDiary\数据文件\品鉴抽取\装备名称.txt <$BOOTS>
    229. #ACT
    230. MESSAGEBOX \\此物品禁止改造!
    231. break



    232. #IF
    233. checkitem 打造石 1
    234. random 300
    235. #ACT
    236. Take 打造石 1
    237. MOV S10
    238. MOV S11 <$CURRTEMNAME>
    239. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    240. CHANGECUSTOMITEMTEXT 11 上古品鉴*8星
    241. CHANGECUSTOMITEMTEXTCOLOR 11 250
    242. CHANGECUSTOMITEMABIL 11 0 0 70
    243. CHANGECUSTOMITEMABIL 11 0 1 <$STR(S10)>
    244. ;CHANGECUSTOMITEMABIL 11 1 1 <$STR(S10)>
    245. CHANGECUSTOMITEMVALUE 11 0 = 48
    246. CHANGECUSTOMITEMABIL 11 0 2 0
    247. ChangeItemUpgradeCount 11 = 8
    248. SENDUPGRADEITEM
    249. MESSAGEBOX \\装备重生成功,星级为:★★★★★★★★
    250. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    251. break


    252. #IF
    253. checkitem 打造石 1
    254. random 200
    255. #ACT
    256. Take 打造石 1
    257. MOV S10
    258. MOV S11 <$CURRTEMNAME>
    259. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    260. CHANGECUSTOMITEMTEXT 11 上古品鉴*7星
    261. CHANGECUSTOMITEMTEXTCOLOR 11 250
    262. CHANGECUSTOMITEMABIL 11 0 0 70
    263. CHANGECUSTOMITEMABIL 11 0 1 <$STR(S10)>
    264. ;CHANGECUSTOMITEMABIL 11 1 1 <$STR(S10)>
    265. CHANGECUSTOMITEMVALUE 11 0 = 32
    266. CHANGECUSTOMITEMABIL 11 0 2 0
    267. ChangeItemUpgradeCount 11 = 7
    268. SENDUPGRADEITEM
    269. MESSAGEBOX \\装备重生成功,星级为:★★★★★★★
    270. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    271. break


    272. #IF
    273. checkitem 打造石 1
    274. random 100
    275. #ACT
    276. Take 打造石 1
    277. MOV S10
    278. MOV S11 <$CURRTEMNAME>
    279. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    280. CHANGECUSTOMITEMTEXT 11 上古品鉴*6星
    281. CHANGECUSTOMITEMTEXTCOLOR 11 250
    282. CHANGECUSTOMITEMABIL 11 0 0 70
    283. CHANGECUSTOMITEMABIL 11 0 1 <$STR(S10)>
    284. ;CHANGECUSTOMITEMABIL 11 1 1 <$STR(S10)>
    285. CHANGECUSTOMITEMVALUE 11 0 = 22
    286. CHANGECUSTOMITEMABIL 11 0 2 0
    287. ChangeItemUpgradeCount 11 = 6
    288. SENDUPGRADEITEM
    289. MESSAGEBOX \\装备重生成功,星级为:★★★★★★
    290. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    291. break


    292. #IF
    293. checkitem 打造石 1
    294. random 50
    295. #ACT
    296. Take 打造石 1
    297. MOV S10
    298. MOV S11 <$CURRTEMNAME>
    299. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    300. CHANGECUSTOMITEMTEXT 11 上古品鉴*5星
    301. CHANGECUSTOMITEMTEXTCOLOR 11 250
    302. CHANGECUSTOMITEMABIL 11 0 0 70
    303. CHANGECUSTOMITEMABIL 11 0 1 <$STR(S10)>
    304. ;CHANGECUSTOMITEMABIL 11 1 1 <$STR(S10)>
    305. CHANGECUSTOMITEMVALUE 11 0 = 15
    306. CHANGECUSTOMITEMABIL 11 0 2 0
    307. ChangeItemUpgradeCount 11 = 5
    308. SENDUPGRADEITEM
    309. MESSAGEBOX \\装备重生成功,星级为:★★★★★
    310. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    311. break

    312. #IF
    313. checkitem 打造石 1
    314. random 15
    315. #ACT
    316. Take 打造石 1
    317. MOV S10
    318. MOV S11 <$CURRTEMNAME>
    319. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    320. CHANGECUSTOMITEMTEXT 11 上古品鉴*4星
    321. CHANGECUSTOMITEMTEXTCOLOR 11 250
    322. CHANGECUSTOMITEMABIL 11 0 0 70
    323. CHANGECUSTOMITEMABIL 11 0 1 <$STR(S10)>
    324. ;CHANGECUSTOMITEMABIL 11 1 1 <$STR(S10)>
    325. CHANGECUSTOMITEMVALUE 11 0 = 10
    326. CHANGECUSTOMITEMABIL 11 0 2 0
    327. ChangeItemUpgradeCount 11 = 4
    328. SENDUPGRADEITEM
    329. MESSAGEBOX \\装备重生成功,星级为:★★★★
    330. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    331. break

    332. #IF
    333. checkitem 打造石 1
    334. random 4
    335. #ACT
    336. Take 打造石 1
    337. MOV S10 0
    338. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    339. CHANGECUSTOMITEMTEXT 11 上古品鉴*3星
    340. CHANGECUSTOMITEMTEXTCOLOR 11 250
    341. CHANGECUSTOMITEMABIL 11 0 0 70
    342. CHANGECUSTOMITEMABIL 11 0 1 <$STR(S10)>
    343. ;CHANGECUSTOMITEMABIL 11 1 1 <$STR(S10)>
    344. CHANGECUSTOMITEMVALUE 11 0 = 7
    345. CHANGECUSTOMITEMABIL 11 1 2 0
    346. ChangeItemUpgradeCount 11 = 3
    347. SENDUPGRADEITEM
    348. MESSAGEBOX \\装备重生成功,星级为:★★★
    349. break

    350. #IF
    351. checkitem 打造石 1
    352. random 2
    353. #ACT
    354. Take 打造石 1
    355. MOV S10 0
    356. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    357. CHANGECUSTOMITEMTEXT 11 上古品鉴*2星
    358. CHANGECUSTOMITEMTEXTCOLOR 11 250
    359. CHANGECUSTOMITEMABIL 11 0 0 70
    360. CHANGECUSTOMITEMABIL 11 0 1 <$STR(S10)>
    361. ;CHANGECUSTOMITEMABIL 11 1 1 <$STR(S10)>
    362. CHANGECUSTOMITEMVALUE 11 0 = 5
    363. CHANGECUSTOMITEMABIL 11 1 2 0
    364. ChangeItemUpgradeCount 11 = 2
    365. SENDUPGRADEITEM
    366. MESSAGEBOX \\装备重生成功,星级为:★★
    367. break

    368. #IF
    369. checkitem 打造石 1
    370. random 1
    371. #ACT
    372. Take 打造石 1
    373. MOV S10 0
    374. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    375. CHANGECUSTOMITEMTEXT 11 上古品鉴*1星
    376. CHANGECUSTOMITEMTEXTCOLOR 11 250
    377. CHANGECUSTOMITEMABIL 11 0 0 70
    378. CHANGECUSTOMITEMABIL 11 0 1 <$STR(S10)>
    379. ;CHANGECUSTOMITEMABIL 11 1 1 <$STR(S10)>
    380. CHANGECUSTOMITEMVALUE 11 0 = 3
    381. CHANGECUSTOMITEMABIL 11 0 2 0
    382. ChangeItemUpgradeCount 11 = 1
    383. SENDUPGRADEITEM
    384. MESSAGEBOX \\装备重生成功,星级为:★
    385. break
    386. #ELSEACT
    387. MESSAGEBOX \\重生失败:原因如下\\    1.您没有"打造石"一个\\    2.请集齐以上材料在来找我吧!
    388. break

    389. [@腰带改造]
    390. #IF
    391. NOT CHECKUSEITEM 10
    392. #ACT
    393. MESSAGEBOX \\这地方带装备了么?
    394. break

    395. #IF
    396. NOT CheckContainsTextListEx ..\QuestDiary\数据文件\品鉴抽取\装备名称.txt <$BELT>
    397. #ACT
    398. MESSAGEBOX \\此物品禁止改造!
    399. break



    400. #IF
    401. checkitem 打造石 1
    402. random 300
    403. #ACT
    404. Take 打造石 1
    405. MOV S10
    406. MOV S11 <$CURRTEMNAME>
    407. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    408. CHANGECUSTOMITEMTEXT 10 上古品鉴*8星
    409. CHANGECUSTOMITEMTEXTCOLOR 10 250
    410. CHANGECUSTOMITEMABIL 10 0 0 70
    411. CHANGECUSTOMITEMABIL 10 0 1 <$STR(S10)>
    412. ;CHANGECUSTOMITEMABIL 10 1 1 <$STR(S10)>
    413. CHANGECUSTOMITEMVALUE 10 0 = 48
    414. CHANGECUSTOMITEMABIL 10 0 2 0
    415. ChangeItemUpgradeCount 10 = 8
    416. SENDUPGRADEITEM
    417. MESSAGEBOX \\装备重生成功,星级为:★★★★★★★★
    418. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    419. break


    420. #IF
    421. checkitem 打造石 1
    422. random 200
    423. #ACT
    424. Take 打造石 1
    425. MOV S10
    426. MOV S11 <$CURRTEMNAME>
    427. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    428. CHANGECUSTOMITEMTEXT 10 上古品鉴*7星
    429. CHANGECUSTOMITEMTEXTCOLOR 10 250
    430. CHANGECUSTOMITEMABIL 10 0 0 70
    431. CHANGECUSTOMITEMABIL 10 0 1 <$STR(S10)>
    432. ;CHANGECUSTOMITEMABIL 10 1 1 <$STR(S10)>
    433. CHANGECUSTOMITEMVALUE 10 0 = 32
    434. CHANGECUSTOMITEMABIL 10 0 2 0
    435. ChangeItemUpgradeCount 10 = 7
    436. SENDUPGRADEITEM
    437. MESSAGEBOX \\装备重生成功,星级为:★★★★★★★
    438. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    439. break


    440. #IF
    441. checkitem 打造石 1
    442. random 100
    443. #ACT
    444. Take 打造石 1
    445. MOV S10
    446. MOV S11 <$CURRTEMNAME>
    447. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    448. CHANGECUSTOMITEMTEXT 10 上古品鉴*6星
    449. CHANGECUSTOMITEMTEXTCOLOR 10 250
    450. CHANGECUSTOMITEMABIL 10 0 0 70
    451. CHANGECUSTOMITEMABIL 10 0 1 <$STR(S10)>
    452. ;CHANGECUSTOMITEMABIL 10 1 1 <$STR(S10)>
    453. CHANGECUSTOMITEMVALUE 10 0 = 22
    454. CHANGECUSTOMITEMABIL 10 0 2 0
    455. ChangeItemUpgradeCount 10 = 6
    456. SENDUPGRADEITEM
    457. MESSAGEBOX \\装备重生成功,星级为:★★★★★★
    458. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    459. break


    460. #IF
    461. checkitem 打造石 1
    462. random 50
    463. #ACT
    464. Take 打造石 1
    465. MOV S10
    466. MOV S11 <$CURRTEMNAME>
    467. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    468. CHANGECUSTOMITEMTEXT 10 上古品鉴*5星
    469. CHANGECUSTOMITEMTEXTCOLOR 10 250
    470. CHANGECUSTOMITEMABIL 10 0 0 70
    471. CHANGECUSTOMITEMABIL 10 0 1 <$STR(S10)>
    472. ;CHANGECUSTOMITEMABIL 10 1 1 <$STR(S10)>
    473. CHANGECUSTOMITEMVALUE 10 0 = 15
    474. CHANGECUSTOMITEMABIL 10 0 2 0
    475. ChangeItemUpgradeCount 10 = 5
    476. SENDUPGRADEITEM
    477. MESSAGEBOX \\装备重生成功,星级为:★★★★★
    478. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    479. break

    480. #IF
    481. checkitem 打造石 1
    482. random 15
    483. #ACT
    484. Take 打造石 1
    485. MOV S10
    486. MOV S11 <$CURRTEMNAME>
    487. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    488. CHANGECUSTOMITEMTEXT 10 上古品鉴*4星
    489. CHANGECUSTOMITEMTEXTCOLOR 10 250
    490. CHANGECUSTOMITEMABIL 10 0 0 70
    491. CHANGECUSTOMITEMABIL 10 0 1 <$STR(S10)>
    492. ;CHANGECUSTOMITEMABIL 10 1 1 <$STR(S10)>
    493. CHANGECUSTOMITEMVALUE 10 0 = 10
    494. CHANGECUSTOMITEMABIL 10 0 2 0
    495. ChangeItemUpgradeCount 10 = 4
    496. SENDUPGRADEITEM
    497. MESSAGEBOX \\装备重生成功,星级为:★★★★
    498. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    499. break

    500. #IF
    501. checkitem 打造石 1
    502. random 4
    503. #ACT
    504. Take 打造石 1
    505. MOV S10 0
    506. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    507. CHANGECUSTOMITEMTEXT 10 上古品鉴*3星
    508. CHANGECUSTOMITEMTEXTCOLOR 10 250
    509. CHANGECUSTOMITEMABIL 10 0 0 70
    510. CHANGECUSTOMITEMABIL 10 0 1 <$STR(S10)>
    511. ;CHANGECUSTOMITEMABIL 10 1 1 <$STR(S10)>
    512. CHANGECUSTOMITEMVALUE 10 0 = 7
    513. CHANGECUSTOMITEMABIL 10 1 2 0
    514. ChangeItemUpgradeCount 10 = 3
    515. SENDUPGRADEITEM
    516. MESSAGEBOX \\装备重生成功,星级为:★★★
    517. break

    518. #IF
    519. checkitem 打造石 1
    520. random 2
    521. #ACT
    522. Take 打造石 1
    523. MOV S10 0
    524. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    525. CHANGECUSTOMITEMTEXT 10 上古品鉴*2星
    526. CHANGECUSTOMITEMTEXTCOLOR 10 250
    527. CHANGECUSTOMITEMABIL 10 0 0 70
    528. CHANGECUSTOMITEMABIL 10 0 1 <$STR(S10)>
    529. ;CHANGECUSTOMITEMABIL 10 1 1 <$STR(S10)>
    530. CHANGECUSTOMITEMVALUE 10 0 = 5
    531. CHANGECUSTOMITEMABIL 10 1 2 0
    532. ChangeItemUpgradeCount 10 = 2
    533. SENDUPGRADEITEM
    534. MESSAGEBOX \\装备重生成功,星级为:★★
    535. break

    536. #IF
    537. checkitem 打造石 1
    538. random 1
    539. #ACT
    540. Take 打造石 1
    541. MOV S10 0
    542. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    543. CHANGECUSTOMITEMTEXT 10 上古品鉴*1星
    544. CHANGECUSTOMITEMTEXTCOLOR 10 250
    545. CHANGECUSTOMITEMABIL 10 0 0 70
    546. CHANGECUSTOMITEMABIL 10 0 1 <$STR(S10)>
    547. ;CHANGECUSTOMITEMABIL 10 1 1 <$STR(S10)>
    548. CHANGECUSTOMITEMVALUE 10 0 = 3
    549. CHANGECUSTOMITEMABIL 10 0 2 0
    550. ChangeItemUpgradeCount 10 = 1
    551. SENDUPGRADEITEM
    552. MESSAGEBOX \\装备重生成功,星级为:★
    553. break
    554. #ELSEACT
    555. MESSAGEBOX \\重生失败:原因如下\\    1.您没有"打造石"一个\\    2.请集齐以上材料在来找我吧!
    556. break

    557. [@左戒改造]
    558. #IF
    559. NOT CHECKUSEITEM 8
    560. #ACT
    561. MESSAGEBOX \\这地方带装备了么?
    562. break

    563. #IF
    564. NOT CheckContainsTextListEx ..\QuestDiary\数据文件\品鉴抽取\装备名称.txt <$RING_R>
    565. #ACT
    566. MESSAGEBOX \\此物品禁止改造!
    567. break



    568. #IF
    569. checkitem 打造石 1
    570. random 300
    571. #ACT
    572. Take 打造石 1
    573. MOV S10
    574. MOV S11 <$CURRTEMNAME>
    575. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    576. CHANGECUSTOMITEMTEXT 8 上古品鉴*8星
    577. CHANGECUSTOMITEMTEXTCOLOR 8 250
    578. CHANGECUSTOMITEMABIL 8 0 0 70
    579. CHANGECUSTOMITEMABIL 8 0 1 <$STR(S10)>
    580. ;CHANGECUSTOMITEMABIL 8 1 1 <$STR(S10)>
    581. CHANGECUSTOMITEMVALUE 8 0 = 48
    582. CHANGECUSTOMITEMABIL 8 0 2 0
    583. ChangeItemUpgradeCount 8 = 8
    584. SENDUPGRADEITEM
    585. MESSAGEBOX \\装备重生成功,星级为:★★★★★★★★
    586. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    587. break


    588. #IF
    589. checkitem 打造石 1
    590. random 200
    591. #ACT
    592. Take 打造石 1
    593. MOV S10
    594. MOV S11 <$CURRTEMNAME>
    595. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    596. CHANGECUSTOMITEMTEXT 8 上古品鉴*7星
    597. CHANGECUSTOMITEMTEXTCOLOR 8 250
    598. CHANGECUSTOMITEMABIL 8 0 0 70
    599. CHANGECUSTOMITEMABIL 8 0 1 <$STR(S10)>
    600. ;CHANGECUSTOMITEMABIL 8 1 1 <$STR(S10)>
    601. CHANGECUSTOMITEMVALUE 8 0 = 32
    602. CHANGECUSTOMITEMABIL 8 0 2 0
    603. ChangeItemUpgradeCount 8 = 7
    604. SENDUPGRADEITEM
    605. MESSAGEBOX \\装备重生成功,星级为:★★★★★★★
    606. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    607. break


    608. #IF
    609. checkitem 打造石 1
    610. random 100
    611. #ACT
    612. Take 打造石 1
    613. MOV S10
    614. MOV S11 <$CURRTEMNAME>
    615. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    616. CHANGECUSTOMITEMTEXT 8 上古品鉴*6星
    617. CHANGECUSTOMITEMTEXTCOLOR 8 250
    618. CHANGECUSTOMITEMABIL 8 0 0 70
    619. CHANGECUSTOMITEMABIL 8 0 1 <$STR(S10)>
    620. ;CHANGECUSTOMITEMABIL 8 1 1 <$STR(S10)>
    621. CHANGECUSTOMITEMVALUE 8 0 = 22
    622. CHANGECUSTOMITEMABIL 8 0 2 0
    623. ChangeItemUpgradeCount 8 = 6
    624. SENDUPGRADEITEM
    625. MESSAGEBOX \\装备重生成功,星级为:★★★★★★
    626. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    627. break


    628. #IF
    629. checkitem 打造石 1
    630. random 50
    631. #ACT
    632. Take 打造石 1
    633. MOV S10
    634. MOV S11 <$CURRTEMNAME>
    635. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    636. CHANGECUSTOMITEMTEXT 8 上古品鉴*5星
    637. CHANGECUSTOMITEMTEXTCOLOR 8 250
    638. CHANGECUSTOMITEMABIL 8 0 0 70
    639. CHANGECUSTOMITEMABIL 8 0 1 <$STR(S10)>
    640. ;CHANGECUSTOMITEMABIL 8 1 1 <$STR(S10)>
    641. CHANGECUSTOMITEMVALUE 8 0 = 15
    642. CHANGECUSTOMITEMABIL 8 0 2 0
    643. ChangeItemUpgradeCount 8 = 5
    644. SENDUPGRADEITEM
    645. MESSAGEBOX \\装备重生成功,星级为:★★★★★
    646. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    647. break

    648. #IF
    649. checkitem 打造石 1
    650. random 15
    651. #ACT
    652. Take 打造石 1
    653. MOV S10
    654. MOV S11 <$CURRTEMNAME>
    655. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    656. CHANGECUSTOMITEMTEXT 8 上古品鉴*4星
    657. CHANGECUSTOMITEMTEXTCOLOR 8 250
    658. CHANGECUSTOMITEMABIL 8 0 0 70
    659. CHANGECUSTOMITEMABIL 8 0 1 <$STR(S10)>
    660. ;CHANGECUSTOMITEMABIL 8 1 1 <$STR(S10)>
    661. CHANGECUSTOMITEMVALUE 8 0 = 10
    662. CHANGECUSTOMITEMABIL 8 0 2 0
    663. ChangeItemUpgradeCount 8 = 4
    664. SENDUPGRADEITEM
    665. MESSAGEBOX \\装备重生成功,星级为:★★★★
    666. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    667. break

    668. #IF
    669. checkitem 打造石 1
    670. random 4
    671. #ACT
    672. Take 打造石 1
    673. MOV S10 0
    674. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    675. CHANGECUSTOMITEMTEXT 8 上古品鉴*3星
    676. CHANGECUSTOMITEMTEXTCOLOR 8 250
    677. CHANGECUSTOMITEMABIL 8 0 0 70
    678. CHANGECUSTOMITEMABIL 8 0 1 <$STR(S10)>
    679. ;CHANGECUSTOMITEMABIL 8 1 1 <$STR(S10)>
    680. CHANGECUSTOMITEMVALUE 8 0 = 7
    681. CHANGECUSTOMITEMABIL 8 1 2 0
    682. ChangeItemUpgradeCount 8 = 3
    683. SENDUPGRADEITEM
    684. MESSAGEBOX \\装备重生成功,星级为:★★★
    685. break

    686. #IF
    687. checkitem 打造石 1
    688. random 2
    689. #ACT
    690. Take 打造石 1
    691. MOV S10 0
    692. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    693. CHANGECUSTOMITEMTEXT 8 上古品鉴*2星
    694. CHANGECUSTOMITEMTEXTCOLOR 8 250
    695. CHANGECUSTOMITEMABIL 8 0 0 70
    696. CHANGECUSTOMITEMABIL 8 0 1 <$STR(S10)>
    697. ;CHANGECUSTOMITEMABIL 8 1 1 <$STR(S10)>
    698. CHANGECUSTOMITEMVALUE 8 0 = 5
    699. CHANGECUSTOMITEMABIL 8 1 2 0
    700. ChangeItemUpgradeCount 8 = 2
    701. SENDUPGRADEITEM
    702. MESSAGEBOX \\装备重生成功,星级为:★★
    703. break

    704. #IF
    705. checkitem 打造石 1
    706. random 1
    707. #ACT
    708. Take 打造石 1
    709. MOV S10 0
    710. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    711. CHANGECUSTOMITEMTEXT 8 上古品鉴*1星
    712. CHANGECUSTOMITEMTEXTCOLOR 8 250
    713. CHANGECUSTOMITEMABIL 8 0 0 70
    714. CHANGECUSTOMITEMABIL 8 0 1 <$STR(S10)>
    715. ;CHANGECUSTOMITEMABIL 8 1 1 <$STR(S10)>
    716. CHANGECUSTOMITEMVALUE 8 0 = 3
    717. CHANGECUSTOMITEMABIL 8 0 2 0
    718. ChangeItemUpgradeCount 8 = 1
    719. SENDUPGRADEITEM
    720. MESSAGEBOX \\装备重生成功,星级为:★
    721. break
    722. #ELSEACT
    723. MESSAGEBOX \\重生失败:原因如下\\    1.您没有"打造石"一个\\    2.请集齐以上材料在来找我吧!
    724. break

    725. [@右戒改造]
    726. #IF
    727. NOT CHECKUSEITEM 7
    728. #ACT
    729. MESSAGEBOX \\这地方带装备了么?
    730. break


    731. #IF
    732. NOT CheckContainsTextListEx ..\QuestDiary\数据文件\品鉴抽取\装备名称.txt <$RING_L>
    733. #ACT
    734. MESSAGEBOX \\此物品禁止改造!
    735. break



    736. #IF
    737. checkitem 打造石 1
    738. random 300
    739. #ACT
    740. Take 打造石 1
    741. MOV S10
    742. MOV S11 <$CURRTEMNAME>
    743. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    744. CHANGECUSTOMITEMTEXT 7 上古品鉴*8星
    745. CHANGECUSTOMITEMTEXTCOLOR 7 250
    746. CHANGECUSTOMITEMABIL 7 0 0 70
    747. CHANGECUSTOMITEMABIL 7 0 1 <$STR(S10)>
    748. ;CHANGECUSTOMITEMABIL 7 1 1 <$STR(S10)>
    749. CHANGECUSTOMITEMVALUE 7 0 = 48
    750. CHANGECUSTOMITEMABIL 7 0 2 0
    751. ChangeItemUpgradeCount 7 = 8
    752. SENDUPGRADEITEM
    753. MESSAGEBOX \\装备重生成功,星级为:★★★★★★★★
    754. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    755. break


    756. #IF
    757. checkitem 打造石 1
    758. random 200
    759. #ACT
    760. Take 打造石 1
    761. MOV S10
    762. MOV S11 <$CURRTEMNAME>
    763. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    764. CHANGECUSTOMITEMTEXT 7 上古品鉴*7星
    765. CHANGECUSTOMITEMTEXTCOLOR 7 250
    766. CHANGECUSTOMITEMABIL 7 0 0 70
    767. CHANGECUSTOMITEMABIL 7 0 1 <$STR(S10)>
    768. ;CHANGECUSTOMITEMABIL 7 1 1 <$STR(S10)>
    769. CHANGECUSTOMITEMVALUE 7 0 = 32
    770. CHANGECUSTOMITEMABIL 7 0 2 0
    771. ChangeItemUpgradeCount 7 = 7
    772. SENDUPGRADEITEM
    773. MESSAGEBOX \\装备重生成功,星级为:★★★★★★★
    774. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    775. break


    776. #IF
    777. checkitem 打造石 1
    778. random 100
    779. #ACT
    780. Take 打造石 1
    781. MOV S10
    782. MOV S11 <$CURRTEMNAME>
    783. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    784. CHANGECUSTOMITEMTEXT 7 上古品鉴*6星
    785. CHANGECUSTOMITEMTEXTCOLOR 7 250
    786. CHANGECUSTOMITEMABIL 7 0 0 70
    787. CHANGECUSTOMITEMABIL 7 0 1 <$STR(S10)>
    788. ;CHANGECUSTOMITEMABIL 7 1 1 <$STR(S10)>
    789. CHANGECUSTOMITEMVALUE 7 0 = 22
    790. CHANGECUSTOMITEMABIL 7 0 2 0
    791. ChangeItemUpgradeCount 7 = 6
    792. SENDUPGRADEITEM
    793. MESSAGEBOX \\装备重生成功,星级为:★★★★★★
    794. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    795. break


    796. #IF
    797. checkitem 打造石 1
    798. random 50
    799. #ACT
    800. Take 打造石 1
    801. MOV S10
    802. MOV S11 <$CURRTEMNAME>
    803. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    804. CHANGECUSTOMITEMTEXT 7 上古品鉴*5星
    805. CHANGECUSTOMITEMTEXTCOLOR 7 250
    806. CHANGECUSTOMITEMABIL 7 0 0 70
    807. CHANGECUSTOMITEMABIL 7 0 1 <$STR(S10)>
    808. ;CHANGECUSTOMITEMABIL 7 1 1 <$STR(S10)>
    809. CHANGECUSTOMITEMVALUE 7 0 = 15
    810. CHANGECUSTOMITEMABIL 7 0 2 0
    811. ChangeItemUpgradeCount 7 = 5
    812. SENDUPGRADEITEM
    813. MESSAGEBOX \\装备重生成功,星级为:★★★★★
    814. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    815. break

    816. #IF
    817. checkitem 打造石 1
    818. random 15
    819. #ACT
    820. Take 打造石 1
    821. MOV S10
    822. MOV S11 <$CURRTEMNAME>
    823. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    824. CHANGECUSTOMITEMTEXT 7 上古品鉴*4星
    825. CHANGECUSTOMITEMTEXTCOLOR 7 250
    826. CHANGECUSTOMITEMABIL 7 0 0 70
    827. CHANGECUSTOMITEMABIL 7 0 1 <$STR(S10)>
    828. ;CHANGECUSTOMITEMABIL 7 1 1 <$STR(S10)>
    829. CHANGECUSTOMITEMVALUE 7 0 = 10
    830. CHANGECUSTOMITEMABIL 7 0 2 0
    831. ChangeItemUpgradeCount 7 = 4
    832. SENDUPGRADEITEM
    833. MESSAGEBOX \\装备重生成功,星级为:★★★★
    834. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    835. break

    836. #IF
    837. checkitem 打造石 1
    838. random 4
    839. #ACT
    840. Take 打造石 1
    841. MOV S10 0
    842. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    843. CHANGECUSTOMITEMTEXT 7 上古品鉴*3星
    844. CHANGECUSTOMITEMTEXTCOLOR 7 250
    845. CHANGECUSTOMITEMABIL 7 0 0 70
    846. CHANGECUSTOMITEMABIL 7 0 1 <$STR(S10)>
    847. ;CHANGECUSTOMITEMABIL 7 1 1 <$STR(S10)>
    848. CHANGECUSTOMITEMVALUE 7 0 = 7
    849. CHANGECUSTOMITEMABIL 7 1 2 0
    850. ChangeItemUpgradeCount 7 = 3
    851. SENDUPGRADEITEM
    852. MESSAGEBOX \\装备重生成功,星级为:★★★
    853. break

    854. #IF
    855. checkitem 打造石 1
    856. random 2
    857. #ACT
    858. Take 打造石 1
    859. MOV S10 0
    860. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    861. CHANGECUSTOMITEMTEXT 7 上古品鉴*2星
    862. CHANGECUSTOMITEMTEXTCOLOR 7 250
    863. CHANGECUSTOMITEMABIL 7 0 0 70
    864. CHANGECUSTOMITEMABIL 7 0 1 <$STR(S10)>
    865. ;CHANGECUSTOMITEMABIL 7 1 1 <$STR(S10)>
    866. CHANGECUSTOMITEMVALUE 7 0 = 5
    867. CHANGECUSTOMITEMABIL 7 1 2 0
    868. ChangeItemUpgradeCount 7 = 2
    869. SENDUPGRADEITEM
    870. MESSAGEBOX \\装备重生成功,星级为:★★
    871. break

    872. #IF
    873. checkitem 打造石 1
    874. random 1
    875. #ACT
    876. Take 打造石 1
    877. MOV S10 0
    878. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    879. CHANGECUSTOMITEMTEXT 7 上古品鉴*1星
    880. CHANGECUSTOMITEMTEXTCOLOR 7 250
    881. CHANGECUSTOMITEMABIL 7 0 0 70
    882. CHANGECUSTOMITEMABIL 7 0 1 <$STR(S10)>
    883. ;CHANGECUSTOMITEMABIL 7 1 1 <$STR(S10)>
    884. CHANGECUSTOMITEMVALUE 7 0 = 3
    885. CHANGECUSTOMITEMABIL 7 0 2 0
    886. ChangeItemUpgradeCount 7 = 1
    887. SENDUPGRADEITEM
    888. MESSAGEBOX \\装备重生成功,星级为:★
    889. break
    890. #ELSEACT
    891. MESSAGEBOX \\重生失败:原因如下\\    1.您没有"打造石"一个\\    2.请集齐以上材料在来找我吧!
    892. break


    893. [@左手改造]
    894. #IF
    895. NOT CHECKUSEITEM 6
    896. #ACT
    897. MESSAGEBOX \\这地方带装备了么?
    898. break

    899. #IF
    900. NOT CheckContainsTextListEx ..\QuestDiary\数据文件\品鉴抽取\装备名称.txt <$ARMRING_R>
    901. #ACT
    902. MESSAGEBOX \\此物品禁止改造!
    903. break

    904. #

    905. #IF
    906. checkitem 打造石 1
    907. random 300
    908. #ACT
    909. Take 打造石 1
    910. MOV S10
    911. MOV S11 <$CURRTEMNAME>
    912. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    913. CHANGECUSTOMITEMTEXT 6 上古品鉴*8星
    914. CHANGECUSTOMITEMTEXTCOLOR 6 250
    915. CHANGECUSTOMITEMABIL 6 0 0 70
    916. CHANGECUSTOMITEMABIL 6 0 1 <$STR(S10)>
    917. ;CHANGECUSTOMITEMABIL 6 1 1 <$STR(S10)>
    918. CHANGECUSTOMITEMVALUE 6 0 = 48
    919. CHANGECUSTOMITEMABIL 6 0 2 0
    920. ChangeItemUpgradeCount 6 = 8
    921. SENDUPGRADEITEM
    922. MESSAGEBOX \\装备重生成功,星级为:★★★★★★★★
    923. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    924. break


    925. #IF
    926. checkitem 打造石 1
    927. random 200
    928. #ACT
    929. Take 打造石 1
    930. MOV S10
    931. MOV S11 <$CURRTEMNAME>
    932. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    933. CHANGECUSTOMITEMTEXT 6 上古品鉴*7星
    934. CHANGECUSTOMITEMTEXTCOLOR 6 250
    935. CHANGECUSTOMITEMABIL 6 0 0 70
    936. CHANGECUSTOMITEMABIL 6 0 1 <$STR(S10)>
    937. ;CHANGECUSTOMITEMABIL 6 1 1 <$STR(S10)>
    938. CHANGECUSTOMITEMVALUE 6 0 = 32
    939. CHANGECUSTOMITEMABIL 6 0 2 0
    940. ChangeItemUpgradeCount 6 = 7
    941. SENDUPGRADEITEM
    942. MESSAGEBOX \\装备重生成功,星级为:★★★★★★★
    943. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    944. break


    945. #IF
    946. checkitem 打造石 1
    947. random 100
    948. #ACT
    949. Take 打造石 1
    950. MOV S10
    951. MOV S11 <$CURRTEMNAME>
    952. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    953. CHANGECUSTOMITEMTEXT 6 上古品鉴*6星
    954. CHANGECUSTOMITEMTEXTCOLOR 6 250
    955. CHANGECUSTOMITEMABIL 6 0 0 70
    956. CHANGECUSTOMITEMABIL 6 0 1 <$STR(S10)>
    957. ;CHANGECUSTOMITEMABIL 6 1 1 <$STR(S10)>
    958. CHANGECUSTOMITEMVALUE 6 0 = 22
    959. CHANGECUSTOMITEMABIL 6 0 2 0
    960. ChangeItemUpgradeCount 6 = 6
    961. SENDUPGRADEITEM
    962. MESSAGEBOX \\装备重生成功,星级为:★★★★★★
    963. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    964. break


    965. #IF
    966. checkitem 打造石 1
    967. random 50
    968. #ACT
    969. Take 打造石 1
    970. MOV S10
    971. MOV S11 <$CURRTEMNAME>
    972. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    973. CHANGECUSTOMITEMTEXT 6 上古品鉴*5星
    974. CHANGECUSTOMITEMTEXTCOLOR 6 250
    975. CHANGECUSTOMITEMABIL 6 0 0 70
    976. CHANGECUSTOMITEMABIL 6 0 1 <$STR(S10)>
    977. ;CHANGECUSTOMITEMABIL 6 1 1 <$STR(S10)>
    978. CHANGECUSTOMITEMVALUE 6 0 = 15
    979. CHANGECUSTOMITEMABIL 6 0 2 0
    980. ChangeItemUpgradeCount 6 = 5
    981. SENDUPGRADEITEM
    982. MESSAGEBOX \\装备重生成功,星级为:★★★★★
    983. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    984. break

    985. #IF
    986. checkitem 打造石 1
    987. random 15
    988. #ACT
    989. Take 打造石 1
    990. MOV S10
    991. MOV S11 <$CURRTEMNAME>
    992. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    993. CHANGECUSTOMITEMTEXT 6 上古品鉴*4星
    994. CHANGECUSTOMITEMTEXTCOLOR 6 250
    995. CHANGECUSTOMITEMABIL 6 0 0 70
    996. CHANGECUSTOMITEMABIL 6 0 1 <$STR(S10)>
    997. ;CHANGECUSTOMITEMABIL 6 1 1 <$STR(S10)>
    998. CHANGECUSTOMITEMVALUE 6 0 = 10
    999. CHANGECUSTOMITEMABIL 6 0 2 0
    1000. ChangeItemUpgradeCount 6 = 4
    1001. SENDUPGRADEITEM
    1002. MESSAGEBOX \\装备重生成功,星级为:★★★★
    1003. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1004. break

    1005. #IF
    1006. checkitem 打造石 1
    1007. random 4
    1008. #ACT
    1009. Take 打造石 1
    1010. MOV S10 0
    1011. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1012. CHANGECUSTOMITEMTEXT 6 上古品鉴*3星
    1013. CHANGECUSTOMITEMTEXTCOLOR 6 250
    1014. CHANGECUSTOMITEMABIL 6 0 0 70
    1015. CHANGECUSTOMITEMABIL 6 0 1 <$STR(S10)>
    1016. ;CHANGECUSTOMITEMABIL 6 1 1 <$STR(S10)>
    1017. CHANGECUSTOMITEMVALUE 6 0 = 7
    1018. CHANGECUSTOMITEMABIL 6 1 2 0
    1019. ChangeItemUpgradeCount 6 = 3
    1020. SENDUPGRADEITEM
    1021. MESSAGEBOX \\装备重生成功,星级为:★★★
    1022. break

    1023. #IF
    1024. checkitem 打造石 1
    1025. random 2
    1026. #ACT
    1027. Take 打造石 1
    1028. MOV S10 0
    1029. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1030. CHANGECUSTOMITEMTEXT 6 上古品鉴*2星
    1031. CHANGECUSTOMITEMTEXTCOLOR 6 250
    1032. CHANGECUSTOMITEMABIL 6 0 0 70
    1033. CHANGECUSTOMITEMABIL 6 0 1 <$STR(S10)>
    1034. ;CHANGECUSTOMITEMABIL 6 1 1 <$STR(S10)>
    1035. CHANGECUSTOMITEMVALUE 6 0 = 5
    1036. CHANGECUSTOMITEMABIL 6 1 2 0
    1037. ChangeItemUpgradeCount 6 = 2
    1038. SENDUPGRADEITEM
    1039. MESSAGEBOX \\装备重生成功,星级为:★★
    1040. break

    1041. #IF
    1042. checkitem 打造石 1
    1043. random 1
    1044. #ACT
    1045. Take 打造石 1
    1046. MOV S10 0
    1047. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1048. CHANGECUSTOMITEMTEXT 6 上古品鉴*1星
    1049. CHANGECUSTOMITEMTEXTCOLOR 6 250
    1050. CHANGECUSTOMITEMABIL 6 0 0 70
    1051. CHANGECUSTOMITEMABIL 6 0 1 <$STR(S10)>
    1052. ;CHANGECUSTOMITEMABIL 6 1 1 <$STR(S10)>
    1053. CHANGECUSTOMITEMVALUE 6 0 = 3
    1054. CHANGECUSTOMITEMABIL 6 0 2 0
    1055. ChangeItemUpgradeCount 6 = 1
    1056. SENDUPGRADEITEM
    1057. MESSAGEBOX \\装备重生成功,星级为:★
    1058. break
    1059. #ELSEACT
    1060. MESSAGEBOX \\重生失败:原因如下\\    1.您没有"打造石"一个\\    2.请集齐以上材料在来找我吧!
    1061. break


    1062. [@右手改造]
    1063. #IF
    1064. NOT CHECKUSEITEM 5
    1065. #ACT
    1066. MESSAGEBOX \\这地方带装备了么?
    1067. break

    1068. #IF
    1069. NOT CheckContainsTextListEx ..\QuestDiary\数据文件\品鉴抽取\装备名称.txt <$ARMRING_L>
    1070. #ACT
    1071. MESSAGEBOX \\此物品禁止改造!
    1072. break



    1073. #IF
    1074. checkitem 打造石 1
    1075. random 300
    1076. #ACT
    1077. Take 打造石 1
    1078. MOV S10
    1079. MOV S11 <$CURRTEMNAME>
    1080. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1081. CHANGECUSTOMITEMTEXT 5 上古品鉴*8星
    1082. CHANGECUSTOMITEMTEXTCOLOR 5 250
    1083. CHANGECUSTOMITEMABIL 5 0 0 70
    1084. CHANGECUSTOMITEMABIL 5 0 1 <$STR(S10)>
    1085. ;CHANGECUSTOMITEMABIL 5 1 1 <$STR(S10)>
    1086. CHANGECUSTOMITEMVALUE 5 0 = 48
    1087. CHANGECUSTOMITEMABIL 5 0 2 0
    1088. ChangeItemUpgradeCount 5 = 8
    1089. SENDUPGRADEITEM
    1090. MESSAGEBOX \\装备重生成功,星级为:★★★★★★★★
    1091. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1092. break


    1093. #IF
    1094. checkitem 打造石 1
    1095. random 200
    1096. #ACT
    1097. Take 打造石 1
    1098. MOV S10
    1099. MOV S11 <$CURRTEMNAME>
    1100. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1101. CHANGECUSTOMITEMTEXT 5 上古品鉴*7星
    1102. CHANGECUSTOMITEMTEXTCOLOR 5 250
    1103. CHANGECUSTOMITEMABIL 5 0 0 70
    1104. CHANGECUSTOMITEMABIL 5 0 1 <$STR(S10)>
    1105. ;CHANGECUSTOMITEMABIL 5 1 1 <$STR(S10)>
    1106. CHANGECUSTOMITEMVALUE 5 0 = 32
    1107. CHANGECUSTOMITEMABIL 5 0 2 0
    1108. ChangeItemUpgradeCount 5 = 7
    1109. SENDUPGRADEITEM
    1110. MESSAGEBOX \\装备重生成功,星级为:★★★★★★★
    1111. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1112. break


    1113. #IF
    1114. checkitem 打造石 1
    1115. random 100
    1116. #ACT
    1117. Take 打造石 1
    1118. MOV S10
    1119. MOV S11 <$CURRTEMNAME>
    1120. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1121. CHANGECUSTOMITEMTEXT 5 上古品鉴*6星
    1122. CHANGECUSTOMITEMTEXTCOLOR 5 250
    1123. CHANGECUSTOMITEMABIL 5 0 0 70
    1124. CHANGECUSTOMITEMABIL 5 0 1 <$STR(S10)>
    1125. ;CHANGECUSTOMITEMABIL 5 1 1 <$STR(S10)>
    1126. CHANGECUSTOMITEMVALUE 5 0 = 22
    1127. CHANGECUSTOMITEMABIL 5 0 2 0
    1128. ChangeItemUpgradeCount 5 = 6
    1129. SENDUPGRADEITEM
    1130. MESSAGEBOX \\装备重生成功,星级为:★★★★★★
    1131. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1132. break


    1133. #IF
    1134. checkitem 打造石 1
    1135. random 50
    1136. #ACT
    1137. Take 打造石 1
    1138. MOV S10
    1139. MOV S11 <$CURRTEMNAME>
    1140. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1141. CHANGECUSTOMITEMTEXT 5 上古品鉴*5星
    1142. CHANGECUSTOMITEMTEXTCOLOR 5 250
    1143. CHANGECUSTOMITEMABIL 5 0 0 70
    1144. CHANGECUSTOMITEMABIL 5 0 1 <$STR(S10)>
    1145. ;CHANGECUSTOMITEMABIL 5 1 1 <$STR(S10)>
    1146. CHANGECUSTOMITEMVALUE 5 0 = 15
    1147. CHANGECUSTOMITEMABIL 5 0 2 0
    1148. ChangeItemUpgradeCount 5 = 5
    1149. SENDUPGRADEITEM
    1150. MESSAGEBOX \\装备重生成功,星级为:★★★★★
    1151. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1152. break

    1153. #IF
    1154. checkitem 打造石 1
    1155. random 15
    1156. #ACT
    1157. Take 打造石 1
    1158. MOV S10
    1159. MOV S11 <$CURRTEMNAME>
    1160. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1161. CHANGECUSTOMITEMTEXT 5 上古品鉴*4星
    1162. CHANGECUSTOMITEMTEXTCOLOR 5 250
    1163. CHANGECUSTOMITEMABIL 5 0 0 70
    1164. CHANGECUSTOMITEMABIL 5 0 1 <$STR(S10)>
    1165. ;CHANGECUSTOMITEMABIL 5 1 1 <$STR(S10)>
    1166. CHANGECUSTOMITEMVALUE 5 0 = 10
    1167. CHANGECUSTOMITEMABIL 5 0 2 0
    1168. ChangeItemUpgradeCount 5 = 4
    1169. SENDUPGRADEITEM
    1170. MESSAGEBOX \\装备重生成功,星级为:★★★★
    1171. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1172. break

    1173. #IF
    1174. checkitem 打造石 1
    1175. random 4
    1176. #ACT
    1177. Take 打造石 1
    1178. MOV S10 0
    1179. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1180. CHANGECUSTOMITEMTEXT 5 上古品鉴*3星
    1181. CHANGECUSTOMITEMTEXTCOLOR 5 250
    1182. CHANGECUSTOMITEMABIL 5 0 0 70
    1183. CHANGECUSTOMITEMABIL 5 0 1 <$STR(S10)>
    1184. ;CHANGECUSTOMITEMABIL 5 1 1 <$STR(S10)>
    1185. CHANGECUSTOMITEMVALUE 5 0 = 7
    1186. CHANGECUSTOMITEMABIL 5 1 2 0
    1187. ChangeItemUpgradeCount 5 = 3
    1188. SENDUPGRADEITEM
    1189. MESSAGEBOX \\装备重生成功,星级为:★★★
    1190. break

    1191. #IF
    1192. checkitem 打造石 1
    1193. random 2
    1194. #ACT
    1195. Take 打造石 1
    1196. MOV S10 0
    1197. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1198. CHANGECUSTOMITEMTEXT 5 上古品鉴*2星
    1199. CHANGECUSTOMITEMTEXTCOLOR 5 250
    1200. CHANGECUSTOMITEMABIL 5 0 0 70
    1201. CHANGECUSTOMITEMABIL 5 0 1 <$STR(S10)>
    1202. ;CHANGECUSTOMITEMABIL 5 1 1 <$STR(S10)>
    1203. CHANGECUSTOMITEMVALUE 5 0 = 5
    1204. CHANGECUSTOMITEMABIL 5 1 2 0
    1205. ChangeItemUpgradeCount 5 = 2
    1206. SENDUPGRADEITEM
    1207. MESSAGEBOX \\装备重生成功,星级为:★★
    1208. break

    1209. #IF
    1210. checkitem 打造石 1
    1211. random 1
    1212. #ACT
    1213. Take 打造石 1
    1214. MOV S10 0
    1215. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1216. CHANGECUSTOMITEMTEXT 5 上古品鉴*1星
    1217. CHANGECUSTOMITEMTEXTCOLOR 5 250
    1218. CHANGECUSTOMITEMABIL 5 0 0 70
    1219. CHANGECUSTOMITEMABIL 5 0 1 <$STR(S10)>
    1220. ;CHANGECUSTOMITEMABIL 5 1 1 <$STR(S10)>
    1221. CHANGECUSTOMITEMVALUE 5 0 = 3
    1222. CHANGECUSTOMITEMABIL 5 0 2 0
    1223. ChangeItemUpgradeCount 5 = 1
    1224. SENDUPGRADEITEM
    1225. MESSAGEBOX \\装备重生成功,星级为:★
    1226. break
    1227. #ELSEACT
    1228. MESSAGEBOX \\重生失败:原因如下\\    1.您没有"打造石"一个\\    2.请集齐以上材料在来找我吧!
    1229. break


    1230. [@头盔改造]
    1231. #IF
    1232. NOT CHECKUSEITEM 4
    1233. #ACT
    1234. MESSAGEBOX \\这地方带装备了么?
    1235. break

    1236. #IF
    1237. NOT CheckContainsTextListEx ..\QuestDiary\数据文件\品鉴抽取\装备名称.txt <$HELMET>
    1238. #ACT
    1239. MESSAGEBOX \\此物品禁止改造!
    1240. break



    1241. #IF
    1242. checkitem 打造石 1
    1243. random 300
    1244. #ACT
    1245. Take 打造石 1
    1246. MOV S10
    1247. MOV S11 <$CURRTEMNAME>
    1248. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1249. CHANGECUSTOMITEMTEXT 4 上古品鉴*8星
    1250. CHANGECUSTOMITEMTEXTCOLOR 4 250
    1251. CHANGECUSTOMITEMABIL 4 0 0 70
    1252. CHANGECUSTOMITEMABIL 4 0 1 <$STR(S10)>
    1253. ;CHANGECUSTOMITEMABIL 4 1 1 <$STR(S10)>
    1254. CHANGECUSTOMITEMVALUE 4 0 = 48
    1255. CHANGECUSTOMITEMABIL 4 0 2 0
    1256. ChangeItemUpgradeCount 4 = 8
    1257. SENDUPGRADEITEM
    1258. MESSAGEBOX \\装备重生成功,星级为:★★★★★★★★
    1259. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1260. break


    1261. #IF
    1262. checkitem 打造石 1
    1263. random 200
    1264. #ACT
    1265. Take 打造石 1
    1266. MOV S10
    1267. MOV S11 <$CURRTEMNAME>
    1268. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1269. CHANGECUSTOMITEMTEXT 4 上古品鉴*7星
    1270. CHANGECUSTOMITEMTEXTCOLOR 4 250
    1271. CHANGECUSTOMITEMABIL 4 0 0 70
    1272. CHANGECUSTOMITEMABIL 4 0 1 <$STR(S10)>
    1273. ;CHANGECUSTOMITEMABIL 4 1 1 <$STR(S10)>
    1274. CHANGECUSTOMITEMVALUE 4 0 = 32
    1275. CHANGECUSTOMITEMABIL 4 0 2 0
    1276. ChangeItemUpgradeCount 4 = 7
    1277. SENDUPGRADEITEM
    1278. MESSAGEBOX \\装备重生成功,星级为:★★★★★★★
    1279. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1280. break


    1281. #IF
    1282. checkitem 打造石 1
    1283. random 100
    1284. #ACT
    1285. Take 打造石 1
    1286. MOV S10
    1287. MOV S11 <$CURRTEMNAME>
    1288. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1289. CHANGECUSTOMITEMTEXT 4 上古品鉴*6星
    1290. CHANGECUSTOMITEMTEXTCOLOR 4 250
    1291. CHANGECUSTOMITEMABIL 4 0 0 70
    1292. CHANGECUSTOMITEMABIL 4 0 1 <$STR(S10)>
    1293. ;CHANGECUSTOMITEMABIL 4 1 1 <$STR(S10)>
    1294. CHANGECUSTOMITEMVALUE 4 0 = 22
    1295. CHANGECUSTOMITEMABIL 4 0 2 0
    1296. ChangeItemUpgradeCount 4 = 6
    1297. SENDUPGRADEITEM
    1298. MESSAGEBOX \\装备重生成功,星级为:★★★★★★
    1299. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1300. break


    1301. #IF
    1302. checkitem 打造石 1
    1303. random 50
    1304. #ACT
    1305. Take 打造石 1
    1306. MOV S10
    1307. MOV S11 <$CURRTEMNAME>
    1308. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1309. CHANGECUSTOMITEMTEXT 4 上古品鉴*5星
    1310. CHANGECUSTOMITEMTEXTCOLOR 4 250
    1311. CHANGECUSTOMITEMABIL 4 0 0 70
    1312. CHANGECUSTOMITEMABIL 4 0 1 <$STR(S10)>
    1313. ;CHANGECUSTOMITEMABIL 4 1 1 <$STR(S10)>
    1314. CHANGECUSTOMITEMVALUE 4 0 = 15
    1315. CHANGECUSTOMITEMABIL 4 0 2 0
    1316. ChangeItemUpgradeCount 4 = 5
    1317. SENDUPGRADEITEM
    1318. MESSAGEBOX \\装备重生成功,星级为:★★★★★
    1319. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1320. break

    1321. #IF
    1322. checkitem 打造石 1
    1323. random 15
    1324. #ACT
    1325. Take 打造石 1
    1326. MOV S10
    1327. MOV S11 <$CURRTEMNAME>
    1328. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1329. CHANGECUSTOMITEMTEXT 4 上古品鉴*4星
    1330. CHANGECUSTOMITEMTEXTCOLOR 4 250
    1331. CHANGECUSTOMITEMABIL 4 0 0 70
    1332. CHANGECUSTOMITEMABIL 4 0 1 <$STR(S10)>
    1333. ;CHANGECUSTOMITEMABIL 4 1 1 <$STR(S10)>
    1334. CHANGECUSTOMITEMVALUE 4 0 = 10
    1335. CHANGECUSTOMITEMABIL 4 0 2 0
    1336. ChangeItemUpgradeCount 4 = 4
    1337. SENDUPGRADEITEM
    1338. MESSAGEBOX \\装备重生成功,星级为:★★★★
    1339. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1340. break

    1341. #IF
    1342. checkitem 打造石 1
    1343. random 4
    1344. #ACT
    1345. Take 打造石 1
    1346. MOV S10 0
    1347. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1348. CHANGECUSTOMITEMTEXT 4 上古品鉴*3星
    1349. CHANGECUSTOMITEMTEXTCOLOR 4 250
    1350. CHANGECUSTOMITEMABIL 4 0 0 70
    1351. CHANGECUSTOMITEMABIL 4 0 1 <$STR(S10)>
    1352. ;CHANGECUSTOMITEMABIL 4 1 1 <$STR(S10)>
    1353. CHANGECUSTOMITEMVALUE 4 0 = 7
    1354. CHANGECUSTOMITEMABIL 4 1 2 0
    1355. ChangeItemUpgradeCount 4 = 3
    1356. SENDUPGRADEITEM
    1357. MESSAGEBOX \\装备重生成功,星级为:★★★
    1358. break

    1359. #IF
    1360. checkitem 打造石 1
    1361. random 2
    1362. #ACT
    1363. Take 打造石 1
    1364. MOV S10 0
    1365. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1366. CHANGECUSTOMITEMTEXT 4 上古品鉴*2星
    1367. CHANGECUSTOMITEMTEXTCOLOR 4 250
    1368. CHANGECUSTOMITEMABIL 4 0 0 70
    1369. CHANGECUSTOMITEMABIL 4 0 1 <$STR(S10)>
    1370. ;CHANGECUSTOMITEMABIL 4 1 1 <$STR(S10)>
    1371. CHANGECUSTOMITEMVALUE 4 0 = 5
    1372. CHANGECUSTOMITEMABIL 4 1 2 0
    1373. ChangeItemUpgradeCount 4 = 2
    1374. SENDUPGRADEITEM
    1375. MESSAGEBOX \\装备重生成功,星级为:★★
    1376. break

    1377. #IF
    1378. checkitem 打造石 1
    1379. random 1
    1380. #ACT
    1381. Take 打造石 1
    1382. MOV S10 0
    1383. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1384. CHANGECUSTOMITEMTEXT 4 上古品鉴*1星
    1385. CHANGECUSTOMITEMTEXTCOLOR 4 250
    1386. CHANGECUSTOMITEMABIL 4 0 0 70
    1387. CHANGECUSTOMITEMABIL 4 0 1 <$STR(S10)>
    1388. ;CHANGECUSTOMITEMABIL 4 1 1 <$STR(S10)>
    1389. CHANGECUSTOMITEMVALUE 4 0 = 3
    1390. CHANGECUSTOMITEMABIL 4 0 2 0
    1391. ChangeItemUpgradeCount 4 = 1
    1392. SENDUPGRADEITEM
    1393. MESSAGEBOX \\装备重生成功,星级为:★
    1394. break
    1395. #ELSEACT
    1396. MESSAGEBOX \\重生失败:原因如下\\    1.您没有"打造石"一个\\    2.请集齐以上材料在来找我吧!
    1397. break


    1398. [@项链改造]
    1399. #IF
    1400. NOT CHECKUSEITEM 3
    1401. #ACT
    1402. MESSAGEBOX \\这地方带装备了么?
    1403. break

    1404. #IF
    1405. NOT CheckContainsTextListEx ..\QuestDiary\数据文件\品鉴抽取\装备名称.txt <$NECKLACE>
    1406. #ACT
    1407. MESSAGEBOX \\此物品禁止改造!
    1408. break



    1409. #IF
    1410. checkitem 打造石 1
    1411. random 300
    1412. #ACT
    1413. Take 打造石 1
    1414. MOV S10
    1415. MOV S11 <$CURRTEMNAME>
    1416. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1417. CHANGECUSTOMITEMTEXT 3 上古品鉴*8星
    1418. CHANGECUSTOMITEMTEXTCOLOR 3 250
    1419. CHANGECUSTOMITEMABIL 3 0 0 70
    1420. CHANGECUSTOMITEMABIL 3 0 1 <$STR(S10)>
    1421. ;CHANGECUSTOMITEMABIL 3 1 1 <$STR(S10)>
    1422. CHANGECUSTOMITEMVALUE 3 0 = 48
    1423. CHANGECUSTOMITEMABIL 3 0 2 0
    1424. ChangeItemUpgradeCount 3 = 8
    1425. SENDUPGRADEITEM
    1426. MESSAGEBOX \\装备重生成功,星级为:★★★★★★★★
    1427. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1428. break


    1429. #IF
    1430. checkitem 打造石 1
    1431. random 200
    1432. #ACT
    1433. Take 打造石 1
    1434. MOV S10
    1435. MOV S11 <$CURRTEMNAME>
    1436. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1437. CHANGECUSTOMITEMTEXT 3 上古品鉴*7星
    1438. CHANGECUSTOMITEMTEXTCOLOR 3 250
    1439. CHANGECUSTOMITEMABIL 3 0 0 70
    1440. CHANGECUSTOMITEMABIL 3 0 1 <$STR(S10)>
    1441. ;CHANGECUSTOMITEMABIL 3 1 1 <$STR(S10)>
    1442. CHANGECUSTOMITEMVALUE 3 0 = 32
    1443. CHANGECUSTOMITEMABIL 3 0 2 0
    1444. ChangeItemUpgradeCount 3 = 7
    1445. SENDUPGRADEITEM
    1446. MESSAGEBOX \\装备重生成功,星级为:★★★★★★★
    1447. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1448. break


    1449. #IF
    1450. checkitem 打造石 1
    1451. random 100
    1452. #ACT
    1453. Take 打造石 1
    1454. MOV S10
    1455. MOV S11 <$CURRTEMNAME>
    1456. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1457. CHANGECUSTOMITEMTEXT 3 上古品鉴*6星
    1458. CHANGECUSTOMITEMTEXTCOLOR 3 250
    1459. CHANGECUSTOMITEMABIL 3 0 0 70
    1460. CHANGECUSTOMITEMABIL 3 0 1 <$STR(S10)>
    1461. ;CHANGECUSTOMITEMABIL 3 1 1 <$STR(S10)>
    1462. CHANGECUSTOMITEMVALUE 3 0 = 22
    1463. CHANGECUSTOMITEMABIL 3 0 2 0
    1464. ChangeItemUpgradeCount 3 = 6
    1465. SENDUPGRADEITEM
    1466. MESSAGEBOX \\装备重生成功,星级为:★★★★★★
    1467. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1468. break


    1469. #IF
    1470. checkitem 打造石 1
    1471. random 50
    1472. #ACT
    1473. Take 打造石 1
    1474. MOV S10
    1475. MOV S11 <$CURRTEMNAME>
    1476. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1477. CHANGECUSTOMITEMTEXT 3 上古品鉴*5星
    1478. CHANGECUSTOMITEMTEXTCOLOR 3 250
    1479. CHANGECUSTOMITEMABIL 3 0 0 70
    1480. CHANGECUSTOMITEMABIL 3 0 1 <$STR(S10)>
    1481. ;CHANGECUSTOMITEMABIL 3 1 1 <$STR(S10)>
    1482. CHANGECUSTOMITEMVALUE 3 0 = 15
    1483. CHANGECUSTOMITEMABIL 3 0 2 0
    1484. ChangeItemUpgradeCount 3 = 5
    1485. SENDUPGRADEITEM
    1486. MESSAGEBOX \\装备重生成功,星级为:★★★★★
    1487. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1488. break

    1489. #IF
    1490. checkitem 打造石 1
    1491. random 15
    1492. #ACT
    1493. Take 打造石 1
    1494. MOV S10
    1495. MOV S11 <$CURRTEMNAME>
    1496. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1497. CHANGECUSTOMITEMTEXT 3 上古品鉴*4星
    1498. CHANGECUSTOMITEMTEXTCOLOR 3 250
    1499. CHANGECUSTOMITEMABIL 3 0 0 70
    1500. CHANGECUSTOMITEMABIL 3 0 1 <$STR(S10)>
    1501. ;CHANGECUSTOMITEMABIL 3 1 1 <$STR(S10)>
    1502. CHANGECUSTOMITEMVALUE 3 0 = 10
    1503. CHANGECUSTOMITEMABIL 3 0 2 0
    1504. ChangeItemUpgradeCount 3 = 4
    1505. SENDUPGRADEITEM
    1506. MESSAGEBOX \\装备重生成功,星级为:★★★★
    1507. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1508. break

    1509. #IF
    1510. checkitem 打造石 1
    1511. random 4
    1512. #ACT
    1513. Take 打造石 1
    1514. MOV S10 0
    1515. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1516. CHANGECUSTOMITEMTEXT 3 上古品鉴*3星
    1517. CHANGECUSTOMITEMTEXTCOLOR 3 250
    1518. CHANGECUSTOMITEMABIL 3 0 0 70
    1519. CHANGECUSTOMITEMABIL 3 0 1 <$STR(S10)>
    1520. ;CHANGECUSTOMITEMABIL 3 1 1 <$STR(S10)>
    1521. CHANGECUSTOMITEMVALUE 3 0 = 7
    1522. CHANGECUSTOMITEMABIL 3 1 2 0
    1523. ChangeItemUpgradeCount 3 = 3
    1524. SENDUPGRADEITEM
    1525. MESSAGEBOX \\装备重生成功,星级为:★★★
    1526. break

    1527. #IF
    1528. checkitem 打造石 1
    1529. random 2
    1530. #ACT
    1531. Take 打造石 1
    1532. MOV S10 0
    1533. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1534. CHANGECUSTOMITEMTEXT 3 上古品鉴*2星
    1535. CHANGECUSTOMITEMTEXTCOLOR 3 250
    1536. CHANGECUSTOMITEMABIL 3 0 0 70
    1537. CHANGECUSTOMITEMABIL 3 0 1 <$STR(S10)>
    1538. ;CHANGECUSTOMITEMABIL 3 1 1 <$STR(S10)>
    1539. CHANGECUSTOMITEMVALUE 3 0 = 5
    1540. CHANGECUSTOMITEMABIL 3 1 2 0
    1541. ChangeItemUpgradeCount 3 = 2
    1542. SENDUPGRADEITEM
    1543. MESSAGEBOX \\装备重生成功,星级为:★★
    1544. break

    1545. #IF
    1546. checkitem 打造石 1
    1547. random 1
    1548. #ACT
    1549. Take 打造石 1
    1550. MOV S10 0
    1551. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1552. CHANGECUSTOMITEMTEXT 3 上古品鉴*1星
    1553. CHANGECUSTOMITEMTEXTCOLOR 3 250
    1554. CHANGECUSTOMITEMABIL 3 0 0 70
    1555. CHANGECUSTOMITEMABIL 3 0 1 <$STR(S10)>
    1556. ;CHANGECUSTOMITEMABIL 3 1 1 <$STR(S10)>
    1557. CHANGECUSTOMITEMVALUE 3 0 = 3
    1558. CHANGECUSTOMITEMABIL 3 0 2 0
    1559. ChangeItemUpgradeCount 3 = 1
    1560. SENDUPGRADEITEM
    1561. MESSAGEBOX \\装备重生成功,星级为:★
    1562. break
    1563. #ELSEACT
    1564. MESSAGEBOX \\重生失败:原因如下\\    1.您没有"打造石"一个\\    2.请集齐以上材料在来找我吧!
    1565. break


    1566. [@勋章改造]
    1567. #IF
    1568. NOT CHECKUSEITEM 2
    1569. #ACT
    1570. MESSAGEBOX \\这地方带装备了么?
    1571. break

    1572. #IF
    1573. NOT CheckContainsTextListEx ..\QuestDiary\数据文件\品鉴抽取\装备名称.txt <$RIGHTHAND>
    1574. #ACT
    1575. MESSAGEBOX \\此物品禁止改造!
    1576. break



    1577. #IF
    1578. checkitem 打造石 1
    1579. random 300
    1580. #ACT
    1581. Take 打造石 1
    1582. MOV S10
    1583. MOV S11 <$CURRTEMNAME>
    1584. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1585. CHANGECUSTOMITEMTEXT 2 上古品鉴*8星
    1586. CHANGECUSTOMITEMTEXTCOLOR 2 250
    1587. CHANGECUSTOMITEMABIL 2 0 0 70
    1588. CHANGECUSTOMITEMABIL 2 0 1 <$STR(S10)>
    1589. ;CHANGECUSTOMITEMABIL 2 1 1 <$STR(S10)>
    1590. CHANGECUSTOMITEMVALUE 2 0 = 48
    1591. CHANGECUSTOMITEMABIL 2 0 2 0
    1592. ChangeItemUpgradeCount 2 = 8
    1593. SENDUPGRADEITEM
    1594. MESSAGEBOX \\装备重生成功,星级为:★★★★★★★★
    1595. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1596. break


    1597. #IF
    1598. checkitem 打造石 1
    1599. random 200
    1600. #ACT
    1601. Take 打造石 1
    1602. MOV S10
    1603. MOV S11 <$CURRTEMNAME>
    1604. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1605. CHANGECUSTOMITEMTEXT 2 上古品鉴*7星
    1606. CHANGECUSTOMITEMTEXTCOLOR 2 250
    1607. CHANGECUSTOMITEMABIL 2 0 0 70
    1608. CHANGECUSTOMITEMABIL 2 0 1 <$STR(S10)>
    1609. ;CHANGECUSTOMITEMABIL 2 1 1 <$STR(S10)>
    1610. CHANGECUSTOMITEMVALUE 2 0 = 32
    1611. CHANGECUSTOMITEMABIL 2 0 2 0
    1612. ChangeItemUpgradeCount 2 = 7
    1613. SENDUPGRADEITEM
    1614. MESSAGEBOX \\装备重生成功,星级为:★★★★★★★
    1615. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1616. break


    1617. #IF
    1618. checkitem 打造石 1
    1619. random 100
    1620. #ACT
    1621. Take 打造石 1
    1622. MOV S10
    1623. MOV S11 <$CURRTEMNAME>
    1624. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1625. CHANGECUSTOMITEMTEXT 2 上古品鉴*6星
    1626. CHANGECUSTOMITEMTEXTCOLOR 2 250
    1627. CHANGECUSTOMITEMABIL 2 0 0 70
    1628. CHANGECUSTOMITEMABIL 2 0 1 <$STR(S10)>
    1629. ;CHANGECUSTOMITEMABIL 2 1 1 <$STR(S10)>
    1630. CHANGECUSTOMITEMVALUE 2 0 = 22
    1631. CHANGECUSTOMITEMABIL 2 0 2 0
    1632. ChangeItemUpgradeCount 2 = 6
    1633. SENDUPGRADEITEM
    1634. MESSAGEBOX \\装备重生成功,星级为:★★★★★★
    1635. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1636. break


    1637. #IF
    1638. checkitem 打造石 1
    1639. random 50
    1640. #ACT
    1641. Take 打造石 1
    1642. MOV S10
    1643. MOV S11 <$CURRTEMNAME>
    1644. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1645. CHANGECUSTOMITEMTEXT 2 上古品鉴*5星
    1646. CHANGECUSTOMITEMTEXTCOLOR 2 250
    1647. CHANGECUSTOMITEMABIL 2 0 0 70
    1648. CHANGECUSTOMITEMABIL 2 0 1 <$STR(S10)>
    1649. ;CHANGECUSTOMITEMABIL 2 1 1 <$STR(S10)>
    1650. CHANGECUSTOMITEMVALUE 2 0 = 15
    1651. CHANGECUSTOMITEMABIL 2 0 2 0
    1652. ChangeItemUpgradeCount 2 = 5
    1653. SENDUPGRADEITEM
    1654. MESSAGEBOX \\装备重生成功,星级为:★★★★★
    1655. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1656. break

    1657. #IF
    1658. checkitem 打造石 1
    1659. random 15
    1660. #ACT
    1661. Take 打造石 1
    1662. MOV S10
    1663. MOV S11 <$CURRTEMNAME>
    1664. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1665. CHANGECUSTOMITEMTEXT 2 上古品鉴*4星
    1666. CHANGECUSTOMITEMTEXTCOLOR 2 250
    1667. CHANGECUSTOMITEMABIL 2 0 0 70
    1668. CHANGECUSTOMITEMABIL 2 0 1 <$STR(S10)>
    1669. ;CHANGECUSTOMITEMABIL 2 1 1 <$STR(S10)>
    1670. CHANGECUSTOMITEMVALUE 2 0 = 10
    1671. CHANGECUSTOMITEMABIL 2 0 2 0
    1672. ChangeItemUpgradeCount 2 = 4
    1673. SENDUPGRADEITEM
    1674. MESSAGEBOX \\装备重生成功,星级为:★★★★
    1675. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1676. break

    1677. #IF
    1678. checkitem 打造石 1
    1679. random 4
    1680. #ACT
    1681. Take 打造石 1
    1682. MOV S10 0
    1683. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1684. CHANGECUSTOMITEMTEXT 2 上古品鉴*3星
    1685. CHANGECUSTOMITEMTEXTCOLOR 2 250
    1686. CHANGECUSTOMITEMABIL 2 0 0 70
    1687. CHANGECUSTOMITEMABIL 2 0 1 <$STR(S10)>
    1688. ;CHANGECUSTOMITEMABIL 2 1 1 <$STR(S10)>
    1689. CHANGECUSTOMITEMVALUE 2 0 = 7
    1690. CHANGECUSTOMITEMABIL 2 1 2 0
    1691. ChangeItemUpgradeCount 2 = 3
    1692. SENDUPGRADEITEM
    1693. MESSAGEBOX \\装备重生成功,星级为:★★★
    1694. break

    1695. #IF
    1696. checkitem 打造石 1
    1697. random 2
    1698. #ACT
    1699. Take 打造石 1
    1700. MOV S10 0
    1701. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1702. CHANGECUSTOMITEMTEXT 2 上古品鉴*2星
    1703. CHANGECUSTOMITEMTEXTCOLOR 2 250
    1704. CHANGECUSTOMITEMABIL 2 0 0 70
    1705. CHANGECUSTOMITEMABIL 2 0 1 <$STR(S10)>
    1706. ;CHANGECUSTOMITEMABIL 2 1 1 <$STR(S10)>
    1707. CHANGECUSTOMITEMVALUE 2 0 = 5
    1708. CHANGECUSTOMITEMABIL 2 1 2 0
    1709. ChangeItemUpgradeCount 2 = 2
    1710. SENDUPGRADEITEM
    1711. MESSAGEBOX \\装备重生成功,星级为:★★
    1712. break

    1713. #IF
    1714. checkitem 打造石 1
    1715. random 1
    1716. #ACT
    1717. Take 打造石 1
    1718. MOV S10 0
    1719. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1720. CHANGECUSTOMITEMTEXT 2 上古品鉴*1星
    1721. CHANGECUSTOMITEMTEXTCOLOR 2 250
    1722. CHANGECUSTOMITEMABIL 2 0 0 70
    1723. CHANGECUSTOMITEMABIL 2 0 1 <$STR(S10)>
    1724. ;CHANGECUSTOMITEMABIL 2 1 1 <$STR(S10)>
    1725. CHANGECUSTOMITEMVALUE 2 0 = 3
    1726. CHANGECUSTOMITEMABIL 2 0 2 0
    1727. ChangeItemUpgradeCount 2 = 1
    1728. SENDUPGRADEITEM
    1729. MESSAGEBOX \\装备重生成功,星级为:★
    1730. break
    1731. #ELSEACT
    1732. MESSAGEBOX \\重生失败:原因如下\\    1.您没有"打造石"一个\\    2.请集齐以上材料在来找我吧!
    1733. break

    1734. [@武器改造]
    1735. #IF
    1736. NOT CHECKUSEITEM 1
    1737. #ACT
    1738. MESSAGEBOX \\这地方带装备了么?
    1739. break

    1740. #IF
    1741. NOT CheckContainsTextListEx ..\QuestDiary\数据文件\品鉴抽取\装备名称.txt <$WEAPON>
    1742. #ACT
    1743. MESSAGEBOX \\此物品禁止改造!
    1744. break


    1745. #IF
    1746. checkitem 打造石 1
    1747. random 300
    1748. #ACT
    1749. Take 打造石 1
    1750. MOV S10
    1751. MOV S11 <$CURRTEMNAME>
    1752. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1753. CHANGECUSTOMITEMTEXT 1 上古品鉴*8星
    1754. CHANGECUSTOMITEMTEXTCOLOR 1 250
    1755. CHANGECUSTOMITEMABIL 1 0 0 70
    1756. CHANGECUSTOMITEMABIL 1 0 1 <$STR(S10)>
    1757. ;CHANGECUSTOMITEMABIL 1 1 1 <$STR(S10)>
    1758. CHANGECUSTOMITEMVALUE 1 0 = 48
    1759. CHANGECUSTOMITEMABIL 1 0 2 0
    1760. ChangeItemUpgradeCount 1 = 8
    1761. SENDUPGRADEITEM
    1762. MESSAGEBOX \\装备重生成功,星级为:★★★★★★★★
    1763. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1764. break


    1765. #IF
    1766. checkitem 打造石 1
    1767. random 200
    1768. #ACT
    1769. Take 打造石 1
    1770. MOV S10
    1771. MOV S11 <$CURRTEMNAME>
    1772. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1773. CHANGECUSTOMITEMTEXT 1 上古品鉴*7星
    1774. CHANGECUSTOMITEMTEXTCOLOR 1 250
    1775. CHANGECUSTOMITEMABIL 1 0 0 70
    1776. CHANGECUSTOMITEMABIL 1 0 1 <$STR(S10)>
    1777. ;CHANGECUSTOMITEMABIL 1 1 1 <$STR(S10)>
    1778. CHANGECUSTOMITEMVALUE 1 0 = 32
    1779. CHANGECUSTOMITEMABIL 1 0 2 0
    1780. ChangeItemUpgradeCount 1 = 7
    1781. SENDUPGRADEITEM
    1782. MESSAGEBOX \\装备重生成功,星级为:★★★★★★★
    1783. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1784. break


    1785. #IF
    1786. checkitem 打造石 1
    1787. random 100
    1788. #ACT
    1789. Take 打造石 1
    1790. MOV S10
    1791. MOV S11 <$CURRTEMNAME>
    1792. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1793. CHANGECUSTOMITEMTEXT 1 上古品鉴*6星
    1794. CHANGECUSTOMITEMTEXTCOLOR 1 250
    1795. CHANGECUSTOMITEMABIL 1 0 0 70
    1796. CHANGECUSTOMITEMABIL 1 0 1 <$STR(S10)>
    1797. ;CHANGECUSTOMITEMABIL 1 1 1 <$STR(S10)>
    1798. CHANGECUSTOMITEMVALUE 1 0 = 22
    1799. CHANGECUSTOMITEMABIL 1 0 2 0
    1800. ChangeItemUpgradeCount 1 = 6
    1801. SENDUPGRADEITEM
    1802. MESSAGEBOX \\装备重生成功,星级为:★★★★★★
    1803. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1804. break


    1805. #IF
    1806. checkitem 打造石 1
    1807. random 50
    1808. #ACT
    1809. Take 打造石 1
    1810. MOV S10
    1811. MOV S11 <$CURRTEMNAME>
    1812. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1813. CHANGECUSTOMITEMTEXT 1 上古品鉴*5星
    1814. CHANGECUSTOMITEMTEXTCOLOR 1 250
    1815. CHANGECUSTOMITEMABIL 1 0 0 70
    1816. CHANGECUSTOMITEMABIL 1 0 1 <$STR(S10)>
    1817. ;CHANGECUSTOMITEMABIL 1 1 1 <$STR(S10)>
    1818. CHANGECUSTOMITEMVALUE 1 0 = 15
    1819. CHANGECUSTOMITEMABIL 1 0 2 0
    1820. ChangeItemUpgradeCount 1 = 5
    1821. SENDUPGRADEITEM
    1822. MESSAGEBOX \\装备重生成功,星级为:★★★★★
    1823. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1824. break

    1825. #IF
    1826. checkitem 打造石 1
    1827. random 15
    1828. #ACT
    1829. Take 打造石 1
    1830. MOV S10
    1831. MOV S11 <$CURRTEMNAME>
    1832. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1833. CHANGECUSTOMITEMTEXT 1 上古品鉴*4星
    1834. CHANGECUSTOMITEMTEXTCOLOR 1 250
    1835. CHANGECUSTOMITEMABIL 1 0 0 70
    1836. CHANGECUSTOMITEMABIL 1 0 1 <$STR(S10)>
    1837. ;CHANGECUSTOMITEMABIL 1 1 1 <$STR(S10)>
    1838. CHANGECUSTOMITEMVALUE 1 0 = 10
    1839. CHANGECUSTOMITEMABIL 1 0 2 0
    1840. ChangeItemUpgradeCount 1 = 4
    1841. SENDUPGRADEITEM
    1842. MESSAGEBOX \\装备重生成功,星级为:★★★★
    1843. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1844. break

    1845. #IF
    1846. checkitem 打造石 1
    1847. random 4
    1848. #ACT
    1849. Take 打造石 1
    1850. MOV S10 0
    1851. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1852. CHANGECUSTOMITEMTEXT 1 上古品鉴*3星
    1853. CHANGECUSTOMITEMTEXTCOLOR 1 250
    1854. CHANGECUSTOMITEMABIL 1 0 0 70
    1855. CHANGECUSTOMITEMABIL 1 0 1 <$STR(S10)>
    1856. ;CHANGECUSTOMITEMABIL 1 1 1 <$STR(S10)>
    1857. CHANGECUSTOMITEMVALUE 1 0 = 7
    1858. CHANGECUSTOMITEMABIL 1 1 2 0
    1859. ChangeItemUpgradeCount 1 = 3
    1860. SENDUPGRADEITEM
    1861. MESSAGEBOX \\装备重生成功,星级为:★★★
    1862. break

    1863. #IF
    1864. checkitem 打造石 1
    1865. random 2
    1866. #ACT
    1867. Take 打造石 1
    1868. MOV S10 0
    1869. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1870. CHANGECUSTOMITEMTEXT 1 上古品鉴*2星
    1871. CHANGECUSTOMITEMTEXTCOLOR 1 250
    1872. CHANGECUSTOMITEMABIL 1 0 0 70
    1873. CHANGECUSTOMITEMABIL 1 0 1 <$STR(S10)>
    1874. ;CHANGECUSTOMITEMABIL 1 1 1 <$STR(S10)>
    1875. CHANGECUSTOMITEMVALUE 1 0 = 5
    1876. CHANGECUSTOMITEMABIL 1 1 2 0
    1877. ChangeItemUpgradeCount 1 = 2
    1878. SENDUPGRADEITEM
    1879. MESSAGEBOX \\装备重生成功,星级为:★★
    1880. break

    1881. #IF
    1882. checkitem 打造石 1
    1883. random 1
    1884. #ACT
    1885. Take 打造石 1
    1886. MOV S10 0
    1887. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1888. CHANGECUSTOMITEMTEXT 1 上古品鉴*1星
    1889. CHANGECUSTOMITEMTEXTCOLOR 1 250
    1890. CHANGECUSTOMITEMABIL 1 0 0 70
    1891. CHANGECUSTOMITEMABIL 1 0 1 <$STR(S10)>
    1892. ;CHANGECUSTOMITEMABIL 1 1 1 <$STR(S10)>
    1893. CHANGECUSTOMITEMVALUE 1 0 = 3
    1894. CHANGECUSTOMITEMABIL 1 0 2 0
    1895. ChangeItemUpgradeCount 1 = 1
    1896. SENDUPGRADEITEM
    1897. MESSAGEBOX \\装备重生成功,星级为:★
    1898. break
    1899. #ELSEACT
    1900. MESSAGEBOX \\重生失败:原因如下\\    1.您没有"打造石"一个\\    2.请集齐以上材料在来找我吧!
    1901. break

    1902. [@衣服改造]
    1903. #IF
    1904. NOT CHECKUSEITEM 0
    1905. #ACT
    1906. MESSAGEBOX \\这地方带装备了么?
    1907. break

    1908. #IF
    1909. NOT CheckContainsTextListEx ..\QuestDiary\数据文件\品鉴抽取\装备名称.txt <$DRESS>
    1910. #ACT
    1911. MESSAGEBOX \\此物品禁止改造!
    1912. break





    1913. #IF
    1914. checkitem 打造石 1
    1915. random 300
    1916. #ACT
    1917. Take 打造石 1
    1918. MOV S10
    1919. MOV S11 <$CURRTEMNAME>
    1920. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1921. CHANGECUSTOMITEMTEXT 0 上古品鉴*8星
    1922. CHANGECUSTOMITEMTEXTCOLOR 0 250
    1923. CHANGECUSTOMITEMABIL 0 0 0 70
    1924. CHANGECUSTOMITEMABIL 0 0 1 <$STR(S10)>
    1925. ;CHANGECUSTOMITEMABIL 0 1 1 <$STR(S10)>
    1926. CHANGECUSTOMITEMVALUE 0 0 = 48
    1927. CHANGECUSTOMITEMABIL 0 0 2 0
    1928. ChangeItemUpgradeCount 0 = 8
    1929. SENDUPGRADEITEM
    1930. MESSAGEBOX \\装备重生成功,星级为:★★★★★★★★
    1931. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1932. break


    1933. #IF
    1934. checkitem 打造石 1
    1935. random 200
    1936. #ACT
    1937. Take 打造石 1
    1938. MOV S10
    1939. MOV S11 <$CURRTEMNAME>
    1940. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1941. CHANGECUSTOMITEMTEXT 0 上古品鉴*7星
    1942. CHANGECUSTOMITEMTEXTCOLOR 0 250
    1943. CHANGECUSTOMITEMABIL 0 0 0 70
    1944. CHANGECUSTOMITEMABIL 0 0 1 <$STR(S10)>
    1945. ;CHANGECUSTOMITEMABIL 0 1 1 <$STR(S10)>
    1946. CHANGECUSTOMITEMVALUE 0 0 = 32
    1947. CHANGECUSTOMITEMABIL 0 0 2 0
    1948. ChangeItemUpgradeCount 0 = 7
    1949. SENDUPGRADEITEM
    1950. MESSAGEBOX \\装备重生成功,星级为:★★★★★★★
    1951. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1952. break


    1953. #IF
    1954. checkitem 打造石 1
    1955. random 100
    1956. #ACT
    1957. Take 打造石 1
    1958. MOV S10
    1959. MOV S11 <$CURRTEMNAME>
    1960. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1961. CHANGECUSTOMITEMTEXT 0 上古品鉴*6星
    1962. CHANGECUSTOMITEMTEXTCOLOR 0 250
    1963. CHANGECUSTOMITEMABIL 0 0 0 70
    1964. CHANGECUSTOMITEMABIL 0 0 1 <$STR(S10)>
    1965. ;CHANGECUSTOMITEMABIL 0 1 1 <$STR(S10)>
    1966. CHANGECUSTOMITEMVALUE 0 0 = 22
    1967. CHANGECUSTOMITEMABIL 0 0 2 0
    1968. ChangeItemUpgradeCount 0 = 6
    1969. SENDUPGRADEITEM
    1970. MESSAGEBOX \\装备重生成功,星级为:★★★★★★
    1971. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1972. break


    1973. #IF
    1974. checkitem 打造石 1
    1975. random 50
    1976. #ACT
    1977. Take 打造石 1
    1978. MOV S10
    1979. MOV S11 <$CURRTEMNAME>
    1980. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    1981. CHANGECUSTOMITEMTEXT 0 上古品鉴*5星
    1982. CHANGECUSTOMITEMTEXTCOLOR 0 250
    1983. CHANGECUSTOMITEMABIL 0 0 0 70
    1984. CHANGECUSTOMITEMABIL 0 0 1 <$STR(S10)>
    1985. ;CHANGECUSTOMITEMABIL 0 1 1 <$STR(S10)>
    1986. CHANGECUSTOMITEMVALUE 0 0 = 15
    1987. CHANGECUSTOMITEMABIL 0 0 2 0
    1988. ChangeItemUpgradeCount 0 = 5
    1989. SENDUPGRADEITEM
    1990. MESSAGEBOX \\装备重生成功,星级为:★★★★★
    1991. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    1992. break

    1993. #IF
    1994. checkitem 打造石 1
    1995. random 15
    1996. #ACT
    1997. Take 打造石 1
    1998. MOV S10
    1999. MOV S11 <$CURRTEMNAME>
    2000. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    2001. CHANGECUSTOMITEMTEXT 0 上古品鉴*4星
    2002. CHANGECUSTOMITEMTEXTCOLOR 0 250
    2003. CHANGECUSTOMITEMABIL 0 0 0 70
    2004. CHANGECUSTOMITEMABIL 0 0 1 <$STR(S10)>
    2005. ;CHANGECUSTOMITEMABIL 0 1 1 <$STR(S10)>
    2006. CHANGECUSTOMITEMVALUE 0 0 = 10
    2007. CHANGECUSTOMITEMABIL 0 0 2 0
    2008. ChangeItemUpgradeCount 0 = 4
    2009. SENDUPGRADEITEM
    2010. MESSAGEBOX \\装备重生成功,星级为:★★★★
    2011. SendMsg 0 {上古评鉴ぐ|151:0:1}:{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
    2012. break

    2013. #IF
    2014. checkitem 打造石 1
    2015. random 4
    2016. #ACT
    2017. Take 打造石 1
    2018. MOV S10 0
    2019. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    2020. CHANGECUSTOMITEMTEXT 0 上古品鉴*3星
    2021. CHANGECUSTOMITEMTEXTCOLOR 0 250
    2022. CHANGECUSTOMITEMABIL 0 0 0 70
    2023. CHANGECUSTOMITEMABIL 0 0 1 <$STR(S10)>
    2024. ;CHANGECUSTOMITEMABIL 0 1 1 <$STR(S10)>
    2025. CHANGECUSTOMITEMVALUE 0 0 = 7
    2026. CHANGECUSTOMITEMABIL 0 1 2 0
    2027. ChangeItemUpgradeCount 0 = 3
    2028. SENDUPGRADEITEM
    2029. MESSAGEBOX \\装备重生成功,星级为:★★★
    2030. break

    2031. #IF
    2032. checkitem 打造石 1
    2033. random 2
    2034. #ACT
    2035. Take 打造石 1
    2036. MOV S10 0
    2037. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    2038. CHANGECUSTOMITEMTEXT 0 上古品鉴*2星
    2039. CHANGECUSTOMITEMTEXTCOLOR 0 250
    2040. CHANGECUSTOMITEMABIL 0 0 0 70
    2041. CHANGECUSTOMITEMABIL 0 0 1 <$STR(S10)>
    2042. ;CHANGECUSTOMITEMABIL 0 1 1 <$STR(S10)>
    2043. CHANGECUSTOMITEMVALUE 0 0 = 5
    2044. CHANGECUSTOMITEMABIL 0 1 2 0
    2045. ChangeItemUpgradeCount 0 = 2
    2046. SENDUPGRADEITEM
    2047. MESSAGEBOX \\装备重生成功,星级为:★★
    2048. break

    2049. #IF
    2050. checkitem 打造石 1
    2051. random 1
    2052. #ACT
    2053. Take 打造石 1
    2054. MOV S10 0
    2055. GetRandomText ..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txt S10
    2056. CHANGECUSTOMITEMTEXT 0 上古品鉴*1星
    2057. CHANGECUSTOMITEMTEXTCOLOR 0 250
    2058. CHANGECUSTOMITEMABIL 0 0 0 70
    2059. CHANGECUSTOMITEMABIL 0 0 1 <$STR(S10)>
    2060. ;CHANGECUSTOMITEMABIL 0 1 1 <$STR(S10)>
    2061. CHANGECUSTOMITEMVALUE 0 0 = 3
    2062. CHANGECUSTOMITEMABIL 0 0 2 0
    2063. ChangeItemUpgradeCount 0 = 1
    2064. SENDUPGRADEITEM
    2065. MESSAGEBOX \\装备重生成功,星级为:★
    2066. break
    2067. #ELSEACT
    2068. MESSAGEBOX \\重生失败:原因如下\\    1.您没有"打造石"一个\\    2.请集齐以上材料在来找我吧!
    2069. break
    复制代码


    回复

    使用道具 举报

    Archiver|手机版|小黑屋|藏宝游 ( 蜀ICP备2021008942号-1 )

    GMT+8, 2021-9-21 08:12 , Processed in 0.168098 second(s), 22 queries .

    Powered by Discuz! X3.4

    Copyright © 2001-2020, Tencent Cloud.

    快速回复 返回顶部 返回列表