最新公告
  • 欢迎您光临347w.com,本站秉承服务宗旨 履行“站长”责任,做国内最专业的传奇资源平台!立即加入我们
  • [传奇脚本]GOM/GEE传奇脚本装备鉴定大师脚本例子

    [@main]
    #IF
    #Act
    MOV S$衣服名称 <$DRESS>
    MOV S$武器名称 <$WEAPON>
    MOV S$头盔名称 <$HELMET>
    MOV S$项链名称 <$NECKLACE>
    MOV S$左手名称 <$ARMRING_R>
    MOV S$右手名称 <$ARMRING_L>
    MOV S$左戒名称 <$RING_R>
    MOV S$右戒名称 <$RING_L>
    MOV S$靴子名称 <$BOOTS>
    MOV S$腰带名称 <$BELT>
    MOV S$勋章名称 <$RIGHTHAND>
    MOV S$宝石名称 <$CHARM>
    MOV S$法宝名称 <$HORSE>
    MOV S$斗笠名称 <$HAT>
    MOV S$盾牌名称 <$SHIELD>
    MOV S$魂珠名称 <$DRUM>
    MOV S$战鼓名称 <$BUJUK>
    MOV S$时装名称 <$SDRESS>
    MOV S$衣服名称A <$DRESS>
    MOV S$武器名称A <$WEAPON>
    MOV S$头盔名称A <$HELMET>
    MOV S$项链名称A <$NECKLACE>
    MOV S$左手名称A <$ARMRING_R>
    MOV S$右手名称A <$ARMRING_L>
    MOV S$左戒名称A <$RING_R>
    MOV S$右戒名称A <$RING_L>
    MOV S$靴子名称A <$BOOTS>
    MOV S$腰带名称A <$BELT>
    MOV S$勋章名称A <$RIGHTHAND>
    MOV S$宝石名称A <$CHARM>
    MOV S$法宝名称A <$HORSE>
    MOV S$斗笠名称A <$HAT>
    MOV S$盾牌名称A <$SHIELD>
    MOV S$魂珠名称A <$DRUM>
    MOV S$战鼓名称A <$BUJUK>
    MOV S$时装名称A <$SDRESS>
    SetStringBlank <$STR(S$衣服名称)> 20 1
    SetStringBlank <$STR(S$武器名称)> 20 1
    SetStringBlank <$STR(S$头盔名称)> 20 1
    SetStringBlank <$STR(S$项链名称)> 20 1
    SetStringBlank <$STR(S$左手名称)> 20 1
    SetStringBlank <$STR(S$右手名称)> 20 1
    SetStringBlank <$STR(S$左戒名称)> 20 1
    SetStringBlank <$STR(S$右戒名称)> 20 1
    SetStringBlank <$STR(S$靴子名称)> 20 1
    SetStringBlank <$STR(S$腰带名称)> 20 1
    SetStringBlank <$STR(S$勋章名称)> 20 1
    SetStringBlank <$STR(S$宝石名称)> 20 1
    SetStringBlank <$STR(S$法宝名称)> 20 1
    SetStringBlank <$STR(S$斗笠名称)> 20 1
    SetStringBlank <$STR(S$盾牌名称)> 20 1
    SetStringBlank <$STR(S$魂珠名称)> 20 1
    SetStringBlank <$STR(S$战鼓名称)> 20 1
    SetStringBlank <$STR(S$时装名称)> 20 1
    OPENMERCHANTBIGDLG 43 505 1 0 2 26 1 411 2
    #say
      <[头盔]/SCOLOR=70> <鉴定/@头盔改造>:{<$STR(S$头盔名称)>/SCOLOR=254}<[项链]/SCOLOR=70> <鉴定/@项链改造>:{<$STR(S$项链名称)>/SCOLOR=254}\
      <[左手]/SCOLOR=70> <鉴定/@左手改造>:{<$STR(S$左手名称)>/SCOLOR=254}<[右手]/SCOLOR=70> <鉴定/@右手改造>:{<$STR(S$右手名称)>/SCOLOR=254}\
      <[左戒]/SCOLOR=70> <鉴定/@左戒改造>:{<$STR(S$左戒名称)>/SCOLOR=254}<[右戒]/SCOLOR=70> <鉴定/@右戒改造>:{<$STR(S$右戒名称)>/SCOLOR=254}\
      <[腰带]/SCOLOR=70> <鉴定/@腰带改造>:{<$STR(S$腰带名称)>/SCOLOR=254}<[靴子]/SCOLOR=70> <鉴定/@靴子改造>:{<$STR(S$靴子名称)>/SCOLOR=254}\ \
      <[勋章]/SCOLOR=70> <鉴定/@勋章改造>:{<$STR(S$勋章名称)>/SCOLOR=254}<[斗笠]/SCOLOR=70> <鉴定/@斗笠改造>:{<$STR(S$斗笠名称)>/SCOLOR=254}\
      <[战鼓]/SCOLOR=70> <鉴定/@战鼓改造>:{<$STR(S$战鼓名称)>/SCOLOR=254}<[宝石]/SCOLOR=70> <鉴定/@宝石改造>:{<$STR(S$宝石名称)>/SCOLOR=254}\
      <[盾牌]/SCOLOR=70> <鉴定/@盾牌改造>:{<$STR(S$盾牌名称)>/SCOLOR=254}<[盾牌]/SCOLOR=70> <鉴定/@盾牌改造>:{<$STR(S$盾牌名称)>/SCOLOR=254}\
      <[武器]/SCOLOR=22> <鉴定/@武器改造>:{<$STR(S$武器名称)>/SCOLOR=254}<[衣服]/SCOLOR=22> <鉴定/@衣服改造>:{<$STR(S$衣服名称)>/SCOLOR=254}\ \
    <>    <品质顺序→/SCOLOR=254><初级/SCOLOR=151>→<极品/SCOLOR=222>→<绝品/SCOLOR=70>→<远古/SCOLOR=253>→<神话/SCOLOR=254>→<至尊/SCOLOR=249>  <[转移]/SCOLOR=249><≮鉴定转移≯|254#鉴定后属性可以转移/@转换属性>  \
    <>    <鉴定说明:首饰和特殊装备每次收取/SCOLOR=7><鉴定宝石/SCOLOR=249><1个,/SCOLOR=254><剑甲收取5个。/SCOLOR=254>\ \
    <>         <≮买鉴定宝石*10≯|254#收取1000积分^253#给与10个鉴定宝石/@购买啦>\
    [@购买啦]
    #IF
    CHECKGAMEGIRD > 999
    #act
    GAMEGIRD – 1000
    give 鉴定宝石 10
    MESSAGEBOX \\成功购买鉴定宝石10个!!
    break
    #ELSEACT
    MESSAGEBOX \\对不起\\你的背包可能不足1000积分!!
    break
    [@鉴定神石啊]
    #IF
    #ACT
    OPENMERCHANTBIGDLG 43 505 1 0 2 26 1 411 2
    #SAY
    <————————————————————-/AUTOCOLOR=7>\
    <>                      <鉴定宝石回收中心/SCOLOR=253>\
    ;<————————————————————-/AUTOCOLOR=7>\
    ;<> <回收项目1:/SCOLOR=19><王者首饰回收: /SCOLOR=242><每个回收1个鉴定宝石/SCOLOR=243>   <一键回收|254#即点即收/@分解啊1>\
    <————————————————————-/AUTOCOLOR=7>\
    <> <回收项目1:/SCOLOR=20><风云首饰回收: /SCOLOR=242><每个回收1个鉴定宝石/SCOLOR=243>   <一键回收|254#即点即收/@分解啊2>\
    <————————————————————-/AUTOCOLOR=7>\
    <> <回收项目2:/SCOLOR=21><火龙剑甲回收: /SCOLOR=242><每个回收1个鉴定宝石/SCOLOR=243>   <一键回收|254#即点即收/@分解啊3>\
    <————————————————————-/AUTOCOLOR=7>\
    <> <回收项目3:/SCOLOR=21><冰龙剑甲回收: /SCOLOR=242><每个回收5个鉴定宝石/SCOLOR=243>   <一键回收|254#即点即收/@分解啊4>\
    <————————————————————-/AUTOCOLOR=7>\
    <> <回收项目4:/SCOLOR=21><王者剑甲回收: /SCOLOR=242><每个回收10个鉴定宝石/SCOLOR=243>   <一键回收|254#即点即收/@分解啊5>\
    <————————————————————–/SCOLOR=70>\
    <> <鉴定宝石除了boss爆出,也可以通过高级装备回收获得。/SCOLOR=254> \
    [@分解啊5]
    #IF
    #ACT
    MOV N57 0
    MOV N$宝石7 0
    MOV N$统计数量 0
    MOV N$统计宝石 0
    #IF
    CHECKLEVELEX > 1
    #ACT
    TakeBagItem 王者神剑|王者神甲|王者神衣 46 0 0 0 0 N57 1
    #if
    LARGE N57 0
    #ACT
    MUL N$宝石7 10 <$STR(N57)>
    #IF
    #act
    inc N$统计数量 <$STR(N57)>
    inc N$统计宝石 <$STR(N$宝石7)>
    #IF
    LARGE N$统计数量 0
    #ACT
    give 鉴定宝石 <$STR(N$统计宝石)>
    GuildNoticeMsg 0 70 玩家『<$USERNAME>』通过高级回收(<$STR(N$统计数量)>)件装备,获得<$STR(N$统计宝石)>个鉴定宝石!!
    BREAK
    #ELSEACT
    MESSAGEBOX \\您的背包已经没有需要回收的物品!!!
    BREAK
    [@分解啊4]
    #IF
    #ACT
    MOV N56 0
    MOV N$宝石6 0
    MOV N$统计数量 0
    MOV N$统计宝石 0
    #IF
    CHECKLEVELEX > 1
    #ACT
    TakeBagItem 冰龙神剑|冰龙神甲|冰龙神衣 46 0 0 0 0 N56 1
    #if
    LARGE N56 0
    #ACT
    MUL N$宝石6 5 <$STR(N56)>
    #IF
    #act
    inc N$统计数量 <$STR(N56)>
    inc N$统计宝石 <$STR(N$宝石6)>
    #IF
    LARGE N$统计数量 0
    #ACT
    give 鉴定宝石 <$STR(N$统计宝石)>
    GuildNoticeMsg 0 70 玩家『<$USERNAME>』通过高级回收(<$STR(N$统计数量)>)件装备,获得<$STR(N$统计宝石)>个鉴定宝石!!
    BREAK
    #ELSEACT
    MESSAGEBOX \\您的背包已经没有需要回收的物品!!!
    BREAK
    [@分解啊3]
    #IF
    #ACT
    MOV N55 0
    MOV N$宝石5 0
    MOV N$统计数量 0
    MOV N$统计宝石 0
    #IF
    CHECKLEVELEX > 1
    #ACT
    TakeBagItem 火龙神剑|火龙神甲|火龙神衣 46 0 0 0 0 N55 1
    #if
    LARGE N55 0
    #ACT
    MUL N$宝石5 1 <$STR(N55)>
    #IF
    #act
    inc N$统计数量 <$STR(N55)>
    inc N$统计宝石 <$STR(N$宝石5)>
    #IF
    LARGE N$统计数量 0
    #ACT
    give 鉴定宝石 <$STR(N$统计宝石)>
    GuildNoticeMsg 0 70 玩家『<$USERNAME>』通过高级回收(<$STR(N$统计数量)>)件装备,获得<$STR(N$统计宝石)>个鉴定宝石!!
    BREAK
    #ELSEACT
    MESSAGEBOX \\您的背包已经没有需要回收的物品!!!
    BREAK
    [@分解啊2]
    #IF
    #ACT
    MOV N54 0
    MOV N$宝石4 0
    MOV N$统计数量 0
    MOV N$统计宝石 0
    #IF
    CHECKLEVELEX > 1
    #ACT
    TakeBagItem 风云神盔|风云神链|风云神镯|风云神戒|风云神带|风云神靴 46 0 0 0 0 N54 1
    #if
    LARGE N54 0
    #ACT
    MUL N$宝石4 1 <$STR(N54)>
    #IF
    #act
    inc N$统计数量 <$STR(N54)>
    inc N$统计宝石 <$STR(N$宝石4)>
    #IF
    LARGE N$统计数量 0
    #ACT
    give 鉴定宝石 <$STR(N$统计宝石)>
    GuildNoticeMsg 0 70 玩家『<$USERNAME>』通过高级回收(<$STR(N$统计数量)>)件装备,获得<$STR(N$统计宝石)>个鉴定宝石!!
    BREAK
    #ELSEACT
    MESSAGEBOX \\您的背包已经没有需要回收的物品!!!
    BREAK
    [@分解啊1]
    #IF
    #ACT
    MOV N53 0
    MOV N$宝石3 0
    MOV N$统计数量 0
    MOV N$统计宝石 0
    #IF
    CHECKLEVELEX > 1
    #ACT
    TakeBagItem 王者神盔|王者神链|王者神镯|王者神戒|王者神带|王者神靴 46 0 0 0 0 N53 1
    #if
    LARGE N53 0
    #ACT
    MUL N$宝石3 1 <$STR(N53)>
    #IF
    #act
    inc N$统计数量 <$STR(N53)>
    inc N$统计宝石 <$STR(N$宝石3)>
    #IF
    LARGE N$统计数量 0
    #ACT
    give 鉴定宝石 <$STR(N$统计宝石)>
    GuildNoticeMsg 0 70 玩家『<$USERNAME>』通过高级回收(<$STR(N$统计数量)>)件装备,获得<$STR(N$统计宝石)>个鉴定宝石!!
    BREAK
    #ELSEACT
    MESSAGEBOX \\您的背包已经没有需要回收的物品!!!
    BREAK
    [@转换属性]
    #IF
    #Act
    mov  <$STR(N$附属字段1)>
    mov  <$STR(N$附属字段2)>
    OPENMERCHANTBIGDLG 43 505 1 0 2 26 1 411 2
    #say
    \ \ \
         <鉴定转移/SCOLOR=249> <支持所有鉴定的装备/SCOLOR=254> <【天罡火龙感谢一路有您!】/SCOLOR=239>\
    <Img:544:47:18:3>\
    <……………………………………………………………………………………/SCOLOR=249>\
    < /SCOLOR=253>\
    < /SCOLOR=253>\
    < /SCOLOR=250>\
    <ITEMBOX:6:7:117:100:-33:30:30:*:放入已鉴定的装备><ITEMBOX:7:7:117:250:-33:30:30:*:放入需要接受鉴定的装备>\
    <                          ><【/SCOLOR=249><点击开始转移|254#手续费20金币/@转移开始><】/SCOLOR=249>\
    <注意.继承属性的装备不管是否有属性.都会覆盖原有的属性值./SCOLOR=250> \ \
    <有偿使用/SCOLOR=250><,武器转移武器-衣服转移衣服-项链转移项链。/SCOLOR=249>\
    <金币充值比例1元=1金币。/SCOLOR=254>\
    [@转移开始]
    #IF
    not checkGold 20
    #ACT
    ReturnBoxItem 6
    ReturnBoxItem 7
    MESSAGEBOX \\手续费需要20金币!\\手续费需要20金币!\\手续费需要20金币!\\手续费需要20金币!
    BREAK
    #IF
    not equal <$STR(N$附属字段1)> <$STR(N$附属字段2)>
    #ACT
    ReturnBoxItem 6
    ReturnBoxItem 7
    MESSAGEBOX \\只能转换相同类型装备!比如戒指转换戒指!
    CLOSE
    BREAK
    #IF
    not CheckBoxItemCount 6
    #act
    MESSAGEBOX \\\请先放入有属性的装备!
    CLOSE
    BREAK
    #IF
    not CheckBoxItemCount 7
    #act
    MESSAGEBOX \\\请后放入无属性的装备!
    CLOSE
    BREAK
    #IF
    not CHECKTEXTLIST ..\QuestDiary\鉴定转移装备.txt <$BOXITEM[6].NAME>
    #ACT
    MESSAGEBOX \\\不可放入的装备!
    CLOSE
    BREAK
    #IF
    #act
    SetUpgradeItem 6
    CHANGECUSTOMITEMVALUE -1 0 = 0
    CHANGECUSTOMITEMVALUE -1 1 = 0
    CHANGECUSTOMITEMVALUE -1 2 = 0
    CHANGECUSTOMITEMVALUE -1 3 = 0
    CHANGECUSTOMITEMVALUE -1 4 = 0
    CHANGECUSTOMITEMVALUE -1 5 = 0
    CHANGECUSTOMITEMVALUE -1 6 = 0
    CHANGECUSTOMITEMVALUE -1 7 = 0
    CHANGECUSTOMITEMVALUE -1 8 = 0
    CHANGECUSTOMITEMVALUE -1 9 = 0
    CHANGECUSTOMITEMTEXT -1
    #IF
    #ACT
    UpDateBoxItem 6
    ReturnBoxItem 6
    SetUpgradeItem 7
    #IF
    #ACT
    CHANGECUSTOMITEMTEXT -1 <$STR(S$自定义文本内容)>
    CHANGECUSTOMITEMTEXTCOLOR -1 <$STR(S$自定义文本颜色)>
    CHANGECUSTOMITEMVALUE -1 1 = <$STR(S$自定义属性值1)>
    CHANGECUSTOMITEMABIL -1 1 0 <$STR(S$自定义属性值颜色1)>
    CHANGECUSTOMITEMABIL -1 1 1 <$STR(S$自定义属性类型1)>
    CHANGECUSTOMITEMABIL -1 1 2 1
    CHANGECUSTOMITEMABIL -1 2 0 <$STR(S$自定义属性值颜色2)>
    CHANGECUSTOMITEMABIL -1 2 1 <$STR(S$自定义属性类型2)>
    CHANGECUSTOMITEMABIL -1 2 2 2
    CHANGECUSTOMITEMVALUE -1 2 = <$STR(S$自定义属性值2)>
    CHANGECUSTOMITEMABIL -1 4 0 <$STR(S$自定义属性值颜色3)>
    CHANGECUSTOMITEMABIL -1 4 1 <$STR(S$自定义属性类型3)>
    CHANGECUSTOMITEMABIL -1 4 2 5
    CHANGECUSTOMITEMABIL -1 4 3 0
    CHANGECUSTOMITEMVALUE -1 4 = <$STR(S$自定义属性值3)>
    take 金币 20
    MESSAGEBOX \\装备转移成功!
    #IF
    #ACT
    UpDateBoxItem 7
    ReturnBoxItem 7
    BREAK
    [@ItemIntoBox7]
    #IF
    not CheckBoxItemCount 6
    #act
    ReturnBoxItem 7
    MESSAGEBOX \\\请先放入有属性的装备!
    CLOSE
    BREAK
    #IF
    #ACT
    mov  <$STR(N$附属字段2)> <$BOXITEM[7].STDMODE>
    BREAK
    [@ItemIntoBox6]
    #IF
    not checkGold 100
    #ACT
    ReturnBoxItem 6
    ReturnBoxItem 7
    MESSAGEBOX \\手续费需要100金币!\\手续费需要100金币!\\手续费需要100金币!\\手续费需要100金币!
    BREAK
    #IF
    not CHECKTEXTLIST ..\QuestDiary\鉴定转移装备.txt <$BOXITEM[6].NAME>
    #ACT
    MESSAGEBOX \\\不可放入的装备!
    CLOSE
    BREAK
    #IF
    equal <$BOXITEM[6].CUSTOMTEXT>
    #ACT
    ReturnBoxItem 6
    MESSAGEBOX \\\您的物品都没有鉴定过怎么转移呢?
    CLOSE
    BREAK
    #IF
    #ACT
    mov  <$STR(N$附属字段1)> <$BOXITEM[6].STDMODE>
    mov <$STR(S$自定义文本内容)> <$BOXITEM[6].CUSTOMTEXT>
    mov <$STR(S$自定义文本颜色)> <$BOXITEM[6].CUSTOMTEXTCOLOR>
    mov <$STR(S$自定义属性值1)> <$BOXITEM[6].CUSTOMVALUE.VALUE2>
    mov <$STR(S$自定义属性值2)> <$BOXITEM[6].CUSTOMVALUE.VALUE3>
    mov <$STR(S$自定义属性值3)> <$BOXITEM[6].CUSTOMVALUE.VALUE5>
    mov <$STR(S$自定义属性值颜色1)> <$BOXITEM[6].CUSTOMVALUE.COLOR2>
    mov <$STR(S$自定义属性值颜色2)> <$BOXITEM[6].CUSTOMVALUE.COLOR3>
    mov <$STR(S$自定义属性值颜色3)> <$BOXITEM[6].CUSTOMVALUE.COLOR5>
    mov <$STR(S$自定义属性类型1)> <$BOXITEM[6].CUSTOMVALUE.TYPE2>
    mov <$STR(S$自定义属性类型2)> <$BOXITEM[6].CUSTOMVALUE.TYPE3>
    mov <$STR(S$自定义属性类型3)> <$BOXITEM[6].CUSTOMVALUE.TYPE5>
    [@头盔改造]
    #IF
    NOT CHECKUSEITEM 4
    #ACT
    MESSAGEBOX \\这地方带装备了么?
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 4 鉴定品质:[至尊]
    CHANGECUSTOMITEMTEXTCOLOR 4 249
    CHANGECUSTOMITEMVALUE 4 1 = 6
    CHANGECUSTOMITEMABIL 4 1 0 249
    CHANGECUSTOMITEMABIL 4 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 4 1 2 1
    CHANGECUSTOMITEMABIL 4 2 0 249
    CHANGECUSTOMITEMABIL 4 2 1 6
    CHANGECUSTOMITEMABIL 4 2 2 2
    CHANGECUSTOMITEMVALUE 4 2 = 21
    CHANGECUSTOMITEMABIL 4 4 0 249
    CHANGECUSTOMITEMABIL 4 4 1 17
    CHANGECUSTOMITEMABIL 4 4 2 5
    CHANGECUSTOMITEMABIL 4 4 3 0
    CHANGECUSTOMITEMVALUE 4 4 = 100
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[至尊]
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 4 鉴定品质:[神话]
    CHANGECUSTOMITEMTEXTCOLOR 4 254
    CHANGECUSTOMITEMVALUE 4 1 = 5
    CHANGECUSTOMITEMABIL 4 1 0 254
    CHANGECUSTOMITEMABIL 4 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 4 1 2 1
    CHANGECUSTOMITEMABIL 4 2 0 254
    CHANGECUSTOMITEMABIL 4 2 1 6
    CHANGECUSTOMITEMABIL 4 2 2 2
    CHANGECUSTOMITEMVALUE 4 2 = 15
    CHANGECUSTOMITEMABIL 4 4 0 254
    CHANGECUSTOMITEMABIL 4 4 1 17
    CHANGECUSTOMITEMABIL 4 4 2 5
    CHANGECUSTOMITEMABIL 4 4 3 0
    CHANGECUSTOMITEMVALUE 4 4 = 60
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[神话]
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 4 鉴定品质:[远古]
    CHANGECUSTOMITEMTEXTCOLOR 4 253
    CHANGECUSTOMITEMVALUE 4 1 = 4
    CHANGECUSTOMITEMABIL 4 1 0 253
    CHANGECUSTOMITEMABIL 4 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 4 1 2 1
    CHANGECUSTOMITEMABIL 4 2 0 253
    CHANGECUSTOMITEMABIL 4 2 1 6
    CHANGECUSTOMITEMABIL 4 2 2 2
    CHANGECUSTOMITEMVALUE 4 2 = 10
    CHANGECUSTOMITEMABIL 4 4 0 253
    CHANGECUSTOMITEMABIL 4 4 1 17
    CHANGECUSTOMITEMABIL 4 4 2 5
    CHANGECUSTOMITEMABIL 4 4 3 0
    CHANGECUSTOMITEMVALUE 4 4 = 45
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[远古]
    break
    #IF
    random 2
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 4 鉴定品质:[绝品]
    CHANGECUSTOMITEMTEXTCOLOR 4 70
    CHANGECUSTOMITEMVALUE 4 1 = 3
    CHANGECUSTOMITEMABIL 4 1 0 70
    CHANGECUSTOMITEMABIL 4 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 4 1 2 1
    CHANGECUSTOMITEMABIL 4 2 0 70
    CHANGECUSTOMITEMABIL 4 2 1 6
    CHANGECUSTOMITEMABIL 4 2 2 2
    CHANGECUSTOMITEMVALUE 4 2 = 6
    CHANGECUSTOMITEMABIL 4 4 0 70
    CHANGECUSTOMITEMABIL 4 4 1 17
    CHANGECUSTOMITEMABIL 4 4 2 5
    CHANGECUSTOMITEMABIL 4 4 3 0
    CHANGECUSTOMITEMVALUE 4 4 = 30
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[绝品]
    break
    #IF
    random 1
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 4 鉴定品质:[极品]
    CHANGECUSTOMITEMTEXTCOLOR 4 222
    CHANGECUSTOMITEMVALUE 4 1 = 2
    CHANGECUSTOMITEMABIL 4 1 0 222
    CHANGECUSTOMITEMABIL 4 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 4 1 2 1
    CHANGECUSTOMITEMABIL 4 2 0 222
    CHANGECUSTOMITEMABIL 4 2 1 6
    CHANGECUSTOMITEMABIL 4 2 2 2
    CHANGECUSTOMITEMVALUE 4 2 = 3
    CHANGECUSTOMITEMABIL 4 4 0 222
    CHANGECUSTOMITEMABIL 4 4 1 17
    CHANGECUSTOMITEMABIL 4 4 2 5
    CHANGECUSTOMITEMABIL 4 4 3 0
    CHANGECUSTOMITEMVALUE 4 4 = 20
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[极品]
    break
    #IF
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 4 鉴定品质:[初级]
    CHANGECUSTOMITEMTEXTCOLOR 4 151
    CHANGECUSTOMITEMVALUE 4 1 = 1
    CHANGECUSTOMITEMABIL 4 1 0 151
    CHANGECUSTOMITEMABIL 4 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 4 1 2 1
    CHANGECUSTOMITEMABIL 4 2 0 151
    CHANGECUSTOMITEMABIL 4 2 1 6
    CHANGECUSTOMITEMABIL 4 2 2 2
    CHANGECUSTOMITEMVALUE 4 2 = 1
    CHANGECUSTOMITEMABIL 4 4 0 151
    CHANGECUSTOMITEMABIL 4 4 1 17
    CHANGECUSTOMITEMABIL 4 4 2 5
    CHANGECUSTOMITEMABIL 4 4 3 0
    CHANGECUSTOMITEMVALUE 4 4 = 10
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[初级]
    break
    #ELSEACT
    MESSAGEBOX \\升级失败:原因如下\\    1.你没有鉴定宝石\\    2.鉴定宝石请用高级装备回收获得!!
    break
    [@靴子改造]
    #IF
    NOT CHECKUSEITEM 11
    #ACT
    MESSAGEBOX \\这地方带装备了么?
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 11 鉴定品质:[至尊]
    CHANGECUSTOMITEMTEXTCOLOR 11 249
    CHANGECUSTOMITEMVALUE 11 1 = 6
    CHANGECUSTOMITEMABIL 11 1 0 249
    CHANGECUSTOMITEMABIL 11 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 11 1 2 1
    CHANGECUSTOMITEMABIL 11 2 0 249
    CHANGECUSTOMITEMABIL 11 2 1 6
    CHANGECUSTOMITEMABIL 11 2 2 2
    CHANGECUSTOMITEMVALUE 11 2 = 21
    CHANGECUSTOMITEMABIL 11 4 0 249
    CHANGECUSTOMITEMABIL 11 4 1 17
    CHANGECUSTOMITEMABIL 11 4 2 5
    CHANGECUSTOMITEMABIL 11 4 3 0
    CHANGECUSTOMITEMVALUE 11 4 = 100
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[至尊]
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 11 鉴定品质:[神话]
    CHANGECUSTOMITEMTEXTCOLOR 11 254
    CHANGECUSTOMITEMVALUE 11 1 = 5
    CHANGECUSTOMITEMABIL 11 1 0 254
    CHANGECUSTOMITEMABIL 11 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 11 1 2 1
    CHANGECUSTOMITEMABIL 11 2 0 254
    CHANGECUSTOMITEMABIL 11 2 1 6
    CHANGECUSTOMITEMABIL 11 2 2 2
    CHANGECUSTOMITEMVALUE 11 2 = 15
    CHANGECUSTOMITEMABIL 11 4 0 254
    CHANGECUSTOMITEMABIL 11 4 1 17
    CHANGECUSTOMITEMABIL 11 4 2 5
    CHANGECUSTOMITEMABIL 11 4 3 0
    CHANGECUSTOMITEMVALUE 11 4 = 60
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[神话]
    break
    #IF
    random 5
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 11 鉴定品质:[远古]
    CHANGECUSTOMITEMTEXTCOLOR 11 253
    CHANGECUSTOMITEMVALUE 11 1 = 4
    CHANGECUSTOMITEMABIL 11 1 0 253
    CHANGECUSTOMITEMABIL 11 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 11 1 2 1
    CHANGECUSTOMITEMABIL 11 2 0 253
    CHANGECUSTOMITEMABIL 11 2 1 6
    CHANGECUSTOMITEMABIL 11 2 2 2
    CHANGECUSTOMITEMVALUE 11 2 = 10
    CHANGECUSTOMITEMABIL 11 4 0 253
    CHANGECUSTOMITEMABIL 11 4 1 17
    CHANGECUSTOMITEMABIL 11 4 2 5
    CHANGECUSTOMITEMABIL 11 4 3 0
    CHANGECUSTOMITEMVALUE 11 4 = 45
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[远古]
    break
    #IF
    random 2
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 11 鉴定品质:[绝品]
    CHANGECUSTOMITEMTEXTCOLOR 11 70
    CHANGECUSTOMITEMVALUE 11 1 = 3
    CHANGECUSTOMITEMABIL 11 1 0 70
    CHANGECUSTOMITEMABIL 11 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 11 1 2 1
    CHANGECUSTOMITEMABIL 11 2 0 70
    CHANGECUSTOMITEMABIL 11 2 1 6
    CHANGECUSTOMITEMABIL 11 2 2 2
    CHANGECUSTOMITEMVALUE 11 2 = 6
    CHANGECUSTOMITEMABIL 11 4 0 70
    CHANGECUSTOMITEMABIL 11 4 1 17
    CHANGECUSTOMITEMABIL 11 4 2 5
    CHANGECUSTOMITEMABIL 11 4 3 0
    CHANGECUSTOMITEMVALUE 11 4 = 30
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[绝品]
    break
    #IF
    random 1
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 11 鉴定品质:[极品]
    CHANGECUSTOMITEMTEXTCOLOR 11 222
    CHANGECUSTOMITEMVALUE 11 1 = 2
    CHANGECUSTOMITEMABIL 11 1 0 222
    CHANGECUSTOMITEMABIL 11 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 11 1 2 1
    CHANGECUSTOMITEMABIL 11 2 0 222
    CHANGECUSTOMITEMABIL 11 2 1 6
    CHANGECUSTOMITEMABIL 11 2 2 2
    CHANGECUSTOMITEMVALUE 11 2 = 3
    CHANGECUSTOMITEMABIL 11 4 0 222
    CHANGECUSTOMITEMABIL 11 4 1 17
    CHANGECUSTOMITEMABIL 11 4 2 5
    CHANGECUSTOMITEMABIL 11 4 3 0
    CHANGECUSTOMITEMVALUE 11 4 = 20
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[极品]
    break
    #IF
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 11 鉴定品质:[初级]
    CHANGECUSTOMITEMTEXTCOLOR 11 151
    CHANGECUSTOMITEMVALUE 11 1 = 1
    CHANGECUSTOMITEMABIL 11 1 0 151
    CHANGECUSTOMITEMABIL 11 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 11 1 2 1
    CHANGECUSTOMITEMABIL 11 2 0 151
    CHANGECUSTOMITEMABIL 11 2 1 6
    CHANGECUSTOMITEMABIL 11 2 2 2
    CHANGECUSTOMITEMVALUE 11 2 = 1
    CHANGECUSTOMITEMABIL 11 4 0 151
    CHANGECUSTOMITEMABIL 11 4 1 17
    CHANGECUSTOMITEMABIL 11 4 2 5
    CHANGECUSTOMITEMABIL 11 4 3 0
    CHANGECUSTOMITEMVALUE 11 4 = 10
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[初级]
    break
    #ELSEACT
    MESSAGEBOX \\升级失败:原因如下\\    1.你没有鉴定宝石\\    2.鉴定宝石请用高级装备回收获得!!
    break
    [@腰带改造]
    #IF
    NOT CHECKUSEITEM 10
    #ACT
    MESSAGEBOX \\这地方带装备了么?
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 10 鉴定品质:[至尊]
    CHANGECUSTOMITEMTEXTCOLOR 10 249
    CHANGECUSTOMITEMVALUE 10 1 = 6
    CHANGECUSTOMITEMABIL 10 1 0 249
    CHANGECUSTOMITEMABIL 10 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 10 1 2 1
    CHANGECUSTOMITEMABIL 10 2 0 249
    CHANGECUSTOMITEMABIL 10 2 1 6
    CHANGECUSTOMITEMABIL 10 2 2 2
    CHANGECUSTOMITEMVALUE 10 2 = 21
    CHANGECUSTOMITEMABIL 10 4 0 249
    CHANGECUSTOMITEMABIL 10 4 1 17
    CHANGECUSTOMITEMABIL 10 4 2 5
    CHANGECUSTOMITEMABIL 10 4 3 0
    CHANGECUSTOMITEMVALUE 10 4 = 100
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[至尊]
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 10 鉴定品质:[神话]
    CHANGECUSTOMITEMTEXTCOLOR 10 254
    CHANGECUSTOMITEMVALUE 10 1 = 5
    CHANGECUSTOMITEMABIL 10 1 0 254
    CHANGECUSTOMITEMABIL 10 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 10 1 2 1
    CHANGECUSTOMITEMABIL 10 2 0 254
    CHANGECUSTOMITEMABIL 10 2 1 6
    CHANGECUSTOMITEMABIL 10 2 2 2
    CHANGECUSTOMITEMVALUE 10 2 = 15
    CHANGECUSTOMITEMABIL 10 4 0 254
    CHANGECUSTOMITEMABIL 10 4 1 17
    CHANGECUSTOMITEMABIL 10 4 2 5
    CHANGECUSTOMITEMABIL 10 4 3 0
    CHANGECUSTOMITEMVALUE 10 4 = 60
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[神话]
    break
    #IF
    random 5
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 10 鉴定品质:[远古]
    CHANGECUSTOMITEMTEXTCOLOR 10 253
    CHANGECUSTOMITEMVALUE 10 1 = 4
    CHANGECUSTOMITEMABIL 10 1 0 253
    CHANGECUSTOMITEMABIL 10 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 10 1 2 1
    CHANGECUSTOMITEMABIL 10 2 0 253
    CHANGECUSTOMITEMABIL 10 2 1 6
    CHANGECUSTOMITEMABIL 10 2 2 2
    CHANGECUSTOMITEMVALUE 10 2 = 10
    CHANGECUSTOMITEMABIL 10 4 0 253
    CHANGECUSTOMITEMABIL 10 4 1 17
    CHANGECUSTOMITEMABIL 10 4 2 5
    CHANGECUSTOMITEMABIL 10 4 3 0
    CHANGECUSTOMITEMVALUE 10 4 = 45
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[远古]
    break
    #IF
    random 2
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 10 鉴定品质:[绝品]
    CHANGECUSTOMITEMTEXTCOLOR 10 70
    CHANGECUSTOMITEMVALUE 10 1 = 3
    CHANGECUSTOMITEMABIL 10 1 0 70
    CHANGECUSTOMITEMABIL 10 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 10 1 2 1
    CHANGECUSTOMITEMABIL 10 2 0 70
    CHANGECUSTOMITEMABIL 10 2 1 6
    CHANGECUSTOMITEMABIL 10 2 2 2
    CHANGECUSTOMITEMVALUE 10 2 = 6
    CHANGECUSTOMITEMABIL 10 4 0 70
    CHANGECUSTOMITEMABIL 10 4 1 17
    CHANGECUSTOMITEMABIL 10 4 2 5
    CHANGECUSTOMITEMABIL 10 4 3 0
    CHANGECUSTOMITEMVALUE 10 4 = 30
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[绝品]
    break
    #IF
    random 1
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 10 鉴定品质:[极品]
    CHANGECUSTOMITEMTEXTCOLOR 10 222
    CHANGECUSTOMITEMVALUE 10 1 = 2
    CHANGECUSTOMITEMABIL 10 1 0 222
    CHANGECUSTOMITEMABIL 10 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 10 1 2 1
    CHANGECUSTOMITEMABIL 10 2 0 222
    CHANGECUSTOMITEMABIL 10 2 1 6
    CHANGECUSTOMITEMABIL 10 2 2 2
    CHANGECUSTOMITEMVALUE 10 2 = 3
    CHANGECUSTOMITEMABIL 10 4 0 222
    CHANGECUSTOMITEMABIL 10 4 1 17
    CHANGECUSTOMITEMABIL 10 4 2 5
    CHANGECUSTOMITEMABIL 10 4 3 0
    CHANGECUSTOMITEMVALUE 10 4 = 20
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[极品]
    break
    #IF
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 10 鉴定品质:[初级]
    CHANGECUSTOMITEMTEXTCOLOR 10 151
    CHANGECUSTOMITEMVALUE 10 1 = 1
    CHANGECUSTOMITEMABIL 10 1 0 151
    CHANGECUSTOMITEMABIL 10 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 10 1 2 1
    CHANGECUSTOMITEMABIL 10 2 0 151
    CHANGECUSTOMITEMABIL 10 2 1 6
    CHANGECUSTOMITEMABIL 10 2 2 2
    CHANGECUSTOMITEMVALUE 10 2 = 1
    CHANGECUSTOMITEMABIL 10 4 0 151
    CHANGECUSTOMITEMABIL 10 4 1 17
    CHANGECUSTOMITEMABIL 10 4 2 5
    CHANGECUSTOMITEMABIL 10 4 3 0
    CHANGECUSTOMITEMVALUE 10 4 = 10
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[初级]
    break
    #ELSEACT
    MESSAGEBOX \\升级失败:原因如下\\    1.你没有鉴定宝石\\    2.鉴定宝石请用高级装备回收获得!!
    break
    [@右戒改造]
    #IF
    NOT CHECKUSEITEM 7
    #ACT
    MESSAGEBOX \\这地方带装备了么?
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 7 鉴定品质:[至尊]
    CHANGECUSTOMITEMTEXTCOLOR 7 249
    CHANGECUSTOMITEMVALUE 7 1 = 6
    CHANGECUSTOMITEMABIL 7 1 0 249
    CHANGECUSTOMITEMABIL 7 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 7 1 2 1
    CHANGECUSTOMITEMABIL 7 2 0 249
    CHANGECUSTOMITEMABIL 7 2 1 6
    CHANGECUSTOMITEMABIL 7 2 2 2
    CHANGECUSTOMITEMVALUE 7 2 = 21
    CHANGECUSTOMITEMABIL 7 4 0 249
    CHANGECUSTOMITEMABIL 7 4 1 17
    CHANGECUSTOMITEMABIL 7 4 2 5
    CHANGECUSTOMITEMABIL 7 4 3 0
    CHANGECUSTOMITEMVALUE 7 4 = 100
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[至尊]
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 7 鉴定品质:[神话]
    CHANGECUSTOMITEMTEXTCOLOR 7 254
    CHANGECUSTOMITEMVALUE 7 1 = 5
    CHANGECUSTOMITEMABIL 7 1 0 254
    CHANGECUSTOMITEMABIL 7 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 7 1 2 1
    CHANGECUSTOMITEMABIL 7 2 0 254
    CHANGECUSTOMITEMABIL 7 2 1 6
    CHANGECUSTOMITEMABIL 7 2 2 2
    CHANGECUSTOMITEMVALUE 7 2 = 15
    CHANGECUSTOMITEMABIL 7 4 0 254
    CHANGECUSTOMITEMABIL 7 4 1 17
    CHANGECUSTOMITEMABIL 7 4 2 5
    CHANGECUSTOMITEMABIL 7 4 3 0
    CHANGECUSTOMITEMVALUE 7 4 = 60
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[神话]
    break
    #IF
    random 5
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 7 鉴定品质:[远古]
    CHANGECUSTOMITEMTEXTCOLOR 7 253
    CHANGECUSTOMITEMVALUE 7 1 = 4
    CHANGECUSTOMITEMABIL 7 1 0 253
    CHANGECUSTOMITEMABIL 7 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 7 1 2 1
    CHANGECUSTOMITEMABIL 7 2 0 253
    CHANGECUSTOMITEMABIL 7 2 1 6
    CHANGECUSTOMITEMABIL 7 2 2 2
    CHANGECUSTOMITEMVALUE 7 2 = 10
    CHANGECUSTOMITEMABIL 7 4 0 253
    CHANGECUSTOMITEMABIL 7 4 1 17
    CHANGECUSTOMITEMABIL 7 4 2 5
    CHANGECUSTOMITEMABIL 7 4 3 0
    CHANGECUSTOMITEMVALUE 7 4 = 45
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[远古]
    break
    #IF
    random 2
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 7 鉴定品质:[绝品]
    CHANGECUSTOMITEMTEXTCOLOR 7 70
    CHANGECUSTOMITEMVALUE 7 1 = 3
    CHANGECUSTOMITEMABIL 7 1 0 70
    CHANGECUSTOMITEMABIL 7 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 7 1 2 1
    CHANGECUSTOMITEMABIL 7 2 0 70
    CHANGECUSTOMITEMABIL 7 2 1 6
    CHANGECUSTOMITEMABIL 7 2 2 2
    CHANGECUSTOMITEMVALUE 7 2 = 6
    CHANGECUSTOMITEMABIL 7 4 0 70
    CHANGECUSTOMITEMABIL 7 4 1 17
    CHANGECUSTOMITEMABIL 7 4 2 5
    CHANGECUSTOMITEMABIL 7 4 3 0
    CHANGECUSTOMITEMVALUE 7 4 = 30
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[绝品]
    break
    #IF
    random 1
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 7 鉴定品质:[极品]
    CHANGECUSTOMITEMTEXTCOLOR 7 222
    CHANGECUSTOMITEMVALUE 7 1 = 2
    CHANGECUSTOMITEMABIL 7 1 0 222
    CHANGECUSTOMITEMABIL 7 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 7 1 2 1
    CHANGECUSTOMITEMABIL 7 2 0 222
    CHANGECUSTOMITEMABIL 7 2 1 6
    CHANGECUSTOMITEMABIL 7 2 2 2
    CHANGECUSTOMITEMVALUE 7 2 = 3
    CHANGECUSTOMITEMABIL 7 4 0 222
    CHANGECUSTOMITEMABIL 7 4 1 17
    CHANGECUSTOMITEMABIL 7 4 2 5
    CHANGECUSTOMITEMABIL 7 4 3 0
    CHANGECUSTOMITEMVALUE 7 4 = 20
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[极品]
    break
    #IF
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 7 鉴定品质:[初级]
    CHANGECUSTOMITEMTEXTCOLOR 7 151
    CHANGECUSTOMITEMVALUE 7 1 = 1
    CHANGECUSTOMITEMABIL 7 1 0 151
    CHANGECUSTOMITEMABIL 7 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 7 1 2 1
    CHANGECUSTOMITEMABIL 7 2 0 151
    CHANGECUSTOMITEMABIL 7 2 1 6
    CHANGECUSTOMITEMABIL 7 2 2 2
    CHANGECUSTOMITEMVALUE 7 2 = 1
    CHANGECUSTOMITEMABIL 7 4 0 151
    CHANGECUSTOMITEMABIL 7 4 1 17
    CHANGECUSTOMITEMABIL 7 4 2 5
    CHANGECUSTOMITEMABIL 7 4 3 0
    CHANGECUSTOMITEMVALUE 7 4 = 10
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[初级]
    break
    #ELSEACT
    MESSAGEBOX \\升级失败:原因如下\\    1.你没有鉴定宝石\\    2.鉴定宝石请用高级装备回收获得!!
    break
    [@左戒改造]
    #IF
    NOT CHECKUSEITEM 8
    #ACT
    MESSAGEBOX \\这地方带装备了么?
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 8 鉴定品质:[至尊]
    CHANGECUSTOMITEMTEXTCOLOR 8 249
    CHANGECUSTOMITEMVALUE 8 1 = 6
    CHANGECUSTOMITEMABIL 8 1 0 249
    CHANGECUSTOMITEMABIL 8 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 8 1 2 1
    CHANGECUSTOMITEMABIL 8 2 0 249
    CHANGECUSTOMITEMABIL 8 2 1 6
    CHANGECUSTOMITEMABIL 8 2 2 2
    CHANGECUSTOMITEMVALUE 8 2 = 21
    CHANGECUSTOMITEMABIL 8 4 0 249
    CHANGECUSTOMITEMABIL 8 4 1 17
    CHANGECUSTOMITEMABIL 8 4 2 5
    CHANGECUSTOMITEMABIL 8 4 3 0
    CHANGECUSTOMITEMVALUE 8 4 = 100
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[至尊]
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 8 鉴定品质:[神话]
    CHANGECUSTOMITEMTEXTCOLOR 8 254
    CHANGECUSTOMITEMVALUE 8 1 = 5
    CHANGECUSTOMITEMABIL 8 1 0 254
    CHANGECUSTOMITEMABIL 8 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 8 1 2 1
    CHANGECUSTOMITEMABIL 8 2 0 254
    CHANGECUSTOMITEMABIL 8 2 1 6
    CHANGECUSTOMITEMABIL 8 2 2 2
    CHANGECUSTOMITEMVALUE 8 2 = 15
    CHANGECUSTOMITEMABIL 8 4 0 254
    CHANGECUSTOMITEMABIL 8 4 1 17
    CHANGECUSTOMITEMABIL 8 4 2 5
    CHANGECUSTOMITEMABIL 8 4 3 0
    CHANGECUSTOMITEMVALUE 8 4 = 60
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[神话]
    break
    #IF
    random 5
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 8 鉴定品质:[远古]
    CHANGECUSTOMITEMTEXTCOLOR 8 253
    CHANGECUSTOMITEMVALUE 8 1 = 4
    CHANGECUSTOMITEMABIL 8 1 0 253
    CHANGECUSTOMITEMABIL 8 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 8 1 2 1
    CHANGECUSTOMITEMABIL 8 2 0 253
    CHANGECUSTOMITEMABIL 8 2 1 6
    CHANGECUSTOMITEMABIL 8 2 2 2
    CHANGECUSTOMITEMVALUE 8 2 = 10
    CHANGECUSTOMITEMABIL 8 4 0 253
    CHANGECUSTOMITEMABIL 8 4 1 17
    CHANGECUSTOMITEMABIL 8 4 2 5
    CHANGECUSTOMITEMABIL 8 4 3 0
    CHANGECUSTOMITEMVALUE 8 4 = 45
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[远古]
    break
    #IF
    random 2
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 8 鉴定品质:[绝品]
    CHANGECUSTOMITEMTEXTCOLOR 8 70
    CHANGECUSTOMITEMVALUE 8 1 = 3
    CHANGECUSTOMITEMABIL 8 1 0 70
    CHANGECUSTOMITEMABIL 8 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 8 1 2 1
    CHANGECUSTOMITEMABIL 8 2 0 70
    CHANGECUSTOMITEMABIL 8 2 1 6
    CHANGECUSTOMITEMABIL 8 2 2 2
    CHANGECUSTOMITEMVALUE 8 2 = 6
    CHANGECUSTOMITEMABIL 8 4 0 70
    CHANGECUSTOMITEMABIL 8 4 1 17
    CHANGECUSTOMITEMABIL 8 4 2 5
    CHANGECUSTOMITEMABIL 8 4 3 0
    CHANGECUSTOMITEMVALUE 8 4 = 30
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[绝品]
    break
    #IF
    random 1
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 8 鉴定品质:[极品]
    CHANGECUSTOMITEMTEXTCOLOR 8 222
    CHANGECUSTOMITEMVALUE 8 1 = 2
    CHANGECUSTOMITEMABIL 8 1 0 222
    CHANGECUSTOMITEMABIL 8 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 8 1 2 1
    CHANGECUSTOMITEMABIL 8 2 0 222
    CHANGECUSTOMITEMABIL 8 2 1 6
    CHANGECUSTOMITEMABIL 8 2 2 2
    CHANGECUSTOMITEMVALUE 8 2 = 3
    CHANGECUSTOMITEMABIL 8 4 0 222
    CHANGECUSTOMITEMABIL 8 4 1 17
    CHANGECUSTOMITEMABIL 8 4 2 5
    CHANGECUSTOMITEMABIL 8 4 3 0
    CHANGECUSTOMITEMVALUE 8 4 = 20
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[极品]
    break
    #IF
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 8 鉴定品质:[初级]
    CHANGECUSTOMITEMTEXTCOLOR 8 151
    CHANGECUSTOMITEMVALUE 8 1 = 1
    CHANGECUSTOMITEMABIL 8 1 0 151
    CHANGECUSTOMITEMABIL 8 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 8 1 2 1
    CHANGECUSTOMITEMABIL 8 2 0 151
    CHANGECUSTOMITEMABIL 8 2 1 6
    CHANGECUSTOMITEMABIL 8 2 2 2
    CHANGECUSTOMITEMVALUE 8 2 = 1
    CHANGECUSTOMITEMABIL 8 4 0 151
    CHANGECUSTOMITEMABIL 8 4 1 17
    CHANGECUSTOMITEMABIL 8 4 2 5
    CHANGECUSTOMITEMABIL 8 4 3 0
    CHANGECUSTOMITEMVALUE 8 4 = 10
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[初级]
    break
    #ELSEACT
    MESSAGEBOX \\升级失败:原因如下\\    1.你没有鉴定宝石\\    2.鉴定宝石请用高级装备回收获得!!
    break
    [@左手改造]
    #IF
    NOT CHECKUSEITEM 6
    #ACT
    MESSAGEBOX \\这地方带装备了么?
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 6 鉴定品质:[至尊]
    CHANGECUSTOMITEMTEXTCOLOR 6 249
    CHANGECUSTOMITEMVALUE 6 1 = 6
    CHANGECUSTOMITEMABIL 6 1 0 249
    CHANGECUSTOMITEMABIL 6 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 6 1 2 1
    CHANGECUSTOMITEMABIL 6 2 0 249
    CHANGECUSTOMITEMABIL 6 2 1 6
    CHANGECUSTOMITEMABIL 6 2 2 2
    CHANGECUSTOMITEMVALUE 6 2 = 21
    CHANGECUSTOMITEMABIL 6 4 0 249
    CHANGECUSTOMITEMABIL 6 4 1 17
    CHANGECUSTOMITEMABIL 6 4 2 5
    CHANGECUSTOMITEMABIL 6 4 3 0
    CHANGECUSTOMITEMVALUE 6 4 = 100
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[至尊]
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 6 鉴定品质:[神话]
    CHANGECUSTOMITEMTEXTCOLOR 6 254
    CHANGECUSTOMITEMVALUE 6 1 = 5
    CHANGECUSTOMITEMABIL 6 1 0 254
    CHANGECUSTOMITEMABIL 6 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 6 1 2 1
    CHANGECUSTOMITEMABIL 6 2 0 254
    CHANGECUSTOMITEMABIL 6 2 1 6
    CHANGECUSTOMITEMABIL 6 2 2 2
    CHANGECUSTOMITEMVALUE 6 2 = 15
    CHANGECUSTOMITEMABIL 6 4 0 254
    CHANGECUSTOMITEMABIL 6 4 1 17
    CHANGECUSTOMITEMABIL 6 4 2 5
    CHANGECUSTOMITEMABIL 6 4 3 0
    CHANGECUSTOMITEMVALUE 6 4 = 60
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[神话]
    break
    #IF
    random 5
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 6 鉴定品质:[远古]
    CHANGECUSTOMITEMTEXTCOLOR 6 253
    CHANGECUSTOMITEMVALUE 6 1 = 4
    CHANGECUSTOMITEMABIL 6 1 0 253
    CHANGECUSTOMITEMABIL 6 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 6 1 2 1
    CHANGECUSTOMITEMABIL 6 2 0 253
    CHANGECUSTOMITEMABIL 6 2 1 6
    CHANGECUSTOMITEMABIL 6 2 2 2
    CHANGECUSTOMITEMVALUE 6 2 = 10
    CHANGECUSTOMITEMABIL 6 4 0 253
    CHANGECUSTOMITEMABIL 6 4 1 17
    CHANGECUSTOMITEMABIL 6 4 2 5
    CHANGECUSTOMITEMABIL 6 4 3 0
    CHANGECUSTOMITEMVALUE 6 4 = 45
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[远古]
    break
    #IF
    random 2
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 6 鉴定品质:[绝品]
    CHANGECUSTOMITEMTEXTCOLOR 6 70
    CHANGECUSTOMITEMVALUE 6 1 = 3
    CHANGECUSTOMITEMABIL 6 1 0 70
    CHANGECUSTOMITEMABIL 6 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 6 1 2 1
    CHANGECUSTOMITEMABIL 6 2 0 70
    CHANGECUSTOMITEMABIL 6 2 1 6
    CHANGECUSTOMITEMABIL 6 2 2 2
    CHANGECUSTOMITEMVALUE 6 2 = 6
    CHANGECUSTOMITEMABIL 6 4 0 70
    CHANGECUSTOMITEMABIL 6 4 1 17
    CHANGECUSTOMITEMABIL 6 4 2 5
    CHANGECUSTOMITEMABIL 6 4 3 0
    CHANGECUSTOMITEMVALUE 6 4 = 30
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[绝品]
    break
    #IF
    random 1
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 6 鉴定品质:[极品]
    CHANGECUSTOMITEMTEXTCOLOR 6 222
    CHANGECUSTOMITEMVALUE 6 1 = 2
    CHANGECUSTOMITEMABIL 6 1 0 222
    CHANGECUSTOMITEMABIL 6 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 6 1 2 1
    CHANGECUSTOMITEMABIL 6 2 0 222
    CHANGECUSTOMITEMABIL 6 2 1 6
    CHANGECUSTOMITEMABIL 6 2 2 2
    CHANGECUSTOMITEMVALUE 6 2 = 3
    CHANGECUSTOMITEMABIL 6 4 0 222
    CHANGECUSTOMITEMABIL 6 4 1 17
    CHANGECUSTOMITEMABIL 6 4 2 5
    CHANGECUSTOMITEMABIL 6 4 3 0
    CHANGECUSTOMITEMVALUE 6 4 = 20
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[极品]
    break
    #IF
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 6 鉴定品质:[初级]
    CHANGECUSTOMITEMTEXTCOLOR 6 151
    CHANGECUSTOMITEMVALUE 6 1 = 1
    CHANGECUSTOMITEMABIL 6 1 0 151
    CHANGECUSTOMITEMABIL 6 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 6 1 2 1
    CHANGECUSTOMITEMABIL 6 2 0 151
    CHANGECUSTOMITEMABIL 6 2 1 6
    CHANGECUSTOMITEMABIL 6 2 2 2
    CHANGECUSTOMITEMVALUE 6 2 = 1
    CHANGECUSTOMITEMABIL 6 4 0 151
    CHANGECUSTOMITEMABIL 6 4 1 17
    CHANGECUSTOMITEMABIL 6 4 2 5
    CHANGECUSTOMITEMABIL 6 4 3 0
    CHANGECUSTOMITEMVALUE 6 4 = 10
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[初级]
    break
    #ELSEACT
    MESSAGEBOX \\升级失败:原因如下\\    1.你没有鉴定宝石\\    2.鉴定宝石请用高级装备回收获得!!
    break
    [@右手改造]
    #IF
    NOT CHECKUSEITEM 5
    #ACT
    MESSAGEBOX \\这地方带装备了么?
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 5 鉴定品质:[至尊]
    CHANGECUSTOMITEMTEXTCOLOR 5 249
    CHANGECUSTOMITEMVALUE 5 1 = 6
    CHANGECUSTOMITEMABIL 5 1 0 249
    CHANGECUSTOMITEMABIL 5 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 5 1 2 1
    CHANGECUSTOMITEMABIL 5 2 0 249
    CHANGECUSTOMITEMABIL 5 2 1 6
    CHANGECUSTOMITEMABIL 5 2 2 2
    CHANGECUSTOMITEMVALUE 5 2 = 21
    CHANGECUSTOMITEMABIL 5 4 0 249
    CHANGECUSTOMITEMABIL 5 4 1 17
    CHANGECUSTOMITEMABIL 5 4 2 5
    CHANGECUSTOMITEMABIL 5 4 3 0
    CHANGECUSTOMITEMVALUE 5 4 = 100
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[至尊]
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 5 鉴定品质:[神话]
    CHANGECUSTOMITEMTEXTCOLOR 5 254
    CHANGECUSTOMITEMVALUE 5 1 = 5
    CHANGECUSTOMITEMABIL 5 1 0 254
    CHANGECUSTOMITEMABIL 5 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 5 1 2 1
    CHANGECUSTOMITEMABIL 5 2 0 254
    CHANGECUSTOMITEMABIL 5 2 1 6
    CHANGECUSTOMITEMABIL 5 2 2 2
    CHANGECUSTOMITEMVALUE 5 2 = 15
    CHANGECUSTOMITEMABIL 5 4 0 254
    CHANGECUSTOMITEMABIL 5 4 1 17
    CHANGECUSTOMITEMABIL 5 4 2 5
    CHANGECUSTOMITEMABIL 5 4 3 0
    CHANGECUSTOMITEMVALUE 5 4 = 60
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[神话]
    break
    #IF
    random 5
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 5 鉴定品质:[远古]
    CHANGECUSTOMITEMTEXTCOLOR 5 253
    CHANGECUSTOMITEMVALUE 5 1 = 4
    CHANGECUSTOMITEMABIL 5 1 0 253
    CHANGECUSTOMITEMABIL 5 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 5 1 2 1
    CHANGECUSTOMITEMABIL 5 2 0 253
    CHANGECUSTOMITEMABIL 5 2 1 6
    CHANGECUSTOMITEMABIL 5 2 2 2
    CHANGECUSTOMITEMVALUE 5 2 = 10
    CHANGECUSTOMITEMABIL 5 4 0 253
    CHANGECUSTOMITEMABIL 5 4 1 17
    CHANGECUSTOMITEMABIL 5 4 2 5
    CHANGECUSTOMITEMABIL 5 4 3 0
    CHANGECUSTOMITEMVALUE 5 4 = 45
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[远古]
    break
    #IF
    random 2
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 5 鉴定品质:[绝品]
    CHANGECUSTOMITEMTEXTCOLOR 5 70
    CHANGECUSTOMITEMVALUE 5 1 = 3
    CHANGECUSTOMITEMABIL 5 1 0 70
    CHANGECUSTOMITEMABIL 5 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 5 1 2 1
    CHANGECUSTOMITEMABIL 5 2 0 70
    CHANGECUSTOMITEMABIL 5 2 1 6
    CHANGECUSTOMITEMABIL 5 2 2 2
    CHANGECUSTOMITEMVALUE 5 2 = 6
    CHANGECUSTOMITEMABIL 5 4 0 70
    CHANGECUSTOMITEMABIL 5 4 1 17
    CHANGECUSTOMITEMABIL 5 4 2 5
    CHANGECUSTOMITEMABIL 5 4 3 0
    CHANGECUSTOMITEMVALUE 5 4 = 30
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[绝品]
    break
    #IF
    random 1
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 5 鉴定品质:[极品]
    CHANGECUSTOMITEMTEXTCOLOR 5 222
    CHANGECUSTOMITEMVALUE 5 1 = 2
    CHANGECUSTOMITEMABIL 5 1 0 222
    CHANGECUSTOMITEMABIL 5 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 5 1 2 1
    CHANGECUSTOMITEMABIL 5 2 0 222
    CHANGECUSTOMITEMABIL 5 2 1 6
    CHANGECUSTOMITEMABIL 5 2 2 2
    CHANGECUSTOMITEMVALUE 5 2 = 3
    CHANGECUSTOMITEMABIL 5 4 0 222
    CHANGECUSTOMITEMABIL 5 4 1 17
    CHANGECUSTOMITEMABIL 5 4 2 5
    CHANGECUSTOMITEMABIL 5 4 3 0
    CHANGECUSTOMITEMVALUE 5 4 = 20
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[极品]
    break
    #IF
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 5 鉴定品质:[初级]
    CHANGECUSTOMITEMTEXTCOLOR 5 151
    CHANGECUSTOMITEMVALUE 5 1 = 1
    CHANGECUSTOMITEMABIL 5 1 0 151
    CHANGECUSTOMITEMABIL 5 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 5 1 2 1
    CHANGECUSTOMITEMABIL 5 2 0 151
    CHANGECUSTOMITEMABIL 5 2 1 6
    CHANGECUSTOMITEMABIL 5 2 2 2
    CHANGECUSTOMITEMVALUE 5 2 = 1
    CHANGECUSTOMITEMABIL 5 4 0 151
    CHANGECUSTOMITEMABIL 5 4 1 17
    CHANGECUSTOMITEMABIL 5 4 2 5
    CHANGECUSTOMITEMABIL 5 4 3 0
    CHANGECUSTOMITEMVALUE 5 4 = 10
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[初级]
    break
    #ELSEACT
    MESSAGEBOX \\升级失败:原因如下\\    1.你没有鉴定宝石\\    2.鉴定宝石请用高级装备回收获得!!
    break
    [@项链改造]
    #IF
    NOT CHECKUSEITEM 3
    #ACT
    MESSAGEBOX \\这地方带装备了么?
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 3 鉴定品质:[至尊]
    CHANGECUSTOMITEMTEXTCOLOR 3 249
    CHANGECUSTOMITEMVALUE 3 1 = 6
    CHANGECUSTOMITEMABIL 3 1 0 249
    CHANGECUSTOMITEMABIL 3 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 3 1 2 1
    CHANGECUSTOMITEMABIL 3 2 0 249
    CHANGECUSTOMITEMABIL 3 2 1 6
    CHANGECUSTOMITEMABIL 3 2 2 2
    CHANGECUSTOMITEMVALUE 3 2 = 21
    CHANGECUSTOMITEMABIL 3 4 0 249
    CHANGECUSTOMITEMABIL 3 4 1 17
    CHANGECUSTOMITEMABIL 3 4 2 5
    CHANGECUSTOMITEMABIL 3 4 3 0
    CHANGECUSTOMITEMVALUE 3 4 = 100
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[至尊]
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 3 鉴定品质:[神话]
    CHANGECUSTOMITEMTEXTCOLOR 3 254
    CHANGECUSTOMITEMVALUE 3 1 = 5
    CHANGECUSTOMITEMABIL 3 1 0 254
    CHANGECUSTOMITEMABIL 3 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 3 1 2 1
    CHANGECUSTOMITEMABIL 3 2 0 254
    CHANGECUSTOMITEMABIL 3 2 1 6
    CHANGECUSTOMITEMABIL 3 2 2 2
    CHANGECUSTOMITEMVALUE 3 2 = 15
    CHANGECUSTOMITEMABIL 3 4 0 254
    CHANGECUSTOMITEMABIL 3 4 1 17
    CHANGECUSTOMITEMABIL 3 4 2 5
    CHANGECUSTOMITEMABIL 3 4 3 0
    CHANGECUSTOMITEMVALUE 3 4 = 60
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[神话]
    break
    #IF
    random 5
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 3 鉴定品质:[远古]
    CHANGECUSTOMITEMTEXTCOLOR 3 253
    CHANGECUSTOMITEMVALUE 3 1 = 4
    CHANGECUSTOMITEMABIL 3 1 0 253
    CHANGECUSTOMITEMABIL 3 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 3 1 2 1
    CHANGECUSTOMITEMABIL 3 2 0 253
    CHANGECUSTOMITEMABIL 3 2 1 6
    CHANGECUSTOMITEMABIL 3 2 2 2
    CHANGECUSTOMITEMVALUE 3 2 = 10
    CHANGECUSTOMITEMABIL 3 4 0 253
    CHANGECUSTOMITEMABIL 3 4 1 17
    CHANGECUSTOMITEMABIL 3 4 2 5
    CHANGECUSTOMITEMABIL 3 4 3 0
    CHANGECUSTOMITEMVALUE 3 4 = 45
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[远古]
    break
    #IF
    random 2
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 3 鉴定品质:[绝品]
    CHANGECUSTOMITEMTEXTCOLOR 3 70
    CHANGECUSTOMITEMVALUE 3 1 = 3
    CHANGECUSTOMITEMABIL 3 1 0 70
    CHANGECUSTOMITEMABIL 3 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 3 1 2 1
    CHANGECUSTOMITEMABIL 3 2 0 70
    CHANGECUSTOMITEMABIL 3 2 1 6
    CHANGECUSTOMITEMABIL 3 2 2 2
    CHANGECUSTOMITEMVALUE 3 2 = 6
    CHANGECUSTOMITEMABIL 3 4 0 70
    CHANGECUSTOMITEMABIL 3 4 1 17
    CHANGECUSTOMITEMABIL 3 4 2 5
    CHANGECUSTOMITEMABIL 3 4 3 0
    CHANGECUSTOMITEMVALUE 3 4 = 30
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[绝品]
    break
    #IF
    random 1
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 3 鉴定品质:[极品]
    CHANGECUSTOMITEMTEXTCOLOR 3 222
    CHANGECUSTOMITEMVALUE 3 1 = 2
    CHANGECUSTOMITEMABIL 3 1 0 222
    CHANGECUSTOMITEMABIL 3 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 3 1 2 1
    CHANGECUSTOMITEMABIL 3 2 0 222
    CHANGECUSTOMITEMABIL 3 2 1 6
    CHANGECUSTOMITEMABIL 3 2 2 2
    CHANGECUSTOMITEMVALUE 3 2 = 3
    CHANGECUSTOMITEMABIL 3 4 0 222
    CHANGECUSTOMITEMABIL 3 4 1 17
    CHANGECUSTOMITEMABIL 3 4 2 5
    CHANGECUSTOMITEMABIL 3 4 3 0
    CHANGECUSTOMITEMVALUE 3 4 = 20
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[极品]
    break
    #IF
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 3 鉴定品质:[初级]
    CHANGECUSTOMITEMTEXTCOLOR 3 151
    CHANGECUSTOMITEMVALUE 3 1 = 1
    CHANGECUSTOMITEMABIL 3 1 0 151
    CHANGECUSTOMITEMABIL 3 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 3 1 2 1
    CHANGECUSTOMITEMABIL 3 2 0 151
    CHANGECUSTOMITEMABIL 3 2 1 6
    CHANGECUSTOMITEMABIL 3 2 2 2
    CHANGECUSTOMITEMVALUE 3 2 = 1
    CHANGECUSTOMITEMABIL 3 4 0 151
    CHANGECUSTOMITEMABIL 3 4 1 17
    CHANGECUSTOMITEMABIL 3 4 2 5
    CHANGECUSTOMITEMABIL 3 4 3 0
    CHANGECUSTOMITEMVALUE 3 4 = 10
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[初级]
    break
    #ELSEACT
    MESSAGEBOX \\升级失败:原因如下\\    1.你没有鉴定宝石\\    2.鉴定宝石请用高级装备回收获得!!
    break
    [@勋章改造]
    #IF
    NOT CHECKUSEITEM 2
    #ACT
    MESSAGEBOX \\这地方带装备了么?
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 2 鉴定品质:[至尊]
    CHANGECUSTOMITEMTEXTCOLOR 2 249
    CHANGECUSTOMITEMVALUE 2 1 = 6
    CHANGECUSTOMITEMABIL 2 1 0 249
    CHANGECUSTOMITEMABIL 2 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 2 1 2 1
    CHANGECUSTOMITEMABIL 2 2 0 249
    CHANGECUSTOMITEMABIL 2 2 1 6
    CHANGECUSTOMITEMABIL 2 2 2 2
    CHANGECUSTOMITEMVALUE 2 2 = 21
    CHANGECUSTOMITEMABIL 2 4 0 249
    CHANGECUSTOMITEMABIL 2 4 1 17
    CHANGECUSTOMITEMABIL 2 4 2 5
    CHANGECUSTOMITEMABIL 2 4 3 0
    CHANGECUSTOMITEMVALUE 2 4 = 100
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[至尊]
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 2 鉴定品质:[神话]
    CHANGECUSTOMITEMTEXTCOLOR 2 254
    CHANGECUSTOMITEMVALUE 2 1 = 5
    CHANGECUSTOMITEMABIL 2 1 0 254
    CHANGECUSTOMITEMABIL 2 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 2 1 2 1
    CHANGECUSTOMITEMABIL 2 2 0 254
    CHANGECUSTOMITEMABIL 2 2 1 6
    CHANGECUSTOMITEMABIL 2 2 2 2
    CHANGECUSTOMITEMVALUE 2 2 = 15
    CHANGECUSTOMITEMABIL 2 4 0 254
    CHANGECUSTOMITEMABIL 2 4 1 17
    CHANGECUSTOMITEMABIL 2 4 2 5
    CHANGECUSTOMITEMABIL 2 4 3 0
    CHANGECUSTOMITEMVALUE 2 4 = 60
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[神话]
    break
    #IF
    random 5
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 2 鉴定品质:[远古]
    CHANGECUSTOMITEMTEXTCOLOR 2 253
    CHANGECUSTOMITEMVALUE 2 1 = 4
    CHANGECUSTOMITEMABIL 2 1 0 253
    CHANGECUSTOMITEMABIL 2 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 2 1 2 1
    CHANGECUSTOMITEMABIL 2 2 0 253
    CHANGECUSTOMITEMABIL 2 2 1 6
    CHANGECUSTOMITEMABIL 2 2 2 2
    CHANGECUSTOMITEMVALUE 2 2 = 10
    CHANGECUSTOMITEMABIL 2 4 0 253
    CHANGECUSTOMITEMABIL 2 4 1 17
    CHANGECUSTOMITEMABIL 2 4 2 5
    CHANGECUSTOMITEMABIL 2 4 3 0
    CHANGECUSTOMITEMVALUE 2 4 = 45
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[远古]
    break
    #IF
    random 2
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 2 鉴定品质:[绝品]
    CHANGECUSTOMITEMTEXTCOLOR 2 70
    CHANGECUSTOMITEMVALUE 2 1 = 3
    CHANGECUSTOMITEMABIL 2 1 0 70
    CHANGECUSTOMITEMABIL 2 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 2 1 2 1
    CHANGECUSTOMITEMABIL 2 2 0 70
    CHANGECUSTOMITEMABIL 2 2 1 6
    CHANGECUSTOMITEMABIL 2 2 2 2
    CHANGECUSTOMITEMVALUE 2 2 = 6
    CHANGECUSTOMITEMABIL 2 4 0 70
    CHANGECUSTOMITEMABIL 2 4 1 17
    CHANGECUSTOMITEMABIL 2 4 2 5
    CHANGECUSTOMITEMABIL 2 4 3 0
    CHANGECUSTOMITEMVALUE 2 4 = 30
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[绝品]
    break
    #IF
    random 1
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 2 鉴定品质:[极品]
    CHANGECUSTOMITEMTEXTCOLOR 2 222
    CHANGECUSTOMITEMVALUE 2 1 = 2
    CHANGECUSTOMITEMABIL 2 1 0 222
    CHANGECUSTOMITEMABIL 2 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 2 1 2 1
    CHANGECUSTOMITEMABIL 2 2 0 222
    CHANGECUSTOMITEMABIL 2 2 1 6
    CHANGECUSTOMITEMABIL 2 2 2 2
    CHANGECUSTOMITEMVALUE 2 2 = 3
    CHANGECUSTOMITEMABIL 2 4 0 222
    CHANGECUSTOMITEMABIL 2 4 1 17
    CHANGECUSTOMITEMABIL 2 4 2 5
    CHANGECUSTOMITEMABIL 2 4 3 0
    CHANGECUSTOMITEMVALUE 2 4 = 20
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[极品]
    break
    #IF
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 2 鉴定品质:[初级]
    CHANGECUSTOMITEMTEXTCOLOR 2 151
    CHANGECUSTOMITEMVALUE 2 1 = 1
    CHANGECUSTOMITEMABIL 2 1 0 151
    CHANGECUSTOMITEMABIL 2 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 2 1 2 1
    CHANGECUSTOMITEMABIL 2 2 0 151
    CHANGECUSTOMITEMABIL 2 2 1 6
    CHANGECUSTOMITEMABIL 2 2 2 2
    CHANGECUSTOMITEMVALUE 2 2 = 1
    CHANGECUSTOMITEMABIL 2 4 0 151
    CHANGECUSTOMITEMABIL 2 4 1 17
    CHANGECUSTOMITEMABIL 2 4 2 5
    CHANGECUSTOMITEMABIL 2 4 3 0
    CHANGECUSTOMITEMVALUE 2 4 = 10
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[初级]
    break
    #ELSEACT
    MESSAGEBOX \\升级失败:原因如下\\    1.你没有鉴定宝石\\    2.鉴定宝石请用高级装备回收获得!!
    break
    [@宝石改造]
    #IF
    NOT CHECKUSEITEM 12
    #ACT
    MESSAGEBOX \\这地方带装备了么?
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 12 鉴定品质:[至尊]
    CHANGECUSTOMITEMTEXTCOLOR 12 249
    CHANGECUSTOMITEMVALUE 12 1 = 6
    CHANGECUSTOMITEMABIL 12 1 0 249
    CHANGECUSTOMITEMABIL 12 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 12 1 2 1
    CHANGECUSTOMITEMABIL 12 2 0 249
    CHANGECUSTOMITEMABIL 12 2 1 6
    CHANGECUSTOMITEMABIL 12 2 2 2
    CHANGECUSTOMITEMVALUE 12 2 = 21
    CHANGECUSTOMITEMABIL 12 4 0 249
    CHANGECUSTOMITEMABIL 12 4 1 17
    CHANGECUSTOMITEMABIL 12 4 2 5
    CHANGECUSTOMITEMABIL 12 4 3 0
    CHANGECUSTOMITEMVALUE 12 4 = 100
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[至尊]
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 12 鉴定品质:[神话]
    CHANGECUSTOMITEMTEXTCOLOR 12 254
    CHANGECUSTOMITEMVALUE 12 1 = 5
    CHANGECUSTOMITEMABIL 12 1 0 254
    CHANGECUSTOMITEMABIL 12 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 12 1 2 1
    CHANGECUSTOMITEMABIL 12 2 0 254
    CHANGECUSTOMITEMABIL 12 2 1 6
    CHANGECUSTOMITEMABIL 12 2 2 2
    CHANGECUSTOMITEMVALUE 12 2 = 15
    CHANGECUSTOMITEMABIL 12 4 0 254
    CHANGECUSTOMITEMABIL 12 4 1 17
    CHANGECUSTOMITEMABIL 12 4 2 5
    CHANGECUSTOMITEMABIL 12 4 3 0
    CHANGECUSTOMITEMVALUE 12 4 = 60
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[神话]
    break
    #IF
    random 5
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 12 鉴定品质:[远古]
    CHANGECUSTOMITEMTEXTCOLOR 12 253
    CHANGECUSTOMITEMVALUE 12 1 = 4
    CHANGECUSTOMITEMABIL 12 1 0 253
    CHANGECUSTOMITEMABIL 12 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 12 1 2 1
    CHANGECUSTOMITEMABIL 12 2 0 253
    CHANGECUSTOMITEMABIL 12 2 1 6
    CHANGECUSTOMITEMABIL 12 2 2 2
    CHANGECUSTOMITEMVALUE 12 2 = 10
    CHANGECUSTOMITEMABIL 12 4 0 253
    CHANGECUSTOMITEMABIL 12 4 1 17
    CHANGECUSTOMITEMABIL 12 4 2 5
    CHANGECUSTOMITEMABIL 12 4 3 0
    CHANGECUSTOMITEMVALUE 12 4 = 45
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[远古]
    break
    #IF
    random 2
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 12 鉴定品质:[绝品]
    CHANGECUSTOMITEMTEXTCOLOR 12 70
    CHANGECUSTOMITEMVALUE 12 1 = 3
    CHANGECUSTOMITEMABIL 12 1 0 70
    CHANGECUSTOMITEMABIL 12 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 12 1 2 1
    CHANGECUSTOMITEMABIL 12 2 0 70
    CHANGECUSTOMITEMABIL 12 2 1 6
    CHANGECUSTOMITEMABIL 12 2 2 2
    CHANGECUSTOMITEMVALUE 12 2 = 6
    CHANGECUSTOMITEMABIL 12 4 0 70
    CHANGECUSTOMITEMABIL 12 4 1 17
    CHANGECUSTOMITEMABIL 12 4 2 5
    CHANGECUSTOMITEMABIL 12 4 3 0
    CHANGECUSTOMITEMVALUE 12 4 = 30
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[绝品]
    break
    #IF
    random 1
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 12 鉴定品质:[极品]
    CHANGECUSTOMITEMTEXTCOLOR 12 222
    CHANGECUSTOMITEMVALUE 12 1 = 2
    CHANGECUSTOMITEMABIL 12 1 0 222
    CHANGECUSTOMITEMABIL 12 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 12 1 2 1
    CHANGECUSTOMITEMABIL 12 2 0 222
    CHANGECUSTOMITEMABIL 12 2 1 6
    CHANGECUSTOMITEMABIL 12 2 2 2
    CHANGECUSTOMITEMVALUE 12 2 = 3
    CHANGECUSTOMITEMABIL 12 4 0 222
    CHANGECUSTOMITEMABIL 12 4 1 17
    CHANGECUSTOMITEMABIL 12 4 2 5
    CHANGECUSTOMITEMABIL 12 4 3 0
    CHANGECUSTOMITEMVALUE 12 4 = 20
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[极品]
    break
    #IF
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 12 鉴定品质:[初级]
    CHANGECUSTOMITEMTEXTCOLOR 12 151
    CHANGECUSTOMITEMVALUE 12 1 = 1
    CHANGECUSTOMITEMABIL 12 1 0 151
    CHANGECUSTOMITEMABIL 12 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 12 1 2 1
    CHANGECUSTOMITEMABIL 12 2 0 151
    CHANGECUSTOMITEMABIL 12 2 1 6
    CHANGECUSTOMITEMABIL 12 2 2 2
    CHANGECUSTOMITEMVALUE 12 2 = 1
    CHANGECUSTOMITEMABIL 12 4 0 151
    CHANGECUSTOMITEMABIL 12 4 1 17
    CHANGECUSTOMITEMABIL 12 4 2 5
    CHANGECUSTOMITEMABIL 12 4 3 0
    CHANGECUSTOMITEMVALUE 12 4 = 10
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[初级]
    break
    #ELSEACT
    MESSAGEBOX \\升级失败:原因如下\\    1.你没有鉴定宝石\\    2.鉴定宝石请用高级装备回收获得!!
    break
    [@法宝改造]
    #IF
    NOT CHECKUSEITEM 15
    #ACT
    MESSAGEBOX \\这地方带装备了么?
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 15 鉴定品质:[至尊]
    CHANGECUSTOMITEMTEXTCOLOR 15 249
    CHANGECUSTOMITEMVALUE 15 1 = 6
    CHANGECUSTOMITEMABIL 15 1 0 249
    CHANGECUSTOMITEMABIL 15 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 15 1 2 1
    CHANGECUSTOMITEMABIL 15 2 0 249
    CHANGECUSTOMITEMABIL 15 2 1 6
    CHANGECUSTOMITEMABIL 15 2 2 2
    CHANGECUSTOMITEMVALUE 15 2 = 21
    CHANGECUSTOMITEMABIL 15 4 0 249
    CHANGECUSTOMITEMABIL 15 4 1 17
    CHANGECUSTOMITEMABIL 15 4 2 5
    CHANGECUSTOMITEMABIL 15 4 3 0
    CHANGECUSTOMITEMVALUE 15 4 = 100
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[至尊]
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 15 鉴定品质:[神话]
    CHANGECUSTOMITEMTEXTCOLOR 15 254
    CHANGECUSTOMITEMVALUE 15 1 = 5
    CHANGECUSTOMITEMABIL 15 1 0 254
    CHANGECUSTOMITEMABIL 15 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 15 1 2 1
    CHANGECUSTOMITEMABIL 15 2 0 254
    CHANGECUSTOMITEMABIL 15 2 1 6
    CHANGECUSTOMITEMABIL 15 2 2 2
    CHANGECUSTOMITEMVALUE 15 2 = 15
    CHANGECUSTOMITEMABIL 15 4 0 254
    CHANGECUSTOMITEMABIL 15 4 1 17
    CHANGECUSTOMITEMABIL 15 4 2 5
    CHANGECUSTOMITEMABIL 15 4 3 0
    CHANGECUSTOMITEMVALUE 15 4 = 60
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[神话]
    break
    #IF
    random 5
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 15 鉴定品质:[远古]
    CHANGECUSTOMITEMTEXTCOLOR 15 253
    CHANGECUSTOMITEMVALUE 15 1 = 4
    CHANGECUSTOMITEMABIL 15 1 0 253
    CHANGECUSTOMITEMABIL 15 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 15 1 2 1
    CHANGECUSTOMITEMABIL 15 2 0 253
    CHANGECUSTOMITEMABIL 15 2 1 6
    CHANGECUSTOMITEMABIL 15 2 2 2
    CHANGECUSTOMITEMVALUE 15 2 = 10
    CHANGECUSTOMITEMABIL 15 4 0 253
    CHANGECUSTOMITEMABIL 15 4 1 17
    CHANGECUSTOMITEMABIL 15 4 2 5
    CHANGECUSTOMITEMABIL 15 4 3 0
    CHANGECUSTOMITEMVALUE 15 4 = 45
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[远古]
    break
    #IF
    random 2
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 15 鉴定品质:[绝品]
    CHANGECUSTOMITEMTEXTCOLOR 15 70
    CHANGECUSTOMITEMVALUE 15 1 = 3
    CHANGECUSTOMITEMABIL 15 1 0 70
    CHANGECUSTOMITEMABIL 15 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 15 1 2 1
    CHANGECUSTOMITEMABIL 15 2 0 70
    CHANGECUSTOMITEMABIL 15 2 1 6
    CHANGECUSTOMITEMABIL 15 2 2 2
    CHANGECUSTOMITEMVALUE 15 2 = 6
    CHANGECUSTOMITEMABIL 15 4 0 70
    CHANGECUSTOMITEMABIL 15 4 1 17
    CHANGECUSTOMITEMABIL 15 4 2 5
    CHANGECUSTOMITEMABIL 15 4 3 0
    CHANGECUSTOMITEMVALUE 15 4 = 30
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[绝品]
    break
    #IF
    random 1
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 15 鉴定品质:[极品]
    CHANGECUSTOMITEMTEXTCOLOR 15 222
    CHANGECUSTOMITEMVALUE 15 1 = 2
    CHANGECUSTOMITEMABIL 15 1 0 222
    CHANGECUSTOMITEMABIL 15 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 15 1 2 1
    CHANGECUSTOMITEMABIL 15 2 0 222
    CHANGECUSTOMITEMABIL 15 2 1 6
    CHANGECUSTOMITEMABIL 15 2 2 2
    CHANGECUSTOMITEMVALUE 15 2 = 3
    CHANGECUSTOMITEMABIL 15 4 0 222
    CHANGECUSTOMITEMABIL 15 4 1 17
    CHANGECUSTOMITEMABIL 15 4 2 5
    CHANGECUSTOMITEMABIL 15 4 3 0
    CHANGECUSTOMITEMVALUE 15 4 = 20
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[极品]
    break
    #IF
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 15 鉴定品质:[初级]
    CHANGECUSTOMITEMTEXTCOLOR 15 151
    CHANGECUSTOMITEMVALUE 15 1 = 1
    CHANGECUSTOMITEMABIL 15 1 0 151
    CHANGECUSTOMITEMABIL 15 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 15 1 2 1
    CHANGECUSTOMITEMABIL 15 2 0 151
    CHANGECUSTOMITEMABIL 15 2 1 6
    CHANGECUSTOMITEMABIL 15 2 2 2
    CHANGECUSTOMITEMVALUE 15 2 = 1
    CHANGECUSTOMITEMABIL 15 4 0 151
    CHANGECUSTOMITEMABIL 15 4 1 17
    CHANGECUSTOMITEMABIL 15 4 2 5
    CHANGECUSTOMITEMABIL 15 4 3 0
    CHANGECUSTOMITEMVALUE 15 4 = 10
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[初级]
    break
    #ELSEACT
    MESSAGEBOX \\升级失败:原因如下\\    1.你没有鉴定宝石\\    2.鉴定宝石请用高级装备回收获得!!
    break
    [@魂珠改造]
    #IF
    NOT CHECKUSEITEM 14
    #ACT
    MESSAGEBOX \\这地方带装备了么?
    break
    #IF
    random 50
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 14 鉴定品质:[至尊]
    CHANGECUSTOMITEMTEXTCOLOR 14 249
    CHANGECUSTOMITEMVALUE 14 1 = 6
    CHANGECUSTOMITEMABIL 14 1 0 249
    CHANGECUSTOMITEMABIL 14 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 14 1 2 1
    CHANGECUSTOMITEMABIL 14 2 0 249
    CHANGECUSTOMITEMABIL 14 2 1 6
    CHANGECUSTOMITEMABIL 14 2 2 2
    CHANGECUSTOMITEMVALUE 14 2 = 21
    CHANGECUSTOMITEMABIL 14 4 0 249
    CHANGECUSTOMITEMABIL 14 4 1 17
    CHANGECUSTOMITEMABIL 14 4 2 5
    CHANGECUSTOMITEMABIL 14 4 3 0
    CHANGECUSTOMITEMVALUE 14 4 = 100
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[至尊]
    break
    #IF
    random 40
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 14 鉴定品质:[神话]
    CHANGECUSTOMITEMTEXTCOLOR 14 254
    CHANGECUSTOMITEMVALUE 14 1 = 5
    CHANGECUSTOMITEMABIL 14 1 0 254
    CHANGECUSTOMITEMABIL 14 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 14 1 2 1
    CHANGECUSTOMITEMABIL 14 2 0 254
    CHANGECUSTOMITEMABIL 14 2 1 6
    CHANGECUSTOMITEMABIL 14 2 2 2
    CHANGECUSTOMITEMVALUE 14 2 = 15
    CHANGECUSTOMITEMABIL 14 4 0 254
    CHANGECUSTOMITEMABIL 14 4 1 17
    CHANGECUSTOMITEMABIL 14 4 2 5
    CHANGECUSTOMITEMABIL 14 4 3 0
    CHANGECUSTOMITEMVALUE 14 4 = 60
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[神话]
    break
    #IF
    random 20
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 14 鉴定品质:[远古]
    CHANGECUSTOMITEMTEXTCOLOR 14 253
    CHANGECUSTOMITEMVALUE 14 1 = 4
    CHANGECUSTOMITEMABIL 14 1 0 253
    CHANGECUSTOMITEMABIL 14 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 14 1 2 1
    CHANGECUSTOMITEMABIL 14 2 0 253
    CHANGECUSTOMITEMABIL 14 2 1 6
    CHANGECUSTOMITEMABIL 14 2 2 2
    CHANGECUSTOMITEMVALUE 14 2 = 10
    CHANGECUSTOMITEMABIL 14 4 0 253
    CHANGECUSTOMITEMABIL 14 4 1 17
    CHANGECUSTOMITEMABIL 14 4 2 5
    CHANGECUSTOMITEMABIL 14 4 3 0
    CHANGECUSTOMITEMVALUE 14 4 = 45
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[远古]
    break
    #IF
    random 5
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 14 鉴定品质:[绝品]
    CHANGECUSTOMITEMTEXTCOLOR 14 70
    CHANGECUSTOMITEMVALUE 14 1 = 3
    CHANGECUSTOMITEMABIL 14 1 0 70
    CHANGECUSTOMITEMABIL 14 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 14 1 2 1
    CHANGECUSTOMITEMABIL 14 2 0 70
    CHANGECUSTOMITEMABIL 14 2 1 6
    CHANGECUSTOMITEMABIL 14 2 2 2
    CHANGECUSTOMITEMVALUE 14 2 = 6
    CHANGECUSTOMITEMABIL 14 4 0 70
    CHANGECUSTOMITEMABIL 14 4 1 17
    CHANGECUSTOMITEMABIL 14 4 2 5
    CHANGECUSTOMITEMABIL 14 4 3 0
    CHANGECUSTOMITEMVALUE 14 4 = 30
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[绝品]
    break
    #IF
    random 2
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 14 鉴定品质:[极品]
    CHANGECUSTOMITEMTEXTCOLOR 14 222
    CHANGECUSTOMITEMVALUE 14 1 = 2
    CHANGECUSTOMITEMABIL 14 1 0 222
    CHANGECUSTOMITEMABIL 14 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 14 1 2 1
    CHANGECUSTOMITEMABIL 14 2 0 222
    CHANGECUSTOMITEMABIL 14 2 1 6
    CHANGECUSTOMITEMABIL 14 2 2 2
    CHANGECUSTOMITEMVALUE 14 2 = 3
    CHANGECUSTOMITEMABIL 14 4 0 222
    CHANGECUSTOMITEMABIL 14 4 1 17
    CHANGECUSTOMITEMABIL 14 4 2 5
    CHANGECUSTOMITEMABIL 14 4 3 0
    CHANGECUSTOMITEMVALUE 14 4 = 20
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[极品]
    break
    #IF
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 14 鉴定品质:[初级]
    CHANGECUSTOMITEMTEXTCOLOR 14 151
    CHANGECUSTOMITEMVALUE 14 1 = 1
    CHANGECUSTOMITEMABIL 14 1 0 151
    CHANGECUSTOMITEMABIL 14 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 14 1 2 1
    CHANGECUSTOMITEMABIL 14 2 0 151
    CHANGECUSTOMITEMABIL 14 2 1 6
    CHANGECUSTOMITEMABIL 14 2 2 2
    CHANGECUSTOMITEMVALUE 14 2 = 1
    CHANGECUSTOMITEMABIL 14 4 0 151
    CHANGECUSTOMITEMABIL 14 4 1 17
    CHANGECUSTOMITEMABIL 14 4 2 5
    CHANGECUSTOMITEMABIL 14 4 3 0
    CHANGECUSTOMITEMVALUE 14 4 = 10
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[初级]
    break
    #ELSEACT
    MESSAGEBOX \\升级失败:原因如下\\    1.你没有鉴定宝石\\    2.鉴定宝石请用高级装备回收获得!!
    break
    [@斗笠改造]
    #IF
    NOT CHECKUSEITEM 13
    #ACT
    MESSAGEBOX \\这地方带装备了么?
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 13 鉴定品质:[至尊]
    CHANGECUSTOMITEMTEXTCOLOR 13 249
    CHANGECUSTOMITEMVALUE 13 1 = 6
    CHANGECUSTOMITEMABIL 13 1 0 249
    CHANGECUSTOMITEMABIL 13 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 13 1 2 1
    CHANGECUSTOMITEMABIL 13 2 0 249
    CHANGECUSTOMITEMABIL 13 2 1 6
    CHANGECUSTOMITEMABIL 13 2 2 2
    CHANGECUSTOMITEMVALUE 13 2 = 21
    CHANGECUSTOMITEMABIL 13 4 0 249
    CHANGECUSTOMITEMABIL 13 4 1 17
    CHANGECUSTOMITEMABIL 13 4 2 5
    CHANGECUSTOMITEMABIL 13 4 3 0
    CHANGECUSTOMITEMVALUE 13 4 = 100
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[至尊]
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 13 鉴定品质:[神话]
    CHANGECUSTOMITEMTEXTCOLOR 13 254
    CHANGECUSTOMITEMVALUE 13 1 = 5
    CHANGECUSTOMITEMABIL 13 1 0 254
    CHANGECUSTOMITEMABIL 13 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 13 1 2 1
    CHANGECUSTOMITEMABIL 13 2 0 254
    CHANGECUSTOMITEMABIL 13 2 1 6
    CHANGECUSTOMITEMABIL 13 2 2 2
    CHANGECUSTOMITEMVALUE 13 2 = 15
    CHANGECUSTOMITEMABIL 13 4 0 254
    CHANGECUSTOMITEMABIL 13 4 1 17
    CHANGECUSTOMITEMABIL 13 4 2 5
    CHANGECUSTOMITEMABIL 13 4 3 0
    CHANGECUSTOMITEMVALUE 13 4 = 60
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[神话]
    break
    #IF
    random 5
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 13 鉴定品质:[远古]
    CHANGECUSTOMITEMTEXTCOLOR 13 253
    CHANGECUSTOMITEMVALUE 13 1 = 4
    CHANGECUSTOMITEMABIL 13 1 0 253
    CHANGECUSTOMITEMABIL 13 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 13 1 2 1
    CHANGECUSTOMITEMABIL 13 2 0 253
    CHANGECUSTOMITEMABIL 13 2 1 6
    CHANGECUSTOMITEMABIL 13 2 2 2
    CHANGECUSTOMITEMVALUE 13 2 = 10
    CHANGECUSTOMITEMABIL 13 4 0 253
    CHANGECUSTOMITEMABIL 13 4 1 17
    CHANGECUSTOMITEMABIL 13 4 2 5
    CHANGECUSTOMITEMABIL 13 4 3 0
    CHANGECUSTOMITEMVALUE 13 4 = 45
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[远古]
    break
    #IF
    random 2
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 13 鉴定品质:[绝品]
    CHANGECUSTOMITEMTEXTCOLOR 13 70
    CHANGECUSTOMITEMVALUE 13 1 = 3
    CHANGECUSTOMITEMABIL 13 1 0 70
    CHANGECUSTOMITEMABIL 13 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 13 1 2 1
    CHANGECUSTOMITEMABIL 13 2 0 70
    CHANGECUSTOMITEMABIL 13 2 1 6
    CHANGECUSTOMITEMABIL 13 2 2 2
    CHANGECUSTOMITEMVALUE 13 2 = 6
    CHANGECUSTOMITEMABIL 13 4 0 70
    CHANGECUSTOMITEMABIL 13 4 1 17
    CHANGECUSTOMITEMABIL 13 4 2 5
    CHANGECUSTOMITEMABIL 13 4 3 0
    CHANGECUSTOMITEMVALUE 13 4 = 30
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[绝品]
    break
    #IF
    random 1
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 13 鉴定品质:[极品]
    CHANGECUSTOMITEMTEXTCOLOR 13 222
    CHANGECUSTOMITEMVALUE 13 1 = 2
    CHANGECUSTOMITEMABIL 13 1 0 222
    CHANGECUSTOMITEMABIL 13 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 13 1 2 1
    CHANGECUSTOMITEMABIL 13 2 0 222
    CHANGECUSTOMITEMABIL 13 2 1 6
    CHANGECUSTOMITEMABIL 13 2 2 2
    CHANGECUSTOMITEMVALUE 13 2 = 3
    CHANGECUSTOMITEMABIL 13 4 0 222
    CHANGECUSTOMITEMABIL 13 4 1 17
    CHANGECUSTOMITEMABIL 13 4 2 5
    CHANGECUSTOMITEMABIL 13 4 3 0
    CHANGECUSTOMITEMVALUE 13 4 = 20
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[极品]
    break
    #IF
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 13 鉴定品质:[初级]
    CHANGECUSTOMITEMTEXTCOLOR 13 151
    CHANGECUSTOMITEMVALUE 13 1 = 1
    CHANGECUSTOMITEMABIL 13 1 0 151
    CHANGECUSTOMITEMABIL 13 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 13 1 2 1
    CHANGECUSTOMITEMABIL 13 2 0 151
    CHANGECUSTOMITEMABIL 13 2 1 6
    CHANGECUSTOMITEMABIL 13 2 2 2
    CHANGECUSTOMITEMVALUE 13 2 = 1
    CHANGECUSTOMITEMABIL 13 4 0 151
    CHANGECUSTOMITEMABIL 13 4 1 17
    CHANGECUSTOMITEMABIL 13 4 2 5
    CHANGECUSTOMITEMABIL 13 4 3 0
    CHANGECUSTOMITEMVALUE 13 4 = 10
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[初级]
    break
    #ELSEACT
    MESSAGEBOX \\升级失败:原因如下\\    1.你没有鉴定宝石\\    2.鉴定宝石请用高级装备回收获得!!
    break
    [@盾牌改造]
    #IF
    NOT CHECKUSEITEM 16
    #ACT
    MESSAGEBOX \\这地方带装备了么?
    break
    #IF
    random 30
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 16 鉴定品质:[至尊]
    CHANGECUSTOMITEMTEXTCOLOR 16 249
    CHANGECUSTOMITEMVALUE 16 1 = 6
    CHANGECUSTOMITEMABIL 16 1 0 249
    CHANGECUSTOMITEMABIL 16 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 16 1 2 1
    CHANGECUSTOMITEMABIL 16 2 0 249
    CHANGECUSTOMITEMABIL 16 2 1 6
    CHANGECUSTOMITEMABIL 16 2 2 2
    CHANGECUSTOMITEMVALUE 16 2 = 21
    CHANGECUSTOMITEMABIL 16 4 0 249
    CHANGECUSTOMITEMABIL 16 4 1 17
    CHANGECUSTOMITEMABIL 16 4 2 5
    CHANGECUSTOMITEMABIL 16 4 3 0
    CHANGECUSTOMITEMVALUE 16 4 = 100
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[至尊]
    break
    #IF
    random 20
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 16 鉴定品质:[神话]
    CHANGECUSTOMITEMTEXTCOLOR 16 254
    CHANGECUSTOMITEMVALUE 16 1 = 5
    CHANGECUSTOMITEMABIL 16 1 0 254
    CHANGECUSTOMITEMABIL 16 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 16 1 2 1
    CHANGECUSTOMITEMABIL 16 2 0 254
    CHANGECUSTOMITEMABIL 16 2 1 6
    CHANGECUSTOMITEMABIL 16 2 2 2
    CHANGECUSTOMITEMVALUE 16 2 = 15
    CHANGECUSTOMITEMABIL 16 4 0 254
    CHANGECUSTOMITEMABIL 16 4 1 17
    CHANGECUSTOMITEMABIL 16 4 2 5
    CHANGECUSTOMITEMABIL 16 4 3 0
    CHANGECUSTOMITEMVALUE 16 4 = 60
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[神话]
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 16 鉴定品质:[远古]
    CHANGECUSTOMITEMTEXTCOLOR 16 253
    CHANGECUSTOMITEMVALUE 16 1 = 4
    CHANGECUSTOMITEMABIL 16 1 0 253
    CHANGECUSTOMITEMABIL 16 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 16 1 2 1
    CHANGECUSTOMITEMABIL 16 2 0 253
    CHANGECUSTOMITEMABIL 16 2 1 6
    CHANGECUSTOMITEMABIL 16 2 2 2
    CHANGECUSTOMITEMVALUE 16 2 = 10
    CHANGECUSTOMITEMABIL 16 4 0 253
    CHANGECUSTOMITEMABIL 16 4 1 17
    CHANGECUSTOMITEMABIL 16 4 2 5
    CHANGECUSTOMITEMABIL 16 4 3 0
    CHANGECUSTOMITEMVALUE 16 4 = 45
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[远古]
    break
    #IF
    random 5
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 16 鉴定品质:[绝品]
    CHANGECUSTOMITEMTEXTCOLOR 16 70
    CHANGECUSTOMITEMVALUE 16 1 = 3
    CHANGECUSTOMITEMABIL 16 1 0 70
    CHANGECUSTOMITEMABIL 16 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 16 1 2 1
    CHANGECUSTOMITEMABIL 16 2 0 70
    CHANGECUSTOMITEMABIL 16 2 1 6
    CHANGECUSTOMITEMABIL 16 2 2 2
    CHANGECUSTOMITEMVALUE 16 2 = 6
    CHANGECUSTOMITEMABIL 16 4 0 70
    CHANGECUSTOMITEMABIL 16 4 1 17
    CHANGECUSTOMITEMABIL 16 4 2 5
    CHANGECUSTOMITEMABIL 16 4 3 0
    CHANGECUSTOMITEMVALUE 16 4 = 30
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[绝品]
    break
    #IF
    random 2
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 16 鉴定品质:[极品]
    CHANGECUSTOMITEMTEXTCOLOR 16 222
    CHANGECUSTOMITEMVALUE 16 1 = 2
    CHANGECUSTOMITEMABIL 16 1 0 222
    CHANGECUSTOMITEMABIL 16 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 16 1 2 1
    CHANGECUSTOMITEMABIL 16 2 0 222
    CHANGECUSTOMITEMABIL 16 2 1 6
    CHANGECUSTOMITEMABIL 16 2 2 2
    CHANGECUSTOMITEMVALUE 16 2 = 3
    CHANGECUSTOMITEMABIL 16 4 0 222
    CHANGECUSTOMITEMABIL 16 4 1 17
    CHANGECUSTOMITEMABIL 16 4 2 5
    CHANGECUSTOMITEMABIL 16 4 3 0
    CHANGECUSTOMITEMVALUE 16 4 = 20
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[极品]
    break
    #IF
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 16 鉴定品质:[初级]
    CHANGECUSTOMITEMTEXTCOLOR 16 151
    CHANGECUSTOMITEMVALUE 16 1 = 1
    CHANGECUSTOMITEMABIL 16 1 0 151
    CHANGECUSTOMITEMABIL 16 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 16 1 2 1
    CHANGECUSTOMITEMABIL 16 2 0 151
    CHANGECUSTOMITEMABIL 16 2 1 6
    CHANGECUSTOMITEMABIL 16 2 2 2
    CHANGECUSTOMITEMVALUE 16 2 = 1
    CHANGECUSTOMITEMABIL 16 4 0 151
    CHANGECUSTOMITEMABIL 16 4 1 17
    CHANGECUSTOMITEMABIL 16 4 2 5
    CHANGECUSTOMITEMABIL 16 4 3 0
    CHANGECUSTOMITEMVALUE 16 4 = 10
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[初级]
    break
    #ELSEACT
    MESSAGEBOX \\升级失败:原因如下\\    1.你没有鉴定宝石\\    2.鉴定宝石请用高级装备回收获得!!
    break
    [@战鼓改造]
    #IF
    NOT CHECKUSEITEM 9
    #ACT
    MESSAGEBOX \\这地方带装备了么?
    break
    #IF
    random 180
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 9 鉴定品质:[至尊]
    CHANGECUSTOMITEMTEXTCOLOR 9 249
    CHANGECUSTOMITEMVALUE 9 1 = 6
    CHANGECUSTOMITEMABIL 9 1 0 249
    CHANGECUSTOMITEMABIL 9 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 9 1 2 1
    CHANGECUSTOMITEMABIL 9 2 0 249
    CHANGECUSTOMITEMABIL 9 2 1 6
    CHANGECUSTOMITEMABIL 9 2 2 2
    CHANGECUSTOMITEMVALUE 9 2 = 21
    CHANGECUSTOMITEMABIL 9 4 0 249
    CHANGECUSTOMITEMABIL 9 4 1 17
    CHANGECUSTOMITEMABIL 9 4 2 5
    CHANGECUSTOMITEMABIL 9 4 3 0
    CHANGECUSTOMITEMVALUE 9 4 = 100
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[至尊]
    break
    #IF
    random 70
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 9 鉴定品质:[神话]
    CHANGECUSTOMITEMTEXTCOLOR 9 254
    CHANGECUSTOMITEMVALUE 9 1 = 5
    CHANGECUSTOMITEMABIL 9 1 0 254
    CHANGECUSTOMITEMABIL 9 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 9 1 2 1
    CHANGECUSTOMITEMABIL 9 2 0 254
    CHANGECUSTOMITEMABIL 9 2 1 6
    CHANGECUSTOMITEMABIL 9 2 2 2
    CHANGECUSTOMITEMVALUE 9 2 = 15
    CHANGECUSTOMITEMABIL 9 4 0 254
    CHANGECUSTOMITEMABIL 9 4 1 17
    CHANGECUSTOMITEMABIL 9 4 2 5
    CHANGECUSTOMITEMABIL 9 4 3 0
    CHANGECUSTOMITEMVALUE 9 4 = 60
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[神话]
    break
    #IF
    random 15
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 9 鉴定品质:[远古]
    CHANGECUSTOMITEMTEXTCOLOR 9 253
    CHANGECUSTOMITEMVALUE 9 1 = 4
    CHANGECUSTOMITEMABIL 9 1 0 253
    CHANGECUSTOMITEMABIL 9 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 9 1 2 1
    CHANGECUSTOMITEMABIL 9 2 0 253
    CHANGECUSTOMITEMABIL 9 2 1 6
    CHANGECUSTOMITEMABIL 9 2 2 2
    CHANGECUSTOMITEMVALUE 9 2 = 10
    CHANGECUSTOMITEMABIL 9 4 0 253
    CHANGECUSTOMITEMABIL 9 4 1 17
    CHANGECUSTOMITEMABIL 9 4 2 5
    CHANGECUSTOMITEMABIL 9 4 3 0
    CHANGECUSTOMITEMVALUE 9 4 = 45
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[远古]
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 9 鉴定品质:[绝品]
    CHANGECUSTOMITEMTEXTCOLOR 9 70
    CHANGECUSTOMITEMVALUE 9 1 = 3
    CHANGECUSTOMITEMABIL 9 1 0 70
    CHANGECUSTOMITEMABIL 9 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 9 1 2 1
    CHANGECUSTOMITEMABIL 9 2 0 70
    CHANGECUSTOMITEMABIL 9 2 1 6
    CHANGECUSTOMITEMABIL 9 2 2 2
    CHANGECUSTOMITEMVALUE 9 2 = 6
    CHANGECUSTOMITEMABIL 9 4 0 70
    CHANGECUSTOMITEMABIL 9 4 1 17
    CHANGECUSTOMITEMABIL 9 4 2 5
    CHANGECUSTOMITEMABIL 9 4 3 0
    CHANGECUSTOMITEMVALUE 9 4 = 30
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[绝品]
    break
    #IF
    random 5
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 9 鉴定品质:[极品]
    CHANGECUSTOMITEMTEXTCOLOR 9 222
    CHANGECUSTOMITEMVALUE 9 1 = 2
    CHANGECUSTOMITEMABIL 9 1 0 222
    CHANGECUSTOMITEMABIL 9 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 9 1 2 1
    CHANGECUSTOMITEMABIL 9 2 0 222
    CHANGECUSTOMITEMABIL 9 2 1 6
    CHANGECUSTOMITEMABIL 9 2 2 2
    CHANGECUSTOMITEMVALUE 9 2 = 3
    CHANGECUSTOMITEMABIL 9 4 0 222
    CHANGECUSTOMITEMABIL 9 4 1 17
    CHANGECUSTOMITEMABIL 9 4 2 5
    CHANGECUSTOMITEMABIL 9 4 3 0
    CHANGECUSTOMITEMVALUE 9 4 = 20
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[极品]
    break
    #IF
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 9 鉴定品质:[初级]
    CHANGECUSTOMITEMTEXTCOLOR 9 151
    CHANGECUSTOMITEMVALUE 9 1 = 1
    CHANGECUSTOMITEMABIL 9 1 0 151
    CHANGECUSTOMITEMABIL 9 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 9 1 2 1
    CHANGECUSTOMITEMABIL 9 2 0 151
    CHANGECUSTOMITEMABIL 9 2 1 6
    CHANGECUSTOMITEMABIL 9 2 2 2
    CHANGECUSTOMITEMVALUE 9 2 = 1
    CHANGECUSTOMITEMABIL 9 4 0 151
    CHANGECUSTOMITEMABIL 9 4 1 17
    CHANGECUSTOMITEMABIL 9 4 2 5
    CHANGECUSTOMITEMABIL 9 4 3 0
    CHANGECUSTOMITEMVALUE 9 4 = 10
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[初级]
    break
    #ELSEACT
    MESSAGEBOX \\升级失败:原因如下\\    1.你没有鉴定宝石\\    2.鉴定宝石请用高级装备回收获得!!
    break
    ;========〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
    ;========〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
    ;========〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
    [@时装改造]
    #IF
    NOT CHECKUSEITEM 17
    #ACT
    MESSAGEBOX \\这地方带装备了么?
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 17 鉴定品质:[至尊]
    CHANGECUSTOMITEMTEXTCOLOR 17 249
    CHANGECUSTOMITEMVALUE 17 1 = 6
    CHANGECUSTOMITEMABIL 17 1 0 249
    CHANGECUSTOMITEMABIL 17 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 17 1 2 1
    CHANGECUSTOMITEMABIL 17 2 0 249
    CHANGECUSTOMITEMABIL 17 2 1 6
    CHANGECUSTOMITEMABIL 17 2 2 2
    CHANGECUSTOMITEMVALUE 17 2 = 21
    CHANGECUSTOMITEMABIL 17 4 0 249
    CHANGECUSTOMITEMABIL 17 4 1 17
    CHANGECUSTOMITEMABIL 17 4 2 5
    CHANGECUSTOMITEMABIL 17 4 3 0
    CHANGECUSTOMITEMVALUE 17 4 = 100
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[至尊]
    break
    #IF
    random 10
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 17 鉴定品质:[神话]
    CHANGECUSTOMITEMTEXTCOLOR 17 254
    CHANGECUSTOMITEMVALUE 17 1 = 5
    CHANGECUSTOMITEMABIL 17 1 0 254
    CHANGECUSTOMITEMABIL 17 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 17 1 2 1
    CHANGECUSTOMITEMABIL 17 2 0 254
    CHANGECUSTOMITEMABIL 17 2 1 6
    CHANGECUSTOMITEMABIL 17 2 2 2
    CHANGECUSTOMITEMVALUE 17 2 = 15
    CHANGECUSTOMITEMABIL 17 4 0 254
    CHANGECUSTOMITEMABIL 17 4 1 17
    CHANGECUSTOMITEMABIL 17 4 2 5
    CHANGECUSTOMITEMABIL 17 4 3 0
    CHANGECUSTOMITEMVALUE 17 4 = 60
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[神话]
    break
    #IF
    random 5
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 17 鉴定品质:[远古]
    CHANGECUSTOMITEMTEXTCOLOR 17 253
    CHANGECUSTOMITEMVALUE 17 1 = 4
    CHANGECUSTOMITEMABIL 17 1 0 253
    CHANGECUSTOMITEMABIL 17 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 17 1 2 1
    CHANGECUSTOMITEMABIL 17 2 0 253
    CHANGECUSTOMITEMABIL 17 2 1 6
    CHANGECUSTOMITEMABIL 17 2 2 2
    CHANGECUSTOMITEMVALUE 17 2 = 10
    CHANGECUSTOMITEMABIL 17 4 0 253
    CHANGECUSTOMITEMABIL 17 4 1 17
    CHANGECUSTOMITEMABIL 17 4 2 5
    CHANGECUSTOMITEMABIL 17 4 3 0
    CHANGECUSTOMITEMVALUE 17 4 = 45
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[远古]
    break
    #IF
    random 2
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 17 鉴定品质:[绝品]
    CHANGECUSTOMITEMTEXTCOLOR 17 70
    CHANGECUSTOMITEMVALUE 17 1 = 3
    CHANGECUSTOMITEMABIL 17 1 0 70
    CHANGECUSTOMITEMABIL 17 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 17 1 2 1
    CHANGECUSTOMITEMABIL 17 2 0 70
    CHANGECUSTOMITEMABIL 17 2 1 6
    CHANGECUSTOMITEMABIL 17 2 2 2
    CHANGECUSTOMITEMVALUE 17 2 = 6
    CHANGECUSTOMITEMABIL 17 4 0 70
    CHANGECUSTOMITEMABIL 17 4 1 17
    CHANGECUSTOMITEMABIL 17 4 2 5
    CHANGECUSTOMITEMABIL 17 4 3 0
    CHANGECUSTOMITEMVALUE 17 4 = 30
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[绝品]
    break
    #IF
    random 1
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 17 鉴定品质:[极品]
    CHANGECUSTOMITEMTEXTCOLOR 17 222
    CHANGECUSTOMITEMVALUE 17 1 = 2
    CHANGECUSTOMITEMABIL 17 1 0 222
    CHANGECUSTOMITEMABIL 17 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 17 1 2 1
    CHANGECUSTOMITEMABIL 17 2 0 222
    CHANGECUSTOMITEMABIL 17 2 1 6
    CHANGECUSTOMITEMABIL 17 2 2 2
    CHANGECUSTOMITEMVALUE 17 2 = 3
    CHANGECUSTOMITEMABIL 17 4 0 222
    CHANGECUSTOMITEMABIL 17 4 1 17
    CHANGECUSTOMITEMABIL 17 4 2 5
    CHANGECUSTOMITEMABIL 17 4 3 0
    CHANGECUSTOMITEMVALUE 17 4 = 20
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[极品]
    break
    #IF
    checkitem 鉴定宝石 1
    #ACT
    MOV S11 0
    take 鉴定宝石 1
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 17 鉴定品质:[初级]
    CHANGECUSTOMITEMTEXTCOLOR 17 151
    CHANGECUSTOMITEMVALUE 17 1 = 1
    CHANGECUSTOMITEMABIL 17 1 0 151
    CHANGECUSTOMITEMABIL 17 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 17 1 2 1
    CHANGECUSTOMITEMABIL 17 2 0 151
    CHANGECUSTOMITEMABIL 17 2 1 6
    CHANGECUSTOMITEMABIL 17 2 2 2
    CHANGECUSTOMITEMVALUE 17 2 = 1
    CHANGECUSTOMITEMABIL 17 4 0 151
    CHANGECUSTOMITEMABIL 17 4 1 17
    CHANGECUSTOMITEMABIL 17 4 2 5
    CHANGECUSTOMITEMABIL 17 4 3 0
    CHANGECUSTOMITEMVALUE 17 4 = 10
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[初级]
    break
    #ELSEACT
    MESSAGEBOX \\升级失败:原因如下\\    1.你没有鉴定宝石\\    2.鉴定宝石请用高级装备回收获得!!
    break
    [@衣服改造]
    #IF
    NOT CHECKUSEITEM 0
    #ACT
    MESSAGEBOX \\这地方带装备了么?
    break
    #IF
    random 10
    checkitem 鉴定宝石 5
    #ACT
    MOV S11 0
    take 鉴定宝石 5
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 0 鉴定品质:[至尊]
    CHANGECUSTOMITEMTEXTCOLOR 0 249
    CHANGECUSTOMITEMVALUE 0 1 = 15
    CHANGECUSTOMITEMABIL 0 1 0 249
    CHANGECUSTOMITEMABIL 0 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 0 1 2 1
    CHANGECUSTOMITEMABIL 0 2 0 249
    CHANGECUSTOMITEMABIL 0 2 1 6
    CHANGECUSTOMITEMABIL 0 2 2 2
    CHANGECUSTOMITEMVALUE 0 2 = 120
    CHANGECUSTOMITEMABIL 0 4 0 249
    CHANGECUSTOMITEMABIL 0 4 1 17
    CHANGECUSTOMITEMABIL 0 4 2 5
    CHANGECUSTOMITEMABIL 0 4 3 0
    CHANGECUSTOMITEMVALUE 0 4 = 350
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[至尊]
    break
    #IF
    random 10
    checkitem 鉴定宝石 5
    #ACT
    MOV S11 0
    take 鉴定宝石 5
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 0 鉴定品质:[神话]
    CHANGECUSTOMITEMTEXTCOLOR 0 254
    CHANGECUSTOMITEMVALUE 0 1 = 10
    CHANGECUSTOMITEMABIL 0 1 0 254
    CHANGECUSTOMITEMABIL 0 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 0 1 2 1
    CHANGECUSTOMITEMABIL 0 2 0 254
    CHANGECUSTOMITEMABIL 0 2 1 6
    CHANGECUSTOMITEMABIL 0 2 2 2
    CHANGECUSTOMITEMVALUE 0 2 = 80
    CHANGECUSTOMITEMABIL 0 4 0 254
    CHANGECUSTOMITEMABIL 0 4 1 17
    CHANGECUSTOMITEMABIL 0 4 2 5
    CHANGECUSTOMITEMABIL 0 4 3 0
    CHANGECUSTOMITEMVALUE 0 4 = 210
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[神话]
    break
    #IF
    random 5
    checkitem 鉴定宝石 5
    #ACT
    MOV S11 0
    take 鉴定宝石 5
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 0 鉴定品质:[远古]
    CHANGECUSTOMITEMTEXTCOLOR 0 253
    CHANGECUSTOMITEMVALUE 0 1 = 8
    CHANGECUSTOMITEMABIL 0 1 0 253
    CHANGECUSTOMITEMABIL 0 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 0 1 2 1
    CHANGECUSTOMITEMABIL 0 2 0 253
    CHANGECUSTOMITEMABIL 0 2 1 6
    CHANGECUSTOMITEMABIL 0 2 2 2
    CHANGECUSTOMITEMVALUE 0 2 = 60
    CHANGECUSTOMITEMABIL 0 4 0 253
    CHANGECUSTOMITEMABIL 0 4 1 17
    CHANGECUSTOMITEMABIL 0 4 2 5
    CHANGECUSTOMITEMABIL 0 4 3 0
    CHANGECUSTOMITEMVALUE 0 4 = 160
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[远古]
    break
    #IF
    random 2
    checkitem 鉴定宝石 5
    #ACT
    MOV S11 0
    take 鉴定宝石 5
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 0 鉴定品质:[绝品]
    CHANGECUSTOMITEMTEXTCOLOR 0 70
    CHANGECUSTOMITEMVALUE 0 1 = 6
    CHANGECUSTOMITEMABIL 0 1 0 70
    CHANGECUSTOMITEMABIL 0 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 0 1 2 1
    CHANGECUSTOMITEMABIL 0 2 0 70
    CHANGECUSTOMITEMABIL 0 2 1 6
    CHANGECUSTOMITEMABIL 0 2 2 2
    CHANGECUSTOMITEMVALUE 0 2 = 45
    CHANGECUSTOMITEMABIL 0 4 0 70
    CHANGECUSTOMITEMABIL 0 4 1 17
    CHANGECUSTOMITEMABIL 0 4 2 5
    CHANGECUSTOMITEMABIL 0 4 3 0
    CHANGECUSTOMITEMVALUE 0 4 = 120
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[绝品]
    break
    #IF
    random 1
    checkitem 鉴定宝石 5
    #ACT
    MOV S11 0
    take 鉴定宝石 5
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 0 鉴定品质:[极品]
    CHANGECUSTOMITEMTEXTCOLOR 0 222
    CHANGECUSTOMITEMVALUE 0 1 = 4
    CHANGECUSTOMITEMABIL 0 1 0 222
    CHANGECUSTOMITEMABIL 0 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 0 1 2 1
    CHANGECUSTOMITEMABIL 0 2 0 222
    CHANGECUSTOMITEMABIL 0 2 1 6
    CHANGECUSTOMITEMABIL 0 2 2 2
    CHANGECUSTOMITEMVALUE 0 2 = 30
    CHANGECUSTOMITEMABIL 0 4 0 222
    CHANGECUSTOMITEMABIL 0 4 1 17
    CHANGECUSTOMITEMABIL 0 4 2 5
    CHANGECUSTOMITEMABIL 0 4 3 0
    CHANGECUSTOMITEMVALUE 0 4 = 80
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[极品]
    break
    #IF
    checkitem 鉴定宝石 5
    #ACT
    MOV S11 0
    take 鉴定宝石 5
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 0 鉴定品质:[初级]
    CHANGECUSTOMITEMTEXTCOLOR 0 151
    CHANGECUSTOMITEMVALUE 0 1 = 2
    CHANGECUSTOMITEMABIL 0 1 0 151
    CHANGECUSTOMITEMABIL 0 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 0 1 2 1
    CHANGECUSTOMITEMABIL 0 2 0 151
    CHANGECUSTOMITEMABIL 0 2 1 6
    CHANGECUSTOMITEMABIL 0 2 2 2
    CHANGECUSTOMITEMVALUE 0 2 = 15
    CHANGECUSTOMITEMABIL 0 4 0 151
    CHANGECUSTOMITEMABIL 0 4 1 17
    CHANGECUSTOMITEMABIL 0 4 2 5
    CHANGECUSTOMITEMABIL 0 4 3 0
    CHANGECUSTOMITEMVALUE 0 4 = 40
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[初级]
    break
    #ELSEACT
    MESSAGEBOX \\升级失败:原因如下\\    1.你没有鉴定宝石*5\\    2.鉴定宝石请用高级装备回收获得!!
    break
    [@武器改造]
    #IF
    NOT CHECKUSEITEM 1
    #ACT
    MESSAGEBOX \\这地方带装备了么?
    break
    #IF
    random 20
    checkitem 鉴定宝石 5
    #ACT
    MOV S11 0
    take 鉴定宝石 5
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 1 鉴定品质:[至尊]
    CHANGECUSTOMITEMTEXTCOLOR 1 249
    CHANGECUSTOMITEMVALUE 1 1 = 15
    CHANGECUSTOMITEMABIL 1 1 0 249
    CHANGECUSTOMITEMABIL 1 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 1 1 2 1
    CHANGECUSTOMITEMABIL 1 2 0 249
    CHANGECUSTOMITEMABIL 1 2 1 6
    CHANGECUSTOMITEMABIL 1 2 2 2
    CHANGECUSTOMITEMVALUE 1 2 = 120
    CHANGECUSTOMITEMABIL 1 4 0 249
    CHANGECUSTOMITEMABIL 1 4 1 17
    CHANGECUSTOMITEMABIL 1 4 2 5
    CHANGECUSTOMITEMABIL 1 4 3 0
    CHANGECUSTOMITEMVALUE 1 4 = 350
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[至尊]
    break
    #IF
    random 10
    checkitem 鉴定宝石 5
    #ACT
    MOV S11 0
    take 鉴定宝石 5
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 1 鉴定品质:[神话]
    CHANGECUSTOMITEMTEXTCOLOR 1 254
    CHANGECUSTOMITEMVALUE 1 1 = 10
    CHANGECUSTOMITEMABIL 1 1 0 254
    CHANGECUSTOMITEMABIL 1 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 1 1 2 1
    CHANGECUSTOMITEMABIL 1 2 0 254
    CHANGECUSTOMITEMABIL 1 2 1 6
    CHANGECUSTOMITEMABIL 1 2 2 2
    CHANGECUSTOMITEMVALUE 1 2 = 80
    CHANGECUSTOMITEMABIL 1 4 0 254
    CHANGECUSTOMITEMABIL 1 4 1 17
    CHANGECUSTOMITEMABIL 1 4 2 5
    CHANGECUSTOMITEMABIL 1 4 3 0
    CHANGECUSTOMITEMVALUE 1 4 = 210
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[神话]
    break
    #IF
    random 5
    checkitem 鉴定宝石 5
    #ACT
    MOV S11 0
    take 鉴定宝石 5
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 1 鉴定品质:[远古]
    CHANGECUSTOMITEMTEXTCOLOR 1 253
    CHANGECUSTOMITEMVALUE 1 1 = 8
    CHANGECUSTOMITEMABIL 1 1 0 253
    CHANGECUSTOMITEMABIL 1 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 1 1 2 1
    CHANGECUSTOMITEMABIL 1 2 0 253
    CHANGECUSTOMITEMABIL 1 2 1 6
    CHANGECUSTOMITEMABIL 1 2 2 2
    CHANGECUSTOMITEMVALUE 1 2 = 60
    CHANGECUSTOMITEMABIL 1 4 0 253
    CHANGECUSTOMITEMABIL 1 4 1 17
    CHANGECUSTOMITEMABIL 1 4 2 5
    CHANGECUSTOMITEMABIL 1 4 3 0
    CHANGECUSTOMITEMVALUE 1 4 = 160
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[远古]
    break
    #IF
    random 2
    checkitem 鉴定宝石 5
    #ACT
    MOV S11 0
    take 鉴定宝石 5
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 1 鉴定品质:[绝品]
    CHANGECUSTOMITEMTEXTCOLOR 1 70
    CHANGECUSTOMITEMVALUE 1 1 = 6
    CHANGECUSTOMITEMABIL 1 1 0 70
    CHANGECUSTOMITEMABIL 1 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 1 1 2 1
    CHANGECUSTOMITEMABIL 1 2 0 70
    CHANGECUSTOMITEMABIL 1 2 1 6
    CHANGECUSTOMITEMABIL 1 2 2 2
    CHANGECUSTOMITEMVALUE 1 2 = 45
    CHANGECUSTOMITEMABIL 1 4 0 70
    CHANGECUSTOMITEMABIL 1 4 1 17
    CHANGECUSTOMITEMABIL 1 4 2 5
    CHANGECUSTOMITEMABIL 1 4 3 0
    CHANGECUSTOMITEMVALUE 1 4 = 120
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[绝品]
    break
    #IF
    random 1
    checkitem 鉴定宝石 5
    #ACT
    MOV S11 0
    take 鉴定宝石 5
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 1 鉴定品质:[极品]
    CHANGECUSTOMITEMTEXTCOLOR 1 222
    CHANGECUSTOMITEMVALUE 1 1 = 4
    CHANGECUSTOMITEMABIL 1 1 0 222
    CHANGECUSTOMITEMABIL 1 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 1 1 2 1
    CHANGECUSTOMITEMABIL 1 2 0 222
    CHANGECUSTOMITEMABIL 1 2 1 6
    CHANGECUSTOMITEMABIL 1 2 2 2
    CHANGECUSTOMITEMVALUE 1 2 = 30
    CHANGECUSTOMITEMABIL 1 4 0 222
    CHANGECUSTOMITEMABIL 1 4 1 17
    CHANGECUSTOMITEMABIL 1 4 2 5
    CHANGECUSTOMITEMABIL 1 4 3 0
    CHANGECUSTOMITEMVALUE 1 4 = 80
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[极品]
    break
    #IF
    checkitem 鉴定宝石 5
    #ACT
    MOV S11 0
    take 鉴定宝石 5
    GetRandomText ..\QuestDiary\数据文件\升级抽取\位置二抽取.txt S11
    CHANGECUSTOMITEMTEXT 1 鉴定品质:[初级]
    CHANGECUSTOMITEMTEXTCOLOR 1 151
    CHANGECUSTOMITEMVALUE 1 1 = 2
    CHANGECUSTOMITEMABIL 1 1 0 151
    CHANGECUSTOMITEMABIL 1 1 1 <$STR(S11)>
    CHANGECUSTOMITEMABIL 1 1 2 1
    CHANGECUSTOMITEMABIL 1 2 0 151
    CHANGECUSTOMITEMABIL 1 2 1 6
    CHANGECUSTOMITEMABIL 1 2 2 2
    CHANGECUSTOMITEMVALUE 1 2 = 15
    CHANGECUSTOMITEMABIL 1 4 0 151
    CHANGECUSTOMITEMABIL 1 4 1 17
    CHANGECUSTOMITEMABIL 1 4 2 5
    CHANGECUSTOMITEMABIL 1 4 3 0
    CHANGECUSTOMITEMVALUE 1 4 = 40
    MESSAGEBOX \\装备鉴定成功,鉴定品质:[初级]
    break
    #ELSEACT
    MESSAGEBOX \\升级失败:原因如下\\    1.你没有鉴定宝石\\    2.鉴定宝石请用高级装备回收获得!!
    break
    1. 本站所有资源来源于用户上传和网络,如有侵权请邮件联系站长!
    2. 分享目的仅供大家学习和交流,请不要用于商业用途!
    3. 如果你也有好源码或者教程,可以到用户中心发布,分享有积分奖励和额外收入!
    4. 本站提供的源码、模板、插件等等其他资源,都不包含技术服务请大家谅解!
    5. 如有链接无法下载、失效或广告,请联系管理员处理!
    6. 本站资源售价只是赞助,收取费用仅维持本站的日常运营所需!
    7. 如遇到加密压缩包,默认解压密码为"347w.com",如遇到无法解压的请联系管理员!
    8. 因为资源和程序源码均为可复制品,所以不支持任何理由的退款兑现,请斟酌后支付下载
    声明如果标题没有注明"已测试"或者"测试可用"等字样的资源源码均未经过站长测试.特别注意没有标注的源码不保证任何可用性

    347w.com » [传奇脚本]GOM/GEE传奇脚本装备鉴定大师脚本例子
    

    常见问题FAQ

    免费下载或者VIP会员专享资源能否直接商用?
    本站所有资源版权均属于原作者所有,这里所提供资源均只能用于参考学习用,请勿直接商用。若由于商用引起版权纠纷,一切责任均由使用者承担。更多说明请参考 VIP介绍。
    提示下载完但解压或打开不了?
    最常见的情况是下载不完整: 可对比下载完压缩包的与网盘上的容量,若小于网盘提示的容量则是这个原因。这是浏览器下载的bug,建议用百度网盘软件或迅雷下载。 若排除这种情况,可在对应资源底部留言,或 联络我们.。
    你们有qq群吗怎么加入?
    当然有的,可以加入我们官方QQ群:738756745 欢迎大家一起学习讨论!。

    发表回复

    
    • 2074会员数(个)
    • 837资源数(个)
    • 10本周更新(个)
    • 0 今日更新(个)
    • 794稳定运行(天)

    提供最优质的资源集合

    立即查看 了解详情
    开通VIP 享更多特权,建议使用 账号 登录