Gom引擎脚本-能量兑换

[复制链接]
查看1123 | 回复0 | 2017-11-22 14:22:09 | 显示全部楼层 |阅读模式
[@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


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则