如何给传奇服务器添加能量抽奖功能

如何给传奇服务器添加能量抽奖功能[@MAIN]

#IF
CHECKLEVELEX>0
#ACT
CloseBigDialogBox
#SAY
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<能量抽奖/SCOLOR=254><Hot~/SCOLOR=249>　　<玩家福利送不停，您敢玩，我敢送!/SCOLOR=31>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<在土城安全区活动，每分钟可获得1点能量点，能量点可进行/SCOLOR=69>\
<幸运大抽奖，每天抽奖消耗上限为400点。离线挂机无效!/SCOLOR=250>\
{目前你拥有能量点：<$CREDIT>点/SCOLOR=253}\
<请选择您要抽奖的类型：/SCOLOR=151>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\

#if
CHECKLEVELEX>34
#SAY
<10点一次/@10能量点><50点一次/@50能量点><100点一次/@100能量点><关闭对话/@exit>
#elsesay
你必须等级到达35级才可以抽奖!<关闭对话/@exit>


[@10能量点]
#IF
CHECKLEVELEX>0
#ACT
MOVM0400
DECM0<$HUMAN($Mrrp_能量兑换数量)>

#IF
LARGEM09
#ELSEACT
GOTO@MAIN
MESSAGEBOX今天你能兑换的剩余能量点不足10点，每天最高只能兑换400点
break

#IF
CheckNationCredit>9
#ACT
ChangeNationCredit-10
CALCVARHUMAN$Mrrp_能量兑换数量+10
SAVEVARHUMAN$Mrrp_能量兑换数量..\QuestDiary\Mrrp系列脚本\Mrrp_能量兑换变量数据.txt
GetRandomText.\QuestDiary\Mrrp系列脚本\能量抽奖\10点一次.txtS10
GIVE<$STR(S10)>1
SENDMSG0玩家[%s]使用10点能量点抽奖获得了1个<$STR(S10)>...
GOTO@MAIN
#ELSEACT
GOTO@MAIN
MESSAGEBOX你能量点不足10点

[@50能量点]
#IF
CHECKLEVELEX>0
#ACT
MOVM0400
DECM0<$HUMAN($Mrrp_能量兑换数量)>

#IF
LARGEM049
#ELSEACT
GOTO@MAIN
MESSAGEBOX今天你能兑换的剩余能量点不足50点，每天最高只能兑换400点
break

#IF
CheckNationCredit>49
#ACT
ChangeNationCredit-50
CALCVARHUMAN$Mrrp_能量兑换数量+50
SAVEVARHUMAN$Mrrp_能量兑换数量..\QuestDiary\Mrrp系列脚本\Mrrp_能量兑换变量数据.txt
GetRandomText.\QuestDiary\Mrrp系列脚本\能量抽奖\50点一次.txtS10
GIVE<$STR(S10)>1
SENDMSG0玩家[%s]使用50点能量点抽奖获得了1个<$STR(S10)>...
GOTO@MAIN
#ELSEACT
GOTO@MAIN
MESSAGEBOX你能量点不足50点

[@100能量点]
#IF
CHECKLEVELEX>0
#ACT
MOVM0400
DECM0<$HUMAN($Mrrp_能量兑换数量)>

#IF
LARGEM099
#ELSEACT
GOTO@MAIN
MESSAGEBOX今天你能兑换的剩余能量点不足100点，每天最高只能兑换400点
break

#IF
CheckNationCredit>99
#ACT
ChangeNationCredit-100
CALCVARHUMAN$Mrrp_能量兑换数量+100
SAVEVARHUMAN$Mrrp_能量兑换数量..\QuestDiary\Mrrp系列脚本\Mrrp_能量兑换变量数据.txt
GetRandomText.\QuestDiary\Mrrp系列脚本\能量抽奖\100点一次.txtS10
GIVE<$STR(S10)>1
SENDMSG0玩家[%s]使用100点能量点抽奖获得了1个<$STR(S10)>...
GOTO@MAIN
#ELSEACT
GOTO@MAIN
MESSAGEBOX你能量点不足100点