陆地灵兽永久开启避水属性脚本

[@setbslx]
    想要骑着陆地的灵兽在深海骑战？那也不是不可以，如果\
你的灵兽能够有能力达到120级以上，我倒是有办法：你只要给\
我一瓶极品兽神水，外加消耗你50点灵力值，你的灵兽就能够承\
载你在海底骑战了。不过话说回来，在海底，海神战鲨才是最适\
合的坐骑啊！\
\
    <我要点化我的灵兽/@confirmsetbslx>    <那还是算了/@exit>
[@confirmsetbslx]
#IF
TRUE
#SAY
    想要骑着陆地的灵兽在深海骑战？那也不是不可以，如果\
你的灵兽能够有能力达到120级以上，我倒是有办法：你只要给\
我一瓶极品兽神水，外加消耗你50点灵力值，你的灵兽就能够承\
载你在海底骑战了。不过话说回来，在海底，海神战鲨才是最适\
合的坐骑啊！\
<COLOR=GREEN 陆地灵兽永久开启避水属性需要收费：1000元宝>\
#ACT
ShowSpotDlg 6 请放入你的灵兽石 @开启避水

[@开启避水]
#IF
CHECKITEM 极品兽神水 1
#ELSEACT
SENDMSG 5 你没有极品兽神水！
BREAK
#IF
SMALL $NIMBUSPOINT 50
#ACT
SENDMSG 5 灵力不足50点！
BREAK
#IF
CHECKGAMEGOLD < 1000
#ACT
SENDMSG 5 陆地灵兽永久开启避水属性需要收费：1000元宝
BREAK
#IF
!EQUAL $ITEMINFO[$PARAM(1)].STDMODE 49
!EQUAL $ITEMINFO[$PARAM(1)].SHAPE 51
#ACT
MESSAGEBOX 你放入的不是灵兽石，请检查后操作！
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].NAME 战鲨石
#ACT
MESSAGEBOX 海底灵兽不需要点化避水属性！
BREAK
#IF
SMALL $ITEMINFO[$PARAM(1)].PET.LEVEL 120
#ACT
SENDMSG 5 陆地灵兽点化避水属性需要灵兽120级
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(88) 1
#ACT
SENDMSG 5 你的灵兽已经点化了碧水属性，无需重复开启！
break
#IF
CHECKGAMEGOLD \ 1000
#ACT
NIMBUSPOINT - 50
take 极品兽神水 1
GAMEGOLD - 1000
UPGRADEUSERITEM $PARAM(1) 88 = 1
SENDMSG 5 此灵兽永久开启避水属性
break

dedecms.com