[@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[0].COLOR 230
#ACT
UNALLOWITEMINTOBOX
SENDMSG 5 该道具不能进行分解粉碎！
break
#IF
EQUAL $BOXITEM[0].COLOR 254
#ACT
UNALLOWITEMINTOBOX
SENDMSG 5 该道具不能进行分解粉碎！
break
#IF
#ACT
MOV N$拆几率0 100
MOV S$拆结果0
MOV S$比对数0 DMS
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\40级表.txt $BOXITEM[0].NAME
#ACT
MOV S$拆解类0 40级
DEC N$拆几率0 10
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\50级表.txt $BOXITEM[0].NAME
#ACT
MOV S$拆解类0 50级
DEC N$拆几率0 12
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\60级表.txt $BOXITEM[0].NAME
#ACT
MOV S$拆解类0 60级
DEC N$拆几率0 13
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\70级表.txt $BOXITEM[0].NAME
#ACT
MOV S$拆解类0 70级
DEC N$拆几率0 14
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\80级表.txt $BOXITEM[0].NAME
#ACT
MOV S$拆解类0 80级
DEC N$拆几率0 15
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\90级表.txt $BOXITEM[0].NAME
#ACT
MOV S$拆解类0 90级
DEC N$拆几率0 17
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\100级表.txt $BOXITEM[0].NAME
#ACT
MOV S$拆解类0 100级
DEC N$拆几率0 20
#OR
EQUAL $BOXITEM[0].STDMODE 5
EQUAL $BOXITEM[0].STDMODE 6
#ACT
INC S$拆解类0 武器
#OR
EQUAL $BOXITEM[0].STDMODE 10
EQUAL $BOXITEM[0].STDMODE 11
#ACT
INC S$拆解类0 衣服
#OR
EQUAL $BOXITEM[0].STDMODE 15
EQUAL $BOXITEM[0].STDMODE 16
#ACT
INC S$拆解类0 头盔
#OR
EQUAL $BOXITEM[0].STDMODE 19
EQUAL $BOXITEM[0].STDMODE 20
EQUAL $BOXITEM[0].STDMODE 21
EQUAL $BOXITEM[0].STDMODE 22
EQUAL $BOXITEM[0].STDMODE 23
EQUAL $BOXITEM[0].STDMODE 24
EQUAL $BOXITEM[0].STDMODE 26
EQUAL $BOXITEM[0].STDMODE 28
EQUAL $BOXITEM[0].STDMODE 30
EQUAL $BOXITEM[0].STDMODE 52
EQUAL $BOXITEM[0].STDMODE 54
EQUAL $BOXITEM[0].STDMODE 62
EQUAL $BOXITEM[0].STDMODE 64
EQUAL $BOXITEM[0].STDMODE 65
#ACT
INC S$拆解类0 首饰
#IF
EQUAL $BOXITEM[0].HDC 0
#ACT
ANSIREPLACETEXT $STR(S$比对数0) D 0
#IF
EQUAL $BOXITEM[0].HMC 0
#ACT
ANSIREPLACETEXT $STR(S$比对数0) M 0
#IF
EQUAL $BOXITEM[0].HSC 0
#ACT
ANSIREPLACETEXT $STR(S$比对数0) S 0
#IF
EQUAL S$比对数0 DMS
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[0].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防均衡.txt $STR(S$拆结果0)
MOV S$二拆0 防均衡
#IF
EQUAL S$比对数0 0MS
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[0].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔道.txt $STR(S$拆结果0)
MOV S$二拆0 防魔道
#IF
EQUAL S$比对数0 D0S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[0].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻道.txt $STR(S$拆结果0)
MOV S$二拆0 防攻道
#IF
EQUAL S$比对数0 DM0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[0].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻魔.txt $STR(S$拆结果0)
MOV S$二拆0 防攻魔
#IF
EQUAL S$比对数0 D00
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[0].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻.txt $STR(S$拆结果0)
MOV S$二拆0 防攻
#IF
EQUAL S$比对数0 0M0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[0].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔.txt $STR(S$拆结果0)
MOV S$二拆0 防魔
#IF
EQUAL S$比对数0 00S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[0].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防道.txt $STR(S$拆结果0)
MOV S$二拆0 防道
#IF
EQUAL S$比对数0 DMS
EQUAL S$拆结果0
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\均衡.txt $STR(S$拆结果0)
MOV S$二拆0 均衡
#IF
EQUAL S$比对数0 DM0
EQUAL S$拆结果0
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻魔.txt $STR(S$拆结果0)
MOV S$二拆0 攻魔
#IF
EQUAL S$比对数0 D0S
EQUAL S$拆结果0
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻道.txt $STR(S$拆结果0)
MOV S$二拆0 攻道
#IF
EQUAL S$比对数0 0MS
EQUAL S$拆结果0
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔道.txt $STR(S$拆结果0)
MOV S$二拆0 魔道
#IF
EQUAL S$比对数0 D00
EQUAL S$拆结果0
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻.txt $STR(S$拆结果0)
MOV S$二拆0 攻
#IF
EQUAL S$比对数0 0M0
EQUAL S$拆结果0
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔.txt $STR(S$拆结果0)
MOV S$二拆0 魔
#IF
EQUAL S$比对数0 00S
EQUAL S$拆结果0
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\道.txt $STR(S$拆结果0)
MOV S$二拆0 道
#IF
EQUAL $BOXITEM[0].COLOR 150
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\未鉴定碎块.txt S$拆解色0
#ELSEACT
GetRandomText ..\QuestDiary\数据库\拆解\取色表.txt S$拆解色0 $BOXITEM[0].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[1].NAME
EQUAL $BOXITEM[2].NAME
EQUAL $BOXITEM[3].NAME
EQUAL $BOXITEM[4].NAME
EQUAL $BOXITEM[5].NAME
EQUAL $BOXITEM[6].NAME
EQUAL $BOXITEM[7].NAME
#ACT
MOV S$粉碎按钮 开始粉碎/FCOLOR=230
DELAYGOTO 20 @综合
;-----------------------------------------------------------托盘1号
[@ItemIntoBox1]
#IF
EQUAL $BOXITEM[1].COLOR 230
#ACT
UNALLOWITEMINTOBOX
SENDMSG 5 该道具不能进行分解粉碎！
break
#elseact
MOV N$拆几率1 100
MOV S$拆结果1
MOV S$比对数1 DMS
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\40级表.txt $BOXITEM[1].NAME
#ACT
MOV S$拆解类1 40级
DEC N$拆几率1 10
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\50级表.txt $BOXITEM[1].NAME
#ACT
MOV S$拆解类1 50级
DEC N$拆几率1 12
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\60级表.txt $BOXITEM[1].NAME
#ACT
MOV S$拆解类1 60级
DEC N$拆几率1 13
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\70级表.txt $BOXITEM[1].NAME
#ACT
MOV S$拆解类1 70级
DEC N$拆几率1 14
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\80级表.txt $BOXITEM[1].NAME
#ACT
MOV S$拆解类1 80级
DEC N$拆几率1 15
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\90级表.txt $BOXITEM[1].NAME
#ACT
MOV S$拆解类1 90级
DEC N$拆几率1 17
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\100级表.txt $BOXITEM[1].NAME
#ACT
MOV S$拆解类1 100级
DEC N$拆几率1 20
#OR
EQUAL $BOXITEM[1].STDMODE 5
EQUAL $BOXITEM[1].STDMODE 6
#ACT
INC S$拆解类1 武器
#OR
EQUAL $BOXITEM[1].STDMODE 10
EQUAL $BOXITEM[1].STDMODE 11
#ACT
INC S$拆解类1 衣服
#OR
EQUAL $BOXITEM[1].STDMODE 15
EQUAL $BOXITEM[1].STDMODE 16
#ACT
INC S$拆解类1 头盔
#OR
EQUAL $BOXITEM[1].STDMODE 19
EQUAL $BOXITEM[1].STDMODE 20
EQUAL $BOXITEM[1].STDMODE 21
EQUAL $BOXITEM[1].STDMODE 22
EQUAL $BOXITEM[1].STDMODE 23
EQUAL $BOXITEM[1].STDMODE 24
EQUAL $BOXITEM[1].STDMODE 26
EQUAL $BOXITEM[1].STDMODE 28
EQUAL $BOXITEM[1].STDMODE 30
EQUAL $BOXITEM[1].STDMODE 52
EQUAL $BOXITEM[1].STDMODE 54
EQUAL $BOXITEM[1].STDMODE 62
EQUAL $BOXITEM[1].STDMODE 64
EQUAL $BOXITEM[1].STDMODE 65
#ACT
INC S$拆解类1 首饰
#IF
EQUAL $BOXITEM[1].HDC 0
#ACT
ANSIREPLACETEXT $STR(S$比对数1) D 0
#IF
EQUAL $BOXITEM[1].HMC 0
#ACT
ANSIREPLACETEXT $STR(S$比对数1) M 0
#IF
EQUAL $BOXITEM[1].HSC 0
#ACT
ANSIREPLACETEXT $STR(S$比对数1) S 0
#IF
EQUAL S$比对数1 DMS
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[1].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防均衡.txt $STR(S$拆结果1)
MOV S$二拆0 防均衡
#IF
EQUAL S$比对数1 0MS
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[1].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔道.txt $STR(S$拆结果1)
MOV S$二拆0 防魔道
#IF
EQUAL S$比对数1 D0S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[1].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻道.txt $STR(S$拆结果1)
MOV S$二拆0 防攻道
#IF
EQUAL S$比对数1 DM0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[1].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻魔.txt $STR(S$拆结果1)
MOV S$二拆0 防攻魔
#IF
EQUAL S$比对数1 D00
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[1].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻.txt $STR(S$拆结果1)
MOV S$二拆0 防攻
#IF
EQUAL S$比对数1 0M0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[1].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔.txt $STR(S$拆结果1)
MOV S$二拆0 防魔
#IF
EQUAL S$比对数1 00S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[1].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防道.txt $STR(S$拆结果1)
MOV S$二拆0 防道
#IF
EQUAL S$比对数1 DMS
EQUAL S$拆结果1
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\均衡.txt $STR(S$拆结果1)
MOV S$二拆0 均衡
#IF
EQUAL S$比对数1 DM0
EQUAL S$拆结果1
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻魔.txt $STR(S$拆结果1)
MOV S$二拆0 攻魔
#IF
EQUAL S$比对数1 D0S
EQUAL S$拆结果1
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻道.txt $STR(S$拆结果1)
MOV S$二拆0 攻道
#IF
EQUAL S$比对数1 0MS
EQUAL S$拆结果1
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔道.txt $STR(S$拆结果1)
MOV S$二拆0 魔道
#IF
EQUAL S$比对数1 D00
EQUAL S$拆结果1
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻.txt $STR(S$拆结果1)
MOV S$二拆0 攻
#IF
EQUAL S$比对数1 0M0
EQUAL S$拆结果1
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔.txt $STR(S$拆结果1)
MOV S$二拆0 魔
#IF
EQUAL S$比对数1 00S
EQUAL S$拆结果1
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\道.txt $STR(S$拆结果1)
MOV S$二拆0 道
#IF
EQUAL $BOXITEM[1].COLOR 150
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\未鉴定碎块.txt S$拆解色1
#ELSEACT
GetRandomText ..\QuestDiary\数据库\拆解\取色表.txt S$拆解色1 $BOXITEM[1].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[0].NAME
EQUAL $BOXITEM[2].NAME
EQUAL $BOXITEM[3].NAME
EQUAL $BOXITEM[4].NAME
EQUAL $BOXITEM[5].NAME
EQUAL $BOXITEM[6].NAME
EQUAL $BOXITEM[7].NAME
#ACT
MOV S$粉碎按钮 开始粉碎/FCOLOR=230
DELAYGOTO 20 @综合
;-----------------------------------------------------------托盘2号
[@ItemIntoBox2]
#IF
EQUAL $BOXITEM[2].COLOR 230
#ACT
UNALLOWITEMINTOBOX
SENDMSG 5 该道具不能进行分解粉碎！
break
#elseact
MOV N$拆几率2 100
MOV S$拆结果2
MOV S$比对数2 DMS
;---------类2
;---------色2
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\40级表.txt $BOXITEM[2].NAME
#ACT
MOV S$拆解类2 40级
DEC N$拆几率2 10
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\50级表.txt $BOXITEM[2].NAME
#ACT
MOV S$拆解类2 50级
DEC N$拆几率2 12
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\60级表.txt $BOXITEM[2].NAME
#ACT
MOV S$拆解类2 60级
DEC N$拆几率2 13
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\70级表.txt $BOXITEM[2].NAME
#ACT
MOV S$拆解类2 70级
DEC N$拆几率2 14
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\80级表.txt $BOXITEM[2].NAME
#ACT
MOV S$拆解类2 80级
DEC N$拆几率2 15
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\90级表.txt $BOXITEM[2].NAME
#ACT
MOV S$拆解类2 90级
DEC N$拆几率2 17
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\100级表.txt $BOXITEM[2].NAME
#ACT
MOV S$拆解类2 100级
DEC N$拆几率2 20
#OR
EQUAL $BOXITEM[2].STDMODE 5
EQUAL $BOXITEM[2].STDMODE 6
#ACT
INC S$拆解类2 武器
#OR
EQUAL $BOXITEM[2].STDMODE 10
EQUAL $BOXITEM[2].STDMODE 11
#ACT
INC S$拆解类2 衣服
#OR
EQUAL $BOXITEM[2].STDMODE 15
EQUAL $BOXITEM[2].STDMODE 16
#ACT
INC S$拆解类2 头盔
#OR
EQUAL $BOXITEM[2].STDMODE 19
EQUAL $BOXITEM[2].STDMODE 20
EQUAL $BOXITEM[2].STDMODE 21
EQUAL $BOXITEM[2].STDMODE 22
EQUAL $BOXITEM[2].STDMODE 23
EQUAL $BOXITEM[2].STDMODE 24
EQUAL $BOXITEM[2].STDMODE 26
EQUAL $BOXITEM[2].STDMODE 28
EQUAL $BOXITEM[2].STDMODE 30
EQUAL $BOXITEM[2].STDMODE 52
EQUAL $BOXITEM[2].STDMODE 54
EQUAL $BOXITEM[2].STDMODE 62
EQUAL $BOXITEM[2].STDMODE 64
EQUAL $BOXITEM[2].STDMODE 65
#ACT
INC S$拆解类2 首饰
#IF
EQUAL $BOXITEM[2].HDC 0
#ACT
ANSIREPLACETEXT $STR(S$比对数2) D 0
#IF
EQUAL $BOXITEM[2].HMC 0
#ACT
ANSIREPLACETEXT $STR(S$比对数2) M 0
#IF
EQUAL $BOXITEM[2].HSC 0
#ACT
ANSIREPLACETEXT $STR(S$比对数2) S 0
#IF
EQUAL S$比对数2 DMS
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[2].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防均衡.txt $STR(S$拆结果2)
MOV S$二拆0 防均衡
#IF
EQUAL S$比对数2 0MS
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[2].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔道.txt $STR(S$拆结果2)
MOV S$二拆0 防魔道
#IF
EQUAL S$比对数2 D0S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[2].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻道.txt $STR(S$拆结果2)
MOV S$二拆0 防攻道
#IF
EQUAL S$比对数2 DM0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[2].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻魔.txt $STR(S$拆结果2)
MOV S$二拆0 防攻魔
#IF
EQUAL S$比对数2 D00
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[2].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻.txt $STR(S$拆结果2)
MOV S$二拆0 防攻
#IF
EQUAL S$比对数2 0M0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[2].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔.txt $STR(S$拆结果2)
MOV S$二拆0 防魔
#IF
EQUAL S$比对数2 00S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[2].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防道.txt $STR(S$拆结果2)
MOV S$二拆0 防道
#IF
EQUAL S$比对数2 DMS
EQUAL S$拆结果2
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\均衡.txt $STR(S$拆结果2)
MOV S$二拆0 均衡
#IF
EQUAL S$比对数2 DM0
EQUAL S$拆结果2
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻魔.txt $STR(S$拆结果2)
MOV S$二拆0 攻魔
#IF
EQUAL S$比对数2 D0S
EQUAL S$拆结果2
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻道.txt $STR(S$拆结果2)
MOV S$二拆0 攻道
#IF
EQUAL S$比对数2 0MS
EQUAL S$拆结果2
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔道.txt $STR(S$拆结果2)
MOV S$二拆0 魔道
#IF
EQUAL S$比对数2 D00
EQUAL S$拆结果2
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻.txt $STR(S$拆结果2)
MOV S$二拆0 攻
#IF
EQUAL S$比对数2 0M0
EQUAL S$拆结果2
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔.txt $STR(S$拆结果2)
MOV S$二拆0 魔
#IF
EQUAL S$比对数2 00S
EQUAL S$拆结果2
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\道.txt $STR(S$拆结果2)
MOV S$二拆0 道
#IF
EQUAL $BOXITEM[2].COLOR 150
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\未鉴定碎块.txt S$拆解色2
#ELSEACT
GetRandomText ..\QuestDiary\数据库\拆解\取色表.txt S$拆解色2 $BOXITEM[2].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[0].NAME
EQUAL $BOXITEM[1].NAME
EQUAL $BOXITEM[3].NAME
EQUAL $BOXITEM[4].NAME
EQUAL $BOXITEM[5].NAME
EQUAL $BOXITEM[6].NAME
EQUAL $BOXITEM[7].NAME
#ACT
MOV S$粉碎按钮 开始粉碎/FCOLOR=230
DELAYGOTO 20 @综合
;-----------------------------------------------------------托盘3号
[@ItemIntoBox3]
#IF
EQUAL $BOXITEM[3].COLOR 230
#ACT
UNALLOWITEMINTOBOX
SENDMSG 5 该道具不能进行分解粉碎！
break
#elseact
MOV N$拆几率3 100
MOV S$拆结果3
MOV S$比对数3 DMS
;---------类3
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\40级表.txt $BOXITEM[3].NAME
#ACT
MOV S$拆解类3 40级
DEC N$拆几率3 10
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\50级表.txt $BOXITEM[3].NAME
#ACT
MOV S$拆解类3 50级
DEC N$拆几率3 12
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\60级表.txt $BOXITEM[3].NAME
#ACT
MOV S$拆解类3 60级
DEC N$拆几率3 13
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\70级表.txt $BOXITEM[3].NAME
#ACT
MOV S$拆解类3 70级
DEC N$拆几率3 14
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\80级表.txt $BOXITEM[3].NAME
#ACT
MOV S$拆解类3 80级
DEC N$拆几率3 15
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\90级表.txt $BOXITEM[3].NAME
#ACT
MOV S$拆解类3 90级
DEC N$拆几率3 17
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\100级表.txt $BOXITEM[3].NAME
#ACT
MOV S$拆解类3 100级
DEC N$拆几率3 20
#OR
EQUAL $BOXITEM[3].STDMODE 5
EQUAL $BOXITEM[3].STDMODE 6
#ACT
INC S$拆解类3 武器
#OR
EQUAL $BOXITEM[3].STDMODE 10
EQUAL $BOXITEM[3].STDMODE 11
#ACT
INC S$拆解类3 衣服
#OR
EQUAL $BOXITEM[3].STDMODE 15
EQUAL $BOXITEM[3].STDMODE 16
#ACT
INC S$拆解类3 头盔
#OR
EQUAL $BOXITEM[3].STDMODE 19
EQUAL $BOXITEM[3].STDMODE 20
EQUAL $BOXITEM[3].STDMODE 21
EQUAL $BOXITEM[3].STDMODE 22
EQUAL $BOXITEM[3].STDMODE 23
EQUAL $BOXITEM[3].STDMODE 24
EQUAL $BOXITEM[3].STDMODE 26
EQUAL $BOXITEM[3].STDMODE 28
EQUAL $BOXITEM[3].STDMODE 30
EQUAL $BOXITEM[3].STDMODE 52
EQUAL $BOXITEM[3].STDMODE 54
EQUAL $BOXITEM[3].STDMODE 62
EQUAL $BOXITEM[3].STDMODE 64
EQUAL $BOXITEM[3].STDMODE 65
#ACT
INC S$拆解类3 首饰
#IF
EQUAL $BOXITEM[3].HDC 0
#ACT
ANSIREPLACETEXT $STR(S$比对数3) D 0
#IF
EQUAL $BOXITEM[3].HMC 0
#ACT
ANSIREPLACETEXT $STR(S$比对数3) M 0
#IF
EQUAL $BOXITEM[3].HSC 0
#ACT
ANSIREPLACETEXT $STR(S$比对数3) S 0
#IF
EQUAL S$比对数3 DMS
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[3].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防均衡.txt $STR(S$拆结果3)
MOV S$二拆0 防均衡
#IF
EQUAL S$比对数3 0MS
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[3].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔道.txt $STR(S$拆结果3)
MOV S$二拆0 防魔道
#IF
EQUAL S$比对数3 D0S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[3].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻道.txt $STR(S$拆结果3)
MOV S$二拆0 防攻道
#IF
EQUAL S$比对数3 DM0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[3].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻魔.txt $STR(S$拆结果3)
MOV S$二拆0 防攻魔
#IF
EQUAL S$比对数3 D00
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[3].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻.txt $STR(S$拆结果3)
MOV S$二拆0 防攻
#IF
EQUAL S$比对数3 0M0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[3].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔.txt $STR(S$拆结果3)
MOV S$二拆0 防魔
#IF
EQUAL S$比对数3 00S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[3].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防道.txt $STR(S$拆结果3)
MOV S$二拆0 防道
#IF
EQUAL S$比对数3 DMS
EQUAL S$拆结果3
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\均衡.txt $STR(S$拆结果3)
MOV S$二拆0 均衡
#IF
EQUAL S$比对数3 DM0
EQUAL S$拆结果3
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻魔.txt $STR(S$拆结果3)
MOV S$二拆0 攻魔
#IF
EQUAL S$比对数3 D0S
EQUAL S$拆结果3
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻道.txt $STR(S$拆结果3)
MOV S$二拆0 攻道
#IF
EQUAL S$比对数3 0MS
EQUAL S$拆结果3
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔道.txt $STR(S$拆结果3)
MOV S$二拆0 魔道
#IF
EQUAL S$比对数3 D00
EQUAL S$拆结果3
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻.txt $STR(S$拆结果3)
MOV S$二拆0 攻
#IF
EQUAL S$比对数3 0M0
EQUAL S$拆结果3
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔.txt $STR(S$拆结果3)
MOV S$二拆0 魔
#IF
EQUAL S$比对数3 00S
EQUAL S$拆结果3
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\道.txt $STR(S$拆结果3)
MOV S$二拆0 道
#IF
EQUAL $BOXITEM[3].COLOR 150
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\未鉴定碎块.txt S$拆解色3
#ELSEACT
GetRandomText ..\QuestDiary\数据库\拆解\取色表.txt S$拆解色3 $BOXITEM[3].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[0].NAME
EQUAL $BOXITEM[1].NAME
EQUAL $BOXITEM[2].NAME
EQUAL $BOXITEM[4].NAME
EQUAL $BOXITEM[5].NAME
EQUAL $BOXITEM[6].NAME
EQUAL $BOXITEM[7].NAME
#ACT
MOV S$粉碎按钮 开始粉碎/FCOLOR=230
DELAYGOTO 20 @综合
;-----------------------------------------------------------托盘4号
[@ItemIntoBox4]
#IF
EQUAL $BOXITEM[4].COLOR 230
#ACT
UNALLOWITEMINTOBOX
SENDMSG 5 该道具不能进行分解粉碎！
break
#elseact
MOV N$拆几率4 100
MOV S$拆结果4
MOV S$比对数4 DMS
;---------类4
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\40级表.txt $BOXITEM[4].NAME
#ACT
MOV S$拆解类4 40级
DEC N$拆几率4 10
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\50级表.txt $BOXITEM[4].NAME
#ACT
MOV S$拆解类4 50级
DEC N$拆几率4 12
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\60级表.txt $BOXITEM[4].NAME
#ACT
MOV S$拆解类4 60级
DEC N$拆几率4 13
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\70级表.txt $BOXITEM[4].NAME
#ACT
MOV S$拆解类4 70级
DEC N$拆几率4 14
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\80级表.txt $BOXITEM[4].NAME
#ACT
MOV S$拆解类4 80级
DEC N$拆几率4 15
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\90级表.txt $BOXITEM[4].NAME
#ACT
MOV S$拆解类4 90级
DEC N$拆几率4 17
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\100级表.txt $BOXITEM[4].NAME
#ACT
MOV S$拆解类4 100级
DEC N$拆几率4 20
#OR
EQUAL $BOXITEM[4].STDMODE 5
EQUAL $BOXITEM[4].STDMODE 6
#ACT
INC S$拆解类4 武器
#OR
EQUAL $BOXITEM[4].STDMODE 10
EQUAL $BOXITEM[4].STDMODE 11
#ACT
INC S$拆解类4 衣服
#OR
EQUAL $BOXITEM[4].STDMODE 15
EQUAL $BOXITEM[4].STDMODE 16
#ACT
INC S$拆解类4 头盔
#OR
EQUAL $BOXITEM[4].STDMODE 19
EQUAL $BOXITEM[4].STDMODE 20
EQUAL $BOXITEM[4].STDMODE 21
EQUAL $BOXITEM[4].STDMODE 22
EQUAL $BOXITEM[4].STDMODE 23
EQUAL $BOXITEM[4].STDMODE 24
EQUAL $BOXITEM[4].STDMODE 26
EQUAL $BOXITEM[4].STDMODE 28
EQUAL $BOXITEM[4].STDMODE 30
EQUAL $BOXITEM[4].STDMODE 52
EQUAL $BOXITEM[4].STDMODE 54
EQUAL $BOXITEM[4].STDMODE 62
EQUAL $BOXITEM[4].STDMODE 64
EQUAL $BOXITEM[4].STDMODE 65
#ACT
INC S$拆解类4 首饰
#IF
EQUAL $BOXITEM[4].HDC 0
#ACT
ANSIREPLACETEXT $STR(S$比对数4) D 0
#IF
EQUAL $BOXITEM[4].HMC 0
#ACT
ANSIREPLACETEXT $STR(S$比对数4) M 0
#IF
EQUAL $BOXITEM[4].HSC 0
#ACT
ANSIREPLACETEXT $STR(S$比对数4) S 0
#IF
EQUAL S$比对数4 DMS
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[4].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防均衡.txt $STR(S$拆结果4)
MOV S$二拆0 防均衡
#IF
EQUAL S$比对数4 0MS
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[4].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔道.txt $STR(S$拆结果4)
MOV S$二拆0 防魔道
#IF
EQUAL S$比对数4 D0S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[4].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻道.txt $STR(S$拆结果4)
MOV S$二拆0 防攻道
#IF
EQUAL S$比对数4 DM0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[4].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻魔.txt $STR(S$拆结果4)
MOV S$二拆0 防攻魔
#IF
EQUAL S$比对数4 D00
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[4].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻.txt $STR(S$拆结果4)
MOV S$二拆0 防攻
#IF
EQUAL S$比对数4 0M0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[4].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔.txt $STR(S$拆结果4)
MOV S$二拆0 防魔
#IF
EQUAL S$比对数4 00S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[4].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防道.txt $STR(S$拆结果4)
MOV S$二拆0 防道
#IF
EQUAL S$比对数4 DMS
EQUAL S$拆结果4
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\均衡.txt $STR(S$拆结果4)
MOV S$二拆0 均衡
#IF
EQUAL S$比对数4 DM0
EQUAL S$拆结果4
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻魔.txt $STR(S$拆结果4)
MOV S$二拆0 攻魔
#IF
EQUAL S$比对数4 D0S
EQUAL S$拆结果4
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻道.txt $STR(S$拆结果4)
MOV S$二拆0 攻道
#IF
EQUAL S$比对数4 0MS
EQUAL S$拆结果4
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔道.txt $STR(S$拆结果4)
MOV S$二拆0 魔道
#IF
EQUAL S$比对数4 D00
EQUAL S$拆结果4
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻.txt $STR(S$拆结果4)
MOV S$二拆0 攻
#IF
EQUAL S$比对数4 0M0
EQUAL S$拆结果4
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔.txt $STR(S$拆结果4)
MOV S$二拆0 魔
#IF
EQUAL S$比对数4 00S
EQUAL S$拆结果4
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\道.txt $STR(S$拆结果4)
MOV S$二拆0 道
#IF
EQUAL $BOXITEM[4].COLOR 150
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\未鉴定碎块.txt S$拆解色4
#ELSEACT
GetRandomText ..\QuestDiary\数据库\拆解\取色表.txt S$拆解色4 $BOXITEM[4].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[0].NAME
EQUAL $BOXITEM[1].NAME
EQUAL $BOXITEM[2].NAME
EQUAL $BOXITEM[3].NAME
EQUAL $BOXITEM[5].NAME
EQUAL $BOXITEM[6].NAME
EQUAL $BOXITEM[7].NAME
#ACT
MOV S$粉碎按钮 开始粉碎/FCOLOR=230
DELAYGOTO 20 @综合
;-----------------------------------------------------------托盘5号
[@ItemIntoBox5]
#IF
EQUAL $BOXITEM[5].COLOR 230
#ACT
UNALLOWITEMINTOBOX
SENDMSG 5 该道具不能进行分解粉碎！
break
#elseact
MOV N$拆几率5 100
MOV S$拆结果5
MOV S$比对数5 DMS
;---------类5
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\40级表.txt $BOXITEM[5].NAME
#ACT
MOV S$拆解类5 40级
DEC N$拆几率5 10
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\50级表.txt $BOXITEM[5].NAME
#ACT
MOV S$拆解类5 50级
DEC N$拆几率5 12
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\60级表.txt $BOXITEM[5].NAME
#ACT
MOV S$拆解类5 60级
DEC N$拆几率5 13
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\70级表.txt $BOXITEM[5].NAME
#ACT
MOV S$拆解类5 70级
DEC N$拆几率5 14
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\80级表.txt 1.76复古合击$BOXITEM[5].NAME
#ACT
MOV S$拆解类5 80级
DEC N$拆几率5 15
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\90级表.txt $BOXITEM[5].NAME
#ACT
MOV S$拆解类5 90级
DEC N$拆几率5 17
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\100级表.txt $BOXITEM[5].NAME
#ACT
MOV S$拆解类5 100级
DEC N$拆几率5 20
#OR
EQUAL $BOXITEM[5].STDMODE 5
EQUAL $BOXITEM[5].STDMODE 6
#ACT
INC S$拆解类5 武器
#OR
EQUAL $BOXITEM[5].STDMODE 10
EQUAL $BOXITEM[5].STDMODE 11
#ACT
INC S$拆解类5 衣服
#OR
EQUAL $BOXITEM[5].STDMODE 15
EQUAL $BOXITEM[5].STDMODE 16
#ACT
INC S$拆解类5 头盔
#OR
EQUAL $BOXITEM[5].STDMODE 19
EQUAL $BOXITEM[5].STDMODE 20
EQUAL $BOXITEM[5].STDMODE 21
EQUAL $BOXITEM[5].STDMODE 22
EQUAL $BOXITEM[5].STDMODE 23
EQUAL $BOXITEM[5].STDMODE 24
EQUAL $BOXITEM[5].STDMODE 26
EQUAL $BOXITEM[5].STDMODE 28
EQUAL $BOXITEM[5].STDMODE 30
EQUAL $BOXITEM[5].STDMODE 52
EQUAL $BOXITEM[5].STDMODE 54
EQUAL $BOXITEM[5].STDMODE 62
EQUAL $BOXITEM[5].STDMODE 64
EQUAL $BOXITEM[5].STDMODE 65
#ACT
INC S$拆解类5 首饰
#IF
EQUAL $BOXITEM[5].HDC 0
#ACT
ANSIREPLACETEXT $STR(S$比对数5) D 0
#IF
EQUAL $BOXITEM[5].HMC 0
#ACT
ANSIREPLACETEXT $STR(S$比对数5) M 0
#IF
EQUAL $BOXITEM[5].HSC 0
#ACT
ANSIREPLACETEXT $STR(S$比对数5) S 0
#IF
EQUAL S$比对数5 DMS
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[5].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防均衡.txt $STR(S$拆结果5)
MOV S$二拆0 防均衡
#IF
EQUAL S$比对数5 0MS
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[5].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔道.txt $STR(S$拆结果5)
MOV S$二拆0 防魔道
#IF
EQUAL S$比对数5 D0S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[5].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻道.txt $STR(S$拆结果5)
MOV S$二拆0 防攻道
#IF
EQUAL S$比对数5 DM0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[5].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻魔.txt $STR(S$拆结果5)
MOV S$二拆0 防攻魔
#IF
EQUAL S$比对数5 D00
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[5].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻.txt $STR(S$拆结果5)
MOV S$二拆0 防攻
#IF
EQUAL S$比对数5 0M0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[5].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔.txt $STR(S$拆结果5)
MOV S$二拆0 防魔
#IF
EQUAL S$比对数5 00S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[5].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防道.txt $STR(S$拆结果5)
MOV S$二拆0 防道
#IF
EQUAL S$比对数5 DMS
EQUAL S$拆结果5
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\均衡.txt $STR(S$拆结果5)
MOV S$二拆0 均衡
#IF
EQUAL S$比对数5 DM0
EQUAL S$拆结果5
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻魔.txt $STR(S$拆结果5)
MOV S$二拆0 攻魔
#IF
EQU今日新开传奇私服AL S$比对数5 D0S
EQUAL S$拆结果5
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻道.txt $STR(S$拆结果5)
MOV S$二拆0 攻道
#IF
EQUAL S$比对数5 0MS
EQUAL S$拆结果5
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔道.txt $STR(S$拆结果5)
MOV S$二拆0 魔道
#IF
EQUAL S$比对数5 D00
EQUAL S$拆结果5
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻.txt $STR(S$拆结果5)
MOV S$二拆0 攻
#IF
EQUAL S$比对数5 0M0
EQUAL S$拆结果5
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔.txt $STR(S$拆结果5)
MOV S$二拆0 魔
#IF
EQUAL S$比对数5 00S
EQUAL S$拆结果5
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\道.txt $STR(S$拆结果5)
MOV S$二拆0 道
#IF
EQUAL $BOXITEM[5].COLOR 150
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\未鉴定碎块.txt S$拆解色5
#ELSEACT
GetRandomText ..\QuestDiary\数据库\拆解\取色表.txt S$拆解色5 $BOXITEM[5].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[0].NAME
EQUAL $BOXITEM[1].NAME
EQUAL $BOXITEM[2].NAME
EQUAL $BOXITEM[3].NAME
EQUAL $BOXITEM[4].NAME
EQUAL $BOXITEM[6].NAME
EQUAL $BOXITEM[7].NAME
#ACT
MOV S$粉碎按钮 开始粉碎/FCOLOR=230
DELAYGOTO 20 @综合
;-----------------------------------------------------------托盘6号
[@ItemIntoBox6]
#IF
EQUAL $BOXITEM[6].COLOR 230
#ACT
UNALLOWITEMINTOBOX
SENDMSG 5 该道具不能进行分解粉碎！
break
#elseact
MOV N$拆几率6 100
MOV S$拆结果6
MOV S$比对数6 DMS
;---------类6
;---------色6
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\40级表.txt $BOXITEM[6].NAME
#ACT
MOV S$拆解类6 40级
DEC N$拆几率6 10
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\50级表.txt $BOXITEM[6].NAME
#ACT
MOV S$拆解类6 50级
DEC N$拆几率6 12
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\60级表.txt $BOXITEM[6].NAME
#ACT
MOV S$拆解类6 60级
DEC N$拆几率6 13
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\70级表.txt $BOXITEM[6].NAME
#ACT
MOV S$拆解类6 70级
DEC N$拆几率6 14
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\80级表.txt $BOXITEM[6].NAME
#ACT
MOV S$拆解类6 80级
DEC N$拆几率6 15
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\90级表.txt $BOXITEM[6].NAME
#ACT
MOV S$拆解类6 90级
DEC N$拆几率6 17
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\100级表.txt $BOXITEM[6].NAME
#ACT
MOV S$拆解类6 100级
DEC N$拆几率6 20
#OR
EQUAL $BOXITEM[6].STDMODE 5
EQUAL $BOXITEM[6].STDMODE 6
#ACT
INC S$拆解类6 武器
#OR
EQUAL $BOXITEM[6].STDMODE 10
EQUAL $BOXITEM[6].STDMODE 11
#ACT
INC S$拆解类6 衣服
#OR
EQUAL $BOXITEM[6].STDMODE 15
EQUAL $BOXITEM[6].STDMODE 16
#ACT
INC S$拆解类6 头盔
#OR
EQUAL $BOXITEM[6].STDMODE 19
EQUAL $BOXITEM[6].STDMODE 20
EQUAL $BOXITEM[6].STDMODE 21
EQUAL $BOXITEM[6].STDMODE 22
EQUAL $BOXITEM[6].STDMODE 23
EQUAL $BOXITEM[6].STDMODE 24
EQUAL $BOXITEM[6].STDMODE 26
EQUAL $BOXITEM[6].STDMODE 28
EQUAL $BOXITEM[6].STDMODE 30
EQUAL $BOXITEM[6].STDMODE 52
EQUAL $BOXITEM[6].STDMODE 54
EQUAL $BOXITEM[6].STDMODE 62
EQUAL $BOXITEM[6].STDMODE 64
EQUAL $BOXITEM[6].STDMODE 65
#ACT
INC S$拆解类6 首饰
#IF
EQUAL $BOXITEM[6].HDC 0
#ACT
ANSIREPLACETEXT $STR(S$比对数6) D 0
#IF
EQUAL $BOXITEM[6].HMC 0
#ACT
ANSIREPLACETEXT $STR(S$比对数6) M 0
#IF
EQUAL $BOXITEM[6].HSC 0
#ACT
ANSIREPLACETEXT $STR(S$比对数6) S 0
#IF
EQUAL S$比对数6 DMS
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[6].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防均衡.txt $STR(S$拆结果6)
MOV S$二拆0 防均衡
#IF
EQUAL S$比对数6 0MS
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[6].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔道.txt $STR(S$拆结果6)
MOV S$二拆0 防魔道
#IF
EQUAL S$比对数6 D0S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[6].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻道.txt $STR(S$拆结果6)
MOV S$二拆0 防攻道
#IF
EQUAL S$比对数6 DM0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[6].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻魔.txt $STR(S$拆结果6)
MOV S$二拆0 防攻魔
#IF
EQUAL S$比对数6 D00
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[6].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻.txt $STR(S$拆结果6)
MOV S$二拆0 防攻
#IF
EQUAL S$比对数6 0M0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[6].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔.txt $STR(S$拆结果6)
MOV S$二拆0 防魔
#IF
EQUAL S$比对数6 00S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[6].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防道.txt $STR(S$拆结果6)
MOV S$二拆0 防道
#IF
EQUAL S$比对数6 DMS
EQUAL S$拆结果6
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\均衡.txt $STR(S$拆结果6)
MOV S$二拆0 均衡
#IF
EQUAL S$比对数6 DM0
EQUAL S$拆结果6
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻魔.txt $STR(S$拆结果6)
MOV S$二拆0 攻魔
#IF
EQUAL S$比对数6 D0S
EQUAL S$拆结果6
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻道.txt $STR(S$拆结果6)
MOV S$二拆0 攻道
#IF
EQUAL S$比对数6 0MS
EQUAL S$拆结果6
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔道.txt $STR(S$拆结果6)
MOV S$二拆0 魔道
#IF
EQUAL S$比对数6 D00
EQUAL S$拆结果6
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻.txt $STR(S$拆结果6)
MOV S$二拆0 攻
#IF
EQUAL S$比对数6 0M0
EQUAL S$拆结果6
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔.txt $STR(S$拆结果6)
MOV S$二拆0 魔
#IF
EQUAL S$比对数6 00S
EQUAL S$拆结果6
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\道.txt $STR(S$拆结果6)
MOV S$二拆0 道
#IF
EQUAL $BOXITEM[6].COLOR 150
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\未鉴定碎块.txt S$拆解色6
#ELSEACT
GetRandomText ..\QuestDiary\数据库\拆解\取色表.txt S$拆解色6 $BOXITEM[6].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[0].NAME
EQUAL $BOXITEM[1].NAME
EQUAL $BOXITEM[2].NAME
EQUAL $BOXITEM[3].NAME
EQUAL $BOXITEM[4].NAME
EQUAL $BOXITEM[5].NAME
EQUAL $BOXITEM[7].NAME
#ACT
MOV S$粉碎按钮 开始粉碎/FCOLOR=230
DELAYGOTO 20 @综合
;-----------------------------------------------------------托盘7号
[@ItemIntoBox7]
#IF
EQUAL $BOXITEM[7].COLOR 230
#ACT
UNALLOWITEMINTOBOX
SENDMSG 5 该道具不能进行分解粉碎！
break
#elseact
MOV N$拆几率7 100
MOV S$拆结果7
MOV S$比对数7 DMS
;---------类7
;---------色7
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\40级表.txt $BOXITEM[7].NAME
#ACT
MOV S$拆解类7 40级
DEC N$拆几率7 10
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\50级表.txt $BOXITEM[7].NAME
#ACT
MOV S$拆解类7 50级
DEC N$拆几率7 12
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\60级表.txt $BOXITEM[7].NAME
#ACT
MOV S$拆解类7 60级
DEC N$拆几率7 13
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\70级表.txt $BOXITEM[7].NAME
#ACT
MOV S$拆解类7 70级
DEC N$拆几率7 14
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\80级表.txt $BOXITEM[7].NAME
#ACT
MOV S$拆解类7 80级
DEC N$拆几率7 15
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\90级表.txt $BOXITEM[7].NAME
#ACT
MOV S$拆解类7 90级
DEC N$拆几率7 17
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\100级表.txt $BOXITEM[7].NAME
#ACT
MOV S$拆解类7 100级
DEC N$拆几率7 20
#OR
EQUAL $BOXITEM[7].STDMODE 5
EQUAL $BOXITEM[7].STDMODE 6
#ACT
INC S$拆解类7 武器
#OR
EQUAL $BOXITEM[7].STDMODE 10
EQUAL $BOXITEM[7].STDMODE 11
#ACT
INC S$拆解类7 衣服
#OR
EQUAL $BOXITEM[7].STDMODE 15
EQUAL $BOXITEM[7].STDMODE 16
#ACT
INC S$拆解类7 头盔
#OR
EQUAL $BOXITEM[7].STDMODE 19
EQUAL $BOXITEM[7].STDMODE 20
EQUAL $BOXITEM[7].STDMODE 21
EQUAL $BOXITEM[7].STDMODE 22
EQUAL $BOXITEM[7].STDMODE 23
EQUAL $BOXITEM[7].STDMODE 24
EQUAL $BOXITEM[7].STDMODE 26
EQUAL $BOXITEM[7].STDMODE 28
EQUAL $BOXITEM[7].STDMODE 30
EQUAL $BOXITEM[7].STDMODE 52
EQUAL $BOXITEM[7].STDMODE 54
EQUAL $BOXITEM[7].STDMODE 62
EQUAL $BOXITEM[7].STDMODE 64
EQUAL $BOXITEM[7].STDMODE 65
#ACT
INC S$拆解类7 首饰
#IF
EQUAL $BOXITEM[7].HDC 0
#ACT
ANSIREPLACETEXT $STR(S$比对数7) D 0
#IF
EQUAL $BOXITEM[7].HMC 0
#ACT
ANSIREPLACETEXT $STR(S$比对数7) M 0
#IF
EQUAL $BOXITEM[7].HSC 0
#ACT
ANSIREPLACETEXT $STR(S$比对数7) S 0
#IF
EQUAL S$比对数7 DMS
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[7].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防均衡.txt $STR(S$拆结果7)
MOV S$二拆0 防均衡
#IF
EQUAL S$比对数7 0MS
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[7].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔道.txt $STR(S$拆结果7)
MOV S$二拆0 防魔道
#IF
EQUAL S$比对数7 D0S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[7].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻道.txt $STR(S$拆结果7)
MOV S$二拆0 防攻道
#IF
EQUAL S$比对数7 DM0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[7].STDMODE
#ACT
GetRandomText ..\QuestDia新开传奇sf网ry\数据库\拆解\防攻魔.txt $STR(S$拆结果7)
MOV S$二拆0 防攻魔
#IF
EQUAL S$比对数7 D00
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[7].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻.txt $STR(S$拆结果7)
MOV S$二拆0 防攻
#IF
EQUAL S$比对数7 0M0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[7].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔.txt $STR(S$拆结果7)
MOV S$二拆0 防魔
#IF
EQUAL S$比对数7 00S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt $BOXITEM[7].STDMODE
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防道.txt $STR(S$拆结果7)
MOV S$二拆0 防道
#IF
EQUAL S$比对数7 DMS
EQUAL S$拆结果7
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\均衡.txt $STR(S$拆结果7)
MOV S$二拆0 均衡
#IF
EQUAL S$比对数7 DM0
EQUAL S$拆结果7
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻魔.txt $STR(S$拆结果7)
MOV S$二拆0 攻魔
#IF
EQUAL S$比对数7 D0S
EQUAL S$拆结果7
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻道.txt $STR(S$拆结果7)
MOV S$二拆0 攻道
#IF
EQUAL S$比对数7 0MS
EQUAL S$拆结果7
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔道.txt $STR(S$拆结果7)
MOV S$二拆0 魔道
#IF
EQUAL S$比对数7 D00
EQUAL S$拆结果7
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\攻.txt $STR(S$拆结果7)
MOV S$二拆0 攻
#IF
EQUAL S$比对数7 0M0
EQUAL S$拆结果7
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\魔.txt $STR(S$拆结果7)
MOV S$二拆0 魔
#IF
EQUAL S$比对数7 00S
EQUAL S$拆结果7
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\道.txt $STR(S$拆结果7)
MOV S$二拆0 道
#IF
EQUAL $BOXITEM[7].COLOR 150
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\未鉴定碎块.txt S$拆解色7
#ELSEACT
GetRandomText ..\QuestDiary\数据库\拆解\取色表.txt S$拆解色7 $BOXITEM[7].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[0].NAME
EQUAL $BOXITEM[1].NAME
EQUAL $BOXITEM[2].NAME
EQUAL $BOXITEM[3].NAME
EQUAL $BOXITEM[4].NAME
EQUAL $BOXITEM[5].NAME
EQUAL $BOXITEM[6].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[0].NAME
#ACT
MOVR N$拆率0 101
#IF
NOT EQUAL $BOXITEM[1].NAME
#ACT
MOVR N$拆率1 101
#IF
NOT EQUAL $BOXITEM[2].NAME
#ACT
MOVR N$拆率2 101
#IF
NOT EQUAL $BOXITEM[3].NAME
#ACT
MOVR N$拆率3 101
#IF
NOT EQUAL $BOXITEM[4].NAME
#ACT
MOVR N$拆率4 101
#IF
NOT EQUAL $BOXITEM[5].NAME
#ACT
MOVR N$拆率5 101
#IF
NOT EQUAL $BOXITEM[6].NAME
#ACT
MOVR N$拆率6 101
#IF
NOT EQUAL $BOXITEM[6].NAME
#ACT
MOVR N$拆率7 101
#IF
NOT EQUAL $BOXITEM[0].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[0].NAME|$BOXITEM[0].COLOR:0:1} ]获得了[ {$STR(S$拆解类0)$STR(S$拆结果0)碎块$STR(S$拆解色0)|$STR(N$拆解色0):0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL $BOXITEM[0].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[0].NAME|$BOXITEM[0].COLOR:0:1} ]获得了[ {$STR(S$拆解类0)$STR(S$拆结果0)碎块$STR(S$拆解色0)|$STR(N$拆解色0):0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL $BOXITEM[0].NAME
SMALL N$拆率0 $STR(N$拆几率0)
#ACT
GIVE $STR(S$拆解类0)$STR(S$拆结果0)碎块$STR(S$拆解色0) 1
SENDMSG 6 [拆解]：粉碎[ {$BOXITEM[0].NAME|$BOXITEM[0].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[1].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[1].NAME|$BOXITEM[1].COLOR:0:1} ]获得了[ {$STR(S$拆解类1)$STR(S$拆结果1)碎块$STR(S$拆解色1)|$STR(N$拆解色1):0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL $BOXITEM[1].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[1].NAME|$BOXITEM[1].COLOR:0:1} ]获得了[ {$STR(S$拆解类1)$STR(S$拆结果1)碎块$STR(S$拆解色1)|$STR(N$拆解色1):0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL $BOXITEM[1].NAME
SMALL N$拆率1 $STR(N$拆几率1)
#ACT
GIVE $STR(S$拆解类1)$STR(S$拆结果1)碎块$STR(S$拆解色1) 1
SENDMSG 6 [拆解]：粉碎[ {$BOXITEM[1].NAME|$BOXITEM[1].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[2].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[2].NAME|$BOXITEM[2].COLOR:0:1} ]获得了[ {$STR(S$拆解类2)$STR(S$拆结果2)碎块$STR(S$拆解色2)|$STR(N$拆解色2):0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL $BOXITEM[2].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[2].NAME|$BOXITEM[2].COLOR:0:1} ]获得了[ {$STR(S$拆解类2)$STR(S$拆结果2)碎块$STR(S$拆解色2)|$STR(N$拆解色2):0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL $BOXITEM[2].NAME
SMALL N$拆率2 $STR(N$拆几率2)
#ACT
GIVE $STR(S$拆解类2)$STR(S$拆结果2)碎块$STR(S$拆解色2) 1
SENDMSG 6 [拆解]：粉碎[ {$BOXITEM[2].NAME|$BOXITEM[2].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[3].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[3].NAME|$BOXITEM[3].COLOR:0:1} ]获得了[ {$STR(S$拆解类3)$STR(S$拆结果3)碎块$STR(S$拆解色3)|$STR(N$拆解色3):0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL $BOXITEM[3].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[3].NAME|$BOXITEM[3].COLOR:0:1} ]获得了[ {$STR(S$拆解类3)$STR(S$拆结果3)碎块$STR(S$拆解色3)|$STR(N$拆解色3):0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL $BOXITEM[3].NAME
SMALL N$拆率3 $STR(N$拆几率3)
#ACT
GIVE $STR(S$拆解类3)$STR(S$拆结果3)碎块$STR(S$拆解色3) 1
SENDMSG 6 [拆解]：粉碎[ {$BOXITEM[3].NAME|$BOXITEM[3传奇私服下载].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[4].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[4].NAME|$BOXITEM[4].COLOR:0:1} ]获得了[ {$STR(S$拆解类4)$STR(S$拆结果4)碎块$STR(S$拆解色4)|$STR(N$拆解色4):0:1变态网页游戏私服} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL $BOXITEM[4].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[4].NAME|$BOXITEM[4].COLOR:0:1} ]获得了[ {$STR(S$拆解类4)$STR(S$拆结果4)碎块$STR(S$拆解色4)|$STR(N$拆解色4):0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL $BOXITEM[4].NAME
SMALL N$拆率4 $STR(N$拆几率4)
#ACT
GIVE $STR(S$拆解类4)$STR(S$拆结果4)碎块$STR(S$拆解色4) 1
SENDMSG 6 [拆解]：粉碎[ {$BOXITEM[4].NAME|$BOXITEM[4].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[5].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[5].NAME|$BOXITEM[5].COLOR:0:1} ]获得了[ {$STR(S$拆解类5)$STR(S$拆结果5)碎块$STR(S$拆解色5)|$STR(N$拆解色5):0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL $BOXITEM[5].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[5].NAME|$BOXITEM[5].COLOR:0:1} ]获得了[ {$STR(S$拆解类5)$STR(S$拆结果5)碎块$STR(S$拆解色5)|$STR(N$拆解色5):0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL $BOXITEM[5].NAME
SMALL N$拆率5 $STR(N$拆几率5)
#ACT
GIVE $STR(S$拆解类5)$STR(S$拆结果5)碎块$STR(S$拆解色5) 1
SENDMSG 6 [拆解]：粉碎[ {$BOXITEM[5].NAME|$BOXITEM[5].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[6].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[6].NAME|$BOXITEM[6].COLOR:0:1} ]获得了[ {$STR(S$拆解类6)$STR(S$拆结果6)碎块$STR(S$拆解色6)|$STR(N$拆解色6):0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL $BOXITEM[6].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[6].NAME|$BOXITEM[6].COLOR:0:1} ]获得了[ {$STR(S$拆解类6)$STR(S$拆结果6)碎块$STR(S$拆解色6)|$STR(N$拆解色6):0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL $BOXITEM[6].NAME
SMALL N$拆率6 $STR(N$拆几率6)
#ACT
GIVE $STR(S$拆解类6)$STR(S$拆结果6)碎块$STR(S$拆解色6) 1
SENDMSG 6 [拆解]：粉碎[ {$BOXITEM[6].NAME|$BOXITEM[6].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[7].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[7].NAME|$BOXITEM[7].COLOR:0:1} ]获得了[ {$STR(S$拆解类7)$STR(S$拆结果7)碎块$STR(S$拆解色7)|$STR(N$拆解色7):0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL $BOXITEM[7].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[7].NAME|$BOXITEM[7].COLOR:0:1} ]获得了[ {$STR(S$拆解类7)$STR(S$拆结果7)碎块$STR(S$拆解色7)|$STR(N$拆解色7):0:1} ]。
INC N$拆解最后结果 1
#IF
NOT EQUAL $BOXITEM[7].NAME
SMALL N$拆率7 $STR(N$拆几率7)
#ACT
GIVE $STR(S$拆解类7)$STR(S$拆结果7)碎块$STR(S$拆解色7) 1
SENDMSG 6 [拆解]：粉碎[ {$BOXITEM[7].NAME|$BOXITEM[7].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

TAGS：盛大传奇客户端官方下载