万兽谱脚本

万兽谱脚本  开启  本体升阶脚本  元神升阶脚本            基本与官方一致     请用最新引擎进行体验真实靠谱

[@开万兽]

<开启主体万兽谱/@开启主体>       <开启元神万兽谱/@开启元神>\\

<返回/@main>
[@cesi]

#ACT
CHANGEWSPLV + 10

[@开启主体]

#IF
SMALL $LEVEL 50
#ACT
SENDMSG 5 你的等级不足50级,无法开启!
BREAK

#IF
LARGE $WSP.LEVEL 0
#ACT
SENDMSG 5 你的万兽谱已经开启过了!
BREAK
#ELSEACT
CHANGEWSPLV = 1
SENDMSG 7 开启万兽谱成功!
BREAK

[@开启元神]
#IF
!CHECKONLINE $PNEUMANAME
#ACT
MESSAGEBOX 请放出你的元神在开启!
BREAK

#IF
SMALL $PNEUMALEVEL 50
#ACT
MESSAGEBOX 你的元神等级不足50级!
BREAK

#IF
SMALL $HUMANINFO[$PNEUMANAME].$WSP.LEVEL 1
#ACT
$PNEUMANAME.CHANGEWSPLV = 1
SENDMSG 5 元神万兽谱开启成功!
BREAK
#ELSEACT
SENDMSG 5 你的元神已经开启过万兽谱了!
BREAK

以上是NPC开启脚本

[@万兽谱_升阶]
#CALL [\游戏功能\兽谱本体.txt] @万兽谱_升阶BT
#CALL [\游戏功能\兽谱元神.txt] @万兽谱_升阶ys

以上存放至QManage内

[@万兽谱_升阶BT]

{
#IF
CHECKITEM $PARAM(0) $PARAM(1)
#ACT
#ELSEACT
SENDMSG 5 <$PARAM(0)>道具不足<$PARAM(1)>个！
break
#IF
SMALL $TABLE(SG_WOLROAD).WOL17 0
#ACT
TABLE SG_WOLROAD WOL17 = 0
SENDMSG 5 目标万兽谱已经圆满，请到传世之路界面领取奖励
break
#IF
EQUAL $WSP.LEVEL 10
#ACT
TAKE $PARAM(0) $PARAM(1)
CHANGEWSPEXP - 5000
CHANGEWSPLV = 11
SENDMSG 5 升阶成功！
break
#IF
EQUAL $WSP.LEVEL 20
#ACT
TAKE $PARAM(0) $PARAM(1)
CHANGEWSPEXP - 35000
CHANGEWSPLV = 21
SENDMSG 5 升阶成功！
break
#IF
EQUAL $WSP.LEVEL 30
#ACT
TAKE $PARAM(0) $PARAM(1)
CHANGEWSPEXP - 95000
CHANGEWSPLV = 31
SENDMSG 5 升阶成功！
break
#IF
EQUAL $WSP.LEVEL 40
#ACT
TAKE $PARAM(0) $PARAM(1)
CHANGEWSPEXP - 227000
CHANGEWSPLV = 41
SENDMSG 5 升阶成功
break
#IF
EQUAL $WSP.LEVEL 50
#ACT
TAKE $PARAM(0) $PARAM(1)
CHANGEWSPEXP - 454000
CHANGEWSPLV = 51
SENDMSG 5 升阶成功
break
#IF
EQUAL $WSP.LEVEL 60
#ACT
TAKE $PARAM(0) $PARAM(1)
CHANGEWSPEXP - 980000
CHANGEWSPLV = 61
SENDMSG 5 升阶成功
break
#IF
EQUAL $WSP.LEVEL 70
#ACT
TAKE $PARAM(0) $PARAM(1)
CHANGEWSPEXP - 1960000
CHANGEWSPLV = 71
SENDMSG 5 升阶成功
break
#IF
EQUAL $WSP.LEVEL 80
#ACT
TAKE $PARAM(0) $PARAM(1)
CHANGEWSPEXP - 3920000
CHANGEWSPLV = 81
SENDMSG 5 升阶成功
break
#IF
EQUAL $WSP.LEVEL 90
#ACT
TAKE $PARAM(0) $PARAM(1)
CHANGEWSPEXP - 7840000
CHANGEWSPLV = 91
SENDMSG 5 升阶成功
break
#IF
EQUAL $WSP.LEVEL 99
#ACT
SENDMSG 5 当前万兽谱等级已满，无法进阶！
break
}

以上是万兽谱本体

[@万兽谱_升阶ys]

{
#IF
CHECKITEM $PARAM(0) $PARAM(1)
#ACT
#ELSEACT
SENDMSG 5 <$PARAM(0)>道具不足<$PARAM(1)>个！
break
#IF
SMALL $TABLE(SG_WOLROAD).WOL17 0
#ACT
TABLE SG_WOLROAD WOL17 = 0
SENDMSG 5 目标万兽谱已经圆满，请到传世之路界面领取奖励
break
#IF
EQUAL $HUMANINFO[$PNEUMANAME].$WSP.LEVEL 10
#ACT
TAKE $PARAM(0) $PARAM(1)
$PNEUMANAME.CHANGEWSPEXP - 5000
$PNEUMANAME.CHANGEWSPLV = 11
$PNEUMANAME.SENDMSG 5 升阶成功！
break
#IF
EQUAL $HUMANINFO[$PNEUMANAME].$WSP.LEVEL 20
#ACT
TAKE $PARAM(0) $PARAM(1)
$PNEUMANAME.CHANGEWSPEXP - 35000
$PNEUMANAME.CHANGEWSPLV = 21
$PNEUMANAME.SENDMSG 5 升阶成功！
break
#IF
EQUAL $HUMANINFO[$PNEUMANAME].$WSP.LEVEL 30
#ACT
TAKE $PARAM(0) $PARAM(1)
$PNEUMANAME.CHANGEWSPEXP - 95000
$PNEUMANAME.CHANGEWSPLV = 31
$PNEUMANAME.SENDMSG 5 升阶成功！
break
#IF
EQUAL $HUMANINFO[$PNEUMANAME].$WSP.LEVEL 40
#ACT
TAKE $PARAM(0) $PARAM(1)
$PNEUMANAME.CHANGEWSPEXP - 227000
$PNEUMANAME.CHANGEWSPLV = 41
$PNEUMANAME.SENDMSG 5 升阶成功
break
#IF
EQUAL $HUMANINFO[$PNEUMANAME].$WSP.LEVEL 50
#ACT
TAKE $PARAM(0) $PARAM(1)
$PNEUMANAME.CHANGEWSPEXP - 454000
$PNEUMANAME.CHANGEWSPLV = 51
$PNEUMANAME.SENDMSG 5 升阶成功
break
#IF
EQUAL $HUMANINFO[$PNEUMANAME].$WSP.LEVEL 60
#ACT
TAKE $PARAM(0) $PARAM(1)
$PNEUMANAME.CHANGEWSPEXP - 980000
$PNEUMANAME.CHANGEWSPLV = 61
$PNEUMANAME.SENDMSG 5 升阶成功
break
#IF
EQUAL $HUMANINFO[$PNEUMANAME].$WSP.LEVEL 70
#ACT
TAKE $PARAM(0) $PARAM(1)
$PNEUMANAME.CHANGEWSPEXP - 1960000
$PNEUMANAME.CHANGEWSPLV = 71
$PNEUMANAME.SENDMSG 5 升阶成功
break
#IF
EQUAL $HUMANINFO[$PNEUMANAME].$WSP.LEVEL 80
#ACT
TAKE $PARAM(0) $PARAM(1)
$PNEUMANAME.CHANGEWSPEXP - 3920000
$PNEUMANAME.CHANGEWSPLV = 81
$PNEUMANAME.SENDMSG 5 升阶成功
break
#IF
EQUAL $HUMANINFO[$PNEUMANAME].$WSP.LEVEL 90
#ACT
TAKE $PARAM(0) $PARAM(1)
$PNEUMANAME.CHANGEWSPEXP - 7840000
$PNEUMANAME.CHANGEWSPLV = 91
$PNEUMANAME.SENDMSG 5 升阶成功
break
#IF
EQUAL $HUMANINFO[$PNEUMANAME].$WSP.LEVEL 99
#ACT
$PNEUMANAME.SENDMSG 5 当前万兽谱等级已满，无法进阶！
break
}

以上为元神升阶脚本
本体元神脚本分别创建文本进行使用否则存在冲突