任逍遥

 找回密码
 立即注册
查看: 14577|回复: 67

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

    [复制链接]
  • TA的每日心情
    慵懒
    2021-9-14 16:47
  • 签到天数: 9 天

    连续签到: 1 天

    [LV.3]初领妙道

    343

    主题

    343

    帖子

    1054

    积分

    锋芒毕露

    Rank: 6Rank: 6

    积分
    1054
    发表于 2019-10-16 17:14:29 | 显示全部楼层 |阅读模式

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

    您需要 登录 才可以下载或查看,没有帐号?立即注册

    x
    [@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

    楼主热帖
  • TA的每日心情
    擦汗
    2019-8-30 13:47
  • 签到天数: 477 天

    连续签到: 1 天

    [LV.9]妙领天机

    0

    主题

    2827

    帖子

    2826

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2826
    发表于 2019-10-16 19:34:20 | 显示全部楼层
    楼主呀,,,您太有才了。。。
    回复

    使用道具 举报

  • TA的每日心情

    2019-8-30 09:45
  • 签到天数: 477 天

    连续签到: 6 天

    [LV.9]妙领天机

    2

    主题

    2848

    帖子

    2845

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2845
    发表于 2019-10-16 21:09:32 | 显示全部楼层
    确实不错,顶先
    回复

    使用道具 举报

  • TA的每日心情
    奋斗
    2019-8-30 11:12
  • 签到天数: 455 天

    连续签到: 1 天

    [LV.9]妙领天机

    0

    主题

    2988

    帖子

    2986

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2986
    发表于 2019-10-19 01:00:55 | 显示全部楼层
    我也来顶一下..
    回复

    使用道具 举报

  • TA的每日心情
    擦汗
    2019-8-30 07:54
  • 签到天数: 469 天

    连续签到: 1 天

    [LV.9]妙领天机

    7

    主题

    2905

    帖子

    2913

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2913
    发表于 2019-10-19 06:02:44 | 显示全部楼层
    我只是路过,不发表意见
    回复

    使用道具 举报

  • TA的每日心情

    2019-8-30 03:06
  • 签到天数: 470 天

    连续签到: 4 天

    [LV.9]妙领天机

    3

    主题

    2923

    帖子

    2924

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2924
    发表于 2019-10-29 18:41:52 | 显示全部楼层
    非常好,顶一下
    回复

    使用道具 举报

  • TA的每日心情

    2019-8-30 11:23
  • 签到天数: 458 天

    连续签到: 3 天

    [LV.9]妙领天机

    9

    主题

    2940

    帖子

    2948

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2948
    发表于 2019-10-31 15:02:17 | 显示全部楼层
    是爷们的娘们的都帮顶!大力支持
    回复

    使用道具 举报

  • TA的每日心情
    慵懒
    2019-8-30 18:14
  • 签到天数: 481 天

    连续签到: 9 天

    [LV.9]妙领天机

    5

    主题

    2943

    帖子

    2947

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2947
    发表于 2019-11-7 07:54:37 | 显示全部楼层
    我了个去,顶了
    回复

    使用道具 举报

  • TA的每日心情

    2019-8-30 04:47
  • 签到天数: 471 天

    连续签到: 2 天

    [LV.9]妙领天机

    0

    主题

    2944

    帖子

    2939

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2939
    发表于 2019-11-8 23:58:12 | 显示全部楼层
    确实不错,顶先
    回复

    使用道具 举报

  • TA的每日心情
    无聊
    2019-8-29 12:56
  • 签到天数: 467 天

    连续签到: 3 天

    [LV.9]妙领天机

    0

    主题

    2838

    帖子

    2836

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2836
    发表于 2019-11-14 07:37:33 | 显示全部楼层
    这么强,支持楼主,佩服
    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    QQ|Archiver|手机版|小黑屋|任逍遥

    GMT+8, 2024-3-29 05:10 , Processed in 0.122824 second(s), 49 queries .

    Powered by 任逍遥 X3.4

    Copyright © 2001-2023, Rxiaoyao Cloud.

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