Gom引擎脚本-能量兑换

GM版本库

[@main]
#if
#act
mov S87 <$GAMEPOINT>
mov S86 <$STR(U10)>
SetStringBlank <$STR(S87)> 6 1
SetStringBlank <$STR(S86)> 4 1
#SAY
<--------------------------------------------------------------/AUTOCOLOR=91>\
<能量抽奖/AUTOCOLOR=254> <Hot~/AUTOCOLOR=249>               <玩家福利送不停，您敢玩，我敢送！/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\
<--------------------------------------------------------------/AUTOCOLOR=91>\
<1.在土城安全区活动,每分钟可获得1点能量值，能量点可进行抽奖！/AUTOCOLOR=156> \
<2.幸运大抽奖，每天抽奖消耗上限为/AUTOCOLOR=155><400点/AUTOCOLOR=19><。离线挂机无效！/AUTOCOLOR=155> \
<3.目前你拥有能量值：/AUTOCOLOR=145>{<$STR(S87)>点/AUTOCOLOR=151}  <提示：/AUTOCOLOR=145><40级/AUTOCOLOR=249><以上才可获得能量值！/AUTOCOLOR=145>\
<4.请选择您要抽奖的类型：/AUTOCOLOR=147>        <今天您已消耗/AUTOCOLOR=147>[{<$STR(S86)>点/AUTOCOLOR=223}]<能量值！/AUTOCOLOR=147>\
<--------------------------------------------------------------/AUTOCOLOR=91>\
?<10点一次√/@10点抽>???<50点一次√/@50点抽>???<100点一次√/@100点抽>??  <关闭对话×/@exit>\


[@10点抽]
#IF
CHECKGAMEPOINT < 10
#ACT
MESSAGEBOX [抽奖失败]：你没有10点能量值！
break
#IF
Large U10 399
#ACT
MESSAGEBOX [抽奖失败]：你已经消耗到每日400能量值上限了！
break
#if
CHECKGAMEPOINT > 9
Small U10 400
#ACT
INC U10 10
GAMEPOINT - 10
GetRandomText ..\QuestDiary\数据文件\能量兑换\10点能量兑换.txt S$11
GIVE <$STR(S$11)> 1
SendMsg 0 {能量兑换ぐ|151:0:1}：{%s|227:0:1}消耗{10点|154:0:1}能量值兑换了物品{<$STR(S$11)>|223:0:1}.
SENDMSG 6 提示：您今天已经消耗了[<$STR(U10)>点]能量！
GOTO @MAIN
break


[@50点抽]
#IF
CHECKGAMEPOINT < 50
#ACT
MESSAGEBOX [抽奖失败]：你没有50点能量值！
break
#IF
Large U10 399
#ACT
MESSAGEBOX [抽奖失败]：你已经消耗到每日400能量值上限了！
break
#if
CHECKGAMEPOINT > 49
Small U10 400
#ACT
INC U10 50
GAMEPOINT - 50
GetRandomText ..\QuestDiary\数据文件\能量兑换\50点能量兑换.txt S$12
GIVE <$STR(S$12)> 1
SendMsg 0 {能量兑换ぐ|151:0:1}：{%s|227:0:1}消耗{50点|154:0:1}能量值兑换了物品{<$STR(S$12)>|223:0:1}.
SENDMSG 6 提示：您今天已经消耗了[<$STR(U10)>点]能量！
GOTO @MAIN
break

[@100点抽]
#IF
CHECKGAMEPOINT < 100
#ACT
MESSAGEBOX [抽奖失败]：你没有100点能量值！
break
#IF
Large U10 399
#ACT
MESSAGEBOX [抽奖失败]：你已经消耗到每日400能量值上限了！
break
#if
CHECKGAMEPOINT > 99
Small U10 400
#ACT
INC U10 100
GAMEPOINT - 100
GetRandomText ..\QuestDiary\数据文件\能量兑换\100点能量兑换.txt S$13
CHANGEEXP + <$STR(S$13)>
SendMsg 0 {能量兑换ぐ|151:0:1}：{%s|227:0:1}消耗{100点|154:0:1}能量值兑换了经验{<$STR(S$13)>|223:0:1}点.
SENDMSG 6 提示：您今天已经消耗了[<$STR(U10)>点]能量！
GOTO @MAIN
break