彩虹引擎归元一气炉的脚本 如何改 要和官方一样 求高人指点

王红鸿

[@main]
  天地始，万物开，自有神通；星辰变，轮回转，当寻大道；\
  无上妙义，是为法则\  金石为刃，断玉开山，终为下品；\
  神通加之，呼风唤雨，已为灵秀；\  天地法则加之，移山填海，神鬼用命，莫有不能，此等神兵，\
  是为绝品。\\
  <绝世神兵相关/@weaponmenu>  <绝世宝甲相关/@clothesmenu>   <获得神兵材料/@toSubmitMenu>  <离开/@exit>\

[@clothesmenu]
  以凡品甲胄为形，以上古琉璃石为灵，以法则之力加之，\
即可炼制出绝世之宝甲！\\\
  <绝世宝甲介绍/@jieshaocloth>       <法则之力打造绝世宝甲/@makeclothes>\
  <重新命名绝世宝甲/@@changeclothesname>   <强化绝世宝甲属性/@@strengthenclothes>\
  <绝世宝甲属性转换/@changeclothesattr>\
  <衣服升级绝世神衣/@yifusjjssy>   <衣服换外观/@changeclohteslooks>  <返回/@main>\

[@yifusjjssy]
    绝世神衣可以和以下新衣服融合，提升绝世神衣威力：\
    与流金宝甲融合，获得10点攻击属性并与流金套装组成\
套装属性。再与天之流金宝甲融合，再次获得10点攻击属性\
并与天之流金套装组成套装属性。总共可获得20点攻击属性\
。若直接与天之流金武器融合，将直接获得20点攻击属性。\
  <衣服升级绝世神衣/@@upgradeclothesname>\

[@changeclothesattr]
  不同职业之间的宝甲属性可以相互转换，消耗<Color=green 100000金币>\
的费用，即可将宝甲属性转换。\
请选择宝甲转换后属性所属职业：\\\\
  <战士/@clothestozhanshi>   <法师/@clothestofashi>  <道士/@clothestodaoshi>   <妖士/@clothestoyaoshi>\
  <返回/@clothesmenu>


[@clothestoyaoshi]
#SAY
请放入您的衣服\\\  <返回/@clothesmenu>
#ACT
Showspotdlg 6 放入你的绝世神衣 @妖士绝世神衣

[@妖士绝世神衣]
#IF
!EQUAL $ITEMINFO[$PARAM(1)].STDMODE 10
!EQUAL $ITEMINFO[$PARAM(1)].STDMODE 11
#ACT
SENDMSG 5 此衣服不是绝世宝甲，不可使用此功能
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(80) 0
#ACT
SENDMSG 5 此衣服不是绝世宝甲，不可使用此功能
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].GODITEM.Job 3
#ACT
SENDMSG 5 两种属性一样，不用进行变换
break

#IF
checkgold 100000
#SAY
恭喜您的属性转换成功
#ACT
MOV P1 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
INC P1 20
MOV P2 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
INC P2 40
MOV P3 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
MULT P3 2
INC P3 28
MOV P4 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
MULT P4 2
INC P4 22
UPGRADEUSERITEM $PARAM(1) 156 = 3
UPGRADEUSERITEM $PARAM(1) 159 = $STR(P1)
UPGRADEUSERITEM $PARAM(1) 160 = $STR(P2)
UPGRADEUSERITEM $PARAM(1) 161 = $STR(P3)
UPGRADEUSERITEM $PARAM(1) 162 = $STR(P4)
take 金币 100000
break
close
#elseact
SENDMSG 5 金币不足，无法转换！

[@clothestodaoshi]
#SAY
请放入您的衣服\\\  <返回/@clothesmenu>
#ACT
Showspotdlg 6 放入你的绝世神衣 @道士绝世神衣

[@道士绝世神衣]
#IF
!EQUAL $ITEMINFO[$PARAM(1)].STDMODE 10
!EQUAL $ITEMINFO[$PARAM(1)].STDMODE 11
#ACT
SENDMSG 5 此衣服不是绝世宝甲，不可使用此功能
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(80) 0
#ACT
SENDMSG 5 此衣服不是绝世宝甲，不可使用此功能
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].GODITEM.Job 2
#ACT
SENDMSG 5 两种属性一样，不用进行变换
break

#IF
checkgold 100000
#SAY
恭喜您的属性转换成功
#ACT
MOV P1 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
INC P1 20
MOV P2 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
INC P2 42
MOV P3 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
MULT P3 2
INC P3 30
MOV P4 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
MULT P4 2
INC P4 22
UPGRADEUSERITEM $PARAM(1) 156 = 2
UPGRADEUSERITEM $PARAM(1) 159 = $STR(P1)
UPGRADEUSERITEM $PARAM(1) 160 = $STR(P2)
UPGRADEUSERITEM $PARAM(1) 161 = $STR(P3)
UPGRADEUSERITEM $PARAM(1) 162 = $STR(P4)
take 金币 100000
break
close
#elseact
SENDMSG 5 金币不足，无法转换！

[@clothestofashi]
#SAY
请放入您的衣服\\\  <返回/@clothesmenu>
#ACT
Showspotdlg 6 放入你的绝世神衣 @法师绝世神衣

[@法师绝世神衣]
#IF
!EQUAL $ITEMINFO[$PARAM(1)].STDMODE 10
!EQUAL $ITEMINFO[$PARAM(1)].STDMODE 11
#ACT
SENDMSG 5 此衣服不是绝世宝甲，不可使用此功能
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(80) 0
#ACT
SENDMSG 5 此衣服不是绝世宝甲，不可使用此功能
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].GODITEM.Job 1
#ACT
SENDMSG 5 两种属性一样，不用进行变换
break

#IF
checkgold 100000
#SAY
恭喜您的属性转换成功
#ACT
MOV P1 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
INC P1 20
MOV P2 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
INC P2 44
MOV P3 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
MULT P3 2
INC P3 27
MOV P4 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
MULT P4 2
INC P4 24
UPGRADEUSERITEM $PARAM(1) 156 = 1
UPGRADEUSERITEM $PARAM(1) 159 = $STR(P1)
UPGRADEUSERITEM $PARAM(1) 160 = $STR(P2)
UPGRADEUSERITEM $PARAM(1) 161 = $STR(P3)
UPGRADEUSERITEM $PARAM(1) 162 = $STR(P4)
take 金币 100000
break
close
#elseact
SENDMSG 5 金币不足，无法转换！

[@clothestozhanshi]
#SAY
请放入您的衣服\\\  <返回/@clothesmenu>
#ACT
Showspotdlg 6 放入你的绝世神衣 @战士绝世神衣

[@战士绝世神衣]
#IF
!EQUAL $ITEMINFO[$PARAM(1)].STDMODE 10
!EQUAL $ITEMINFO[$PARAM(1)].STDMODE 11
#ACT
SENDMSG 5 此衣服不是绝世宝甲，不可使用此功能
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(80) 0
#ACT
SENDMSG 5 此衣服不是绝世宝甲，不可使用此功能
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].GODITEM.Job 0
#ACT
SENDMSG 5 两种属性一样，不用进行变换
break

#IF
checkgold 100000
#SAY
恭喜您的属性转换成功
#ACT
MOV P1 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
INC P1 20
MOV P2 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
INC P2 40
MOV P3 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
MULT P3 2
INC P3 28
MOV P4 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
MULT P4 2
INC P4 22
UPGRADEUSERITEM $PARAM(1) 156 = 0
UPGRADEUSERITEM $PARAM(1) 159 = $STR(P1)
UPGRADEUSERITEM $PARAM(1) 160 = $STR(P2)
UPGRADEUSERITEM $PARAM(1) 161 = $STR(P3)
UPGRADEUSERITEM $PARAM(1) 162 = $STR(P4)
take 金币 100000
break
close
#elseact
SENDMSG 5 金币不足，无法转换！


[@makeclothes]
  绝世宝甲共有四种不同的类型，分别适合战士、法师、道\
士、妖士使用。\  请选择你想要打造的宝甲种类:\
  <color=red 只有主体可以穿戴绝世宝甲>\\
  <战士宝甲/@@makezhanshiclothes>    <法师宝甲/@@makefashiclothes> \
  <道士宝甲/@@makedaoshiclothes>    <妖士宝甲/@@makeyaoshiclothes>\
  <返回/@clothesmenu>\

[@jieshaocloth]
  绝世宝甲乃是融入天地法则的至坚战甲，绝世宝甲有独一无\
二的名字，有唯一的主人，只有主体可以装备。\\\
  <绝世宝甲属性介绍/@jieshaocloth_shuxing>    <如何打造绝世宝甲/@jieshaocloth_dazao>   \
  <如何重新命名宝甲/@jieshaocloth_rename>    <如何强化绝世宝甲/@jieshaocloth_strengthen> \
  <如何转换宝甲属性/@jieshaocloth_zhuanhuan>    <返回/@clothesmenu>\

[@jieshaocloth_zhuanhuan]
  花费<Color=green 100000金币>，可以在通过归元一气炉的宝甲属性转换\
功能，将某一职业的绝世宝甲属性转换为其他职业的绝世宝\
甲属性\\\\\
  <返回/@jieshaocloth>\\

[@jieshaocloth_strengthen]
  绝世宝甲两种属性，需要用不同的材料加以强化。\
    <Color=green 雪蚕丝>：强化基础属性，每次强化攻击+1、防御+2。\
    <Color=green 火蛛丝>：强化特殊属性，每强化10次属性提升一档。\
  两种属性强化初始消耗均为10个对应材料，每强化10次，消\耗的材料增加10个。两种属性均可强化100次。\\\
  <返回/@jieshaocloth>\

[@jieshaocloth_rename]
  绝世宝甲可以重新命名，宝甲主人在归元一气炉处，使用\
<Color=green 太虚神符>，即可将宝甲重新命名。\
  <Color=red 只有宝甲主人才可以更改宝甲名字>\\\\\
  <返回/@jieshaocloth>\

[@jieshaocloth_dazao]
  打造绝世宝甲，需要先选择宝甲属性所属职业，然后将一\
件衣服放入归元一气炉中，用一块<Color=green 上古琉璃石>加以熔炼，并\
为衣服附上自己独一无二的名字，既可以打造出绝世宝甲。\
宝甲的属性根据你的选择不同而不同。\
  <color=red 注：><color=green 妖士衣服打造后只有妖士可以穿戴，战法道衣服打造>\
<color=green 后只有战法道可以穿戴。>\
  <color=red 只有主体可以穿戴绝世宝甲>\
  <返回/@jieshaocloth>\

[@jieshaocloth_shuxing]
  绝世宝甲有两种属性：<color=green 基础属性和特殊属性。>\
  <color=green 基础属性：>攻击<color=red 20-40>、物防<color=red 0-28>、魔防<color=red 0-22>(战士)\
            魔法<color=red 20-44>、物防<color=red 0-27>、魔防<color=red 0-24>(法师)\
            道术<color=red 20-42>、物防<color=red 0-30>、魔防<color=red 0-22>(道士)\
            妖力<color=red 20-40>、物防<color=red 0-28>、魔防<color=red 0-22>(妖士)\
  <color=green 特殊属性：>当宝甲神力值满后，可以重塑死者金身，使\
            其满状态复活。\
  <color=red 注：><color=green 重塑金身效果和重生戒指效果不会同时触发，优先触>\
  <返回/@jieshaocloth>  <下一页/@nextpage_1>\

[@nextpage_1]
<color=green 发重生戒指效果，当重生戒指处于CD时，才会触发重塑金身>\
<color=green 效果。>\\\\\\
  <返回/@jieshaocloth>  <上一页/@jieshaocloth_shuxing>\

[@weaponmenu]
  以世上凡兵为形，以上古七彩石为灵，以法则之力加之，\
即可炼制出绝世之神兵！\\\
  <绝世神兵介绍/@jieshaoweapon>       <法则之力打造绝世神兵/@makecustom>\
  <重新命名绝世神兵/@@changecustomname>   <强化绝世神兵属性/@@strengthencustom>\
  <绝世神兵属性转换/@changemenu>   <武器换外观/@changeweaponlooks>\
  <返回/@main>\

[@changemenu]
  不同职业之间的神兵属性可以相互转换，消耗<Color=green 100000金币>\
的费用，即可将神兵属性转换。\
请选择神兵转换后属性所属职业\\\
  <战士/@changetozhanshi>   <法师/@changetofashi>   <道士/@changetodaoshi>\
  <返回/@weaponmenu>

[@changetozhanshi]
#SAY
放入你的绝世神兵\\\  <返回/@changemenu>
#ACT
Showspotdlg 6 放入你的绝世神兵 @战士绝世神兵

[@战士绝世神兵]
#IF
!EQUAL $ITEMINFO[$PARAM(1)].STDMODE 5
#ACT
SENDMSG 5 此物品不能不能打造神兵
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(80) 0
#ACT
SENDMSG 5 此武器不是绝世神兵，不可使用此功能
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].GODITEM.Job 0
#ACT
SENDMSG 5 两种属性一样，不用进行变换
break


#IF
!checkgold 100000
#ACT
SENDMSG 5 金币不足，无法转换！
break
#IF
EQUAL $ITEMINFO[$PARAM(1)].GODITEM.Ruler 1
#SAY
恭喜您的属性转换成功
#ACT
MOV P0 $ITEMINFO[$PARAM(1)].GODITEM.ReduceAC
INC P0 $ITEMINFO[$PARAM(1)].GODITEM.ReduceMAC
MOV P1 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
INC P1 168
MOV P2 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
INC P2 248
UPGRADEUSERITEM $PARAM(1) 156 = 0
UPGRADEUSERITEM $PARAM(1) 159 = $STR(P1)
UPGRADEUSERITEM $PARAM(1) 160 = $STR(P2)
UPGRADEUSERITEM $PARAM(1) 161 = $STR(P0)
UPGRADEUSERITEM $PARAM(1) 162 = 0
take 金币 100000
break
close
#ELSESAY
恭喜您的属性转换成功
#ELSEACT
MOV P0 $ITEMINFO[$PARAM(1)].GODITEM.ReduceAC
INC P0 $ITEMINFO[$PARAM(1)].GODITEM.ReduceMAC
MOV P1 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
INC P1 50
MOV P2 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
INC P2 100
UPGRADEUSERITEM $PARAM(1) 156 = 0
UPGRADEUSERITEM $PARAM(1) 159 = $STR(P1)
UPGRADEUSERITEM $PARAM(1) 160 = $STR(P2)
UPGRADEUSERITEM $PARAM(1) 161 = $STR(P0)
UPGRADEUSERITEM $PARAM(1) 162 = 0
take 金币 100000
break
close

[@changetofashi]
#SAY
放入你的绝世神兵\\\  <返回/@changemenu>
#ACT
Showspotdlg 6 放入你的绝世神兵 @法师绝世神兵

[@法师绝世神兵]
#IF
!EQUAL $ITEMINFO[$PARAM(1)].STDMODE 5
#ACT
SENDMSG 5 此物品不能不能打造神兵
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(80) 0
#ACT
SENDMSG 5 此武器不是绝世神兵，不可使用此功能
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].GODITEM.Job 1
#ACT
SENDMSG 5 两种属性一样，不用进行变换
break

#IF
!checkgold 100000
#ACT
SENDMSG 5 金币不足，无法转换！
break
#IF
EQUAL $ITEMINFO[$PARAM(1)].GODITEM.Ruler 1
#SAY
恭喜您的属性转换成功
#ACT
MOV P0 $ITEMINFO[$PARAM(1)].GODITEM.ReduceAC
INC P0 $ITEMINFO[$PARAM(1)].GODITEM.ReduceMAC
MOV P1 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
INC P1 148
MOV P2 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
INC P2 188
UPGRADEUSERITEM $PARAM(1) 156 = 1
UPGRADEUSERITEM $PARAM(1) 159 = $STR(P1)
UPGRADEUSERITEM $PARAM(1) 160 = $STR(P2)
UPGRADEUSERITEM $PARAM(1) 161 = 0
UPGRADEUSERITEM $PARAM(1) 162 = $STR(P0)
take 金币 100000
break
close
#ELSESAY
恭喜您的属性转换成功
#ELSEACT
MOV P0 $ITEMINFO[$PARAM(1)].GODITEM.ReduceAC
INC P0 $ITEMINFO[$PARAM(1)].GODITEM.ReduceMAC
MOV P1 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
INC P1 40
MOV P2 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
INC P2 70
UPGRADEUSERITEM $PARAM(1) 156 = 1
UPGRADEUSERITEM $PARAM(1) 159 = $STR(P1)
UPGRADEUSERITEM $PARAM(1) 160 = $STR(P2)
UPGRADEUSERITEM $PARAM(1) 161 = 0
UPGRADEUSERITEM $PARAM(1) 162 = $STR(P0)
take 金币 100000
break
close

[@changetodaoshi]
#SAY
放入你的绝世神兵\\\  <返回/@changemenu>
#ACT
Showspotdlg 6 放入你的绝世神兵 @道士绝世神兵

[@道士绝世神兵]
#IF
!EQUAL $ITEMINFO[$PARAM(1)].STDMODE 5
#ACT
SENDMSG 5 此物品不能不能打造神兵
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(80) 0
#ACT
SENDMSG 5 此武器不是绝世神兵，不可使用此功能
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].GODITEM.Job 2
#ACT
SENDMSG 5 两种属性一样，不用进行变换
break

#IF
!checkgold 100000
#ACT
SENDMSG 5 金币不足，无法转换！
break
#IF
EQUAL $ITEMINFO[$PARAM(1)].GODITEM.Ruler 1
#SAY
恭喜您的属性转换成功
#ACT
MOV P0 $ITEMINFO[$PARAM(1)].GODITEM.ReduceAC
INC P0 $ITEMINFO[$PARAM(1)].GODITEM.ReduceMAC
MOV P1 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
INC P1 158
MOV P2 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
INC P2 198
UPGRADEUSERITEM $PARAM(1) 156 = 2
UPGRADEUSERITEM $PARAM(1) 159 = $STR(P1)
UPGRADEUSERITEM $PARAM(1) 160 = $STR(P2)
UPGRADEUSERITEM $PARAM(1) 161 = 0
UPGRADEUSERITEM $PARAM(1) 162 = $STR(P0)
take 金币 100000
break
close
#ELSESAY
恭喜您的属性转换成功
#ELSEACT
MOV P0 $ITEMINFO[$PARAM(1)].GODITEM.ReduceAC
INC P0 $ITEMINFO[$PARAM(1)].GODITEM.ReduceMAC
MOV P1 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
INC P1 50
MOV P2 $ITEMINFO[$PARAM(1)].ITEMEXT(81)
INC P2 80
UPGRADEUSERITEM $PARAM(1) 156 = 2
UPGRADEUSERITEM $PARAM(1) 159 = $STR(P1)
UPGRADEUSERITEM $PARAM(1) 160 = $STR(P2)
UPGRADEUSERITEM $PARAM(1) 161 = 0
UPGRADEUSERITEM $PARAM(1) 162 = $STR(P0)
take 金币 100000
break
close

[@makecustom]
  绝世神兵共有三种不同的类型，分别适合战士、法师、道\
士使用。\
  请选择你想要打造的神兵种类:\\\\
  <战士/@@makezhanshicustom>    <法师/@@makefashicustom>      <道士/@@makedaoshicustom>      <妖士/@@makeyaoshicustom>\
  <返回/@weaponmenu>\

[@神兵打造]
#IF
EQUAL $ITEMINFO[$PARAM(1)].STDMODE 5
#ACT
GOTO @武器神兵打造
break
#IF
EQUAL $ITEMINFO[$PARAM(1)].STDMODE 10
#ACT
GOTO @衣服宝甲打造
break
#IF
EQUAL $ITEMINFO[$PARAM(1)].STDMODE 11
#ACT
GOTO @衣服宝甲打造
break

[@衣服宝甲打造]
#IF
EQUAL $PARAM(0) 1
#ACT
GOTO @绝世宝甲打造

#IF
EQUAL $PARAM(0) 2
#ACT
GOTO @绝世宝甲强化

#IF
EQUAL $PARAM(0) 3
#ACT
GOTO @绝世宝甲命名

#IF
EQUAL $PARAM(0) 4
#ACT
GOTO @绝世宝甲升级

[@绝世宝甲强化]
#IF
EQUAL $ITEMINFO[$PARAM(2)].STDNAME 雪蚕丝
#ACT
GOTO @强化雪蚕丝
break
#IF
EQUAL $ITEMINFO[$PARAM(2)].STDNAME 火蛛丝
#ACT
GOTO @强化火蛛丝
break

[@强化火蛛丝]
#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(80) 0
#ACT
SENDMSG 5 你放入的不是绝世宝甲，请放入绝世宝甲
break

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 99
#ACT
SENDMSG 5 对不起，绝世宝甲最高强化100次，不能进行宝甲强化
break

#IF
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 10
#ACT
MOV P9 10

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 10
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 20
#ACT
MOV P9 20


#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 20
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 30
#ACT
MOV P9 30

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 30
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 40
#ACT
MOV P9 40

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 40
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 50
#ACT
MOV P9 50

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 50
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 60
#ACT
MOV P9 60

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 60
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 70
#ACT
MOV P9 70

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 70
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 80
#ACT
MOV P9 80

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 80
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 90
#ACT
MOV P9 90

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 90
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 99
#ACT
MOV P9 100

#IF
EQUAL $ITEMINFO[$PARAM(2)].DURA $STR(P9)
#ACT
TAKEM $PARAM(2)
UPGRADEUSERITEM $PARAM(1) 83 + 1
GOTO @火蛛丝KT
break
#IF
LARGE $ITEMINFO[$PARAM(2)].DURA $STR(P9)
#ACT
UPGRADEUSERITEM $PARAM(2) 20 - $STR(P9)
UPGRADEUSERITEM $PARAM(1) 83 + 1
GOTO @火蛛丝KT
break
#ELSEACT
SENDMSG 5 对不起，您包裹里的材料不足，不能进行宝甲强化
break

[@火蛛丝KT]
#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(82) 10
#ACT
UPGRADEUSERITEM $PARAM(1) 163 + 2
INC P9 10
SENDMSG 5 恭喜您，强化绝世宝甲成功！下级此类强化需要数量<$STR(P9)>的火蛛丝
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(82) 20
#ACT
UPGRADEUSERITEM $PARAM(1) 163 + 2
INC P9 10
SENDMSG 5 恭喜您，强化绝世宝甲成功！下级此类强化需要数量<$STR(P9)>的火蛛丝
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(82) 30
#ACT
UPGRADEUSERITEM $PARAM(1) 163 + 2
INC P9 10
SENDMSG 5 恭喜您，强化绝世宝甲成功！下级此类强化需要数量<$STR(P9)>的火蛛丝
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(82) 40
#ACT
UPGRADEUSERITEM $PARAM(1) 163 + 3
INC P9 10
SENDMSG 5 恭喜您，强化绝世宝甲成功！下级此类强化需要数量<$STR(P9)>的火蛛丝
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(82) 50
#ACT
UPGRADEUSERITEM $PARAM(1) 163 + 3
INC P9 10
SENDMSG 5 恭喜您，强化绝世宝甲成功！下级此类强化需要数量<$STR(P9)>的火蛛丝
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(82) 60
#ACT
UPGRADEUSERITEM $PARAM(1) 163 + 3
INC P9 10
SENDMSG 5 恭喜您，强化绝世宝甲成功！下级此类强化需要数量<$STR(P9)>的火蛛丝
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(82) 70
#ACT
UPGRADEUSERITEM $PARAM(1) 163 + 4
INC P9 10
SENDMSG 5 恭喜您，强化绝世宝甲成功！下级此类强化需要数量<$STR(P9)>的火蛛丝
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(82) 80
#ACT
UPGRADEUSERITEM $PARAM(1) 163 + 4
INC P9 10
SENDMSG 5 恭喜您，强化绝世宝甲成功！下级此类强化需要数量<$STR(P9)>的火蛛丝
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(82) 90
#ACT
UPGRADEUSERITEM $PARAM(1) 163 + 4
INC P9 10
SENDMSG 5 恭喜您，强化绝世宝甲成功！下级此类强化需要数量<$STR(P9)>的火蛛丝
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(82) 100
#ACT
UPGRADEUSERITEM $PARAM(1) 163 + 5
INC P9 10
SENDMSG 5 恭喜您，强化绝世宝甲成功！下级此类强化需要数量<$STR(P9)>的火蛛丝
break
#ELSEACT
SENDMSG 5 恭喜您，强化绝世宝甲成功！下级此类强化需要数量<$STR(P9)>的火蛛丝
break

[@强化雪蚕丝]
#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(80) 0
#ACT
SENDMSG 5 你放入的不是绝世宝甲，请放入绝世宝甲
break

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 99
#ACT
SENDMSG 5 对不起，绝世宝甲最高强化100次，不能进行宝甲强化
break

#IF
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 10
#ACT
MOV P9 10

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 10
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 20
#ACT
MOV P9 20


#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 20
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 30
#ACT
MOV P9 30

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 30
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 40
#ACT
MOV P9 40

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 40
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 50
#ACT
MOV P9 50

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 50
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 60
#ACT
MOV P9 60

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 60
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 70
#ACT
MOV P9 70

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 70
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 80
#ACT
MOV P9 80

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 80
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 90
#ACT
MOV P9 90

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 90
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 99
#ACT
MOV P9 100

#IF
EQUAL $ITEMINFO[$PARAM(2)].DURA $STR(P9)
#ACT
UPGRADEUSERITEM $PARAM(1) 159 + 1
UPGRADEUSERITEM $PARAM(1) 160 + 1
UPGRADEUSERITEM $PARAM(1) 161 + 2
UPGRADEUSERITEM $PARAM(1) 162 + 2
TAKEM $PARAM(2)
UPGRADEUSERITEM $PARAM(1) 81 + 1
SENDMSG 5 恭喜您，强化绝世宝甲成功！下级此类强化需要数量<$STR(P9)>的雪蚕丝
break

#IF
LARGE $ITEMINFO[$PARAM(2)].DURA $STR(P9)
#ACT
UPGRADEUSERITEM $PARAM(1) 159 + 1
UPGRADEUSERITEM $PARAM(1) 160 + 1
UPGRADEUSERITEM $PARAM(1) 161 + 2
UPGRADEUSERITEM $PARAM(1) 162 + 2
UPGRADEUSERITEM $PARAM(2) 20 - $STR(P9)
UPGRADEUSERITEM $PARAM(1) 81 + 1
SENDMSG 5 恭喜您，强化绝世宝甲成功！下级此类强化需要数量<$STR(P9)>的雪蚕丝
break
#ELSEACT
SENDMSG 5 对不起，您包裹里的材料不足，不能进行宝甲强化
break

[@绝世宝甲命名]
#IF
!EQUAL $ITEMINFO[$PARAM(1)].GODITEM.HumName $USERNAME
#ACT
SENDMSG 5 只有宝甲主人才能更改宝甲名字
break
#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(80) 0
#ACT
SENDMSG 5 你放入的不是绝世宝甲，请放入绝世宝甲
break
#IF
EQUAL $ITEMINFO[$PARAM(2)].STDNAME 太虚神符
#ACT
UPGRADEUSERITEM $PARAM(1) 157 = $PARAM(3)
TAKEM $PARAM(2)
#ELSEACT
SENDMSG 5 你放入的材料错误，请放入太虚神符
break

[@绝世宝甲打造]
#IF
EQUAL $PARAM(4) 0
#ACT
GOTO @战士绝世宝甲打造

#IF
EQUAL $PARAM(4) 1
#ACT
GOTO @法师绝世宝甲打造

#IF
EQUAL $PARAM(0) 2
#ACT
GOTO @道士绝世宝甲打造
#IF
EQUAL $PARAM(4) 3
#ACT
GOTO @妖士绝世宝甲打造

[@战士绝世宝甲打造]
#IF
!EQUAL $ITEMINFO[$PARAM(2)].STDNAME 上古琉璃石
#ACT
SENDMSG 5 你放入的材料错误，请放入上古琉璃石
break
#IF
EQUAL $ITEMINFO[$PARAM(1)].STDMODE 10
#ACT
GIVE 绝世宝甲 1

#IF
EQUAL $ITEMINFO[$PARAM(1)].STDMODE 11
#ACT
GIVE 绝世宝衣 1
#IF
TRUE
#ACT
UPGRADEUSERITEM $PARAM(10) 156 = 0
UPGRADEUSERITEM $PARAM(10) 157 = $PARAM(3)
UPGRADEUSERITEM $PARAM(10) 158 = $USERNAME
UPGRADEUSERITEM $PARAM(10) 159 = 20
UPGRADEUSERITEM $PARAM(10) 160 = 40
UPGRADEUSERITEM $PARAM(10) 161 = 28
UPGRADEUSERITEM $PARAM(10) 162 = 22
UPGRADEUSERITEM $PARAM(10) 163 = 10
MOV P10 $ITEMINFO[$PARAM(1)].LOOKS
MOV P11 $ITEMINFO[$PARAM(1)].Shape
UPGRADEUSERITEM $PARAM(10) 165 = $STR(P11)
UPGRADEUSERITEM $PARAM(10) 166 = $STR(P10)
TAKEM $PARAM(1)
TAKEM $PARAM(2)
SENDMSG 15 恭喜玩家-<$USERNAME>成功开启归元一气炉，引动天地法则，打造出绝世宝甲-<$PARAM(3)>
break

[@法师绝世宝甲打造]
#IF
!EQUAL $ITEMINFO[$PARAM(2)].STDNAME 上古琉璃石
#ACT
SENDMSG 5 你放入的材料错误，请放入上古琉璃石
break
#IF
EQUAL $ITEMINFO[$PARAM(1)].STDMODE 10
#ACT
GIVE 绝世宝甲 1

#IF
EQUAL $ITEMINFO[$PARAM(1)].STDMODE 11
#ACT
GIVE 绝世宝衣 1
#IF
TRUE
#ACT
UPGRADEUSERITEM $PARAM(1) 156 = 1
UPGRADEUSERITEM $PARAM(1) 157 = $PARAM(3)
UPGRADEUSERITEM $PARAM(1) 158 = $USERNAME
UPGRADEUSERITEM $PARAM(1) 159 = 20
UPGRADEUSERITEM $PARAM(1) 160 = 44
UPGRADEUSERITEM $PARAM(1) 161 = 27
UPGRADEUSERITEM $PARAM(1) 162 = 24
UPGRADEUSERITEM $PARAM(10) 163 = 10
MOV P10 $ITEMINFO[$PARAM(1)].LOOKS
MOV P11 $ITEMINFO[$PARAM(1)].Shape
UPGRADEUSERITEM $PARAM(10) 165 = $STR(P11)
UPGRADEUSERITEM $PARAM(10) 166 = $STR(P10)
TAKEM $PARAM(1)
TAKEM $PARAM(2)
SENDMSG 15 恭喜玩家-<$USERNAME>成功开启归元一气炉，引动天地法则，打造出绝世宝甲-<$PARAM(3)>
break

[@道士绝世宝甲打造]
#IF
!EQUAL $ITEMINFO[$PARAM(2)].STDNAME 上古琉璃石
#ACT
SENDMSG 5 你放入的材料错误，请放入上古琉璃石
break
#IF
EQUAL $ITEMINFO[$PARAM(1)].STDMODE 10
#ACT
GIVE 绝世宝甲 1

#IF
EQUAL $ITEMINFO[$PARAM(1)].STDMODE 11
#ACT
GIVE 绝世宝衣 1
#IF
TRUE
#ACT
UPGRADEUSERITEM $PARAM(1) 156 = 2
UPGRADEUSERITEM $PARAM(1) 157 = $PARAM(3)
UPGRADEUSERITEM $PARAM(1) 158 = $USERNAME
UPGRADEUSERITEM $PARAM(1) 159 = 20
UPGRADEUSERITEM $PARAM(1) 160 = 42
UPGRADEUSERITEM $PARAM(1) 161 = 30
UPGRADEUSERITEM $PARAM(1) 162 = 22
UPGRADEUSERITEM $PARAM(10) 163 = 10
MOV P10 $ITEMINFO[$PARAM(1)].LOOKS
MOV P11 $ITEMINFO[$PARAM(1)].Shape
UPGRADEUSERITEM $PARAM(10) 165 = $STR(P11)
UPGRADEUSERITEM $PARAM(10) 166 = $STR(P10)
TAKEM $PARAM(1)
TAKEM $PARAM(2)
SENDMSG 15 恭喜玩家-<$USERNAME>成功开启归元一气炉，引动天地法则，打造出绝世宝甲-<$PARAM(3)>
break

[@妖士绝世宝甲打造]
#IF
!EQUAL $ITEMINFO[$PARAM(2)].STDNAME 上古琉璃石
#ACT
SENDMSG 5 你放入的材料错误，请放入上古琉璃石
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].STDMODE 10
#ACT
GIVE 绝世宝甲 1

#IF
EQUAL $ITEMINFO[$PARAM(1)].STDMODE 11
#ACT
GIVE 绝世宝衣 1

#IF
TRUE
#ACT
UPGRADEUSERITEM $PARAM(1) 156 = 3
UPGRADEUSERITEM $PARAM(1) 157 = $PARAM(3)
UPGRADEUSERITEM $PARAM(1) 158 = $USERNAME
UPGRADEUSERITEM $PARAM(1) 159 = 20
UPGRADEUSERITEM $PARAM(1) 160 = 40
UPGRADEUSERITEM $PARAM(1) 161 = 28
UPGRADEUSERITEM $PARAM(1) 162 = 22
UPGRADEUSERITEM $PARAM(10) 163 = 10
MOV P10 $ITEMINFO[$PARAM(1)].LOOKS
MOV P11 $ITEMINFO[$PARAM(1)].Shape
UPGRADEUSERITEM $PARAM(10) 165 = $STR(P11)
UPGRADEUSERITEM $PARAM(10) 166 = $STR(P10)
TAKEM $PARAM(1)
TAKEM $PARAM(2)
SENDMSG 15 恭喜玩家-<$USERNAME>成功开启归元一气炉，引动天地法则，打造出绝世宝甲-<$PARAM(3)>
break

[@武器神兵打造]
#IF
EQUAL $PARAM(0) 1
#ACT
GOTO @绝世神兵打造

#IF
EQUAL $PARAM(0) 2
#ACT
GOTO @绝世神兵强化

#IF
EQUAL $PARAM(0) 3
#ACT
GOTO @绝世神兵命名

#IF
EQUAL $PARAM(0) 4
#ACT
GOTO @绝世神兵升级


[@绝世神兵强化]
#IF
EQUAL $ITEMINFO[$PARAM(2)].STDNAME 赤炎神铁
#ACT
GOTO @强化赤炎神铁
break
#IF
EQUAL $ITEMINFO[$PARAM(2)].STDNAME 紫金玄铁
#ACT
GOTO @强化紫金玄铁
break
#IF
EQUAL $ITEMINFO[$PARAM(2)].STDNAME 千年寒铁
#ACT
GOTO @强化千年寒铁
break

[@强化绝世神兵]
#IF
EQUAL $ItemExN.$PARAM(98).NAME 赤炎神铁
#ACT
GOTO @强化赤炎神铁
break
#IF
EQUAL $ItemExN.$PARAM(98).NAME 紫金玄铁
#ACT
GOTO @强化紫金玄铁
break
#IF
EQUAL $ItemExN.$PARAM(98).NAME 千年寒铁
#ACT
GOTO @强化千年寒铁
break

[@强化赤炎神铁]
#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(80) 0
#ACT
SENDMSG 5 你放入的不是绝世神兵，请放入绝世神兵
break

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 99
#ACT
SENDMSG 5 对不起，绝世神兵最高强化100次，不能进行武器强化
break

#IF
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 10
#ACT
MOV P9 10

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 10
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 20
#ACT
MOV P9 20


#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 20
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 30
#ACT
MOV P9 30

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 30
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 40
#ACT
MOV P9 40

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 40
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 50
#ACT
MOV P9 50

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 50
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 60
#ACT
MOV P9 60

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 60
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 70
#ACT
MOV P9 70

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 70
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 80
#ACT
MOV P9 80

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 80
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 90
#ACT
MOV P9 90

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 90
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 99
#ACT
MOV P9 100

#IF
EQUAL $ITEMINFO[$PARAM(2)].DURA $STR(P9)
#ACT
TAKEM $PARAM(2)
UPGRADEUSERITEM $PARAM(1) 83 + 1
GOTO @赤炎神铁KT
break
#IF
LARGE $ITEMINFO[$PARAM(2)].DURA $STR(P9)
#ACT
UPGRADEUSERITEM $PARAM(2) 20 - $STR(P9)
UPGRADEUSERITEM $PARAM(1) 83 + 1
GOTO @赤炎神铁KT
break
#ELSEACT
SENDMSG 5 对不起，您包裹里的材料不足，不能进行武器强化
break

[@赤炎神铁KT]
#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(82) 10
#ACT
UPGRADEUSERITEM $PARAM(1) 163 - 5
INC P9 10
SENDMSG 5 恭喜您，强化绝世神兵成功！下级此类强化需要数量<$STR(P9)>的赤炎神铁
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(82) 20
#ACT
UPGRADEUSERITEM $PARAM(1) 163 - 4
INC P9 10
SENDMSG 5 恭喜您，强化绝世神兵成功！下级此类强化需要数量<$STR(P9)>的赤炎神铁
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(82) 30
#ACT
UPGRADEUSERITEM $PARAM(1) 163 - 4
INC P9 10
SENDMSG 5 恭喜您，强化绝世神兵成功！下级此类强化需要数量<$STR(P9)>的赤炎神铁
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(82) 40
#ACT
UPGRADEUSERITEM $PARAM(1) 163 - 4
INC P9 10
SENDMSG 5 恭喜您，强化绝世神兵成功！下级此类强化需要数量<$STR(P9)>的赤炎神铁
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(82) 50
#ACT
UPGRADEUSERITEM $PARAM(1) 163 - 3
INC P9 10
SENDMSG 5 恭喜您，强化绝世神兵成功！下级此类强化需要数量<$STR(P9)>的赤炎神铁
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(82) 60
#ACT
UPGRADEUSERITEM $PARAM(1) 163 - 3
INC P9 10
SENDMSG 5 恭喜您，强化绝世神兵成功！下级此类强化需要数量<$STR(P9)>的赤炎神铁
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(82) 70
#ACT
UPGRADEUSERITEM $PARAM(1) 163 - 3
INC P9 10
SENDMSG 5 恭喜您，强化绝世神兵成功！下级此类强化需要数量<$STR(P9)>的赤炎神铁
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(82) 80
#ACT
UPGRADEUSERITEM $PARAM(1) 163 - 2
INC P9 10
SENDMSG 5 恭喜您，强化绝世神兵成功！下级此类强化需要数量<$STR(P9)>的赤炎神铁
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(82) 90
#ACT
UPGRADEUSERITEM $PARAM(1) 163 - 2
INC P9 10
SENDMSG 5 恭喜您，强化绝世神兵成功！下级此类强化需要数量<$STR(P9)>的赤炎神铁
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(82) 100
#ACT
UPGRADEUSERITEM $PARAM(1) 163 - 2
INC P9 10
SENDMSG 5 恭喜您，强化绝世神兵成功！下级此类强化需要数量<$STR(P9)>的赤炎神铁
break
#ELSEACT
SENDMSG 5 恭喜您，强化绝世神兵成功！下级此类强化需要数量<$STR(P9)>的赤炎神铁
break


[@强化紫金玄铁]
#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(80) 0
#ACT
SENDMSG 5 你放入的不是绝世神兵，请放入绝世神兵
break

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 99
#ACT
SENDMSG 5 对不起，绝世神兵最高强化100次，不能进行武器强化
break

#IF
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 10
#ACT
MOV P9 10

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 10
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 20
#ACT
MOV P9 20


#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 20
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 30
#ACT
MOV P9 30

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 30
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 40
#ACT
MOV P9 40

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 40
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 50
#ACT
MOV P9 50

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 50
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 60
#ACT
MOV P9 60

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 60
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 70
#ACT
MOV P9 70

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 70
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 80
#ACT
MOV P9 80

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 80
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 90
#ACT
MOV P9 90

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 90
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 99
#ACT
MOV P9 100

#IF
EQUAL $ITEMINFO[$PARAM(2)].DURA $STR(P9)
#ACT
TAKEM $PARAM(2)
GOTO @紫金玄铁XK
break
#IF
LARGE $ITEMINFO[$PARAM(2)].DURA $STR(P9)
#ACT
UPGRADEUSERITEM $PARAM(2) 20 - $STR(P9)
GOTO @紫金玄铁XK
break
#ELSEACT
SENDMSG 5 对不起，您包裹里的材料不足，不能进行武器强化
break

[@紫金玄铁XK]
#IF
LARGE $ITEMINFO[$PARAM(1)].GODITEM.ReduceAC 0
#ACT
UPGRADEUSERITEM $PARAM(1) 161 + 2
UPGRADEUSERITEM $PARAM(1) 82 + 1
SENDMSG 5 恭喜您，强化绝世神兵成功！下级此类强化需要数量<$STR(P9)>的紫金玄铁
break

#IF
LARGE $ITEMINFO[$PARAM(1)].GODITEM.ReduceMAC 0
#ACT
UPGRADEUSERITEM $PARAM(1) 162 + 2
UPGRADEUSERITEM $PARAM(1) 82 + 1
SENDMSG 5 恭喜您，强化绝世神兵成功！下级此类强化需要数量<$STR(P9)>的紫金玄铁
break

[@强化千年寒铁]
#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(80) 0
#ACT
SENDMSG 5 你放入的不是绝世神兵，请放入绝世神兵
break

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 99
#ACT
SENDMSG 5 对不起，绝世神兵最高强化100次，不能进行武器强化
break

#IF
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 10
#ACT
MOV P9 10

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 10
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 20
#ACT
MOV P9 20


#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 20
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 30
#ACT
MOV P9 30

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 30
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 40
#ACT
MOV P9 40

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 40
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 50
#ACT
MOV P9 50

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 50
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 60
#ACT
MOV P9 60

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 60
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 70
#ACT
MOV P9 70

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 70
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 80
#ACT
MOV P9 80

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 80
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 90
#ACT
MOV P9 90

#IF
LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 90
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 99
#ACT
MOV P9 100

#IF
EQUAL $ITEMINFO[$PARAM(2)].DURA $STR(P9)
#ACT
UPGRADEUSERITEM $PARAM(1) 159 + 1
UPGRADEUSERITEM $PARAM(1) 160 + 1
TAKEM $PARAM(2)
UPGRADEUSERITEM $PARAM(1) 81 + 1
SENDMSG 5 恭喜您，强化绝世神兵成功！下级此类强化需要数量<$STR(P9)>的千年寒铁
break

#IF
LARGE $ITEMINFO[$PARAM(2)].DURA $STR(P9)
#ACT
UPGRADEUSERITEM $PARAM(1) 159 + 1
UPGRADEUSERITEM $PARAM(1) 160 + 1
UPGRADEUSERITEM $PARAM(2) 20 - $STR(P9)
UPGRADEUSERITEM $PARAM(1) 81 + 1
SENDMSG 5 恭喜您，强化绝世神兵成功！下级此类强化需要数量<$STR(P9)>的千年寒铁
break
#ELSEACT
SENDMSG 5 对不起，您包裹里的材料不足，不能进行武器强化
break


[@绝世神兵命名]
#IF
!EQUAL $ITEMINFO[$PARAM(1)].GODITEM.HumName $USERNAME
#ACT
SENDMSG 5 只有神兵主人才能更改神兵名字
break
#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(80) 0
#ACT
SENDMSG 5 你放入的不是绝世神兵，请放入绝世神兵
break
#IF
EQUAL $ITEMINFO[$PARAM(2)].STDNAME 太乙神符
#ACT
UPGRADEUSERITEM $PARAM(1) 157 = $PARAM(3)
TAKEM $PARAM(2)
#ELSEACT
SENDMSG 5 你放入的材料错误，请放入太乙神符
break

[@绝世神兵打造]
#IF
EQUAL $PARAM(4) 0
#ACT
GOTO @战士绝世神兵打造

#IF
EQUAL $PARAM(4) 1
#ACT
GOTO @法师绝世神兵打造

#IF
EQUAL $PARAM(0) 2
#ACT
GOTO @道士绝世神兵打造
#IF
EQUAL $PARAM(4) 3
#ACT
GOTO @妖士绝世神兵打造

[@战士绝世神兵打造]
#IF
!EQUAL $ITEMINFO[$PARAM(2)].STDNAME 上古七彩石
#ACT
SENDMSG 5 你放入的材料错误，请放入上古七彩石
break
#IF
POSINLIST $ITEMINFO[$PARAM(1)].STDNAME ..\QuestDiary\游戏读取\主宰者武器.txt S12
#ACT
GETVALIDSTR $STR(S12) | S13 P60
give 绝世神兵 1
UPGRADEUSERITEM $PARAM(10) 156 = 0
UPGRADEUSERITEM $PARAM(10) 6 = 7
UPGRADEUSERITEM $PARAM(10) 157 = $PARAM(3)
UPGRADEUSERITEM $PARAM(10) 158 = $USERNAME
UPGRADEUSERITEM $PARAM(10) 159 = 168
UPGRADEUSERITEM $PARAM(10) 160 = 248
UPGRADEUSERITEM $PARAM(10) 161 = 10
UPGRADEUSERITEM $PARAM(10) 163 = 25
UPGRADEUSERITEM $PARAM(10) 18 = 1
UPGRADEUSERITEM $PARAM(10) 19 = 3
MOV P10 $ITEMINFO[$PARAM(1)].LOOKS
UPGRADEUSERITEM $PARAM(10) 166 = $STR(P10)
UPGRADEUSERITEM $PARAM(10) 16 = $STR(P60)
UPGRADEUSERITEM $PARAM(10) 59 = 1
UPGRADEUSERITEM $PARAM(10) 164 = 1
#ELSEACT
give 绝世神兵 1
UPGRADEUSERITEM $PARAM(10) 156 = 0
UPGRADEUSERITEM $PARAM(10) 6 = 7
UPGRADEUSERITEM $PARAM(10) 157 = $PARAM(3)
UPGRADEUSERITEM $PARAM(10) 158 = $USERNAME
UPGRADEUSERITEM $PARAM(10) 159 = 50
UPGRADEUSERITEM $PARAM(10) 160 = 100
UPGRADEUSERITEM $PARAM(10) 161 = 10
UPGRADEUSERITEM $PARAM(10) 163 = 25
UPGRADEUSERITEM $PARAM(10) 18 = 1
UPGRADEUSERITEM $PARAM(10) 19 = 3
MOV P10 $ITEMINFO[$PARAM(1)].LOOKS
UPGRADEUSERITEM $PARAM(10) 166 = $STR(P10)

#IF
EQUAL $ITEMINFO[$PARAM(1)].FEATURE 0
#ACT
MOV P11 $ITEMINFO[$PARAM(1)].Shape
UPGRADEUSERITEM $PARAM(10) 165 = $STR(P11)
TAKEM $PARAM(1)
TAKEM $PARAM(2)
SENDMSG 15 恭喜玩家-<$USERNAME>成功开启归元一气炉，引动天地法则，打造出绝世神兵-<$PARAM(3)>
break

#IF
LARGE $ITEMINFO[$PARAM(1)].FEATURE 0
#ACT
MOV P11 $ITEMINFO[$PARAM(1)].FEATURE
UPGRADEUSERITEM $PARAM(10) 165 = $STR(P11)
TAKEM $PARAM(1)
TAKEM $PARAM(2)
SENDMSG 15 恭喜玩家-<$USERNAME>成功开启归元一气炉，引动天地法则，打造出绝世神兵-<$PARAM(3)>
break


[@法师绝世神兵打造]
#IF
!EQUAL $ITEMINFO[$PARAM(2)].STDNAME 上古七彩石
#ACT
SENDMSG 5 你放入的材料错误，请放入上古七彩石
break
#IF
POSINLIST $ITEMINFO[$PARAM(1)].STDNAME ..\QuestDiary\游戏读取\主宰者武器.txt S12
#ACT
GETVALIDSTR $STR(S12) | S13 P60
give 绝世神兵 1
UPGRADEUSERITEM $PARAM(10) 156 = 1
UPGRADEUSERITEM $PARAM(10) 6 = 7
UPGRADEUSERITEM $PARAM(10) 157 = $PARAM(3)
UPGRADEUSERITEM $PARAM(10) 158 = $USERNAME
UPGRADEUSERITEM $PARAM(10) 159 = 148
UPGRADEUSERITEM $PARAM(10) 160 = 188
UPGRADEUSERITEM $PARAM(10) 162 = 10
UPGRADEUSERITEM $PARAM(10) 163 = 25
UPGRADEUSERITEM $PARAM(10) 18 = 1
UPGRADEUSERITEM $PARAM(10) 19 = 3
MOV P10 $ITEMINFO[$PARAM(1)].LOOKS
UPGRADEUSERITEM $PARAM(10) 166 = $STR(P10)
UPGRADEUSERITEM $PARAM(10) 16 = $STR(P60)
UPGRADEUSERITEM $PARAM(10) 164 = 1
UPGRADEUSERITEM $PARAM(10) 59 = 1

#ELSEACT
give 绝世神兵 1
UPGRADEUSERITEM $PARAM(10) 156 = 1
UPGRADEUSERITEM $PARAM(10) 6 = 7
UPGRADEUSERITEM $PARAM(10) 157 = $PARAM(3)
UPGRADEUSERITEM $PARAM(10) 158 = $USERNAME
UPGRADEUSERITEM $PARAM(10) 159 = 40
UPGRADEUSERITEM $PARAM(10) 160 = 70
UPGRADEUSERITEM $PARAM(10) 162 = 10
UPGRADEUSERITEM $PARAM(10) 163 = 25
UPGRADEUSERITEM $PARAM(10) 18 = 1
UPGRADEUSERITEM $PARAM(10) 19 = 3
MOV P10 $ITEMINFO[$PARAM(1)].LOOKS
UPGRADEUSERITEM $PARAM(10) 166 = $STR(P10)

#IF
EQUAL $ITEMINFO[$PARAM(1)].FEATURE 0
#ACT
MOV P11 $ITEMINFO[$PARAM(1)].Shape
UPGRADEUSERITEM $PARAM(10) 165 = $STR(P11)
TAKEM $PARAM(1)
TAKEM $PARAM(2)
SENDMSG 15 恭喜玩家-<$USERNAME>成功开启归元一气炉，引动天地法则，打造出绝世神兵-<$PARAM(3)>
break

#IF
LARGE $ITEMINFO[$PARAM(1)].FEATURE 0
#ACT
MOV P11 $ITEMINFO[$PARAM(1)].FEATURE
UPGRADEUSERITEM $PARAM(10) 165 = $STR(P11)
TAKEM $PARAM(1)
TAKEM $PARAM(2)
SENDMSG 15 恭喜玩家-<$USERNAME>成功开启归元一气炉，引动天地法则，打造出绝世神兵-<$PARAM(3)>
break

[@道士绝世神兵打造]
#IF
!EQUAL $ITEMINFO[$PARAM(2)].STDNAME 上古七彩石
#ACT
SENDMSG 5 你放入的材料错误，请放入上古七彩石
break
#IF
POSINLIST $ITEMINFO[$PARAM(1)].STDNAME ..\QuestDiary\游戏读取\主宰者武器.txt S12
#ACT
GETVALIDSTR $STR(S12) | S13 P60
give 绝世神兵 1
UPGRADEUSERITEM $PARAM(10) 156 = 2
UPGRADEUSERITEM $PARAM(10) 6 = 7
UPGRADEUSERITEM $PARAM(10) 157 = $PARAM(3)
UPGRADEUSERITEM $PARAM(10) 158 = $USERNAME
UPGRADEUSERITEM $PARAM(10) 159 = 158
UPGRADEUSERITEM $PARAM(10) 160 = 198
UPGRADEUSERITEM $PARAM(10) 162 = 10
UPGRADEUSERITEM $PARAM(10) 163 = 25
UPGRADEUSERITEM $PARAM(10) 18 = 1
UPGRADEUSERITEM $PARAM(10) 19 = 3
MOV P10 $ITEMINFO[$PARAM(1)].LOOKS
UPGRADEUSERITEM $PARAM(10) 166 = $STR(P10)
UPGRADEUSERITEM $PARAM(10) 16 = $STR(P60)
UPGRADEUSERITEM $PARAM(10) 164 = 1
UPGRADEUSERITEM $PARAM(10) 59 = 1
#ELSEACT
give 绝世神兵 1
UPGRADEUSERITEM $PARAM(10) 156 = 2
UPGRADEUSERITEM $PARAM(10) 6 = 7
UPGRADEUSERITEM $PARAM(10) 157 = $PARAM(3)
UPGRADEUSERITEM $PARAM(10) 158 = $USERNAME
UPGRADEUSERITEM $PARAM(10) 159 = 50
UPGRADEUSERITEM $PARAM(10) 160 = 80
UPGRADEUSERITEM $PARAM(10) 162 = 10
UPGRADEUSERITEM $PARAM(10) 163 = 25
UPGRADEUSERITEM $PARAM(10) 18 = 1
UPGRADEUSERITEM $PARAM(10) 19 = 3
MOV P10 $ITEMINFO[$PARAM(1)].LOOKS
UPGRADEUSERITEM $PARAM(10) 166 = $STR(P10)

#IF
EQUAL $ITEMINFO[$PARAM(1)].FEATURE 0
#ACT
MOV P11 $ITEMINFO[$PARAM(1)].Shape
UPGRADEUSERITEM $PARAM(10) 165 = $STR(P11)
TAKEM $PARAM(1)
TAKEM $PARAM(2)
SENDMSG 15 恭喜玩家-<$USERNAME>成功开启归元一气炉，引动天地法则，打造出绝世神兵-<$PARAM(3)>
break

#IF
LARGE $ITEMINFO[$PARAM(1)].FEATURE 0
#ACT
MOV P11 $ITEMINFO[$PARAM(1)].FEATURE
UPGRADEUSERITEM $PARAM(10) 165 = $STR(P11)
TAKEM $PARAM(1)
TAKEM $PARAM(2)
SENDMSG 15 恭喜玩家-<$USERNAME>成功开启归元一气炉，引动天地法则，打造出绝世神兵-<$PARAM(3)>
break

[@妖士绝世神兵打造]
#IF
!EQUAL $ITEMINFO[$PARAM(2)].STDNAME 上古七彩石
#ACT
SENDMSG 5 你放入的材料错误，请放入上古七彩石
break

#IF
POSINLIST $ITEMINFO[$PARAM(1)].STDNAME ..\QuestDiary\游戏读取\主宰者武器.txt S12
#ACT
GETVALIDSTR $STR(S12) | S13 P60
give 绝世神兵 1
UPGRADEUSERITEM $PARAM(10) 156 = 3
UPGRADEUSERITEM $PARAM(10) 6 = 7
UPGRADEUSERITEM $PARAM(10) 157 = $PARAM(3)
UPGRADEUSERITEM $PARAM(10) 158 = $USERNAME
UPGRADEUSERITEM $PARAM(10) 159 = 138
UPGRADEUSERITEM $PARAM(10) 160 = 178
UPGRADEUSERITEM $PARAM(10) 161 = 10
UPGRADEUSERITEM $PARAM(10) 163 = 25
UPGRADEUSERITEM $PARAM(10) 18 = 1
UPGRADEUSERITEM $PARAM(10) 19 = 3
MOV P10 $ITEMINFO[$PARAM(1)].LOOKS
UPGRADEUSERITEM $PARAM(10) 166 = $STR(P10)
UPGRADEUSERITEM $PARAM(10) 16 = $STR(P60)
UPGRADEUSERITEM $PARAM(10) 164 = 1
UPGRADEUSERITEM $PARAM(10) 59 = 1
#ELSEACT
give 绝世神兵 1
UPGRADEUSERITEM $PARAM(10) 156 = 3
UPGRADEUSERITEM $PARAM(10) 6 = 7
UPGRADEUSERITEM $PARAM(10) 157 = $PARAM(3)
UPGRADEUSERITEM $PARAM(10) 158 = $USERNAME
UPGRADEUSERITEM $PARAM(10) 159 = 50
UPGRADEUSERITEM $PARAM(10) 160 = 80
UPGRADEUSERITEM $PARAM(10) 161 = 10
UPGRADEUSERITEM $PARAM(10) 163 = 25
UPGRADEUSERITEM $PARAM(10) 18 = 1
UPGRADEUSERITEM $PARAM(10) 19 = 3
MOV P10 $ITEMINFO[$PARAM(1)].LOOKS
UPGRADEUSERITEM $PARAM(10) 166 = $STR(P10)

#IF
EQUAL $ITEMINFO[$PARAM(1)].FEATURE 0
#ACT
MOV P11 $ITEMINFO[$PARAM(1)].Shape
UPGRADEUSERITEM $PARAM(10) 165 = $STR(P11)
TAKEM $PARAM(1)
TAKEM $PARAM(2)
SENDMSG 15 恭喜玩家-<$USERNAME>成功开启归元一气炉，引动天地法则，打造出绝世神兵-<$PARAM(3)>
break

#IF
LARGE $ITEMINFO[$PARAM(1)].FEATURE 0
#ACT
MOV P11 $ITEMINFO[$PARAM(1)].FEATURE
UPGRADEUSERITEM $PARAM(10) 165 = $STR(P11)
TAKEM $PARAM(1)
TAKEM $PARAM(2)
SENDMSG 15 恭喜玩家-<$USERNAME>成功开启归元一气炉，引动天地法则，打造出绝世神兵-<$PARAM(3)>
break

[@神兵预览]
#IF
EQUAL $ITEMINFO[$PARAM(1)].STDMODE 5
#ACT
GOTO @武器神兵预览
break
#IF
EQUAL $ITEMINFO[$PARAM(1)].STDMODE 10
#ACT
GOTO @衣服宝甲预览
break
#IF
EQUAL $ITEMINFO[$PARAM(1)].STDMODE 11
#ACT
GOTO @衣服宝甲预览
break

[@衣服宝甲预览]
#IF
EQUAL $PARAM(0) 1
#ACT
GOTO @绝世宝甲打造预览

#IF
EQUAL $PARAM(0) 2
#ACT
GOTO @绝世宝甲强化预览

#IF
EQUAL $PARAM(0) 3
#ACT
GOTO @绝世宝甲命名预览

#IF
EQUAL $PARAM(0) 4
#ACT
GOTO @绝世宝甲升级预览

[@绝世宝甲强化预览]

[@绝世宝甲命名预览]
#IF
!EQUAL $ITEMINFO[$PARAM(1)].GODITEM.HumName $USERNAME
#ACT
SENDMSG 5 只有宝甲主人才能更改宝甲名字
break
#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(80) 0
#ACT
SENDMSG 5 你放入的不是绝世宝甲，请放入绝世宝甲
break
#IF
EQUAL $ITEMINFO[$PARAM(2)].STDNAME 太虚神符
#ACT
SETPARAM 6 $PARAM(3)
#ELSEACT
SENDMSG 5 你放入的材料错误，请放入太虚神符
break

[@绝世宝甲打造预览]
#IF
EQUAL $PARAM(4) 0
#ACT
GOTO @战士绝世宝甲预览

#IF
EQUAL $PARAM(4) 1
#ACT
GOTO @法师绝世宝甲预览

#IF
EQUAL $PARAM(4) 2
#ACT
GOTO @道士绝世宝甲预览

#IF
EQUAL $PARAM(4) 3
#ACT
GOTO @妖士绝世宝甲预览

[@战士绝世宝甲预览]
#IF
EQUAL $ITEMINFO[$PARAM(2)].STDNAME 上古琉璃石
#ACT
SETPARAM 5 0                        ;--基础属性类型(0-加攻击,1-加魔法，2-加道术 ，3-加妖力,设置了类型也代表是自制神兵)
SETPARAM 6 $PARAM(3)                 ;--自定义物品名称
SETPARAM 7 $USERNAME            ;--修改属于哪个角色名称
SETPARAM 8 20                         ;--基础属性点下限  (攻击力, 魔法，道术, 妖力)
SETPARAM 9 40                  ;--基础属性点上限  (攻击力, 魔法，道术, 妖力)
SETPARAM 10 28                  ;--无视对方物理防御，如果是衣服则为加防御上限
SETPARAM 11 22                         ;--无视对方魔法防御，如果是衣服则为加魔御上限
SETPARAM 12 10                         ;--暴走模式下消耗的神力
SETPARAM 15 14                  ;--佩带需求
SETPARAM 16 240                  ;--佩带级别
#ELSEACT
SENDMSG 5 你放入的材料错误，请放入上古琉璃石
break

[@法师绝世宝甲预览]
#IF
EQUAL $ITEMINFO[$PARAM(2)].STDNAME 上古琉璃石
#ACT
SETPARAM 5 1                        ;--基础属性类型(0-加攻击,1-加魔法，2-加道术 ，3-加妖力,设置了类型也代表是自制神兵)
SETPARAM 6 $PARAM(3)                 ;--自定义物品名称
SETPARAM 7 $USERNAME            ;--修改属于哪个角色名称
SETPARAM 8 20                         ;--基础属性点下限  (攻击力, 魔法，道术, 妖力)
SETPARAM 9 44                  ;--基础属性点上限  (攻击力, 魔法，道术, 妖力)
SETPARAM 10 27                  ;--无视对方物理防御，如果是衣服则为加防御上限
SETPARAM 11 24                         ;--无视对方魔法防御，如果是衣服则为加魔御上限
SETPARAM 12 10                         ;--暴走模式下消耗的神力
SETPARAM 15 14                  ;--佩带需求
SETPARAM 16 240                  ;--佩带级别
#ELSEACT
SENDMSG 5 你放入的材料错误，请放入上古琉璃石
break

[@道士绝世宝甲预览]
#IF
EQUAL $ITEMINFO[$PARAM(2)].STDNAME 上古琉璃石
#ACT
SETPARAM 5 2                        ;--基础属性类型(0-加攻击,1-加魔法，2-加道术 ，3-加妖力,设置了类型也代表是自制神兵)
SETPARAM 6 $PARAM(3)                 ;--自定义物品名称
SETPARAM 7 $USERNAME            ;--修改属于哪个角色名称
SETPARAM 8 20                         ;--基础属性点下限  (攻击力, 魔法，道术, 妖力)
SETPARAM 9 42                  ;--基础属性点上限  (攻击力, 魔法，道术, 妖力)
SETPARAM 10 30                  ;--无视对方物理防御，如果是衣服则为加防御上限
SETPARAM 11 22                         ;--无视对方魔法防御，如果是衣服则为加魔御上限
SETPARAM 12 10                         ;--暴走模式下消耗的神力
SETPARAM 15 14                  ;--佩带需求
SETPARAM 16 240                  ;--佩带级别
#ELSEACT
SENDMSG 5 你放入的材料错误，请放入上古琉璃石
break

[@妖士绝世宝甲预览]
#IF
EQUAL $ITEMINFO[$PARAM(2)].STDNAME 上古琉璃石
#ACT
SETPARAM 5 3                        ;--基础属性类型(0-加攻击,1-加魔法，2-加道术 ，3-加妖力,设置了类型也代表是自制神兵)
SETPARAM 6 $PARAM(3)                 ;--自定义物品名称
SETPARAM 7 $USERNAME            ;--修改属于哪个角色名称
SETPARAM 8 20                         ;--基础属性点下限  (攻击力, 魔法，道术, 妖力)
SETPARAM 9 40                  ;--基础属性点上限  (攻击力, 魔法，道术, 妖力)
SETPARAM 10 28                  ;--无视对方物理防御，如果是衣服则为加防御上限
SETPARAM 11 22                         ;--无视对方魔法防御，如果是衣服则为加魔御上限
SETPARAM 12 10                         ;--暴走模式下消耗的神力
SETPARAM 15 14                  ;--佩带需求
SETPARAM 16 240                  ;--佩带级别
#ELSEACT
SENDMSG 5 你放入的材料错误，请放入上古琉璃石
break

[@武器神兵预览]
#IF
EQUAL $PARAM(0) 1
#ACT
GOTO @绝世神兵打造预览

#IF
EQUAL $PARAM(0) 2
#ACT
GOTO @绝世神兵强化预览

#IF
EQUAL $PARAM(0) 3
#ACT
GOTO @绝世神兵命名预览

#IF
EQUAL $PARAM(0) 4
#ACT
GOTO @绝世神兵升级预览


[@绝世神兵命名预览]
#IF
!EQUAL $ITEMINFO[$PARAM(1)].GODITEM.HumName $USERNAME
#ACT
SENDMSG 5 只有神兵主人才能更改神兵名字
break
#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(80) 0
#ACT
SENDMSG 5 你放入的不是绝世神兵，请放入绝世神兵
break
#IF
EQUAL $ITEMINFO[$PARAM(2)].STDNAME 太乙神符
#ACT
SETPARAM 6 $PARAM(3)
#ELSEACT
SENDMSG 5 你放入的材料错误，请放入太乙神符
break


[@绝世神兵打造预览]
#IF
EQUAL $PARAM(4) 0
#ACT
GOTO @战士绝世神兵预览

#IF
EQUAL $PARAM(4) 1
#ACT
GOTO @法师绝世神兵预览

#IF
EQUAL $PARAM(4) 2
#ACT
GOTO @道士绝世神兵预览

#IF
EQUAL $PARAM(4) 3
#ACT
GOTO @妖士绝世神兵预览

[@战士绝世神兵预览]
#IF
!EQUAL $ITEMINFO[$PARAM(2)].STDNAME 上古七彩石
#ACT
SENDMSG 5 你放入的材料错误，请放入上古七彩石
break
#IF
POSINLIST $ITEMINFO[$PARAM(1)].STDNAME ..\QuestDiary\游戏读取\主宰者武器.txt S12
#ACT
SETPARAM 5 0                        ;--基础属性类型(0-加攻击,1-加魔法，2-加道术 ，3-加妖力,设置了类型也代表是自制神兵)
SETPARAM 6 $PARAM(3)                 ;--自定义物品名称
SETPARAM 7 $USERNAME            ;--修改属于哪个角色名称
SETPARAM 8 168                         ;--基础属性点下限  (攻击力, 魔法，道术, 妖力)
SETPARAM 9 248                  ;--基础属性点上限  (攻击力, 魔法，道术, 妖力)
SETPARAM 10 10                  ;--无视对方物理防御，如果是衣服则为加防御上限
SETPARAM 12 25                         ;--暴走模式下消耗的神力
SETPARAM 13 7                   ;--幸运
SETPARAM 15 14                  ;--佩带需求
SETPARAM 16 240                  ;--佩带级别
SETPARAM 14 1
break
#ELSEACT
SETPARAM 5 0                        ;--基础属性类型(0-加攻击,1-加魔法，2-加道术 ，3-加妖力,设置了类型也代表是自制神兵)
SETPARAM 6 $PARAM(3)                 ;--自定义物品名称
SETPARAM 7 $USERNAME            ;--修改属于哪个角色名称
SETPARAM 8 50                         ;--基础属性点下限  (攻击力, 魔法，道术, 妖力)
SETPARAM 9 100                  ;--基础属性点上限  (攻击力, 魔法，道术, 妖力)
SETPARAM 10 10                  ;--无视对方物理防御，如果是衣服则为加防御上限
SETPARAM 12 25                         ;--暴走模式下消耗的神力
SETPARAM 13 7                   ;--幸运
SETPARAM 15 14                  ;--佩带需求
SETPARAM 16 240                  ;--佩带级别
break

[@法师绝世神兵预览]
#IF
!EQUAL $ITEMINFO[$PARAM(2)].STDNAME 上古七彩石
#ACT
SENDMSG 5 你放入的材料错误，请放入上古七彩石
break
#IF
POSINLIST $ITEMINFO[$PARAM(1)].STDNAME ..\QuestDiary\游戏读取\主宰者武器.txt S12
#ACT
SETPARAM 5 1                        ;--基础属性类型(0-加攻击,1-加魔法，2-加道术 ，3-加妖力,设置了类型也代表是自制神兵)
SETPARAM 6 $PARAM(3)                 ;--自定义物品名称
SETPARAM 7 $USERNAME            ;--修改属于哪个角色名称
SETPARAM 8 148                         ;--基础属性点下限  (攻击力, 魔法，道术, 妖力)
SETPARAM 9 188                        ;--基础属性点上限  (攻击力, 魔法，道术, 妖力)
SETPARAM 11 10                  ;--无视对方魔法防御，如果是衣服则为加防御上限
SETPARAM 12 25                         ;--暴走模式下消耗的神力
SETPARAM 13 7                   ;--幸运
SETPARAM 15 14                  ;--佩带需求
SETPARAM 16 240                  ;--佩带级别
SETPARAM 14 1
break
#ELSEACT
SETPARAM 5 1                        ;--基础属性类型(0-加攻击,1-加魔法，2-加道术 ，3-加妖力,设置了类型也代表是自制神兵)
SETPARAM 6 $PARAM(3)                 ;--自定义物品名称
SETPARAM 7 $USERNAME            ;--修改属于哪个角色名称
SETPARAM 8 40                         ;--基础属性点下限  (攻击力, 魔法，道术, 妖力)
SETPARAM 9 50                          ;--基础属性点上限  (攻击力, 魔法，道术, 妖力)
SETPARAM 11 10                  ;--无视对方魔法防御，如果是衣服则为加防御上限
SETPARAM 12 25                         ;--暴走模式下消耗的神力
SETPARAM 13 7                   ;--幸运
SETPARAM 15 14                  ;--佩带需求
SETPARAM 16 240                  ;--佩带级别
break

[@道士绝世神兵预览]
#IF
!EQUAL $ITEMINFO[$PARAM(2)].STDNAME 上古七彩石
#ACT
SENDMSG 5 你放入的材料错误，请放入上古七彩石
break
#IF
POSINLIST $ITEMINFO[$PARAM(1)].STDNAME ..\QuestDiary\游戏读取\主宰者武器.txt S12
#ACT
SETPARAM 5 2                        ;--基础属性类型(0-加攻击,1-加魔法，2-加道术 ，3-加妖力,设置了类型也代表是自制神兵)
SETPARAM 6 $PARAM(3)                 ;--自定义物品名称
SETPARAM 7 $USERNAME            ;--修改属于哪个角色名称
SETPARAM 8 158                         ;--基础属性点下限  (攻击力, 魔法，道术, 妖力)
SETPARAM 9 198                          ;--基础属性点上限  (攻击力, 魔法，道术, 妖力)
SETPARAM 11 10                  ;--无视对方魔法防御，如果是衣服则为加防御上限
SETPARAM 12 25                         ;--暴走模式下消耗的神力
SETPARAM 13 7                   ;--幸运
SETPARAM 15 14                  ;--佩带需求
SETPARAM 16 240                  ;--佩带级别
SETPARAM 14 1        
break
#ELSEACT
SETPARAM 5 2                        ;--基础属性类型(0-加攻击,1-加魔法，2-加道术 ，3-加妖力,设置了类型也代表是自制神兵)
SETPARAM 6 $PARAM(3)                 ;--自定义物品名称
SETPARAM 7 $USERNAME            ;--修改属于哪个角色名称
SETPARAM 8 50                         ;--基础属性点下限  (攻击力, 魔法，道术, 妖力)
SETPARAM 9 80                          ;--基础属性点上限  (攻击力, 魔法，道术, 妖力)
SETPARAM 11 10                  ;--无视对方魔法防御，如果是衣服则为加防御上限
SETPARAM 12 25                         ;--暴走模式下消耗的神力
SETPARAM 13 7                   ;--幸运
SETPARAM 15 14                  ;--佩带需求
SETPARAM 16 240                  ;--佩带级别
break

[@妖士绝世神兵预览]
#IF
!EQUAL $ITEMINFO[$PARAM(2)].STDNAME 上古七彩石
#ACT
SENDMSG 5 你放入的材料错误，请放入上古七彩石
break
#IF
POSINLIST $ITEMINFO[$PARAM(1)].STDNAME ..\QuestDiary\游戏读取\主宰者武器.txt S12
#ACT
SETPARAM 5 3                        ;--基础属性类型(0-加攻击,1-加魔法，2-加道术 ，3-加妖力,设置了类型也代表是自制神兵)
SETPARAM 6 $PARAM(3)                 ;--自定义物品名称
SETPARAM 7 $USERNAME            ;--修改属于哪个角色名称
SETPARAM 8 138                         ;--基础属性点下限  (攻击力, 魔法，道术, 妖力)
SETPARAM 9 178                          ;--基础属性点上限  (攻击力, 魔法，道术, 妖力)
SETPARAM 10 10                  ;--无视对方魔法防御，如果是衣服则为加防御上限
SETPARAM 12 25                         ;--暴走模式下消耗的神力
SETPARAM 13 7                   ;--幸运
SETPARAM 15 14                  ;--佩带需求
SETPARAM 16 240                  ;--佩带级别
SETPARAM 14 1       
break
#ELSEACT
SETPARAM 5 3                        ;--基础属性类型(0-加攻击,1-加魔法，2-加道术 ，3-加妖力,设置了类型也代表是自制神兵)
SETPARAM 6 $PARAM(3)                 ;--自定义物品名称
SETPARAM 7 $USERNAME            ;--修改属于哪个角色名称
SETPARAM 8 50                         ;--基础属性点下限  (攻击力, 魔法，道术, 妖力)
SETPARAM 9 80                          ;--基础属性点上限  (攻击力, 魔法，道术, 妖力)
SETPARAM 10 10                  ;--无视对方魔法防御，如果是衣服则为加防御上限
SETPARAM 12 25                         ;--暴走模式下消耗的神力
SETPARAM 13 7                   ;--幸运
SETPARAM 15 14                  ;--佩带需求
SETPARAM 16 240                  ;--佩带级别
break

[@wuqisjjssb]
    绝世神兵可以和以下新武器融合，提升绝世神兵威力：\
    与流金武器融合，获得10点攻击属性并与流金套装组成\
套装属性。再与天之流金武器融合，再次获得10点攻击属性\
并与天之流金套装组成套装属性。总共可获得20点攻击属性\
。若直接与天之流金武器融合，将直接获得20点攻击属性。\
  <武器升级绝世神兵/@@upgradecustomname>\

[@toSubmitMenu]
    绝世神兵需要的材料均乃天地间之奇珍异宝，常人不可\
轻易获得。当年，鸿钧老祖曾将自己的一些珍宝存放于此炉中。\
    勇士在此处上交龙币，即可获得积分。当积分达到一定程\
度，即可兑换炉中的奇珍异宝。\\\
    <上交2个龙币/@doSubmit&0>      <上交10个龙币/@doSubmit&1>\
    <上交100个龙币/@doSubmit&2>    <上交1000个龙币/@doSubmit&3>    <积分兑换/@toExchangeMenu>\
    <返回/@main>

[@toExchangeMenu]
    勇士，无数奇珍异宝藏于此炉中，只要你有足够的积分，\
就可以兑换奇珍异宝。\
    <兑换千年寒铁/@doExchange&0>\
    <兑换紫金玄铁/@doExchange&1>\
    <兑换赤炎神铁/@doExchange&2>\
    <兑换上古七彩石/@doExchange&3>\\
    <返回/@toSubmitMenu>

[@doExchange]
#IF
EQUAL $SCRIPTPARAM(1) 0
#SAY
    您总共累计积分为{color=green <$HUMAN(材料累计积分)>点}，剩余可用积分为{color=green <$HUMAN(材料可用积分)>点}\
    勇士，每200点积分可以兑换1个千年寒铁。\
    <兑换1个千年寒铁/@doExchange0>\
    <兑换10个千年寒铁/@doExchange1>\
    <兑换100个千年寒铁/@doExchange2>\
    <返回/@toExchangeMenu>
#ACT
break
#IF
EQUAL $SCRIPTPARAM(1) 1
#SAY
    您总共累计积分为{color=green <$HUMAN(材料累计积分)>点}，剩余可用积分为{color=green <$HUMAN(材料可用积分)>点}\
    勇士，每200点积分可以兑换1个紫金玄铁。\
    <兑换1个紫金玄铁/@doExchange10>\
    <兑换10个紫金玄铁/@doExchange11>\
    <兑换100个紫金玄铁/@doExchange12>\
    <返回/@toExchangeMenu>
#ACT
break
#IF
EQUAL $SCRIPTPARAM(1) 2
#SAY
    您总共累计积分为{color=green <$HUMAN(材料累计积分)>点}，剩余可用积分为{color=green <$HUMAN(材料可用积分)>点}\
    勇士，每200点积分可以兑换1个赤炎神铁。\
    <兑换1个赤炎神铁/@doExchange20>\
    <兑换10个赤炎神铁/@doExchange21>\
    <兑换100个赤炎神铁/@doExchange22>\
    <返回/@toExchangeMenu>
#ACT
break
#IF
EQUAL $SCRIPTPARAM(1) 3
#SAY
    您总共累计积分为{color=green <$HUMAN(材料累计积分)>点}，剩余可用积分为{color=green <$HUMAN(材料可用积分)>点}\
    勇士，每20000点积分可以兑换1个上古七彩石。\
    <兑换1个上古七彩石/@doExchange30>\\
    <返回/@toExchangeMenu>
#ACT
break

[@doExchange0]
#IF
CHECKVAR HUMAN 材料可用积分 > 199
#ACT
CALCVAR HUMAN 材料可用积分 - 200
SAVEVAR HUMAN 材料可用积分 ..\QUESTDIARY\数据文件\个人变量.txt
GIVE 千年寒铁 1
UPGRADEUSERITEM $PARAM(10) 20 = 1
#ELSESAY
    对不起，您剩余可使用积分不足，无法兑换。\\
    <离开/@exit>

[@doExchange1]
#IF
CHECKVAR HUMAN 材料可用积分 > 1999
#ACT
CALCVAR HUMAN 材料可用积分 - 2000
SAVEVAR HUMAN 材料可用积分 ..\QUESTDIARY\数据文件\个人变量.txt
GIVE 千年寒铁 1
UPGRADEUSERITEM $PARAM(10) 20 = 10
#ELSESAY
    对不起，您剩余可使用积分不足，无法兑换。\\
    <离开/@exit>

[@doExchange2]
#IF
CHECKVAR HUMAN 材料可用积分 > 19999
#ACT
CALCVAR HUMAN 材料可用积分 - 20000
SAVEVAR HUMAN 材料可用积分 ..\QUESTDIARY\数据文件\个人变量.txt
GIVE 千年寒铁 1
UPGRADEUSERITEM $PARAM(10) 20 = 100
#ELSESAY
    对不起，您剩余可使用积分不足，无法兑换。\\
    <离开/@exit>

[@doExchange3]
#IF
CHECKVAR HUMAN 材料可用积分 > 0
#ACT
MOV P0 $HUMAN(材料可用积分)
DIV P0 20
#IF
!SMALL P0 1
#ACT
CALCVAR HUMAN 材料可用积分 = 0
SAVEVAR HUMAN 材料可用积分 ..\QUESTDIARY\数据文件\个人变量.txt
GIVE 千年寒铁 1
UPGRADEUSERITEM $PARAM(10) 20 = $STR(P0)
#ELSESAY
    对不起，您剩余可使用积分不足，无法兑换。\\
    <离开/@exit>

[@doExchange10]
#IF
CHECKVAR HUMAN 材料可用积分 > 199
#ACT
CALCVAR HUMAN 材料可用积分 - 200
SAVEVAR HUMAN 材料可用积分 ..\QUESTDIARY\数据文件\个人变量.txt
GIVE 紫金玄铁 1
UPGRADEUSERITEM $PARAM(10) 20 = 1
#ELSESAY
    对不起，您剩余可使用积分不足，无法兑换。\\
    <离开/@exit>

[@doExchange11]
#IF
CHECKVAR HUMAN 材料可用积分 > 1999
#ACT
CALCVAR HUMAN 材料可用积分 - 2000
SAVEVAR HUMAN 材料可用积分 ..\QUESTDIARY\数据文件\个人变量.txt
GIVE 紫金玄铁 1
UPGRADEUSERITEM $PARAM(10) 20 = 10
#ELSESAY
    对不起，您剩余可使用积分不足，无法兑换。\\
    <离开/@exit>

[@doExchange12]
#IF
CHECKVAR HUMAN 材料可用积分 > 19999
#ACT
CALCVAR HUMAN 材料可用积分 - 20000
SAVEVAR HUMAN 材料可用积分 ..\QUESTDIARY\数据文件\个人变量.txt
GIVE 紫金玄铁 1
UPGRADEUSERITEM $PARAM(10) 20 = 100
#ELSESAY
    对不起，您剩余可使用积分不足，无法兑换。\\
    <离开/@exit>

[@doExchange13]
#IF
CHECKVAR HUMAN 材料可用积分 > 0
#ACT
MOV P0 $HUMAN(材料可用积分)
DIV P0 20
#IF
!SMALL P0 1
#ACT
CALCVAR HUMAN 材料可用积分 = 0
SAVEVAR HUMAN 材料可用积分 ..\QUESTDIARY\数据文件\个人变量.txt
GIVE 紫金玄铁 1
UPGRADEUSERITEM $PARAM(10) 20 = $STR(P0)
#ELSESAY
    对不起，您剩余可使用积分不足，无法兑换。\\
    <离开/@exit>

[@doExchange20]
#IF
CHECKVAR HUMAN 材料可用积分 > 199
#ACT
CALCVAR HUMAN 材料可用积分 - 200
SAVEVAR HUMAN 材料可用积分 ..\QUESTDIARY\数据文件\个人变量.txt
GIVE 赤炎神铁 1
UPGRADEUSERITEM $PARAM(10) 20 = 1
#ELSESAY
    对不起，您剩余可使用积分不足，无法兑换。\\
    <离开/@exit>

[@doExchange21]
#IF
CHECKVAR HUMAN 材料可用积分 > 1999
#ACT
CALCVAR HUMAN 材料可用积分 - 2000
SAVEVAR HUMAN 材料可用积分 ..\QUESTDIARY\数据文件\个人变量.txt
GIVE 赤炎神铁 1
UPGRADEUSERITEM $PARAM(10) 20 = 10
#ELSESAY
    对不起，您剩余可使用积分不足，无法兑换。\\
    <离开/@exit>

[@doExchange22]
#IF
CHECKVAR HUMAN 材料可用积分 > 19999
#ACT
CALCVAR HUMAN 材料可用积分 - 20000
SAVEVAR HUMAN 材料可用积分 ..\QUESTDIARY\数据文件\个人变量.txt
GIVE 赤炎神铁 1
UPGRADEUSERITEM $PARAM(10) 20 = 100
#ELSESAY
    对不起，您剩余可使用积分不足，无法兑换。\\
    <离开/@exit>

[@doExchange23]
#IF
CHECKVAR HUMAN 材料可用积分 > 0
#ACT
MOV P0 $HUMAN(材料可用积分)
DIV P0 20
#IF
!SMALL P0 1
#ACT
CALCVAR HUMAN 材料可用积分 = 0
SAVEVAR HUMAN 材料可用积分 ..\QUESTDIARY\数据文件\个人变量.txt
GIVE 赤炎神铁 1
UPGRADEUSERITEM $PARAM(10) 20 = $STR(P0)
#ELSESAY
    对不起，您剩余可使用积分不足，无法兑换。\\
    <离开/@exit>

[@doExchange30]
#IF
CHECKVAR HUMAN 材料可用积分 > 20000
#ACT
CALCVAR HUMAN 材料可用积分 - 20000
SAVEVAR HUMAN 材料可用积分 ..\QUESTDIARY\数据文件\个人变量.txt
GIVE 上古七彩石 1
#ELSESAY
    对不起，您剩余可使用积分不足，无法兑换。\\
    <离开/@exit>

[@doSubmit]
#IF
EQUAL $SCRIPTPARAM(1) 0
#ACT
GOTO @2个龙币
break
#IF
EQUAL $SCRIPTPARAM(1) 1
#ACT
GOTO @10个龙币
break
#IF
EQUAL $SCRIPTPARAM(1) 2
#ACT
GOTO @100个龙币
break
#IF
EQUAL $SCRIPTPARAM(1) 3
#ACT
GOTO @1000个龙币
break

[@2个龙币]
#IF
!CHECKITEM 龙币 1
#ACT
SENDMSG 5 你没有龙币，龙币可以在商城购买。
break
#IF
SMALL $ITEMVALSUM(龙币).DURA 2
#SAY
    对不起，您的<color=red 龙币>数量不足。\\
    <离开/@exit>
#ACT
break
#ELSEACT
MOV P34 $ITEMVALSUM(龙币).DURA
TAKE 龙币 666666
DEC P34 2
CALCVAR HUMAN 材料累计积分 + 2
CALCVAR HUMAN 材料可用积分 + 2
SAVEVAR HUMAN 材料累计积分 ..\QUESTDIARY\数据文件\个人变量.txt
SAVEVAR HUMAN 材料可用积分 ..\QUESTDIARY\数据文件\个人变量.txt
#IF
!SMALL P34 1
#ACT
GIVE 龙币 1
UPGRADEUSERITEM $PARAM(10) 20 = $STR(P34)

[@10个龙币]
#IF
!CHECKITEM 龙币 1
#ACT
SENDMSG 5 你没有龙币，龙币可以在商城购买。
break
#IF
SMALL $ITEMVALSUM(龙币).DURA 10
#SAY
    对不起，您的<color=red 龙币>数量不足。\\
    <离开/@exit>
#ACT
break
#ELSEACT
MOV P34 $ITEMVALSUM(龙币).DURA
TAKE 龙币 666666
DEC P34 10
CALCVAR HUMAN 材料累计积分 + 10
CALCVAR HUMAN 材料可用积分 + 10
SAVEVAR HUMAN 材料累计积分 ..\QUESTDIARY\数据文件\个人变量.txt
SAVEVAR HUMAN 材料可用积分 ..\QUESTDIARY\数据文件\个人变量.txt
#IF
!SMALL P34 1
#ACT
GIVE 龙币 1
UPGRADEUSERITEM $PARAM(10) 20 = $STR(P34)

[@100个龙币]
#IF
!CHECKITEM 龙币 1
#ACT
SENDMSG 5 你没有龙币，龙币可以在商城购买。
break
#IF
SMALL $ITEMVALSUM(龙币).DURA 100
#SAY
    对不起，您的<color=red 龙币>数量不足。\\
    <离开/@exit>
#ACT
break
#ELSEACT
MOV P34 $ITEMVALSUM(龙币).DURA
TAKE 龙币 666666
DEC P34 100
CALCVAR HUMAN 材料累计积分 + 100
CALCVAR HUMAN 材料可用积分 + 100
SAVEVAR HUMAN 材料累计积分 ..\QUESTDIARY\数据文件\个人变量.txt
SAVEVAR HUMAN 材料可用积分 ..\QUESTDIARY\数据文件\个人变量.txt
#IF
!SMALL P34 1
#ACT
GIVE 龙币 1
UPGRADEUSERITEM $PARAM(10) 20 = $STR(P34)

[@1000个龙币]
#IF
!CHECKITEM 龙币 1
#ACT
SENDMSG 5 你没有龙币，龙币可以在商城购买。
break
#IF
SMALL $ITEMVALSUM(龙币).DURA 1000
#SAY
    对不起，您的<color=red 龙币>数量不足。\\
    <离开/@exit>
#ACT
break
#ELSEACT
MOV P34 $ITEMVALSUM(龙币).DURA
TAKE 龙币 666666
DEC P34 1000
CALCVAR HUMAN 材料累计积分 + 1000
CALCVAR HUMAN 材料可用积分 + 1000
SAVEVAR HUMAN 材料累计积分 ..\QUESTDIARY\数据文件\个人变量.txt
SAVEVAR HUMAN 材料可用积分 ..\QUESTDIARY\数据文件\个人变量.txt
#IF
!SMALL P34 1
#ACT
GIVE 龙币 1
UPGRADEUSERITEM $PARAM(10) 20 = $STR(P34)

[@jieshaoweapon]
  绝世神兵乃是融入天地法则的至高兵器，绝世神兵有独一无\
二的名字，有唯一的主人，主体元神可以装备。\\\
  <绝世神兵属性介绍/@jieshaoweapon_shuxing>    <如何打造绝世神兵/@jieshaoweapon_dazao>   \
  <如何重新命名神兵/@jieshaoweapon_rename>    <如何强化绝世神兵/@jieshaoweapon_strengthen> \
  <如何转换神兵属性/@jieshaoweapon_zhuanhuan>    <返回/@weaponmenu>\

[@jieshaoweapon_zhuanhuan]
  花费<Color=green 100000金币>，可以在通过归元一气炉的神兵属性转换\
功能，将某一职业的绝世神兵属性转换为其他职业的绝世神\
兵属性\\\\\
  <返回/@jieshaoweapon>\

[@jieshaoweapon_shuxing]
  绝世神兵有三种属性：基础属性，减防属性和暴击属性。\
  基础属性：攻击50-100(战士)、魔法40-70(法师)、\
            道术50-80(道士)、幸运+7\
            <Color=red 使用主宰者武器打造，可以获得更高的基础属性。>\
  减防属性：无视对方物理或魔法防御10点\
  暴击属性：暴走模式下，每次攻击100%暴击。\\
  <返回/@jieshaoweapon>   <下一页/@nextpage>\

[@nextpage]
  暴走模式：装备武器后，界面会显示武器神力值。\
            神力值每分钟增长3点，共100点。当神力值达到\
            100点后，武器进入暴走模式。\
            暴走模式下，每次攻击会消耗神力值，当神力值\
            不足以维持下次攻击时，退出暴走模式。\\\
  <返回/@jieshaoweapon>\

[@jieshaoweapon_dazao]
  打造绝世神兵，需要先选择神兵属性所属职业，然后将一\
把兵器放入归元一气炉中，用一块<Color=green 上古七彩石>加以熔炼，并\
为武器附上自己独一无二的名字，既可以打造出绝世神兵。\
神兵的属性根据你的选择不同而不同。\
  <Color=red 绝世神兵主体和元神均可以装备>。\
  <Color=red 使用主宰者武器可以打造出基础属性更高的神兵>。\\
  <返回/@jieshaoweapon>\

[@jieshaoweapon_rename]
  绝世神兵可以重新命名，神兵主人在归元一气炉处，使用\
<Color=green 太乙神符>，即可将神兵重新命名。\
  <Color=red 只有神兵主人才可以更改神兵名字>\\\\\
  <返回/@jieshaoweapon>\

[@jieshaoweapon_strengthen]
  绝世神兵三种属性，需要用不同的材料加以强化。\
    <Color=green 千年寒铁：>强化基础属性，每次强化攻击+1。\
    <Color=green 紫金玄铁：>强化减防属性，每次强化无视防御属性+2。\
    <Color=green 赤炎神铁：>强化暴击属性，每强化10次，属性提升一档。\
  三种属性强化初始消耗均为10个对应材料，每强化10次，消\耗的材料增加10个。三种属性均可强化100次。\
  <color=red 在中州铸造师处，拆卸沙城装备可获得三种材料。>\
  <返回/@jieshaoweapon>\