[传奇脚本]GOM/GEE传奇脚本装备鉴定大师脚本例子

admin

[@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><每个回收１个鉴定宝石/SCOLOR=243>   <一键回收|254#即点即收/@分解啊1>\
<————————————————————-/AUTOCOLOR=7>\
<> <回收项目1:/SCOLOR=20><风云首饰回收: /SCOLOR=242><每个回收１个鉴定宝石/SCOLOR=243>   <一键回收|254#即点即收/@分解啊2>\
<————————————————————-/AUTOCOLOR=7>\
<> <回收项目2:/SCOLOR=21><火龙剑甲回收: /SCOLOR=242><每个回收１个鉴定宝石/SCOLOR=243>   <一键回收|254#即点即收/@分解啊3>\
<————————————————————-/AUTOCOLOR=7>\
<> <回收项目3:/SCOLOR=21><冰龙剑甲回收: /SCOLOR=242><每个回收５个鉴定宝石/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>\

\
<……………………………………………………………………………………/SCOLOR=249>\
< /SCOLOR=253>\
< /SCOLOR=253>\
< /SCOLOR=250>\
\
<                          ><【/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