传奇世界最新海底反叛驯兽官数据与脚本(2)

[@SunkinLiaojie]
　　所有的灵兽都可以进行幻化。幻化时需要一个主灵兽和一\
个副灵兽。幻化后，主灵兽将会继承副灵兽上的部分属性。而\
副灵兽的等级越高。幻化时的成功概率也越高，同时能通过幻\
化转移的属性也越多。无论幻化是否成功，副灵兽都会消失。\
在幻化时加入封元印，还可以提高幻化的成功率，幻化需要10\
点灵力和20万金币。\

[@购买封元印1]
你需要哪种封元印呢？\\
<购买地火兽弓箭手封元印/@弓箭手1>　　<COLOR=GREEN 5元宝／个>\\
<购买猛魔统领封元印/@猛魔统领1>　　　　<COLOR=GREEN 5元宝／个>\\
<返回/@main>

[@弓箭手1]
#IF
CHECKGAMEGOLD > 4
#ACT
GAMEGOLD - 5
GIVE 封元印 1
SENDMSG 5 你花费5元宝购买了1个地火兽弓箭手封元印
break
#ELSEACT
MessageBox 你元宝不足5个，不能购买封元印
break

[@猛魔统领1]
#IF
CHECKGAMEGOLD > 4
#ACT
GAMEGOLD - 5
GIVE 封元印1 1
SENDMSG 5 你花费5元宝购买了1个猛魔统领封元印
break
#ELSEACT
MessageBox 你元宝不足5个，不能购买封元印
break

[@SunkinZiZi]
　　捕捉到的战鲨是不需要开启资质的，如果你从其他途径得\
到了非野生战鲨，战歌网dj，那么去灵犀仙境找“灵犀使者”吧，我听说\
他那里可以做到开启资质，我实在做不到。\\

　　<我明白了/@exit>

[@SunkinXunHua]
　　捕捉的战鲨需要经过驯化才能真正骑乘，一旦驯化，战鲨\
将成为绑定状态，永远追随于你。同时，驯化战鲨还将获得200\
点灵兽经验！\\
　　　<战鲨驯化/@SunkinXunhua2> <晚点在说/@exit> \

[@SunkinXunhua2]
#ACT
ShowSpotDlg 6 请放入灵兽石 @SunkinXunhua3
#SAY
　　请放入你要驯化的鲨鱼石，我立刻帮你驯化，当然，你得\
给我1万金币作为酬劳，哦，这需要你消耗20点灵力，才能与战\
鲨彻底心灵相通\

[@SunkinXunhua3]
#IF
CHECKGOLD 10000
#ELSEACT
SENDMSG 5 你没有1万金币，不能进行鲨鱼石“驯化”
break
#IF
SMALL $NIMBUSPOINT 20
#SAY
　　您当前的灵力值不足20点，我怎么帮您驯化呢？\\\
　　<稍等，我去准备一下/@exit>
#ACT
break
#IF
equal $ITEMINFO[$PARAM(1)].anicount 5
equal $ITEMINFO[$PARAM(1)].stdmode 49
equal $ITEMINFO[$PARAM(1)].shape 51
#ACT
#ELSESAY
　　这个不是鲨鱼石，无法帮您驯化。\\
　　<我知道了/@exit>
#ELSEACT
break
#IF
equal $ITEMINFO[$PARAM(1)].looks 6555
#ACT
MOV P1 2
GOTO @GetSuXing
break
#IF
equal $ITEMINFO[$PARAM(1)].looks 6556
#ACT
MOV P1 1
GOTO @GetSuXing
break
#ELSESAY
　　这个不是鲨鱼石，无法帮您驯化。\\
　　<我知道了/@exit>
#ELSEACT
break

[@GetSuXing]
#IF
SMALL $ITEMINFO[$PARAM(1)].PET.RELIVE 2
#ACT
NIMBUSPOINT - 20
take 金币 10000
UPGRADEUSERITEM $PARAM(1) 8 = $STR(P1)
UPGRADEUSERITEM $PARAM(1) 9 = 2
SendMsg 5 你的鲨鱼石已经成功驯化了！！
SendMsg 10 <$USERNAME>的鲨鱼石已经成功驯化了，鲨鱼石驯化请到幽暗海域158:178找海底反叛驯兽官进行驯化
break
CLOSE
#ELSEACT
SendMsg 5 你的鲨鱼石已经驯化过了！
break