如何给孤月玉兔传奇传奇服务器添加能量抽奖功能

[@MAIN]
#IF
CHECKLEVELEX 0
#ACT
CloseBigDialogBox
#SAY
┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13\
能量抽奖/SCOLOR=254 Hot~/SCOLOR=249　　玩家福利送不停，您敢玩，我敢送!/SCOLOR=31\
┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈新开sf┈┈┈┈┈┈┈┈┈┈/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
MOV M0 400
DEC M0 $HUMAN($Mrrp_能量兑换数量)
#IF
LARGE M0 9
#ELSEACT
GOTO @MAIN
MESSAGEBOX 今天你能兑换的剩余能量点不足10点，每天最高只能热血传神兑换400点
break
#IF
CheckNationCredit 9
#ACT
ChangeNationCredit - 10
CALCVAR HUMAN $Mrrp_能量兑换数量 + 10
SAVEVAR HUMAN $Mrrp_能量兑换数量 ..\QuestDiary\Mrrp系列脚本\Mrrp_能量兑换变量数据.txt
GetRandomText .\QuestDiary\Mrrp系列脚本\能量抽奖\10点一次.txt S10
GIVE $STR(S10) 1
SENDMSG 0 玩家[%s]使用10点能量点抽奖获得了1个$STR(S10)...
GOTO @MAIN
#ELSEACT
GOTO @MAIN
MESSAGEBOX 你能量点不足10点
[@50能量点]
#IF
CHECKLEVELEX 0
#ACT
MOV M0 400
DEC M0 $HUMAN($Mrrp_能量兑换数量)
#IF
LARGE M0 49
#ELSEACT
GOTO @MAIN
MESSAGEBOX 今天你能兑换的剩余能量点不足50点，每天最高只能兑换400点
break
#IF
CheckNationCredit 49
#ACT
ChangeNationCredit - 50
CALCVAR HUMAN $Mrrp_能量兑换数量 + 50
SAVEVAR HUMAN $Mrrp_能量兑换数量 ..\QuestDiary\Mrrp系列脚本\Mrrp_能量兑换变量数据.txt
GetRandomText .\QuestDiary\Mrrp系列脚本\能量抽奖\50点一次.txt S10
GIVE $STR(S10) 1
SENDMSG 0 玩家[%s]使用50点能量点抽奖获得了1个$STR(S10)...
GOTO @MAIN
#ELSEACT
GOTO @MAIN
MESSAGEBOX 你能量点不足50点
[@100能量点]
#IF
CHECKLEVELEX 0
#ACT
MOV M0 400
DEC M0 $HUMAN($Mrrp_能量兑换数量)
#IF
LARGE M0 99
#ELSEACT
GOTO @MAIN
MESSAGEBOX 今天你能兑换的剩余能量点不足100点，每天最高只能兑换400点
break
#IF
CheckNationCredit 99
#ACT
ChangeNationCredit - 100
CALCVAR HUMAN $Mrrp_能量兑换数量 + 100
SAVEVAR HUMAN $Mrrp_能量兑换数量 ..\QuestDiary\Mrrp系列脚本\Mrrp_能量兑换变量数据.txt
GetRandomText .\QuestDiary\Mrrp系列脚本\能量抽奖\100点一次.txt S10
GIVE $STR(S10) 1
SENDMSG 0 玩家[%s]使用100点能量点抽奖获得了1个$STR(S10)...
GOTO @MAIN
#ELSEACT
GOTO @MAIN
MESSAGEBOX 你能量点不足100点