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

;2314;战鲨石;49;51;1;5;0;0;6556;0;0;0;0;0;0;0;0;0;0;0;0;0;0;5000;5;;;
;2315;战鲨石1;49;51;1;5;0;0;6555;0;0;0;0;0;0;0;0;0;0;0;0;0;0;5000;5;;;

[@main]
　　战鲨寒洞是海妖大军驯养坐骑的地方，那边有许多的战鲨，
你有本事就自己去抓，我能够帮你把鲨鱼搞的更强大，当然了，
总是要你破费一点的，嘿嘿。。。\
　　　　<战鲨驯化/@SunkinXunHua> <开启资质/@SunkinZiZi>
　　　　<战鲨幻化/@SunkinHuanHua> <战鲨顿悟/@SunkinDunWu>
　　　　<如何捕捉战鲨/@SunkinHelp> <战鲨喂养与升级/@SunkinShengJi>
　　　　<点化陆地灵兽的避水灵性/@SunkinBiShui>

[@SunkinBiShui]
　　想要骑着陆地的灵兽在深海骑战？那也不是不可以，如果
你的灵兽能够有能力达到120级以上，我倒有办法；你只要给
我一瓶极品兽神水，外加消耗你50点灵力值，你的灵兽就能够
承载你在海底骑战了。不过话说回来，在海底，海神战鲨才是
最适合的坐骑！\

　　<我要点化我的灵兽/@SunKinDianHua> <那还是算了/@exit>

[@SunKinDianHua]
#IF
equal $PET.MAKEINDEX
#SAY
　　您没有放出你需要开启避水灵性的灵兽


　　<稍等，我去准备一下/@exit>
#ACT
break
#IF
equal $ITEMINFO[$PET.MAKEINDEX].anicount 5
equal $ITEMINFO[$PET.MAKEINDEX].stdmode 49
equal $ITEMINFO[$PET.MAKEINDEX].shape 51
#SAY
　　您的灵兽不需要开启避水灵性了


　　<好的，谢谢/@exit>
#ACT
break
#IF
large $ITEMINFO[$PET.MAKEINDEX].ITEMEXT(88) 0
#SAY
　　您的灵兽不需要开启避水灵性了


　　<好的，谢谢/@exit>
#ACT
break
#IF
SMALL $PET.LEVEL 120
#SAY
只有灵兽等级达到120级以上才可以开启避水灵性。\
<知道了/@exit>
#ACT
break
#IF
SMALL $NIMBUSPOINT 50
#SAY
　　您当前的灵力值不足50点，我怎么帮您开启呢？\
　　<稍等，我去准备一下/@exit>
#ACT
break
#IF
CHECKITEM 极品兽神水 1
#ACT
TAKE 极品兽神水 1
NIMBUSPOINT - 50
UPGRADEUSERITEM $PET.MAKEINDEX 88 = 1
SendMsg 5 你的灵兽成功开启了避水灵性！！
break
CLOSE
#ELSESAY
开启避水灵性还需要一瓶极品兽神水呢。\
　　<稍等，我去准备一下/@exit>
[@SunkinShengJi]
　　你可以在海底找到深海鳕鱼肉来喂养你的战鲨。你每次
将海魔值蓄满时，都有机会找到这种珍贵的鳕鱼肉，他不但可
以补充战鲨的体力，还可以为战鲨大量增加经验。每天蓄满的
海魔值次数越多，越有机会找到更多的鳕鱼肉。快点骑上你的
战鲨出发吧！\
　<我明白/@exit>

[@SunkinHelp]
　　海神战鲨被海妖饲养在战鲨寒洞中，你带上灵兽项圈来，
就可以捕捉。把灵兽项圈放在快捷栏上，就可以使用了。不过
战鲨脾气很大，如果你能将它打成虚弱状态，说不定抓起来会
更容易。\

　　<我明白了/@exit>

[@SunkinDunWu]
　　天地间的二转灵兽都可以顿悟，而使战鲨顿悟只能在我这
里做到。71级以下的的战鲨，都可以在我这里顿悟，每次顿悟
都会提升其五行属性。和灵犀使者那里一样，顿悟需要消耗你
的一些灵力值。\
　　<我准备好了/@准备好了1>　　　<稍等，我去准备一下/@exit>

[@准备好了1]
#IF
equal $PET.MAKEINDEX
#ACT
break
#SAY
　　您没有放出你需要顿悟的灵兽


　　<稍等，我去准备一下/@exit>

#IF
random 1
#ACT
mov P0 $PET.LEVEL
DIV P0 5
mov P1 $PET.SAVVY

#IF
equal P1 10
#ACT
break
#SAY
　　您的灵兽顿悟已经达到极限了，不能再进行顿悟。

　　<知道了/@exit>

#IF
equal P0 $STR(P1)
#ACT
break
#SAY
　　二转灵兽只有到达5、10、15、20、25、30、35、40
45、50、55、60、65、70这些等级才能顿悟



　　<稍等，我去准备一下/@exit>

#IF
random 1
#ACT
mov P0 $PET.APTITUDE
DIV P0 10

#IF
equal P0 $STR(P1)
#ACT
break
#SAY
　　您的灵兽资质过低不能进行顿悟。


　　<稍等，我去准备一下/@exit>

#IF
random 1
#ACT
MULT P1 10
inc P1 20

;第一次20点灵力。
;第二次30

#IF
small $NIMBUSPOINT $STR(P1)
#ACT
break
#SAY
　　您的灵力不足，无法顿悟。双击灵皓石、元灵晶石迅
速提升灵力。

　　<稍等，我去准备一下/@exit>

#IF
random 1
#ACT
mov P0 $ITEMINFO[$PET.MAKEINDEX].PET.FELEMENTPOINT1
mov P1 $ITEMINFO[$PET.MAKEINDEX].PET.FELEMENT1

#IF
large P0 0
#ACT
SETPETATTRIBUTE $PET.MAKEINDEX 15 $STR(P1) + 1

#IF
random 1
#ACT
mov P0 $ITEMINFO[$PET.MAKEINDEX].PET.FELEMENTPOINT2
mov P1 $ITEMINFO[$PET.MAKEINDEX].PET.FELEMENT2

#IF
large P0 0
#ACT
SETPETATTRIBUTE $PET.MAKEINDEX 16 $STR(P1) + 1

#IF
random 1
#ACT
NIMBUSPOINT - $STR(P1)
SETPETATTRIBUTE $PET.MAKEINDEX 14 + 1
#SAY
　　您的灵兽顿悟成功


　　<谢谢/@exit>
[@SunkinHuanHua]
　　我可是战鲨幻化的专家！战鲨比其他灵兽有更高的灵性，
幻化的成功率和属性增强能力都比其他灵兽提高很多，你很容
易就能得到能力强大的超级战鲨！快来试试吧！在幻化时加入
封元印，还可以进一步提高幻化成功率。\
提示：每次幻化需要消耗10点灵力和20万金币\

　<进行幻化/@@2HUANHUA> <获得封元印/@购买封元印1> <进一步了解幻化/@SunkinLiaojie>

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

　　<我明白了/@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