几个技巧添加随身传奇粉碎炉功能
[@MAIN]#ACT
GetRandomText ..\QuestDiary\数据文件\强化\<$USERNAME>\便携式粉碎炉.txt <$STR(S$便炉)>
#IF
CompareText <$STR(S$便炉)> <$USERNAME>的炉子在<$MAP>
#ACT
OPENMERCHANTBIGDLG 17 380 1 0 80 60
#SAY
粉碎炉：\
当您有不需要的装备时可以在粉碎炉里进行粉\
碎粉碎能获得各种碎块用来强化装备。当您使用本\
功能前请仔细阅读<使用说明/@说明>\ \
<○/FCOLOR=103><开始粉碎/@粉碎>\
<○/FCOLOR=103><使用说明/@说明>\
<○/FCOLOR=103><离开/@EXIT>
#ELSESAY
这是别人的粉碎炉！~\
<○/FCOLOR=103><离开/@EXIT>\
[@说明]
#ACT
OPENMERCHANTBIGDLG 17 380 1 0 80 60
#SAY
粉碎炉：\
请仔细阅读下面的几条说明\
1、放入必须是装备，攻城兵器之类的是不能粉碎\ \
2、放入的装备属性若包含攻魔道那么粉碎获得后\
的碎块就是攻魔道中随机一种\ \
3、放入的装备颜色是什么颜色，粉碎就能获得一\
样的颜色品质。\ \
4、未鉴定的装备粉碎时获得的碎块乃是随机鉴定\
后获得的品质\ \
5、归类：碎块类别包含武器、头盔、衣服。剩余\
的皆为首饰。\ \
6、例子：比如我放入一件红色的武器，武器属性\
只有攻击属性，不包含法术和道术。那么我粉\
碎获得的碎块就是红色品质的攻击碎块若我的\
武器是50-59级的那么碎块等级就是50级碎块\ \
<○/FCOLOR=103><开始粉碎/@粉碎>\
<○/FCOLOR=103><返回/@MAIN>\
<○/FCOLOR=103><离开/@EXIT>
[@粉碎]
#ACT
OPENMERCHANTBIGDLG 17 380 1 0 80 60
ReturnBoxItem 0
ReturnBoxItem 1
ReturnBoxItem 2
ReturnBoxItem 3
ReturnBoxItem 4
ReturnBoxItem 5
ReturnBoxItem 6
ReturnBoxItem 7
GetRandomText ..\QuestDiary\数据库\商店数据\拆解.txt <$STR(S$售货0)> 1
#SAY
<Img:55:4:248:-27/@EXIT>
<Img:388:17:28:-24>
<Img:387:17:-206:-40>\ \
;商品区---第一排
<$STR(S$售货0)>\
\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
;粉碎页第一排
<ITEMBOX:0:-1:0:-1:-41:33:30:5,6,10,11,15,16,19,20,21,22,23,24,26,30,48,52,54,62,64,65>
<ITEMBOX:1:-1:0:5:-41:33:30:5,6,10,11,15,16,19,20,21,22,23,24,26,30,48,52,54,62,64,65>
<ITEMBOX:2:-1:0:11:-41:33:30:5,6,10,11,15,16,19,20,21,22,23,24,26,30,48,52,54,62,64,65>
<ITEMBOX:3:-1:0:17:-41:33:30:5,6,10,11,15,16,19,20,21,22,23,24,26,30,48,52,54,62,64,65>\
;粉碎页第二排
<ITEMBOX:4:-1:0:-1:-21:33:30:5,6,10,11,15,16,19,20,21,22,23,24,26,30,48,52,54,62,64,65>
<ITEMBOX:5:-1:0:5:-21:33:30:5,6,10,11,15,16,19,20,21,22,23,24,26,30,48,52,54,62,64,65>
<ITEMBOX:6:-1:0:11:-21:33:30:5,6,10,11,15,16,19,20,21,22,23,24,26,30,48,52,54,62,64,65>
<ITEMBOX:7:-1:0:17:-21:33:30:5,6,10,11,15,16,19,20,21,22,23,24,26,30,48,52,54,62,64,65>\
<粉碎费用：[ /FCOLOR=255>{免费/FCOLOR=222}< ]/FCOLOR=255>\
<○/FCOLOR=103><开始粉碎/FCOLOR=230>\
<○/FCOLOR=103><返回/@MAIN>\
#ELSESAY
这是别人的粉碎炉！~\
<○/FCOLOR=103><离开/@EXIT>\
[@购物0]
#IF
CHECKBAGSIZE 1
#ELSEACT
MESSAGEBOX 错误提示：\ \背包空位不足1格，无法购买！
break
#IF
CHECKGAMEGOLD > 0
#ACT
GAMEGOLD - 1
GIVE 回城卷 1
#ELSEACT
MESSAGEBOX 错误提示：\ \元宝不足1个，不能进行购买！
break
;-----------------------------------------------------------托盘0号
[@ItemIntoBox0]
#IF
EQUAL <$BOXITEM.COLOR> 230
#ACT
UNALLOWITEMINTOBOX
SENDMSG 5 该道具不能进行分解粉碎！
break
#IF
EQUAL <$BOXITEM.COLOR> 254
#ACT
UNALLOWITEMINTOBOX
SENDMSG 5 该道具不能进行分解粉碎！
break
#IF
#ACT
MOV N$拆几率0 100
MOV S$拆结果0
MOV S$比对数0 D·M·S
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\40级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类0 40级
DEC N$拆几率0 10
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\50级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类0 50级
DEC N$拆几率0 12
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\60级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类0 60级
DEC N$拆几率0 13
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\70级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类0 70级
DEC N$拆几率0 14
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\80级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类0 80级
DEC N$拆几率0 15
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\90级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类0 90级
DEC N$拆几率0 17
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\100级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类0 100级
DEC N$拆几率0 20
#OR
EQUAL <$BOXITEM.STDMODE> 5
EQUAL <$BOXITEM.STDMODE> 6
#ACT
INC S$拆解类0 武器
#OR
EQUAL <$BOXITEM.STDMODE> 10
EQUAL <$BOXITEM.STDMODE> 11
#ACT
INC S$拆解类0 衣服
#OR
EQUAL <$BOXITEM.STDMODE> 15
EQUAL <$BOXITEM.STDMODE> 16
#ACT
INC S$拆解类0 头盔
#OR
EQUAL <$BOXITEM.STDMODE> 19
EQUAL <$BOXITEM.STDMODE> 20
EQUAL <$BOXITEM.STDMODE> 21
EQUAL <$BOXITEM.STDMODE> 22
EQUAL <$BOXITEM.STDMODE> 23
EQUAL <$BOXITEM.STDMODE> 24
EQUAL <$BOXITEM.STDMODE> 26
EQUAL <$BOXITEM.STDMODE> 28
EQUAL <$BOXITEM.STDMODE> 30
EQUAL <$BOXITEM.STDMODE> 52
EQUAL <$BOXITEM.STDMODE> 54
EQUAL <$BOXITEM.STDMODE> 62
EQUAL <$BOXITEM.STDMODE> 64
EQUAL <$BOXITEM.STDMODE> 65
#ACT
INC S$拆解类0 首饰
#IF
EQUAL <$BOXITEM.HDC> 0
#ACT
ANSIREPLACETEXT <$STR(S$比对数0)> D 0
#IF
EQUAL <$BOXITEM.HMC> 0
#ACT
ANSIREPLACETEXT <$STR(S$比对数0)> M 0
#IF
EQUAL <$BOXITEM.HSC> 0
#ACT
ANSIREPLACETEXT <$STR(S$比对数0)> S 0
#IF
EQUAL S$比对数0 D·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防均衡.txt <$STR(S$拆结果0)>
MOV S$二拆0 防均衡
#IF
EQUAL S$比对数0 0·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔道.txt <$STR(S$拆结果0)>
MOV S$二拆0 防魔道
#IF
EQUAL S$比对数0 D·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻道.txt <$STR(S$拆结果0)>
MOV S$二拆0 防攻道
#IF
EQUAL S$比对数0 D·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻魔.txt <$STR(S$拆结果0)>
MOV S$二拆0 防攻魔
#IF
EQUAL S$比对数0 D·0·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻.txt <$STR(S$拆结果0)>
MOV S$二拆0 防攻
#IF
EQUAL S$比对数0 0·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔.txt <$STR(S$拆结果0)>
MOV S$二拆0 防魔
#IF
EQUAL S$比对数0 0·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防道.txt <$STR(S$拆结果0)>
MOV S$二拆0 防道
#IF
EQUAL S$比对数0 D·M·S
EQUAL S$拆结果0
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\均衡.txt <$STR(S$拆结果0)>
MOV S$二拆0 均衡
#IF
EQUAL S$比对数0 D·M·0
EQUAL S$拆结果0
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻魔.txt <$STR(S$拆结果0)>
MOV S$二拆0 攻魔
#IF
EQUAL S$比对数0 D·0·S
EQUAL S$拆结果0
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻道.txt <$STR(S$拆结果0)>
MOV S$二拆0 攻道
#IF
EQUAL S$比对数0 0·M·S
EQUAL S$拆结果0
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔道.txt <$STR(S$拆结果0)>
MOV S$二拆0 魔道
#IF
EQUAL S$比对数0 D·0·0
EQUAL S$拆结果0
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻.txt <$STR(S$拆结果0)>
MOV S$二拆0 攻
#IF
EQUAL S$比对数0 0·M·0
EQUAL S$拆结果0
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔.txt <$STR(S$拆结果0)>
MOV S$二拆0 魔
#IF
EQUAL S$比对数0 0·0·S
EQUAL S$拆结果0
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\道.txt <$STR(S$拆结果0)>
MOV S$二拆0 道
#IF
EQUAL <$BOXITEM.COLOR> 150
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\未鉴定碎块.txt S$拆解色0
#ELSEACT
GetRandomText ..\QuestDiary\数据库\拆解\取色表.txt S$拆解色0 <$BOXITEM.COLOR>
#IF
EQUAL S$拆解色0 (普通)
#ACT
DEC N$拆几率0 5
MOV N$拆解色0 255
#IF
EQUAL S$拆解色0 (精良)
#ACT
DEC N$拆几率0 10
MOV N$拆解色0 250
#IF
EQUAL S$拆解色0 (稀有)
#ACT
DEC N$拆几率0 15
MOV N$拆解色0 154
#IF
EQUAL S$拆解色0 (罕有)
#ACT
DEC N$拆几率0 26
MOV N$拆解色0 243
#IF
EQUAL S$拆解色0 (远古)
#ACT
DEC N$拆几率0 35
MOV N$拆解色0 253
#IF
EQUAL S$拆解色0 (传说)
#ACT
DEC N$拆几率0 50
MOV N$拆解色0 58
#IF
#ACT
MOV S$粉碎按钮 <开始粉碎/@开始粉碎>
DELAYGOTO 20 @综合
[@ItemOutBox0]
#ACT
MOV S$拆解类0
#IF
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
#ACT
MOV S$粉碎按钮 <开始粉碎/FCOLOR=230>
DELAYGOTO 20 @综合
;-----------------------------------------------------------托盘1号
[@ItemIntoBox1]
#IF
EQUAL <$BOXITEM.COLOR> 230
#ACT
UNALLOWITEMINTOBOX
SENDMSG 5 该道具不能进行分解粉碎！
break
#elseact
MOV N$拆几率1 100
MOV S$拆结果1
MOV S$比对数1 D·M·S
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\40级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类1 40级
DEC N$拆几率1 10
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\50级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类1 50级
DEC N$拆几率1 12
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\60级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类1 60级
DEC N$拆几率1 13
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\70级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类1 70级
DEC N$拆几率1 14
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\80级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类1 80级
DEC N$拆几率1 15
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\90级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类1 90级
DEC N$拆几率1 17
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\100级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类1 100级
DEC N$拆几率1 20
#OR
EQUAL <$BOXITEM.STDMODE> 5
EQUAL <$BOXITEM.STDMODE> 6
#ACT
INC S$拆解类1 武器
#OR
EQUAL <$BOXITEM.STDMODE> 10
EQUAL <$BOXITEM.STDMODE> 11
#ACT
INC S$拆解类1 衣服
#OR
EQUAL <$BOXITEM.STDMODE> 15
EQUAL <$BOXITEM.STDMODE> 16
#ACT
INC S$拆解类1 头盔
#OR
EQUAL <$BOXITEM.STDMODE> 19
EQUAL <$BOXITEM.STDMODE> 20
EQUAL <$BOXITEM.STDMODE> 21
EQUAL <$BOXITEM.STDMODE> 22
EQUAL <$BOXITEM.STDMODE> 23
EQUAL <$BOXITEM.STDMODE> 24
EQUAL <$BOXITEM.STDMODE> 26
EQUAL <$BOXITEM.STDMODE> 28
EQUAL <$BOXITEM.STDMODE> 30
EQUAL <$BOXITEM.STDMODE> 52
EQUAL <$BOXITEM.STDMODE> 54
EQUAL <$BOXITEM.STDMODE> 62
EQUAL <$BOXITEM.STDMODE> 64
EQUAL <$BOXITEM.STDMODE> 65
#ACT
INC S$拆解类1 首饰
#IF
EQUAL <$BOXITEM.HDC> 0
#ACT
ANSIREPLACETEXT <$STR(S$比对数1)> D 0
#IF
EQUAL <$BOXITEM.HMC> 0
#ACT
ANSIREPLACETEXT <$STR(S$比对数1)> M 0
#IF
EQUAL <$BOXITEM.HSC> 0
#ACT
ANSIREPLACETEXT <$STR(S$比对数1)> S 0
#IF
EQUAL S$比对数1 D·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防均衡.txt <$STR(S$拆结果1)>
MOV S$二拆0 防均衡
#IF
EQUAL S$比对数1 0·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔道.txt <$STR(S$拆结果1)>
MOV S$二拆0 防魔道
#IF
EQUAL S$比对数1 D·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻道.txt <$STR(S$拆结果1)>
MOV S$二拆0 防攻道
#IF
EQUAL S$比对数1 D·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻魔.txt <$STR(S$拆结果1)>
MOV S$二拆0 防攻魔
#IF
EQUAL S$比对数1 D·0·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻.txt <$STR(S$拆结果1)>
MOV S$二拆0 防攻
#IF
EQUAL S$比对数1 0·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔.txt <$STR(S$拆结果1)>
MOV S$二拆0 防魔
#IF
EQUAL S$比对数1 0·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防道.txt <$STR(S$拆结果1)>
MOV S$二拆0 防道
#IF
EQUAL S$比对数1 D·M·S
EQUAL S$拆结果1
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\均衡.txt <$STR(S$拆结果1)>
MOV S$二拆0 均衡
#IF
EQUAL S$比对数1 D·M·0
EQUAL S$拆结果1
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻魔.txt <$STR(S$拆结果1)>
MOV S$二拆0 攻魔
#IF
EQUAL S$比对数1 D·0·S
EQUAL S$拆结果1
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻道.txt <$STR(S$拆结果1)>
MOV S$二拆0 攻道
#IF
EQUAL S$比对数1 0·M·S
EQUAL S$拆结果1
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔道.txt <$STR(S$拆结果1)>
MOV S$二拆0 魔道
#IF
EQUAL S$比对数1 D·0·0
EQUAL S$拆结果1
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻.txt <$STR(S$拆结果1)>
MOV S$二拆0 攻
#IF
EQUAL S$比对数1 0·M·0
EQUAL S$拆结果1
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔.txt <$STR(S$拆结果1)>
MOV S$二拆0 魔
#IF
EQUAL S$比对数1 0·0·S
EQUAL S$拆结果1
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\道.txt <$STR(S$拆结果1)>
MOV S$二拆0 道
#IF
EQUAL <$BOXITEM.COLOR> 150
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\未鉴定碎块.txt S$拆解色1
#ELSEACT
GetRandomText ..\QuestDiary\数据库\拆解\取色表.txt S$拆解色1 <$BOXITEM.COLOR>
#IF
EQUAL S$拆解色1 (普通)
#ACT
DEC N$拆几率1 5
MOV N$拆解色1 255
#IF
EQUAL S$拆解色1 (精良)
#ACT
DEC N$拆几率1 10
MOV N$拆解色1 250
#IF
EQUAL S$拆解色1 (稀有)
#ACT
DEC N$拆几率1 15
MOV N$拆解色1 154
#IF
EQUAL S$拆解色1 (罕有)
#ACT
DEC N$拆几率1 26
MOV N$拆解色1 243
#IF
EQUAL S$拆解色1 (远古)
#ACT
DEC N$拆几率1 35
MOV N$拆解色1 253
#IF
EQUAL S$拆解色1 (传说)
#ACT
DEC N$拆几率1 50
MOV N$拆解色1 58
#IF
#ACT
MOV S$粉碎按钮 <开始粉碎/@开始粉碎>
DELAYGOTO 20 @综合
[@ItemOutBox1]
#ACT
MOV S$拆解类1
#IF
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
#ACT
MOV S$粉碎按钮 <开始粉碎/FCOLOR=230>
DELAYGOTO 20 @综合
;-----------------------------------------------------------托盘2号
[@ItemIntoBox2]
#IF
EQUAL <$BOXITEM.COLOR> 230
#ACT
UNALLOWITEMINTOBOX
SENDMSG 5 该道具不能进行分解粉碎！
break
#elseact
MOV N$拆几率2 100
MOV S$拆结果2
MOV S$比对数2 D·M·S
;---------类2
;---------色2
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\40级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类2 40级
DEC N$拆几率2 10
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\50级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类2 50级
DEC N$拆几率2 12
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\60级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类2 60级
DEC N$拆几率2 13
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\70级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类2 70级
DEC N$拆几率2 14
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\80级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类2 80级
DEC N$拆几率2 15
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\90级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类2 90级
DEC N$拆几率2 17
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\100级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类2 100级
DEC N$拆几率2 20
#OR
EQUAL <$BOXITEM.STDMODE> 5
EQUAL <$BOXITEM.STDMODE> 6
#ACT
INC S$拆解类2 武器
#OR
EQUAL <$BOXITEM.STDMODE> 10
EQUAL <$BOXITEM.STDMODE> 11
#ACT
INC S$拆解类2 衣服
#OR
EQUAL <$BOXITEM.STDMODE> 15
EQUAL <$BOXITEM.STDMODE> 16
#ACT
INC S$拆解类2 头盔
#OR
EQUAL <$BOXITEM.STDMODE> 19
EQUAL <$BOXITEM.STDMODE> 20
EQUAL <$BOXITEM.STDMODE> 21
EQUAL <$BOXITEM.STDMODE> 22
EQUAL <$BOXITEM.STDMODE> 23
EQUAL <$BOXITEM.STDMODE> 24
EQUAL <$BOXITEM.STDMODE> 26
EQUAL <$BOXITEM.STDMODE> 28
EQUAL <$BOXITEM.STDMODE> 30
EQUAL <$BOXITEM.STDMODE> 52
EQUAL <$BOXITEM.STDMODE> 54
EQUAL <$BOXITEM.STDMODE> 62
EQUAL <$BOXITEM.STDMODE> 64
EQUAL <$BOXITEM.STDMODE> 65
#ACT
INC S$拆解类2 首饰
#IF
EQUAL <$BOXITEM.HDC> 0
#ACT
ANSIREPLACETEXT <$STR(S$比对数2)> D 0
#IF
EQUAL <$BOXITEM.HMC> 0
#ACT
ANSIREPLACETEXT <$STR(S$比对数2)> M 0
#IF
EQUAL <$BOXITEM.HSC> 0
#ACT
ANSIREPLACETEXT <$STR(S$比对数2)> S 0
#IF
EQUAL S$比对数2 D·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防均衡.txt <$STR(S$拆结果2)>
MOV S$二拆0 防均衡
#IF
EQUAL S$比对数2 0·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔道.txt <$STR(S$拆结果2)>
MOV S$二拆0 防魔道
#IF
EQUAL S$比对数2 D·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻道.txt <$STR(S$拆结果2)>
MOV S$二拆0 防攻道
#IF
EQUAL S$比对数2 D·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻魔.txt <$STR(S$拆结果2)>
MOV S$二拆0 防攻魔
#IF
EQUAL S$比对数2 D·0·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻.txt <$STR(S$拆结果2)>
MOV S$二拆0 防攻
#IF
EQUAL S$比对数2 0·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔.txt <$STR(S$拆结果2)>
MOV S$二拆0 防魔
#IF
EQUAL S$比对数2 0·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防道.txt <$STR(S$拆结果2)>
MOV S$二拆0 防道
#IF
EQUAL S$比对数2 D·M·S
EQUAL S$拆结果2
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\均衡.txt <$STR(S$拆结果2)>
MOV S$二拆0 均衡
#IF
EQUAL S$比对数2 D·M·0
EQUAL S$拆结果2
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻魔.txt <$STR(S$拆结果2)>
MOV S$二拆0 攻魔
#IF
EQUAL S$比对数2 D·0·S
EQUAL S$拆结果2
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻道.txt <$STR(S$拆结果2)>
MOV S$二拆0 攻道
#IF
EQUAL S$比对数2 0·M·S
EQUAL S$拆结果2
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔道.txt <$STR(S$拆结果2)>
MOV S$二拆0 魔道
#IF
EQUAL S$比对数2 D·0·0
EQUAL S$拆结果2
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻.txt <$STR(S$拆结果2)>
MOV S$二拆0 攻
#IF
EQUAL S$比对数2 0·M·0
EQUAL S$拆结果2
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔.txt <$STR(S$拆结果2)>
MOV S$二拆0 魔
#IF
EQUAL S$比对数2 0·0·S
EQUAL S$拆结果2
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\道.txt <$STR(S$拆结果2)>
MOV S$二拆0 道
#IF
EQUAL <$BOXITEM.COLOR> 150
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\未鉴定碎块.txt S$拆解色2
#ELSEACT
GetRandomText ..\QuestDiary\数据库\拆解\取色表.txt S$拆解色2 <$BOXITEM.COLOR>
#IF
EQUAL S$拆解色2 (普通)
#ACT
DEC N$拆几率2 5
MOV N$拆解色2 255
#IF
EQUAL S$拆解色2 (精良)
#ACT
DEC N$拆几率2 10
MOV N$拆解色2 250
#IF
EQUAL S$拆解色2 (稀有)
#ACT
DEC N$拆几率2 15
MOV N$拆解色2 154
#IF
EQUAL S$拆解色2 (罕有)
#ACT
DEC N$拆几率2 26
MOV N$拆解色2 243
#IF
EQUAL S$拆解色2 (远古)
#ACT
DEC N$拆几率2 35
MOV N$拆解色2 253
#IF
EQUAL S$拆解色2 (传说)
#ACT
DEC N$拆几率2 50
MOV N$拆解色2 58
#IF
#ACT
MOV S$粉碎按钮 <开始粉碎/@开始粉碎>
DELAYGOTO 20 @综合
[@ItemOutBox2]
#ACT
MOV S$拆解类2
#IF
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
#ACT
MOV S$粉碎按钮 <开始粉碎/FCOLOR=230>
DELAYGOTO 20 @综合
;-----------------------------------------------------------托盘3号
[@ItemIntoBox3]
#IF
EQUAL <$BOXITEM.COLOR> 230
#ACT
UNALLOWITEMINTOBOX
SENDMSG 5 该道具不能进行分解粉碎！
break
#elseact
MOV N$拆几率3 100
MOV S$拆结果3
MOV S$比对数3 D·M·S
;---------类3
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\40级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类3 40级
DEC N$拆几率3 10
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\50级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类3 50级
DEC N$拆几率3 12
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\60级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类3 60级
DEC N$拆几率3 13
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\70级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类3 70级
DEC N$拆几率3 14
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\80级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类3 80级
DEC N$拆几率3 15
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\90级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类3 90级
DEC N$拆几率3 17
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\100级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类3 100级
DEC N$拆几率3 20
#OR
EQUAL <$BOXITEM.STDMODE> 5
EQUAL <$BOXITEM.STDMODE> 6
#ACT
INC S$拆解类3 武器
#OR
EQUAL <$BOXITEM.STDMODE> 10
EQUAL <$BOXITEM.STDMODE> 11
#ACT
INC S$拆解类3 衣服
#OR
EQUAL <$BOXITEM.STDMODE> 15
EQUAL <$BOXITEM.STDMODE> 16
#ACT
INC S$拆解类3 头盔
#OR
EQUAL <$BOXITEM.STDMODE> 19
EQUAL <$BOXITEM.STDMODE> 20
EQUAL <$BOXITEM.STDMODE> 21
EQUAL <$BOXITEM.STDMODE> 22
EQUAL <$BOXITEM.STDMODE> 23
EQUAL <$BOXITEM.STDMODE> 24
EQUAL <$BOXITEM.STDMODE> 26
EQUAL <$BOXITEM.STDMODE> 28
EQUAL <$BOXITEM.STDMODE> 30
EQUAL <$BOXITEM.STDMODE> 52
EQUAL <$BOXITEM.STDMODE> 54
EQUAL <$BOXITEM.STDMODE> 62
EQUAL <$BOXITEM.STDMODE> 64
EQUAL <$BOXITEM.STDMODE> 65
#ACT
INC S$拆解类3 首饰
#IF
EQUAL <$BOXITEM.HDC> 0
#ACT
ANSIREPLACETEXT <$STR(S$比对数3)> D 0
#IF
EQUAL <$BOXITEM.HMC> 0
#ACT
ANSIREPLACETEXT <$STR(S$比对数3)> M 0
#IF
EQUAL <$BOXITEM.HSC> 0
#ACT
ANSIREPLACETEXT <$STR(S$比对数3)> S 0
#IF
EQUAL S$比对数3 D·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防均衡.txt <$STR(S$拆结果3)>
MOV S$二拆0 防均衡
#IF
EQUAL S$比对数3 0·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔道.txt <$STR(S$拆结果3)>
MOV S$二拆0 防魔道
#IF
EQUAL S$比对数3 D·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻道.txt <$STR(S$拆结果3)>
MOV S$二拆0 防攻道
#IF
EQUAL S$比对数3 D·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻魔.txt <$STR(S$拆结果3)>
MOV S$二拆0 防攻魔
#IF
EQUAL S$比对数3 D·0·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻.txt <$STR(S$拆结果3)>
MOV S$二拆0 防攻
#IF
EQUAL S$比对数3 0·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔.txt <$STR(S$拆结果3)>
MOV S$二拆0 防魔
#IF
EQUAL S$比对数3 0·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防道.txt <$STR(S$拆结果3)>
MOV S$二拆0 防道
#IF
EQUAL S$比对数3 D·M·S
EQUAL S$拆结果3
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\均衡.txt <$STR(S$拆结果3)>
MOV S$二拆0 均衡
#IF
EQUAL S$比对数3 D·M·0
EQUAL S$拆结果3
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻魔.txt <$STR(S$拆结果3)>
MOV S$二拆0 攻魔
#IF
EQUAL S$比对数3 D·0·S
EQUAL S$拆结果3
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻道.txt <$STR(S$拆结果3)>
MOV S$二拆0 攻道
#IF
EQUAL S$比对数3 0·M·S
EQUAL S$拆结果3
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔道.txt <$STR(S$拆结果3)>
MOV S$二拆0 魔道
#IF
EQUAL S$比对数3 D·0·0
EQUAL S$拆结果3
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻.txt <$STR(S$拆结果3)>
MOV S$二拆0 攻
#IF
EQUAL S$比对数3 0·M·0
EQUAL S$拆结果3
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔.txt <$STR(S$拆结果3)>
MOV S$二拆0 魔
#IF
EQUAL S$比对数3 0·0·S
EQUAL S$拆结果3
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\道.txt <$STR(S$拆结果3)>
MOV S$二拆0 道
#IF
EQUAL <$BOXITEM.COLOR> 150
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\未鉴定碎块.txt S$拆解色3
#ELSEACT
GetRandomText ..\QuestDiary\数据库\拆解\取色表.txt S$拆解色3 <$BOXITEM.COLOR>
#IF
EQUAL S$拆解色3 (普通)
#ACT
DEC N$拆几率3 5
MOV N$拆解色3 255
#IF
EQUAL S$拆解色3 (精良)
#ACT
DEC N$拆几率3 10
MOV N$拆解色3 250
#IF
EQUAL S$拆解色3 (稀有)
#ACT
DEC N$拆几率3 15
MOV N$拆解色3 154
#IF
EQUAL S$拆解色3 (罕有)
#ACT
DEC N$拆几率3 26
MOV N$拆解色3 243
#IF
EQUAL S$拆解色3 (远古)
#ACT
DEC N$拆几率3 35
MOV N$拆解色3 253
#IF
EQUAL S$拆解色3 (传说)
#ACT
DEC N$拆几率3 50
MOV N$拆解色3 58
#IF
#ACT
MOV S$粉碎按钮 <开始粉碎/@开始粉碎>
DELAYGOTO 20 @综合
[@ItemOutBox3]
#ACT
MOV S$拆解类3
#IF
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
#ACT
MOV S$粉碎按钮 <开始粉碎/FCOLOR=230>
DELAYGOTO 20 @综合
;-----------------------------------------------------------托盘4号
[@ItemIntoBox4]
#IF
EQUAL <$BOXITEM.COLOR> 230
#ACT
UNALLOWITEMINTOBOX
SENDMSG 5 该道具不能进行分解粉碎！
break
#elseact
MOV N$拆几率4 100
MOV S$拆结果4
MOV S$比对数4 D·M·S
;---------类4
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\40级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类4 40级
DEC N$拆几率4 10
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\50级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类4 50级
DEC N$拆几率4 12
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\60级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类4 60级
DEC N$拆几率4 13
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\70级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类4 70级
DEC N$拆几率4 14
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\80级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类4 80级
DEC N$拆几率4 15
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\90级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类4 90级
DEC N$拆几率4 17
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\100级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类4 100级
DEC N$拆几率4 20
#OR
EQUAL <$BOXITEM.STDMODE> 5
EQUAL <$BOXITEM.STDMODE> 6
#ACT
INC S$拆解类4 武器
#OR
EQUAL <$BOXITEM.STDMODE> 10
EQUAL <$BOXITEM.STDMODE> 11
#ACT
INC S$拆解类4 衣服
#OR
EQUAL <$BOXITEM.STDMODE> 15
EQUAL <$BOXITEM.STDMODE> 16
#ACT
INC S$拆解类4 头盔
#OR
EQUAL <$BOXITEM.STDMODE> 19
EQUAL <$BOXITEM.STDMODE> 20
EQUAL <$BOXITEM.STDMODE> 21
EQUAL <$BOXITEM.STDMODE> 22
EQUAL <$BOXITEM.STDMODE> 23
EQUAL <$BOXITEM.STDMODE> 24
EQUAL <$BOXITEM.STDMODE> 26
EQUAL <$BOXITEM.STDMODE> 28
EQUAL <$BOXITEM.STDMODE> 30
EQUAL <$BOXITEM.STDMODE> 52
EQUAL <$BOXITEM.STDMODE> 54
EQUAL <$BOXITEM.STDMODE> 62
EQUAL <$BOXITEM.STDMODE> 64
EQUAL <$BOXITEM.STDMODE> 65
#ACT
INC S$拆解类4 首饰
#IF
EQUAL <$BOXITEM.HDC> 0
#ACT
ANSIREPLACETEXT <$STR(S$比对数4)> D 0
#IF
EQUAL <$BOXITEM.HMC> 0
#ACT
ANSIREPLACETEXT <$STR(S$比对数4)> M 0
#IF
EQUAL <$BOXITEM.HSC> 0
#ACT
ANSIREPLACETEXT <$STR(S$比对数4)> S 0
#IF
EQUAL S$比对数4 D·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防均衡.txt <$STR(S$拆结果4)>
MOV S$二拆0 防均衡
#IF
EQUAL S$比对数4 0·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔道.txt <$STR(S$拆结果4)>
MOV S$二拆0 防魔道
#IF
EQUAL S$比对数4 D·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻道.txt <$STR(S$拆结果4)>
MOV S$二拆0 防攻道
#IF
EQUAL S$比对数4 D·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻魔.txt <$STR(S$拆结果4)>
MOV S$二拆0 防攻魔
#IF
EQUAL S$比对数4 D·0·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻.txt <$STR(S$拆结果4)>
MOV S$二拆0 防攻
#IF
EQUAL S$比对数4 0·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔.txt <$STR(S$拆结果4)>
MOV S$二拆0 防魔
#IF
EQUAL S$比对数4 0·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防道.txt <$STR(S$拆结果4)>
MOV S$二拆0 防道
#IF
EQUAL S$比对数4 D·M·S
EQUAL S$拆结果4
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\均衡.txt <$STR(S$拆结果4)>
MOV S$二拆0 均衡
#IF
EQUAL S$比对数4 D·M·0
EQUAL S$拆结果4
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻魔.txt <$STR(S$拆结果4)>
MOV S$二拆0 攻魔
#IF
EQUAL S$比对数4 D·0·S
EQUAL S$拆结果4
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻道.txt <$STR(S$拆结果4)>
MOV S$二拆0 攻道
#IF
EQUAL S$比对数4 0·M·S
EQUAL S$拆结果4
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔道.txt <$STR(S$拆结果4)>
MOV S$二拆0 魔道
#IF
EQUAL S$比对数4 D·0·0
EQUAL S$拆结果4
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻.txt <$STR(S$拆结果4)>
MOV S$二拆0 攻
#IF
EQUAL S$比对数4 0·M·0
EQUAL S$拆结果4
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔.txt <$STR(S$拆结果4)>
MOV S$二拆0 魔
#IF
EQUAL S$比对数4 0·0·S
EQUAL S$拆结果4
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\道.txt <$STR(S$拆结果4)>
MOV S$二拆0 道
#IF
EQUAL <$BOXITEM.COLOR> 150
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\未鉴定碎块.txt S$拆解色4
#ELSEACT
GetRandomText ..\QuestDiary\数据库\拆解\取色表.txt S$拆解色4 <$BOXITEM.COLOR>
#IF
EQUAL S$拆解色4 (普通)
#ACT
DEC N$拆几率4 5
MOV N$拆解色4 255
#IF
EQUAL S$拆解色4 (精良)
#ACT
DEC N$拆几率4 10
MOV N$拆解色4 250
#IF
EQUAL S$拆解色4 (稀有)
#ACT
DEC N$拆几率4 15
MOV N$拆解色4 154
#IF
EQUAL S$拆解色4 (罕有)
#ACT
DEC N$拆几率4 26
MOV N$拆解色4 243
#IF
EQUAL S$拆解色4 (远古)
#ACT
DEC N$拆几率4 35
MOV N$拆解色4 253
#IF
EQUAL S$拆解色4 (传说)
#ACT
DEC N$拆几率4 50
MOV N$拆解色4 58
#IF
#ACT
MOV S$粉碎按钮 <开始粉碎/@开始粉碎>
DELAYGOTO 20 @综合
[@ItemOutBox4]
#ACT
MOV S$拆解类4
#IF
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
#ACT
MOV S$粉碎按钮 <开始粉碎/FCOLOR=230>
DELAYGOTO 20 @综合
;-----------------------------------------------------------托盘5号
[@ItemIntoBox5]
#IF
EQUAL <$BOXITEM.COLOR> 230
#ACT
UNALLOWITEMINTOBOX
SENDMSG 5 该道具不能进行分解粉碎！
break
#elseact
MOV N$拆几率5 100
MOV S$拆结果5
MOV S$比对数5 D·M·S
;---------类5
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\40级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类5 40级
DEC N$拆几率5 10
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\50级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类5 50级
DEC N$拆几率5 12
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\60级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类5 60级
DEC N$拆几率5 13
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\70级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类5 70级
DEC N$拆几率5 14
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\80级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类5 80级
DEC N$拆几率5 15
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\90级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类5 90级
DEC N$拆几率5 17
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\100级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类5 100级
DEC N$拆几率5 20
#OR
EQUAL <$BOXITEM.STDMODE> 5
EQUAL <$BOXITEM.STDMODE> 6
#ACT
INC S$拆解类5 武器
#OR
EQUAL <$BOXITEM.STDMODE> 10
EQUAL <$BOXITEM.STDMODE> 11
#ACT
INC S$拆解类5 衣服
#OR
EQUAL <$BOXITEM.STDMODE> 15
EQUAL <$BOXITEM.STDMODE> 16
#ACT
INC S$拆解类5 头盔
#OR
EQUAL <$BOXITEM.STDMODE> 19
EQUAL <$BOXITEM.STDMODE> 20
EQUAL <$BOXITEM.STDMODE> 21
EQUAL <$BOXITEM.STDMODE> 22
EQUAL <$BOXITEM.STDMODE> 23
EQUAL <$BOXITEM.STDMODE> 24
EQUAL <$BOXITEM.STDMODE> 26
EQUAL <$BOXITEM.STDMODE> 28
EQUAL <$BOXITEM.STDMODE> 30
EQUAL <$BOXITEM.STDMODE> 52
EQUAL <$BOXITEM.STDMODE> 54
EQUAL <$BOXITEM.STDMODE> 62
EQUAL <$BOXITEM.STDMODE> 64
EQUAL <$BOXITEM.STDMODE> 65
#ACT
INC S$拆解类5 首饰
#IF
EQUAL <$BOXITEM.HDC> 0
#ACT
ANSIREPLACETEXT <$STR(S$比对数5)> D 0
#IF
EQUAL <$BOXITEM.HMC> 0
#ACT
ANSIREPLACETEXT <$STR(S$比对数5)> M 0
#IF
EQUAL <$BOXITEM.HSC> 0
#ACT
ANSIREPLACETEXT <$STR(S$比对数5)> S 0
#IF
EQUAL S$比对数5 D·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防均衡.txt <$STR(S$拆结果5)>
MOV S$二拆0 防均衡
#IF
EQUAL S$比对数5 0·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔道.txt <$STR(S$拆结果5)>
MOV S$二拆0 防魔道
#IF
EQUAL S$比对数5 D·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻道.txt <$STR(S$拆结果5)>
MOV S$二拆0 防攻道
#IF
EQUAL S$比对数5 D·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻魔.txt <$STR(S$拆结果5)>
MOV S$二拆0 防攻魔
#IF
EQUAL S$比对数5 D·0·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻.txt <$STR(S$拆结果5)>
MOV S$二拆0 防攻
#IF
EQUAL S$比对数5 0·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔.txt <$STR(S$拆结果5)>
MOV S$二拆0 防魔
#IF
EQUAL S$比对数5 0·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防道.txt <$STR(S$拆结果5)>
MOV S$二拆0 防道
#IF
EQUAL S$比对数5 D·M·S
EQUAL S$拆结果5
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\均衡.txt <$STR(S$拆结果5)>
MOV S$二拆0 均衡
#IF
EQUAL S$比对数5 D·M·0
EQUAL S$拆结果5
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻魔.txt <$STR(S$拆结果5)>
MOV S$二拆0 攻魔
#IF
EQUAL S$比对数5 D·0·S
EQUAL S$拆结果5
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻道.txt <$STR(S$拆结果5)>
MOV S$二拆0 攻道
#IF
EQUAL S$比对数5 0·M·S
EQUAL S$拆结果5
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔道.txt <$STR(S$拆结果5)>
MOV S$二拆0 魔道
#IF
EQUAL S$比对数5 D·0·0
EQUAL S$拆结果5
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻.txt <$STR(S$拆结果5)>
MOV S$二拆0 攻
#IF
EQUAL S$比对数5 0·M·0
EQUAL S$拆结果5
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔.txt <$STR(S$拆结果5)>
MOV S$二拆0 魔
#IF
EQUAL S$比对数5 0·0·S
EQUAL S$拆结果5
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\道.txt <$STR(S$拆结果5)>
MOV S$二拆0 道
#IF
EQUAL <$BOXITEM.COLOR> 150
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\未鉴定碎块.txt S$拆解色5
#ELSEACT
GetRandomText ..\QuestDiary\数据库\拆解\取色表.txt S$拆解色5 <$BOXITEM.COLOR>
#IF
EQUAL S$拆解色5 (普通)
#ACT
DEC N$拆几率5 5
MOV N$拆解色5 255
#IF
EQUAL S$拆解色5 (精良)
#ACT
DEC N$拆几率5 10
MOV N$拆解色5 250
#IF
EQUAL S$拆解色5 (稀有)
#ACT
DEC N$拆几率5 15
MOV N$拆解色5 154
#IF
EQUAL S$拆解色5 (罕有)
#ACT
DEC N$拆几率5 26
MOV N$拆解色5 243
#IF
EQUAL S$拆解色5 (远古)
#ACT
DEC N$拆几率5 35
MOV N$拆解色5 253
#IF
EQUAL S$拆解色5 (传说)
#ACT
DEC N$拆几率5 50
MOV N$拆解色5 58
#IF
#ACT
MOV S$粉碎按钮 <开始粉碎/@开始粉碎>
DELAYGOTO 20 @综合
[@ItemOutBox5]
#ACT
MOV S$拆解类5
#IF
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
#ACT
MOV S$粉碎按钮 <开始粉碎/FCOLOR=230>
DELAYGOTO 20 @综合
;-----------------------------------------------------------托盘6号
[@ItemIntoBox6]
#IF
EQUAL <$BOXITEM.COLOR> 230
#ACT
UNALLOWITEMINTOBOX
SENDMSG 5 该道具不能进行分解粉碎！
break
#elseact
MOV N$拆几率6 100
MOV S$拆结果6
MOV S$比对数6 D·M·S
;---------类6
;---------色6
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\40级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类6 40级
DEC N$拆几率6 10
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\50级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类6 50级
DEC N$拆几率6 12
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\60级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类6 60级
DEC N$拆几率6 13
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\70级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类6 70级
DEC N$拆几率6 14
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\80级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类6 80级
DEC N$拆几率6 15
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\90级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类6 90级
DEC N$拆几率6 17
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\100级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类6 100级
DEC N$拆几率6 20
#OR
EQUAL <$BOXITEM.STDMODE> 5
EQUAL <$BOXITEM.STDMODE> 6
#ACT
INC S$拆解类6 武器
#OR
EQUAL <$BOXITEM.STDMODE> 10
EQUAL <$BOXITEM.STDMODE> 11
#ACT
INC S$拆解类6 衣服
#OR
EQUAL <$BOXITEM.STDMODE> 15
EQUAL <$BOXITEM.STDMODE> 16
#ACT
INC S$拆解类6 头盔
#OR
EQUAL <$BOXITEM.STDMODE> 19
EQUAL <$BOXITEM.STDMODE> 20
EQUAL <$BOXITEM.STDMODE> 21
EQUAL <$BOXITEM.STDMODE> 22
EQUAL <$BOXITEM.STDMODE> 23
EQUAL <$BOXITEM.STDMODE> 24
EQUAL <$BOXITEM.STDMODE> 26
EQUAL <$BOXITEM.STDMODE> 28
EQUAL <$BOXITEM.STDMODE> 30
EQUAL <$BOXITEM.STDMODE> 52
EQUAL <$BOXITEM.STDMODE> 54
EQUAL <$BOXITEM.STDMODE> 62
EQUAL <$BOXITEM.STDMODE> 64
EQUAL <$BOXITEM.STDMODE> 65
#ACT
INC S$拆解类6 首饰
#IF
EQUAL <$BOXITEM.HDC> 0
#ACT
ANSIREPLACETEXT <$STR(S$比对数6)> D 0
#IF
EQUAL <$BOXITEM.HMC> 0
#ACT
ANSIREPLACETEXT <$STR(S$比对数6)> M 0
#IF
EQUAL <$BOXITEM.HSC> 0
#ACT
ANSIREPLACETEXT <$STR(S$比对数6)> S 0
#IF
EQUAL S$比对数6 D·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防均衡.txt <$STR(S$拆结果6)>
MOV S$二拆0 防均衡
#IF
EQUAL S$比对数6 0·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔道.txt <$STR(S$拆结果6)>
MOV S$二拆0 防魔道
#IF
EQUAL S$比对数6 D·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻道.txt <$STR(S$拆结果6)>
MOV S$二拆0 防攻道
#IF
EQUAL S$比对数6 D·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻魔.txt <$STR(S$拆结果6)>
MOV S$二拆0 防攻魔
#IF
EQUAL S$比对数6 D·0·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻.txt <$STR(S$拆结果6)>
MOV S$二拆0 防攻
#IF
EQUAL S$比对数6 0·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔.txt <$STR(S$拆结果6)>
MOV S$二拆0 防魔
#IF
EQUAL S$比对数6 0·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防道.txt <$STR(S$拆结果6)>
MOV S$二拆0 防道
#IF
EQUAL S$比对数6 D·M·S
EQUAL S$拆结果6
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\均衡.txt <$STR(S$拆结果6)>
MOV S$二拆0 均衡
#IF
EQUAL S$比对数6 D·M·0
EQUAL S$拆结果6
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻魔.txt <$STR(S$拆结果6)>
MOV S$二拆0 攻魔
#IF
EQUAL S$比对数6 D·0·S
EQUAL S$拆结果6
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻道.txt <$STR(S$拆结果6)>
MOV S$二拆0 攻道
#IF
EQUAL S$比对数6 0·M·S
EQUAL S$拆结果6
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔道.txt <$STR(S$拆结果6)>
MOV S$二拆0 魔道
#IF
EQUAL S$比对数6 D·0·0
EQUAL S$拆结果6
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻.txt <$STR(S$拆结果6)>
MOV S$二拆0 攻
#IF
EQUAL S$比对数6 0·M·0
EQUAL S$拆结果6
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔.txt <$STR(S$拆结果6)>
MOV S$二拆0 魔
#IF
EQUAL S$比对数6 0·0·S
EQUAL S$拆结果6
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\道.txt <$STR(S$拆结果6)>
MOV S$二拆0 道
#IF
EQUAL <$BOXITEM.COLOR> 150
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\未鉴定碎块.txt S$拆解色6
#ELSEACT
GetRandomText ..\QuestDiary\数据库\拆解\取色表.txt S$拆解色6 <$BOXITEM.COLOR>
#IF
EQUAL S$拆解色6 (普通)
#ACT
DEC N$拆几率6 5
MOV N$拆解色6 255
#IF
EQUAL S$拆解色6 (精良)
#ACT
DEC N$拆几率6 10
MOV N$拆解色6 250
#IF
EQUAL S$拆解色6 (稀有)
#ACT
DEC N$拆几率6 15
MOV N$拆解色6 154
#IF
EQUAL S$拆解色6 (罕有)
#ACT
DEC N$拆几率6 26
MOV N$拆解色6 243
#IF
EQUAL S$拆解色6 (远古)
#ACT
DEC N$拆几率6 35
MOV N$拆解色6 253
#IF
EQUAL S$拆解色6 (传说)
#ACT
DEC N$拆几率6 50
MOV N$拆解色6 58
#IF
#ACT
MOV S$粉碎按钮 <开始粉碎/@开始粉碎>
DELAYGOTO 20 @综合
[@ItemOutBox6]
#ACT
MOV S$拆解类6
#IF
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
#ACT
MOV S$粉碎按钮 <开始粉碎/FCOLOR=230>
DELAYGOTO 20 @综合
;-----------------------------------------------------------托盘7号
[@ItemIntoBox7]
#IF
EQUAL <$BOXITEM.COLOR> 230
#ACT
UNALLOWITEMINTOBOX
SENDMSG 5 该道具不能进行分解粉碎！
break
#elseact
MOV N$拆几率7 100
MOV S$拆结果7
MOV S$比对数7 D·M·S
;---------类7
;---------色7
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\40级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类7 40级
DEC N$拆几率7 10
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\50级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类7 50级
DEC N$拆几率7 12
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\60级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类7 60级
DEC N$拆几率7 13
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\70级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类7 70级
DEC N$拆几率7 14
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\80级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类7 80级
DEC N$拆几率7 15
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\90级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类7 90级
DEC N$拆几率7 17
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\100级表.txt <$BOXITEM.NAME>
#ACT
MOV S$拆解类7 100级
DEC N$拆几率7 20
#OR
EQUAL <$BOXITEM.STDMODE> 5
EQUAL <$BOXITEM.STDMODE> 6
#ACT
INC S$拆解类7 武器
#OR
EQUAL <$BOXITEM.STDMODE> 10
EQUAL <$BOXITEM.STDMODE> 11
#ACT
INC S$拆解类7 衣服
#OR
EQUAL <$BOXITEM.STDMODE> 15
EQUAL <$BOXITEM.STDMODE> 16
#ACT
INC S$拆解类7 头盔
#OR
EQUAL <$BOXITEM.STDMODE> 19
EQUAL <$BOXITEM.STDMODE> 20
EQUAL <$BOXITEM.STDMODE> 21
EQUAL <$BOXITEM.STDMODE> 22
EQUAL <$BOXITEM.STDMODE> 23
EQUAL <$BOXITEM.STDMODE> 24
EQUAL <$BOXITEM.STDMODE> 26
EQUAL <$BOXITEM.STDMODE> 28
EQUAL <$BOXITEM.STDMODE> 30
EQUAL <$BOXITEM.STDMODE> 52
EQUAL <$BOXITEM.STDMODE> 54
EQUAL <$BOXITEM.STDMODE> 62
EQUAL <$BOXITEM.STDMODE> 64
EQUAL <$BOXITEM.STDMODE> 65
#ACT
INC S$拆解类7 首饰
#IF
EQUAL <$BOXITEM.HDC> 0
#ACT
ANSIREPLACETEXT <$STR(S$比对数7)> D 0
#IF
EQUAL <$BOXITEM.HMC> 0
#ACT
ANSIREPLACETEXT <$STR(S$比对数7)> M 0
#IF
EQUAL <$BOXITEM.HSC> 0
#ACT
ANSIREPLACETEXT <$STR(S$比对数7)> S 0
#IF
EQUAL S$比对数7 D·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防均衡.txt <$STR(S$拆结果7)>
MOV S$二拆0 防均衡
#IF
EQUAL S$比对数7 0·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔道.txt <$STR(S$拆结果7)>
MOV S$二拆0 防魔道
#IF
EQUAL S$比对数7 D·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻道.txt <$STR(S$拆结果7)>
MOV S$二拆0 防攻道
#IF
EQUAL S$比对数7 D·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻魔.txt <$STR(S$拆结果7)>
MOV S$二拆0 防攻魔
#IF
EQUAL S$比对数7 D·0·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻.txt <$STR(S$拆结果7)>
MOV S$二拆0 防攻
#IF
EQUAL S$比对数7 0·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔.txt <$STR(S$拆结果7)>
MOV S$二拆0 防魔
#IF
EQUAL S$比对数7 0·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM.STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防道.txt <$STR(S$拆结果7)>
MOV S$二拆0 防道
#IF
EQUAL S$比对数7 D·M·S
EQUAL S$拆结果7
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\均衡.txt <$STR(S$拆结果7)>
MOV S$二拆0 均衡
#IF
EQUAL S$比对数7 D·M·0
EQUAL S$拆结果7
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻魔.txt <$STR(S$拆结果7)>
MOV S$二拆0 攻魔
#IF
EQUAL S$比对数7 D·0·S
EQUAL S$拆结果7
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻道.txt <$STR(S$拆结果7)>
MOV S$二拆0 攻道
#IF
EQUAL S$比对数7 0·M·S
EQUAL S$拆结果7
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔道.txt <$STR(S$拆结果7)>
MOV S$二拆0 魔道
#IF
EQUAL S$比对数7 D·0·0
EQUAL S$拆结果7
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻.txt <$STR(S$拆结果7)>
MOV S$二拆0 攻
#IF
EQUAL S$比对数7 0·M·0
EQUAL S$拆结果7
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔.txt <$STR(S$拆结果7)>
MOV S$二拆0 魔
#IF
EQUAL S$比对数7 0·0·S
EQUAL S$拆结果7
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\道.txt <$STR(S$拆结果7)>
MOV S$二拆0 道
#IF
EQUAL <$BOXITEM.COLOR> 150
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\未鉴定碎块.txt S$拆解色7
#ELSEACT
GetRandomText ..\QuestDiary\数据库\拆解\取色表.txt S$拆解色7 <$BOXITEM.COLOR>
#IF
EQUAL S$拆解色7 (普通)
#ACT
DEC N$拆几率7 5
MOV N$拆解色7 255
#IF
EQUAL S$拆解色7 (精良)
#ACT
DEC N$拆几率7 10
MOV N$拆解色7 250
#IF
EQUAL S$拆解色7 (稀有)
#ACT
DEC N$拆几率7 15
MOV N$拆解色7 154
#IF
EQUAL S$拆解色7 (罕有)
#ACT
DEC N$拆几率7 26
MOV N$拆解色7 243
#IF
EQUAL S$拆解色7 (远古)
#ACT
DEC N$拆几率7 35
MOV N$拆解色7 253
#IF
EQUAL S$拆解色7 (传说)
#ACT
DEC N$拆几率7 50
MOV N$拆解色7 58
#IF
#ACT
MOV S$粉碎按钮 <开始粉碎/@开始粉碎>
DELAYGOTO 20 @综合
[@ItemOutBox7]
#ACT
MOV S$拆解类7
#IF
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
EQUAL <$BOXITEM.NAME>
#ACT
MOV S$粉碎按钮 <开始粉碎/FCOLOR=230>
DELAYGOTO 20 @综合
[@综合]
#ACT
OPENMERCHANTBIGDLG 17 380 1 0 80 60
#SAY
<Img:55:4:248:-27/@EXIT>
<Img:388:17:28:-24>
<Img:387:17:-206:-40>\ \
;商品区---第一排
<$STR(S$售货0)>\
\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
;粉碎页第一排
<ITEMBOX:0:-1:0:-1:-41:33:30:5,6,10,11,15,16,19,20,21,22,23,24,26,30,48,52,54,62,64,65>
<ITEMBOX:1:-1:0:5:-41:33:30:5,6,10,11,15,16,19,20,21,22,23,24,26,30,48,52,54,62,64,65>
<ITEMBOX:2:-1:0:11:-41:33:30:5,6,10,11,15,16,19,20,21,22,23,24,26,30,48,52,54,62,64,65>
<ITEMBOX:3:-1:0:17:-41:33:30:5,6,10,11,15,16,19,20,21,22,23,24,26,30,48,52,54,62,64,65>\
;粉碎页第二排
<ITEMBOX:4:-1:0:-1:-21:33:30:5,6,10,11,15,16,19,20,21,22,23,24,26,30,48,52,54,62,64,65>
<ITEMBOX:5:-1:0:5:-21:33:30:5,6,10,11,15,16,19,20,21,22,23,24,26,30,48,52,54,62,64,65>
<ITEMBOX:6:-1:0:11:-21:33:30:5,6,10,11,15,16,19,20,21,22,23,24,26,30,48,52,54,62,64,65>
<ITEMBOX:7:-1:0:17:-21:33:30:5,6,10,11,15,16,19,20,21,22,23,24,26,30,48,52,54,62,64,65>\
<粉碎费用：[ /FCOLOR=255>{免费/FCOLOR=222}< ]/FCOLOR=255>\
<○/FCOLOR=103><$STR(S$粉碎按钮)>\
<○/FCOLOR=103><返回/@MAIN>\
[@开始粉碎]
#IF
NOT EQUAL <$BOXITEM.NAME>
#ACT
MOVR N$拆率0 101
#IF
NOT EQUAL <$BOXITEM.NAME>
#ACT
MOVR N$拆率1 101
#IF
NOT EQUAL <$BOXITEM.NAME>
#ACT
MOVR N$拆率2 101
#IF
NOT EQUAL <$BOXITEM.NAME>
#ACT
MOVR N$拆率3 101
#IF
NOT EQUAL <$BOXITEM.NAME>
#ACT
MOVR N$拆率4 101
#IF
NOT EQUAL <$BOXITEM.NAME>
#ACT
MOVR N$拆率5 101
#IF
NOT EQUAL <$BOXITEM.NAME>
#ACT
MOVR N$拆率6 101
#IF
NOT EQUAL <$BOXITEM.NAME>
#ACT
MOVR N$拆率7 101
#IF
NOT EQUAL <$BOXITEM.NAME>
SMALL N$拆率0 <$STR(N$拆几率0)>
RANDOM 50
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\<$STR(S$二拆0)>.txt <$STR(S$拆结果0)>
GIVE <$STR(S$拆解类0)><$STR(S$拆结果0)>碎块<$STR(S$拆解色0)> 1
SENDMSG 6 [拆解]：粉碎[ {<$BOXITEM.NAME>|<$BOXITEM.COLOR>:0:1} ]获得了[ {<$STR(S$拆解类0)><$STR(S$拆结果0)>碎块<$STR(S$拆解色0)>|<$STR(N$拆解色0)>:0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL <$BOXITEM.NAME>
SMALL N$拆率0 <$STR(N$拆几率0)>
RANDOM 20
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\<$STR(S$二拆0)>.txt <$STR(S$拆结果0)>
GIVE <$STR(S$拆解类0)><$STR(S$拆结果0)>碎块<$STR(S$拆解色0)> 1
SENDMSG 6 [拆解]：粉碎[ {<$BOXITEM.NAME>|<$BOXITEM.COLOR>:0:1} ]获得了[ {<$STR(S$拆解类0)><$STR(S$拆结果0)>碎块<$STR(S$拆解色0)>|<$STR(N$拆解色0)>:0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL <$BOXITEM.NAME>
SMALL N$拆率0 <$STR(N$拆几率0)>
#ACT
GIVE <$STR(S$拆解类0)><$STR(S$拆结果0)>碎块<$STR(S$拆解色0)> 1
SENDMSG 6 [拆解]：粉碎[ {<$BOXITEM.NAME>|<$BOXITEM.COLOR>:0:1} ]获得了[ {<$STR(S$拆解类0)><$STR(S$拆结果0)>碎块<$STR(S$拆解色0)>|<$STR(N$拆解色0)>:0:1} ]。
INC N$拆解最后结果 1
DELBOXITEM 0
UpDateBoxItem 0
#IF
NOT EQUAL <$BOXITEM.NAME>
SMALL N$拆率1 <$STR(N$拆几率1)>
RANDOM 50
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\<$STR(S$二拆1)>.txt <$STR(S$拆结果1)>
GIVE <$STR(S$拆解类1)><$STR(S$拆结果1)>碎块<$STR(S$拆解色1)> 1
SENDMSG 6 [拆解]：粉碎[ {<$BOXITEM.NAME>|<$BOXITEM.COLOR>:0:1} ]获得了[ {<$STR(S$拆解类1)><$STR(S$拆结果1)>碎块<$STR(S$拆解色1)>|<$STR(N$拆解色1)>:0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL <$BOXITEM.NAME>
SMALL N$拆率1 <$STR(N$拆几率1)>
RANDOM 20
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\<$STR(S$二拆0)>.txt <$STR(S$拆结果1)>
GIVE <$STR(S$拆解类1)><$STR(S$拆结果1)>碎块<$STR(S$拆解色1)> 1
SENDMSG 6 [拆解]：粉碎[ {<$BOXITEM.NAME>|<$BOXITEM.COLOR>:0:1} ]获得了[ {<$STR(S$拆解类1)><$STR(S$拆结果1)>碎块<$STR(S$拆解色1)>|<$STR(N$拆解色1)>:0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL <$BOXITEM.NAME>
SMALL N$拆率1 <$STR(N$拆几率1)>
#ACT
GIVE <$STR(S$拆解类1)><$STR(S$拆结果1)>碎块<$STR(S$拆解色1)> 1
SENDMSG 6 [拆解]：粉碎[ {<$BOXITEM.NAME>|<$BOXITEM.COLOR>:0:1} ]获得了[ {<$STR(S$拆解类1)><$STR(S$拆结果1)>碎块<$STR(S$拆解色1)>|<$STR(N$拆解色1)>:0:1} ]。
INC N$拆解最后结果 1
DELBOXITEM 1
UpDateBoxItem 1
#IF
NOT EQUAL <$BOXITEM.NAME>
SMALL N$拆率2 <$STR(N$拆几率2)>
RANDOM 50
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\<$STR(S$二拆2)>.txt <$STR(S$拆结果2)>
GIVE <$STR(S$拆解类2)><$STR(S$拆结果2)>碎块<$STR(S$拆解色2)> 1
SENDMSG 6 [拆解]：粉碎[ {<$BOXITEM.NAME>|<$BOXITEM.COLOR>:0:1} ]获得了[ {<$STR(S$拆解类2)><$STR(S$拆结果2)>碎块<$STR(S$拆解色2)>|<$STR(N$拆解色2)>:0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL <$BOXITEM.NAME>
SMALL N$拆率2 <$STR(N$拆几率2)>
RANDOM 20
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\<$STR(S$二拆0)>.txt <$STR(S$拆结果2)>
GIVE <$STR(S$拆解类2)><$STR(S$拆结果2)>碎块<$STR(S$拆解色2)> 1
SENDMSG 6 [拆解]：粉碎[ {<$BOXITEM.NAME>|<$BOXITEM.COLOR>:0:1} ]获得了[ {<$STR(S$拆解类2)><$STR(S$拆结果2)>碎块<$STR(S$拆解色2)>|<$STR(N$拆解色2)>:0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL <$BOXITEM.NAME>
SMALL N$拆率2 <$STR(N$拆几率2)>
#ACT
GIVE <$STR(S$拆解类2)><$STR(S$拆结果2)>碎块<$STR(S$拆解色2)> 1
SENDMSG 6 [拆解]：粉碎[ {<$BOXITEM.NAME>|<$BOXITEM.COLOR>:0:1} ]获得了[ {<$STR(S$拆解类2)><$STR(S$拆结果2)>碎块<$STR(S$拆解色2)>|<$STR(N$拆解色2)>:0:1} ]。
INC N$拆解最后结果 1
DELBOXITEM 2
UpDateBoxItem 2
#IF
NOT EQUAL <$BOXITEM.NAME>
SMALL N$拆率3 <$STR(N$拆几率3)>
RANDOM 50
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\<$STR(S$二拆3)>.txt <$STR(S$拆结果3)>
GIVE <$STR(S$拆解类3)><$STR(S$拆结果3)>碎块<$STR(S$拆解色3)> 1
SENDMSG 6 [拆解]：粉碎[ {<$BOXITEM.NAME>|<$BOXITEM.COLOR>:0:1} ]获得了[ {<$STR(S$拆解类3)><$STR(S$拆结果3)>碎块<$STR(S$拆解色3)>|<$STR(N$拆解色3)>:0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL <$BOXITEM.NAME>
SMALL N$拆率3 <$STR(N$拆几率3)>
RANDOM 20
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\<$STR(S$二拆0)>.txt <$STR(S$拆结果3)>
GIVE <$STR(S$拆解类3)><$STR(S$拆结果3)>碎块<$STR(S$拆解色3)> 1
SENDMSG 6 [拆解]：粉碎[ {<$BOXITEM.NAME>|<$BOXITEM.COLOR>:0:1} ]获得了[ {<$STR(S$拆解类3)><$STR(S$拆结果3)>碎块<$STR(S$拆解色3)>|<$STR(N$拆解色3)>:0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL <$BOXITEM.NAME>
SMALL N$拆率3 <$STR(N$拆几率3)>
#ACT
GIVE <$STR(S$拆解类3)><$STR(S$拆结果3)>碎块<$STR(S$拆解色3)> 1
SENDMSG 6 [拆解]：粉碎[ {<$BOXITEM.NAME>|<$BOXITEM.COLOR>:0:1} ]获得了[ {<$STR(S$拆解类3)><$STR(S$拆结果3)>碎块<$STR(S$拆解色3)>|<$STR(N$拆解色3)>:0:1} ]。
INC N$拆解最后结果 1
DELBOXITEM 3
UpDateBoxItem 3
#IF
NOT EQUAL <$BOXITEM.NAME>
SMALL N$拆率4 <$STR(N$拆几率4)>
RANDOM 50
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\<$STR(S$二拆4)>.txt <$STR(S$拆结果4)>
GIVE <$STR(S$拆解类4)><$STR(S$拆结果4)>碎块<$STR(S$拆解色4)> 1
SENDMSG 6 [拆解]：粉碎[ {<$BOXITEM.NAME>|<$BOXITEM.COLOR>:0:1} ]获得了[ {<$STR(S$拆解类4)><$STR(S$拆结果4)>碎块<$STR(S$拆解色4)>|<$STR(N$拆解色4)>:0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL <$BOXITEM.NAME>
SMALL N$拆率4 <$STR(N$拆几率4)>
RANDOM 20
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\<$STR(S$二拆0)>.txt <$STR(S$拆结果4)>
GIVE <$STR(S$拆解类4)><$STR(S$拆结果4)>碎块<$STR(S$拆解色4)> 1
SENDMSG 6 [拆解]：粉碎[ {<$BOXITEM.NAME>|<$BOXITEM.COLOR>:0:1} ]获得了[ {<$STR(S$拆解类4)><$STR(S$拆结果4)>碎块<$STR(S$拆解色4)>|<$STR(N$拆解色4)>:0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL <$BOXITEM.NAME>
SMALL N$拆率4 <$STR(N$拆几率4)>
#ACT
GIVE <$STR(S$拆解类4)><$STR(S$拆结果4)>碎块<$STR(S$拆解色4)> 1
SENDMSG 6 [拆解]：粉碎[ {<$BOXITEM.NAME>|<$BOXITEM.COLOR>:0:1} ]获得了[ {<$STR(S$拆解类4)><$STR(S$拆结果4)>碎块<$STR(S$拆解色4)>|<$STR(N$拆解色4)>:0:1} ]。
INC N$拆解最后结果 1
DELBOXITEM 4
UpDateBoxItem 4
#IF
NOT EQUAL <$BOXITEM.NAME>
SMALL N$拆率5 <$STR(N$拆几率5)>
RANDOM 50
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\<$STR(S$二拆5)>.txt <$STR(S$拆结果5)>
GIVE <$STR(S$拆解类5)><$STR(S$拆结果5)>碎块<$STR(S$拆解色5)> 1
SENDMSG 6 [拆解]：粉碎[ {<$BOXITEM.NAME>|<$BOXITEM.COLOR>:0:1} ]获得了[ {<$STR(S$拆解类5)><$STR(S$拆结果5)>碎块<$STR(S$拆解色5)>|<$STR(N$拆解色5)>:0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL <$BOXITEM.NAME>
SMALL N$拆率5 <$STR(N$拆几率5)>
RANDOM 20
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\<$STR(S$二拆0)>.txt <$STR(S$拆结果5)>
GIVE <$STR(S$拆解类5)><$STR(S$拆结果5)>碎块<$STR(S$拆解色5)> 1
SENDMSG 6 [拆解]：粉碎[ {<$BOXITEM.NAME>|<$BOXITEM.COLOR>:0:1} ]获得了[ {<$STR(S$拆解类5)><$STR(S$拆结果5)>碎块<$STR(S$拆解色5)>|<$STR(N$拆解色5)>:0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL <$BOXITEM.NAME>
SMALL N$拆率5 <$STR(N$拆几率5)>
#ACT
GIVE <$STR(S$拆解类5)><$STR(S$拆结果5)>碎块<$STR(S$拆解色5)> 1
SENDMSG 6 [拆解]：粉碎[ {<$BOXITEM.NAME>|<$BOXITEM.COLOR>:0:1} ]获得了[ {<$STR(S$拆解类5)><$STR(S$拆结果5)>碎块<$STR(S$拆解色5)>|<$STR(N$拆解色5)>:0:1} ]。
INC N$拆解最后结果 1
DELBOXITEM 5
UpDateBoxItem 5
#IF
NOT EQUAL <$BOXITEM.NAME>
SMALL N$拆率6 <$STR(N$拆几率6)>
RANDOM 50
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\<$STR(S$二拆6)>.txt <$STR(S$拆结果6)>
GIVE <$STR(S$拆解类6)><$STR(S$拆结果6)>碎块<$STR(S$拆解色6)> 1
SENDMSG 6 [拆解]：粉碎[ {<$BOXITEM.NAME>|<$BOXITEM.COLOR>:0:1} ]获得了[ {<$STR(S$拆解类6)><$STR(S$拆结果6)>碎块<$STR(S$拆解色6)>|<$STR(N$拆解色6)>:0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL <$BOXITEM.NAME>
SMALL N$拆率6 <$STR(N$拆几率6)>
RANDOM 20
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\<$STR(S$二拆0)>.txt <$STR(S$拆结果6)>
GIVE <$STR(S$拆解类6)><$STR(S$拆结果6)>碎块<$STR(S$拆解色6)> 1
SENDMSG 6 [拆解]：粉碎[ {<$BOXITEM.NAME>|<$BOXITEM.COLOR>:0:1} ]获得了[ {<$STR(S$拆解类6)><$STR(S$拆结果6)>碎块<$STR(S$拆解色6)>|<$STR(N$拆解色6)>:0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL <$BOXITEM.NAME>
SMALL N$拆率6 <$STR(N$拆几率6)>
#ACT
GIVE <$STR(S$拆解类6)><$STR(S$拆结果6)>碎块<$STR(S$拆解色6)> 1
SENDMSG 6 [拆解]：粉碎[ {<$BOXITEM.NAME>|<$BOXITEM.COLOR>:0:1} ]获得了[ {<$STR(S$拆解类6)><$STR(S$拆结果6)>碎块<$STR(S$拆解色6)>|<$STR(N$拆解色6)>:0:1} ]。
INC N$拆解最后结果 1
DELBOXITEM 6
UpDateBoxItem 6
#IF
NOT EQUAL <$BOXITEM.NAME>
SMALL N$拆率7 <$STR(N$拆几率7)>
RANDOM 50
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\<$STR(S$二拆7)>.txt <$STR(S$拆结果7)>
GIVE <$STR(S$拆解类7)><$STR(S$拆结果7)>碎块<$STR(S$拆解色7)> 1
SENDMSG 6 [拆解]：粉碎[ {<$BOXITEM.NAME>|<$BOXITEM.COLOR>:0:1} ]获得了[ {<$STR(S$拆解类7)><$STR(S$拆结果7)>碎块<$STR(S$拆解色7)>|<$STR(N$拆解色7)>:0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL <$BOXITEM.NAME>
SMALL N$拆率7 <$STR(N$拆几率7)>
RANDOM 20
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\<$STR(S$二拆0)>.txt <$STR(S$拆结果7)>
GIVE <$STR(S$拆解类7)><$STR(S$拆结果7)>碎块<$STR(S$拆解色7)> 1
SENDMSG 6 [拆解]：粉碎[ {<$BOXITEM.NAME>|<$BOXITEM.COLOR>:0:1} ]获得了[ {<$STR(S$拆解类7)><$STR(S$拆结果7)>碎块<$STR(S$拆解色7)>|<$STR(N$拆解色7)>:0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL <$BOXITEM.NAME>
SMALL N$拆率7 <$STR(N$拆几率7)>
#ACT
GIVE <$STR(S$拆解类7)><$STR(S$拆结果7)>碎块<$STR(S$拆解色7)> 1
SENDMSG 6 [拆解]：粉碎[ {<$BOXITEM.NAME>|<$BOXITEM.COLOR>:0:1} ]获得了[ {<$STR(S$拆解类7)><$STR(S$拆结果7)>碎块<$STR(S$拆解色7)>|<$STR(N$拆解色7)>:0:1} ]。
INC N$拆解最后结果 1
DELBOXITEM 7
UpDateBoxItem 7
#IF
EQUAL N$拆解最后结果 0
#ACT
SENDMSG 6 [拆解]：本次拆解未获得任何东西！~
#IF
#ACT
DELBOXITEM 0
DELBOXITEM 1
DELBOXITEM 2
DELBOXITEM 3
DELBOXITEM 4
DELBOXITEM 5
DELBOXITEM 6
DELBOXITEM 7
MOV N$拆解最后结果 0
GOTO @MAIN
页:
[1]