几个技巧添加随身传奇粉碎炉功能

往后余生 · 发表于 2019-10-16 17:14:29

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

[@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 D·M·S

#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 D·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[0].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防均衡.txt <$STR(S$拆结果0)>
MOV S$二拆0 防均衡

#IF
EQUAL S$比对数0 0·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[0].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔道.txt <$STR(S$拆结果0)>
MOV S$二拆0 防魔道

#IF
EQUAL S$比对数0 D·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[0].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻道.txt <$STR(S$拆结果0)>
MOV S$二拆0 防攻道

#IF
EQUAL S$比对数0 D·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[0].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻魔.txt <$STR(S$拆结果0)>
MOV S$二拆0 防攻魔

#IF
EQUAL S$比对数0 D·0·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[0].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻.txt <$STR(S$拆结果0)>
MOV S$二拆0 防攻

#IF
EQUAL S$比对数0 0·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[0].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔.txt <$STR(S$拆结果0)>
MOV S$二拆0 防魔

#IF
EQUAL S$比对数0 0·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[0].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[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 D·M·S

#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 D·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[1].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防均衡.txt <$STR(S$拆结果1)>
MOV S$二拆0 防均衡

#IF
EQUAL S$比对数1 0·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[1].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔道.txt <$STR(S$拆结果1)>
MOV S$二拆0 防魔道

#IF
EQUAL S$比对数1 D·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[1].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻道.txt <$STR(S$拆结果1)>
MOV S$二拆0 防攻道

#IF
EQUAL S$比对数1 D·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[1].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻魔.txt <$STR(S$拆结果1)>
MOV S$二拆0 防攻魔

#IF
EQUAL S$比对数1 D·0·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[1].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻.txt <$STR(S$拆结果1)>
MOV S$二拆0 防攻

#IF
EQUAL S$比对数1 0·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[1].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔.txt <$STR(S$拆结果1)>
MOV S$二拆0 防魔

#IF
EQUAL S$比对数1 0·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[1].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[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 D·M·S
;---------类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 D·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[2].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防均衡.txt <$STR(S$拆结果2)>
MOV S$二拆0 防均衡

#IF
EQUAL S$比对数2 0·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[2].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔道.txt <$STR(S$拆结果2)>
MOV S$二拆0 防魔道

#IF
EQUAL S$比对数2 D·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[2].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻道.txt <$STR(S$拆结果2)>
MOV S$二拆0 防攻道

#IF
EQUAL S$比对数2 D·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[2].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻魔.txt <$STR(S$拆结果2)>
MOV S$二拆0 防攻魔

#IF
EQUAL S$比对数2 D·0·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[2].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻.txt <$STR(S$拆结果2)>
MOV S$二拆0 防攻

#IF
EQUAL S$比对数2 0·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[2].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔.txt <$STR(S$拆结果2)>
MOV S$二拆0 防魔

#IF
EQUAL S$比对数2 0·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[2].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[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 D·M·S
;---------类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 D·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[3].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防均衡.txt <$STR(S$拆结果3)>
MOV S$二拆0 防均衡

#IF
EQUAL S$比对数3 0·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[3].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔道.txt <$STR(S$拆结果3)>
MOV S$二拆0 防魔道

#IF
EQUAL S$比对数3 D·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[3].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻道.txt <$STR(S$拆结果3)>
MOV S$二拆0 防攻道

#IF
EQUAL S$比对数3 D·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[3].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻魔.txt <$STR(S$拆结果3)>
MOV S$二拆0 防攻魔

#IF
EQUAL S$比对数3 D·0·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[3].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻.txt <$STR(S$拆结果3)>
MOV S$二拆0 防攻

#IF
EQUAL S$比对数3 0·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[3].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔.txt <$STR(S$拆结果3)>
MOV S$二拆0 防魔

#IF
EQUAL S$比对数3 0·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[3].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[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 D·M·S
;---------类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 D·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[4].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防均衡.txt <$STR(S$拆结果4)>
MOV S$二拆0 防均衡

#IF
EQUAL S$比对数4 0·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[4].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔道.txt <$STR(S$拆结果4)>
MOV S$二拆0 防魔道

#IF
EQUAL S$比对数4 D·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[4].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻道.txt <$STR(S$拆结果4)>
MOV S$二拆0 防攻道

#IF
EQUAL S$比对数4 D·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[4].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻魔.txt <$STR(S$拆结果4)>
MOV S$二拆0 防攻魔

#IF
EQUAL S$比对数4 D·0·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[4].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻.txt <$STR(S$拆结果4)>
MOV S$二拆0 防攻

#IF
EQUAL S$比对数4 0·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[4].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔.txt <$STR(S$拆结果4)>
MOV S$二拆0 防魔

#IF
EQUAL S$比对数4 0·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[4].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[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 D·M·S
;---------类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 <$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 D·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[5].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防均衡.txt <$STR(S$拆结果5)>
MOV S$二拆0 防均衡

#IF
EQUAL S$比对数5 0·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[5].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔道.txt <$STR(S$拆结果5)>
MOV S$二拆0 防魔道

#IF
EQUAL S$比对数5 D·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[5].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻道.txt <$STR(S$拆结果5)>
MOV S$二拆0 防攻道

#IF
EQUAL S$比对数5 D·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[5].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻魔.txt <$STR(S$拆结果5)>
MOV S$二拆0 防攻魔

#IF
EQUAL S$比对数5 D·0·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[5].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻.txt <$STR(S$拆结果5)>
MOV S$二拆0 防攻

#IF
EQUAL S$比对数5 0·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[5].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔.txt <$STR(S$拆结果5)>
MOV S$二拆0 防魔

#IF
EQUAL S$比对数5 0·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[5].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[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 D·M·S
;---------类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 D·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[6].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防均衡.txt <$STR(S$拆结果6)>
MOV S$二拆0 防均衡

#IF
EQUAL S$比对数6 0·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[6].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔道.txt <$STR(S$拆结果6)>
MOV S$二拆0 防魔道

#IF
EQUAL S$比对数6 D·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[6].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻道.txt <$STR(S$拆结果6)>
MOV S$二拆0 防攻道

#IF
EQUAL S$比对数6 D·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[6].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻魔.txt <$STR(S$拆结果6)>
MOV S$二拆0 防攻魔

#IF
EQUAL S$比对数6 D·0·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[6].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻.txt <$STR(S$拆结果6)>
MOV S$二拆0 防攻

#IF
EQUAL S$比对数6 0·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[6].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔.txt <$STR(S$拆结果6)>
MOV S$二拆0 防魔

#IF
EQUAL S$比对数6 0·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[6].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[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 D·M·S
;---------类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 D·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[7].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防均衡.txt <$STR(S$拆结果7)>
MOV S$二拆0 防均衡

#IF
EQUAL S$比对数7 0·M·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[7].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔道.txt <$STR(S$拆结果7)>
MOV S$二拆0 防魔道

#IF
EQUAL S$比对数7 D·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[7].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻道.txt <$STR(S$拆结果7)>
MOV S$二拆0 防攻道

#IF
EQUAL S$比对数7 D·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[7].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻魔.txt <$STR(S$拆结果7)>
MOV S$二拆0 防攻魔

#IF
EQUAL S$比对数7 D·0·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[7].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防攻.txt <$STR(S$拆结果7)>
MOV S$二拆0 防攻

#IF
EQUAL S$比对数7 0·M·0
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[7].STDMODE>
#ACT
GetRandomText ..\QuestDiary\数据库\拆解\防魔.txt <$STR(S$拆结果7)>
MOV S$二拆0 防魔

#IF
EQUAL S$比对数7 0·0·S
CHECKTEXTLIST ..\QuestDiary\数据库\拆解\防御.txt <$BOXITEM[7].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[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

我是佐佐 · 发表于 2019-10-16 19:34:20

楼主呀，，，您太有才了。。。

大大宝 · 发表于 2019-10-16 21:09:32

确实不错，顶先

海瑶 · 发表于 2019-10-19 01:00:55

我也来顶一下..

kcjjfkld · 发表于 2019-10-19 06:02:44

我只是路过，不发表意见

望落花雨下 · 发表于 2019-10-29 18:41:52

非常好，顶一下

恋雾—迷尘 · 发表于 2019-10-31 15:02:17

是爷们的娘们的都帮顶！大力支持

_______小小苏 · 发表于 2019-11-7 07:54:37

我了个去，顶了

汉武之风 · 发表于 2019-11-8 23:58:12

确实不错，顶先

敏敏敏小姐 · 发表于 2019-11-14 07:37:33

这么强,支持楼主，佩服

		自动登录	找回密码
密码			立即注册