魂骨合成

[@main]
魂骨的品级共分为：凡品、中品、上品、极品，六个同\
一类型同一品级的魂骨就可合成一个高级魂骨。\
<Color=green 每次合成需要10点精力值>\\
<立刻合成魂骨/@@BoneCompound>　　　　<离开/@exit>\ 

[@@BoneCompound]
#IF
SMALL $SPIRITY 10
#ACT
SENDMSG 5 精力值不足10点，合成失败！
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(0)].NAME $ITEMINFO[$PARAM(1)].NAME
EQUAL $ITEMINFO[$PARAM(0)].NAME $ITEMINFO[$PARAM(2)].NAME
EQUAL $ITEMINFO[$PARAM(0)].NAME $ITEMINFO[$PARAM(3)].NAME
EQUAL $ITEMINFO[$PARAM(0)].NAME $ITEMINFO[$PARAM(4)].NAME
EQUAL $ITEMINFO[$PARAM(0)].NAME $ITEMINFO[$PARAM(5)].NAME
#ACT
#ELSEACT
SENDMSG 5 你放入的物品不一致，合成失败！
BREAK
#IF
!POS $ITEMINFO[$PARAM(0)].NAME 魂骨
#ACT
SENDMSG 5 你放入的不是魂骨！
BREAK
#IF
TRUE
#ACT
MOV S0 $ITEMINFO[$PARAM(1)].NAME
#IF
POS $STR(S0) 极品
#ACT
MESSAGEBOX 你放入的魂骨已经是最高品质，无法再次提升！
break
#IF
POS $STR(S0) 凡品
#ACT
MOV S1 凡品
MOV S2 中品
#IF
POS $STR(S0) 中品
#ACT
MOV S1 中品
MOV S2 上品
#IF
POS $STR(S0) 上品
#ACT
MOV S1 上品
MOV S2 极品
#IF
RANDOM 1
#ACT
TAKEM $PARAM(0)
TAKEM $PARAM(1)
TAKEM $PARAM(2)
TAKEM $PARAM(3)
TAKEM $PARAM(4)
TAKEM $PARAM(5)
Spirity - 10
ReplaceText S0 $STR(S1) $STR(S2)
GIVE $STR(S0) 1 
SENDMSG 5 精力值减少10
MESSAGEBOX 恭喜你，魂骨合成成功！
break