独家公布彩虹3引擎传世紫金神炉脚本

[@紫金神炉]

{
如果你拥有了许多“熔炼”后的宝石，就可以在神炉中\
进行更高级的宝石“凝炼”与“合成”了。让宝石可以\
在神炉中吸取天地灵气，将能大大提高它自身的能量，\
还有可能获得意想不到的神奇效果呢。\
你可以在“玄玄老人”那里将无属性的初级宝石“熔炼”\
成小宝石。\
\
<什么是宝石“凝炼”？/@knowledge>                <我要凝炼宝石/@@gemcondense>\
<什么是宝石“合成”？/@knowledge2>                <我要合成宝石/@@gemcompound>\

[@knowledge]
六颗同样的宝石可以进行“凝炼”，它们将在神炉中被提\
升为更高一级的同类宝石。这可是100％成功的哦。如果你\
已经有了六颗同样的宝石，不妨来试试吧。\
\
<我要凝炼宝石/@@gemcondense>        <离开/@exit>

[@knowledge2]
不同种类但是相同级别的两颗宝石可以进行“合成”，\
合成时你需要加入另外4件装备做为辅助材料，辅助材\
料可以是项链、手镯、戒指、黑铁等……。它们的搭配\
可与“合成”的成功与否有着重要的联系，怎么组合就\
要靠你的智慧来摸索了。\
\
<我要合成宝石/@@gemcompound>        <离开/@exit>

;M0、M1 成功点数
;M0 - M11 宝石的各属性值
[@@gemcompound]
#IF
random 1
#ACT
MOV M0 0
MOV M1 0

#IF
equal $ITEMINFO[$PARAM(1)].SHAPE $ITEMINFO[$PARAM(2)].SHAPE
#ACT
SMELTBOXRESULT 0 1 1
MessageBox 请放入两个不同类型的宝石！
break

#IF
!equal $ITEMINFO[$PARAM(1)].WEIGHT $ITEMINFO[$PARAM(2)].WEIGHT
#ACT
SMELTBOXRESULT 0 1 1
MessageBox 请放入两个同等级的宝石！
break

#IF
equal $ITEMINFO[$PARAM(10)].NAME 幸运符(捆)
equal $ITEMINFO[$PARAM(10)].DURA 0
#ACT
takem $PARAM(10)
SENDMSG 5 幸运符(捆)的使用次数已耗尽，没有起到任何作用！

#IF
equal $ITEMINFO[$PARAM(10)].NAME 幸运符
#ACT
inc M0 30

#IF
equal $ITEMINFO[$PARAM(10)].NAME 幸运符(捆)
#ACT
inc M0 30

#IF
equal $ITEMINFO[$PARAM(10)].NAME 极品幸运符
#ACT
inc M0 30

#IF
equal M0 0
small $PARAM(0) 3
#ACT
SMELTBOXRESULT 0 1 1
MessageBox 需要放入至少1件辅助材料才能进行合成！
break

#IF
equal $ITEMINFO[$PARAM(10)].NAME 幸运符
small $PARAM(0) 4
#ACT
SMELTBOXRESULT 0 1 1
MessageBox 需要放入至少1件辅助材料才能进行合成！
break

#IF
equal $ITEMINFO[$PARAM(10)].NAME 幸运符(捆)
small $PARAM(0) 4
#ACT
SMELTBOXRESULT 0 1 1
MessageBox 需要放入至少1件辅助材料才能进行合成！
break

#IF
equal $ITEMINFO[$PARAM(10)].NAME 极品幸运符
small $PARAM(0) 4
#ACT
SMELTBOXRESULT 0 1 1
MessageBox 需要放入至少1件辅助材料才能进行合成！
break

#IF
equal $ITEMINFO[$PARAM(3)].NAME 黑铁矿石
#ACT
inc M1 1

#IF
large $ITEMINFO[$PARAM(3].STDMODE 18
small $ITEMINFO[$PARAM(3)].STDMODE 25
#ACT
inc M1 1

#IF
equal $ITEMINFO[$PARAM(3)].STDMODE 25
#ACT
mov M1 1

#IF
equal $ITEMINFO[$PARAM(4)].NAME 黑铁矿石
#ACT
inc M1 1

#IF
large $ITEMINFO[$PARAM(4)].STDMODE 18
small $ITEMINFO[$PARAM(4)].STDMODE 25
#ACT
inc M1 1

#IF
equal $ITEMINFO[$PARAM(4)].STDMODE 26
#ACT
inc M1 1

#IF
equal $ITEMINFO[$PARAM(5)].NAME 黑铁矿石
#ACT
inc M1 1

#IF
large $ITEMINFO[$PARAM(5)].STDMODE 18
small $ITEMINFO[$PARAM(5)].STDMODE 25
#ACT
inc M1 1

#IF
equal $ITEMINFO[$PARAM(5)].STDMODE 25
#ACT
inc M1 1

#IF
equal $ITEMINFO[$PARAM(6)].NAME 黑铁矿石
#ACT
inc M1 1

#IF
large $ITEMINFO[$PARAM(6)].STDMODE 18
small $ITEMINFO[$PARAM(6)].STDMODE 25
#ACT
inc M1 1

#IF
equal $ITEMINFO[$PARAM(6)].STDMODE 25
#ACT
inc M1 1

#IF
equal M1 4
#ACT
SMELTBOXRESULT 1 1 1
#ELSEACT
SMELTBOXRESULT 0 1 1
MessageBox 辅助材料只能为饰品或黑铁矿石！

[@@gemcompoundok]
#IF
random 1
#ACT
mov M1 0
inc M1 $ITEMINFO[$PARAM(3)].AC1
inc M1 $ITEMINFO[$PARAM(3)].AC2
inc M1 $ITEMINFO[$PARAM(3)].MAC1
inc M1 $ITEMINFO[$PARAM(3)].MAC2
inc M1 $ITEMINFO[$PARAM(3)].DC1
inc M1 $ITEMINFO[$PARAM(3)].DC2
inc M1 $ITEMINFO[$PARAM(3)].MC1
inc M1 $ITEMINFO[$PARAM(3)].MC2
inc M1 $ITEMINFO[$PARAM(3)].SC1
inc M1 $ITEMINFO[$PARAM(3)].SC2
inc M1 $ITEMINFO[$PARAM(4)].AC1
inc M1 $ITEMINFO[$PARAM(4)].AC2
inc M1 $ITEMINFO[$PARAM(4)].MAC1
inc M1 $ITEMINFO[$PARAM(4)].MAC2
inc M1 $ITEMINFO[$PARAM(4)].DC1
inc M1 $ITEMINFO[$PARAM(4)].DC2
inc M1 $ITEMINFO[$PARAM(4)].MC1
inc M1 $ITEMINFO[$PARAM(4)].MC2
inc M1 $ITEMINFO[$PARAM(4)].SC1
inc M1 $ITEMINFO[$PARAM(4)].SC2
inc M1 $ITEMINFO[$PARAM(5)].AC1
inc M1 $ITEMINFO[$PARAM(5)].AC2
inc M1 $ITEMINFO[$PARAM(5)].MAC1
inc M1 $ITEMINFO[$PARAM(5)].MAC2
inc M1 $ITEMINFO[$PARAM(5)].DC1
inc M1 $ITEMINFO[$PARAM(5)].DC2
inc M1 $ITEMINFO[$PARAM(5)].MC1
inc M1 $ITEMINFO[$PARAM(5)].MC2
inc M1 $ITEMINFO[$PARAM(5)].SC1
inc M1 $ITEMINFO[$PARAM(5)].SC2
inc M1 $ITEMINFO[$PARAM(6)].AC1
inc M1 $ITEMINFO[$PARAM(6)].AC2
inc M1 $ITEMINFO[$PARAM(6)].MAC1
inc M1 $ITEMINFO[$PARAM(6)].MAC2
inc M1 $ITEMINFO[$PARAM(6)].DC1
inc M1 $ITEMINFO[$PARAM(6)].DC2
inc M1 $ITEMINFO[$PARAM(6)].MC1
inc M1 $ITEMINFO[$PARAM(6)].MC2
inc M1 $ITEMINFO[$PARAM(6)].SC1
inc M1 $ITEMINFO[$PARAM(6)].SC2
inc M0 $STR(M1)
;首饰每1点增加1%

#IF
equal $ITEMINFO[$PARAM(3)].NAME 黑铁矿石
#ACT
inc M1 $ITEMINFO[$PARAM(3)].DURA

#IF
equal $ITEMINFO[$PARAM(4)].NAME 黑铁矿石
#ACT
inc M1 $ITEMINFO[$PARAM(4)].DURA

#IF
equal $ITEMINFO[$PARAM(5)].NAME 黑铁矿石
#ACT
inc M1 $ITEMINFO[$PARAM(5)].DURA

#IF
equal $ITEMINFO[$PARAM(6)].NAME 黑铁矿石
#ACT
inc M1 $ITEMINFO[$PARAM(6)].DURA

#IF
large M1 0
#ACT
DIV M1 3000
inc M0 $STR(M1)
;黑铁矿石 每3点等于1%成功率

#IF
random 1
#ACT
movr M1 100
takem $PARAM(3)
takem $PARAM(4)
takem $PARAM(5)
takem $PARAM(6)

#IF
equal $ITEMINFO[$PARAM(10)].NAME 幸运符(捆)
#ACT
UPGRADEUSERITEM $PARAM(10) 20 - 1

#IF
equal $ITEMINFO[$PARAM(10)].NAME 幸运符
#ACT
UPGRADEUSERITEM $PARAM(10) 20 - 1

#IF
equal $ITEMINFO[$PARAM(10)].NAME 极品幸运符
#ACT
UPGRADEUSERITEM $PARAM(10) 20 - 1

#IF
small M0 $STR(M1)
#ACT
movr M0 100
goto @宝石消失
SMELTBOXRESULT 0 1 0
MessageBox 非常遗憾，合成失败了，你还是多多琢磨一下配方再来吧！
break

#IF
random 1
#ACT
MOV M0 0
MOV M1 0
MOV M2 0
MOV M3 0
MOV M4 0
MOV M5 0
MOV M6 0
MOV M7 0
MOV M8 0
MOV M9 0
MOV M10 0
MOV M11 0
inc M0 $ITEMINFO[$PARAM(1)].AC1
inc M1 $ITEMINFO[$PARAM(1)].AC2
inc M2 $ITEMINFO[$PARAM(1)].MAC1
inc M3 $ITEMINFO[$PARAM(1)].MAC2
inc M4 $ITEMINFO[$PARAM(1)].DC1
inc M5 $ITEMINFO[$PARAM(1)].DC2
inc M6 $ITEMINFO[$PARAM(1)].MC1
inc M7 $ITEMINFO[$PARAM(1)].MC2
inc M8 $ITEMINFO[$PARAM(1)].SC1
inc M9 $ITEMINFO[$PARAM(1)].SC2
inc M0 $ITEMINFO[$PARAM(2)].AC1
inc M1 $ITEMINFO[$PARAM(2)].AC2
inc M2 $ITEMINFO[$PARAM(2)].MAC1
inc M3 $ITEMINFO[$PARAM(2)].MAC2
inc M4 $ITEMINFO[$PARAM(2)].DC1
inc M5 $ITEMINFO[$PARAM(2)].DC2
inc M6 $ITEMINFO[$PARAM(2)].MC1
inc M7 $ITEMINFO[$PARAM(2)].MC2
inc M8 $ITEMINFO[$PARAM(2)].SC1
inc M9 $ITEMINFO[$PARAM(2)].SC2

#IF
equal $ITEMINFO[$PARAM(1)].NAME 青木石(小)
#ACT
inc M10 $ITEMINFO[$PARAM(1)].ANICOUNT

#IF
equal $ITEMINFO[$PARAM(1)].NAME 青木石(中)
#ACT
inc M10 $ITEMINFO[$PARAM(1)].ANICOUNT

#IF
equal $ITEMINFO[$PARAM(1)].NAME 青木石(大)
#ACT
inc M10 $ITEMINFO[$PARAM(1)].ANICOUNT

#IF
equal $ITEMINFO[$PARAM(1)].NAME 青木宝石
#ACT
inc M10 $ITEMINFO[$PARAM(1)].ANICOUNT

#IF
equal $ITEMINFO[$PARAM(1)].NAME 青木石(小)
#ACT
inc M10 $ITEMINFO[$PARAM(2)].ANICOUNT

#IF
equal $ITEMINFO[$PARAM(1)].NAME 青木石(中)
#ACT
inc M10 $ITEMINFO[$PARAM(2)].ANICOUNT

#IF
equal $ITEMINFO[$PARAM(1)].NAME 青木石(大)
#ACT
inc M10 $ITEMINFO[$PARAM(2)].ANICOUNT

#IF
equal $ITEMINFO[$PARAM(1)].NAME 青木宝石
#ACT
inc M10 $ITEMINFO[$PARAM(2)].ANICOUNT

#IF
equal $ITEMINFO[$PARAM(2)].NAME 紫心石(小)
#ACT
inc M11 $ITEMINFO[$PARAM(1)].ANICOUNT

#IF
equal $ITEMINFO[$PARAM(2)].NAME 紫心石(中)
#ACT
inc M11 $ITEMINFO[$PARAM(1)].ANICOUNT

#IF
equal $ITEMINFO[$PARAM(2)].NAME 紫心石(大)
#ACT
inc M11 $ITEMINFO[$PARAM(1)].ANICOUNT

#IF
equal $ITEMINFO[$PARAM(2)].NAME 紫心宝石
#ACT
inc M11 $ITEMINFO[$PARAM(1)].ANICOUNT

#IF
equal $ITEMINFO[$PARAM(2)].NAME 紫心石(小)
#ACT
inc M11 $ITEMINFO[$PARAM(2)].ANICOUNT

#IF
equal $ITEMINFO[$PARAM(2)].NAME 紫心石(中)
#ACT
inc M11 $ITEMINFO[$PARAM(2)].ANICOUNT

#IF
equal $ITEMINFO[$PARAM(2)].NAME 紫心石(大)
#ACT
inc M11 $ITEMINFO[$PARAM(2)].ANICOUNT

#IF
equal $ITEMINFO[$PARAM(2)].NAME 紫心宝石
#ACT
inc M11 $ITEMINFO[$PARAM(2)].ANICOUNT

#IF
equal $ITEMINFO[$PARAM(1)].WEIGHT 1
#ACT
give 天地石(小) 1

#IF
equal $ITEMINFO[$PARAM(1)].WEIGHT 2
#ACT
give 天地石(中) 1

#IF
equal $ITEMINFO[$PARAM(1)].WEIGHT 3
#ACT
give 天地石(大) 1

#IF
equal $ITEMINFO[$PARAM(1)].WEIGHT 4
#ACT
give 天地宝石 1

#IF
random 1
#ACT
SMELTBOXRESULT 1 1 0
takem $PARAM(1)
takem $PARAM(2)
UPGRADEUSERITEM $PARAM(10) 0 = $STR(M0)
UPGRADEUSERITEM $PARAM(10) 1 = $STR(M1)
UPGRADEUSERITEM $PARAM(10) 2 = $STR(M2)
UPGRADEUSERITEM $PARAM(10) 3 = $STR(M3)
UPGRADEUSERITEM $PARAM(10) 4 = $STR(M4)
UPGRADEUSERITEM $PARAM(10) 5 = $STR(M5)
UPGRADEUSERITEM $PARAM(10) 6 = $STR(M6)
UPGRADEUSERITEM $PARAM(10) 7 = $STR(M7)
UPGRADEUSERITEM $PARAM(10) 8 = $STR(M8)
UPGRADEUSERITEM $PARAM(10) 9 = $STR(M9)
MessageBox 恭喜你，合成成功了！这是给你的<$PARAM(11)>

[@宝石消失]
#IF
large M0 90
small M0 100
#ACT
takem $PARAM(1) 1
break

#IF
large M0 80
small M0 90
#ACT
takem $PARAM(2) 1
break
}

楼主加油，我们都看好你哦。

楼主加油，我们都看好你哦。

楼主加油，我们都看好你哦。

激动人心，无法言表！

太生气了，无法HOLD啦 >_<......

无回帖，不论坛，这才是人道。

无回帖，不论坛，这才是人道。

太生气了，无法HOLD啦 >_<......

强烈支持楼主ing……