[@main]
战鲨寒洞是海妖大军驯养坐骑的地方，那边有许多的战\
鲨，你有本事就自己去抓，我能够帮你把鲨鱼搞得更强大，当\
然了，总是要你破费一点的，嘿嘿。。。\\
<战鲨驯化/@setbind> <开启资质/@OpenZiZhiZS>\
<战鲨幻化/@HuanHuaZS> <战鲨顿悟/@DunWuZS>\
<如何捕捉战鲨/@HowCatchZS> <战鲨喂养与升级/@HowFeedZS>\
<点化陆地灵兽的避水灵性/@setbslx> \
[@setbslx]
想要骑着陆地的灵兽在深海骑战？那也不是不可以，如\
果你的灵兽能够有能力达到<color=5AA0A0 120级>以上，我倒是有办法：\
你只要给我一瓶<color=ggreen 极品兽神水>，外加消耗你<color=ggreen 50点灵力>\
值，你的灵兽就能够承载你在海底骑战了。\\
不过话说回来，在海底，<color=ggreen 海神战鲨>才是最适合的坐骑啊！\\
<我要点化我的灵兽/@confirmsetbslx> <那还是算了/@exit>
[@confirmsetbslx]
#IF
#IF
!CHECKPETFOLLOW
#SAY
你没有释放出灵兽，无法点化\
请让你的灵兽处于<color=green 跟随状态>。\\
<我这就释放/@exit>\
#ACT
break
#IF
POS $PET.NAME 海神战鲨
#SAY
海神战鲨，不需要点化\\
<谢谢/@exit>\
#ACT
BREAK
#IF
SMALL $PET.LEVEL 120
#SAY
灵兽等级不足120级，无法进行点化\\
<好吧，我升级后再来/@exit>\
#ACT
BREAK
#IF
SMALL $NIMBUSPOINT 50
#SAY
你的灵力不足50点，无法进行点化\\
<好吧，我以后再来/@exit>\
#ACT
BREAK
#IF
EQUAL $ITEMINFO[$PET.MAKEINDEX].ITEMEXT(88) 1
#SAY
你的灵兽已经点化了碧水属性，无需重复开启\\
<谢谢/@exit>\
#ACT
BREAK
#IF
CHECKITEM 极品兽神水 1
#ACT
NIMBUSPOINT - 50
take 极品兽神水 1
UPGRADEUSERITEM $PET.MAKEINDEX 88 = 1
SENDMSG 5 此灵兽永久开启避水属性
break
#ELSESAY
你没有极品兽神水！\\
<谢谢/@exit>\
[@HowFeedZS]
你可以在海底找到深海鳕鱼肉来喂养你的战鲨。你每次\
将海魔值蓄满时，都有机会找到这种珍贵的鳕鱼肉。它不但可\
以补充战鲨的体力，还可以为战鲨大量增加经验。\
每天蓄满的海魔值次数越多，越有机会找到更多的鲟鱼肉。\
快点骑上你的战鲨出发吧！\
\
<我明白了/@exit>
[@HowCatchZS]
海神战鲨被海妖饲养在战鲨寒洞中，你带上灵兽项\
圈来，就可以捕捉。\
把灵兽项圈放在快捷栏上，就可以使用了。\
不过战鲨脾气很大，如果你能将它打成虚弱状态，\
说不定抓起来会更加容易。\
\
<我明白了/@exit>
[@DunWuZS]
天地间的二转灵兽都可以顿悟，而使战鲨顿悟只能在我\
这里做到。71级以下的战鲨，都可以在我这里顿悟，每次顿悟\
都会提升其五行属性。\
和灵犀使者那里一样，顿悟需要消耗你的一些灵力值。\
<我准备好了/@CheckDunWu> <稍等，我去准备一下/@exit>\
[@checkdunwu]
#IF
!CHECKPETFOLLOW
#SAY
您没有放出你需要顿悟的灵兽\\\
<稍等，我去准备一下/@exit>\
#ACT
break
#IF
LARGE $PET.LEVEL 70
#SAY
目前在下功力尚浅， <Color=green 只能帮71级以下的灵兽进行顿悟，>\
<Color=green 71级以后的能力成长道理就要看自己的造化了。>\
<知道了/@exit>\
#ACT
break
#IF
EQUAL $PET.RELIVE 2
#ACT
MOV D70 1
INC D70 $PET.SAVVY
MULT D70 5
MOV D71 $STR(D70)
MULT D71 2
#ELSESAY
你的灵兽并非二转灵兽先去进行二转以后再来吧！\\
<我知道了/@exit>\
#ELSEACT
break
#IF
SMALL $PET.APTITUDE $STR(D71)
#SAY
你的灵兽资质过低，无法进行顿悟，请幻化灵兽提高资质\
到<$STR(D71)>点再来吧！\\
<我知道了/@exit>\
#ACT
break
#IF
SMALL $PET.LEVEL $STR(D70)
#SAY
你的灵兽等级不够无法顿悟，请把灵兽升级到 <$STR(D70)>级，\
以后再来找我吧！\
<我知道了/@exit>\
#ACT
break
#IF
CHECKPETFOLLOW
#SAY
本次的灵兽顿悟需要消耗{Color=green <$STR(D70)>点灵力和<$STR(D79)>万}金币你准备好\
了吗？\\
{我已经准备好了/@lsdunss >\
<我去准备一下/@exit>\
#ACT
MOV D79 $STR(D70)
INC D79 $STR(D70)
break
[@lsdunss]
#IF
!CHECKPETFOLLOW
#SAY
您没有放出你需要顿悟的灵兽\\\
<稍等，我去准备一下/@exit>\
#ACT
break
#IF
LARGE $PET.LEVEL 70
#SAY
目前在下功力尚浅， <Color=green 只能帮71级以下的灵兽进行顿悟，>\
<Color=green 71级以后的能力成长道理就要看自己的造化了。>\
<知道了/@exit>\
#ACT
break
#IF
EQUAL $PET.RELIVE 2
#ACT
MOV P0 1
INC P0 $PET.SAVVY
MULT P0 5
MOV P1 $STR(P0)
MULT P1 2
#ELSESAY
你的灵兽并非二转灵兽先去进行二转以后再来吧！\\
<我知道了/@exit>\
#ELSEACT
break
#IF
SMALL $PET.APTITUDE $STR(P1)
#SAY
你的灵兽资质过低，无法进行顿悟，请幻化灵兽提高资\
质到<$STR(P1)>点再来吧！\\
<我知道了/@exit>\
#ACT
break
#IF
SMALL $PET.LEVEL $STR(P0)
#SAY
你的灵兽等级不够无法顿悟，请把灵兽升级到 <$STR(P0)>级，\
以后再来找我吧！\
<我知道了/@exit>\
#ACT
break
#IF
SMALL $NIMBUSPOINT $STR(D70)
#SAY
你的灵力不足无法 完成顿悟！\
<我知道了/@exit>\
#ACT
break
MOV P9 $STR(D79)
MULT P9 20000
#IF
CHECKGOLD $STR(P9)
#SAY
你的灵兽顿悟了，五行属性大幅度提高了！\
<我知道了/@exit>\
#ACT
TAKE 金币 $STR(P9)
NIMBUSPOINT - $STR(D70)
SETPETATTRIBUTE $PET.MAKEINDEX 14 + 1 ;顿悟+1
#ELSESAY
你的金币不足无法完成顿悟！\
<我知道了/@exit>\
#ELSEACT
break
#IF
random 1
#ACT
MOV D72 $PET.MAKEINDEX
#IF
TRUE
#ACT
MOVR P0 4
INC P0 4
SETPETATTRIBUTE $PET.MAKEINDEX 3 + $STR(P0) ;生命
#IF
SMALL $ITEMINFO[$PET.MAKEINDEX].PET.MP 255
#ACT
MOVR P0 4
INC P0 4
SETPETATTRIBUTE $PET.MAKEINDEX 4 + $STR(P0) ;魔法值
#IF
random 12
#ACT
MOVR P0 7
MOV S1 @顿悟攻击属性
INC S1 $str(P0)
GOTO $str(S1)
#IF
random 6
#ACT
MOVR P0 9
MOV S1 @顿悟属性
INC S1 $str(P0)
GOTO $str(S1)
#IF
random 2
#ACT
MOVR P0 9
MOV S1 @顿悟属性
INC S1 $str(P0)
GOTO $str(S1)
#IF
SMALL $ITEMINFO[$STR(D72)].PET.FELEMENT1 金
#ACT
GOTO @元素1
#ELSEACT
GOTO @元素2
[@元素1]
#IF
random 5
#ACT
MOVR P1 4
INC P1 1
SETPETATTRIBUTE $PET.MAKEINDEX 15 + $STR(P1)
#ELSEACT
MOVR P1 2
INC P1 1
SETPETATTRIBUTE $PET.MAKEINDEX 15 + $STR(P1)
[@元素2]
#IF
random 5
#ACT
MOVR P1 4
INC P1 1
SETPETATTRIBUTE $PET.MAKEINDEX 16 + $STR(P1)
#ELSEACT
MOVR P1 2
INC P1 1
SETPETATTRIBUTE $PET.MAKEINDEX 16 + $STR(P1)
[@顿悟属性0]
#IF
SMALL $ITEMINFO[$STR(D72)].PET.POISONNICETY 31
#ACT
SETPETATTRIBUTE $PET.MAKEINDEX 13 + 1 ;;中毒命中0－31
[@顿悟属性1]
#IF
SMALL $ITEMINFO[$STR(D72)].PET.ANTIPOISON 31
#ACT
SETPETATTRIBUTE $PET.MAKEINDEX 5 + 1 ;;中毒躲避0－31
[@顿悟属性2]
#IF
SMALL $ITEMINFO[$STR(D72)].PET.MAC1 31
#ACT
SETPETATTRIBUTE $PET.MAKEINDEX 6 + 1 ;;魔防力下限：0-31
[@顿悟属性3]
#IF
SMALL $ITEMINFO[$STR(D72)].PET.MAC2 31
#ACT
SETPETATTRIBUTE $PET.MAKEINDEX 7 + 1 ;;魔防力上限：0-31
[@顿悟属性4]
#IF
SMALL $ITEMINFO[$STR(D72)].PET.MAGICNICETY 31
#ACT
SETPETATTRIBUTE $PET.MAKEINDEX 8 + 1 ;;魔法命中 0-31
[@顿悟属性5]
#IF
SMALL $ITEMINFO[$STR(D72)].PET.EVADET 31
#ACT
SETPETATTRIBUTE $PET.MAKEINDEX 9 + 1 ;;退避 0－31
[@顿悟属性6]
#IF
SMALL $ITEMINFO[$STR(D72)].PET.AC1 31
#ACT
SETPETATTRIBUTE $PET.MAKEINDEX 10 + 1 ;;防御力下限：0-31
[@顿悟属性7]
#IF
SMALL $ITEMINFO[$STR(D72)].PET.AC2 31
#ACT
SETPETATTRIBUTE $PET.MAKEINDEX 11 + 1 ;;防御力上限：0-31
[@顿悟属性8]
#IF
SMALL $ITEMINFO[$STR(D72)].PET.ANTIMAGIC 31
#ACT
SETPETATTRIBUTE $PET.MAKEINDEX 12 + 1 ;;魔法退避 0-31
[@顿悟攻击属性0]
#IF
SMALL $ITEMINFO[$STR(D72)].PET.MC1 7
#ACT
SETPETATTRIBUTE $PET.MAKEINDEX 19 + 1 ;;魔功下限 0－7
[@顿悟攻击属性1]
#IF
SMALL $ITEMINFO[$STR(D72)].PET.DC1 7
#ACT
SETPETATTRIBUTE $PET.MAKEINDEX 23 + 1 ;;攻击下限 0－7
[@顿悟攻击属性2]
#IF
SMALL $ITEMINFO[$STR(D72)].PET.SC2 7
#ACT
SETPETATTRIBUTE $PET.MAKEINDEX 22 + 1 ;;道攻上限 0－7
[@顿悟攻击属性3]
#IF
SMALL $ITEMINFO[$STR(D72)].PET.DC2 7
#ACT
SETPETATTRIBUTE $PET.MAKEINDEX 24 + 1 ;;攻击上限 0－7
[@顿悟攻击属性4]
#IF
SMALL $ITEMINFO[$STR(D72)].PET.SC1 7
#ACT
SETPETATTRIBUTE $PET.MAKEINDEX 21 + 1 ;;道攻下限 0－7
[@顿悟攻击属性5]
#IF
SMALL $ITEMINFO[$STR(D72)].PET.MC2 7
#ACT
SETPETATTRIBUTE $PET.MAKEINDEX 20 + 1 ;;魔功上限 0－7
[@顿悟攻击属性6]
#IF
SMALL $ITEMINFO[$STR(D72)].PET.NICETY 7
#ACT
SETPETATTRIBUTE $PET.MAKEINDEX 25 + 1 ;;命中 0－7
[@OpenZiZhiZS]
捕捉到的战鲨是不需要开启资质的，如果你从其它途径\
得到了非野生战鲨，那么去灵犀仙境找“灵犀使者”吧，我听\
说他那里可以做到开启资质，我实在做不到这个。\
\
<我明白了/@exit>
[@HuanHuaZS]
我可是战鲨幻化的专家！战鲨比其它灵兽有更高的灵\
性，幻化的成功率和属性增强能力都比其它灵兽提高很多，你\
很容易就能得到能力强大的超级战鲨！快来试试吧！\
在幻化时加入封元印，还可以进一步提高幻化成功\
率。\
<color=red 提示：每次幻化需要消耗10点灵力和20万金币。>\
\
<进行幻化/@@HUANHUA> <获得封元印/@goumai> <进一步了解幻化/@huanhuadesc>
[@goumai]
你需要哪种封元印呢？\
\
<购买地火兽弓箭手封元印/@弓箭手> <COLOR=GREEN 1元宝／个>\\
<购买猛魔统领封元印/@猛魔统领> <COLOR=GREEN 1元宝／个>\\
<返回/@main>
[@弓箭手]
#IF
CHECKGAMEGOLD > 0
#ACT
GAMEGOLD - 1
GIVE 封元印2 1
UPGRADEUSERITEM $PARAM(10) 1 = 5
SENDMSG 5 你花费1元宝购买了1个地火兽弓箭手封元印
break
#ELSEACT
MessageBox 你元宝不足1个，不能购买封元印
break
[@猛魔统领]
#IF
CHECKGAMEGOLD > 0
#ACT
GAMEGOLD - 1
GIVE 封元印1 1
UPGRADEUSERITEM $PARAM(10) 1 = 6
SENDMSG 5 你花费1元宝购买了1个猛魔统领封元印
break
#ELSEACT
MessageBox 你元宝不足1个，不能购买封元印
break
[@huanhuadesc]
所有的灵兽都可以进行幻化。幻化时需要一个主灵\
兽和一个副灵兽。幻化后，主灵兽将会继承副灵兽上的\
部分属性。\
而副灵兽的等级越高，幻化时的成功概率也越高，\
同时能通过幻化转移的属性也越多。\
无论幻化是否成功，副灵兽都会消失。\
在幻化时加入封元印，还可以提高幻化的成功率，\
幻化需要10点灵力和20万金币。\
\
<我明白了/@exit>
[@setbind]
捕捉的战鲨需要经过驯化才能真正骑乘，一旦驯化，战鲨\
将成为绑定状态，永远追随于你，<color=red 同时战鲨还将获得200点经验！>\
<COLOR=GREEN 未驯化的战鲨，不能骑乘>\
<COLOR=GREEN 本服的战鲨捕捉后可以直接骑战，无需驯化！>\
<战鲨驯化/@confirmbind> <晚点再说/@exit>
[@confirmbind]
#IF
CHECKLEVELEX > 0
#ACT
ShowSpotDlg 6 请放入你的灵兽石 @getboxitem635
#SAY
请放入你要驯化的鲨鱼石，我立刻帮你驯化。当然，你得\
给我1万金币作为酬劳，哦，这还需要你消耗20点灵力，才能与\
战鲨彻底心灵相通。\
\
[@getboxitem635]
#IF
!CHECKGOLD 10000
#SAY
给我1万金币！没钱难道让我白做不成？\\
<那我凑足钱再来/@exit>
#ACT
BREAK
#IF
SMALL $NIMBUSPOINT 20
#SAY
你需要20点灵力，准备好灵力才能驯化这只鲨鱼！\
用灵皓石或者灵石都可以提高灵力的！\\
<好，我这就去提高灵力/@exit>
#ACT
BREAK
#IF
!EQUAL $ITEMINFO[$PARAM(1)].NAME 战鲨石
#SAY
我只会驯化鲨鱼，请放鲨鱼石来！其它灵兽石不行的！\\
<好的/@exit>
#ACT
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].STDMODE 49
EQUAL $ITEMINFO[$PARAM(1)].SHAPE 51
#ACT
MOV P0 $PARAM(1)
#ELSESAY
你认为你给我的是灵兽石吗？你没有疯吧！\\
<搞错了/@exit>
#ELSEACT
break
#IF
SMALL $ITEMINFO[$PARAM(1)].ITEMEXT(59) 1
#SAY
灵兽石已经成功进行了驯化，并和你绑定在一起了。\\
<谢谢/@exit>
#ACT
NIMBUSPOINT - 20
TAKE 金币 100000
UPGRADEUSERITEM $PARAM(1) 8 = 1
UPGRADEUSERITEM $PARAM(1) 9 = 2
UPGRADEUSERITEM $PARAM(1) 4 = 1
SETPETATTRIBUTE $PARAM(1) 17 + 200
UPGRADEUSERITEM $PARAM(1) 59 = 1
MOV S0 $PARAM(1)
#CALL [\游戏功能\灵兽属性.txt] @普通属性
break