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

[@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
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点

楼主加油，我们都看好你哦。

真是难得给力的帖子啊。

感恩无私的分享与奉献 :)

太生气了，无法HOLD啦 >_<......

真是被感动的痛哭流涕……

真是被感动的痛哭流涕……

真是难得给力的帖子啊。

无回帖，不论坛，这才是人道。

真是被感动的痛哭流涕……