Blue引擎脚本-基金大使

Gm版本库/基金大使        3       344     340     基金申购        0       15      0       0       0       0       0
=============================================================
()
%100
[@main]
#IF
check [200] 0
#SAY
<COLOR=clFuchsia ------------------------------------------------------------>\
　<COLOR=CLFUCHSIA 基金必须合区之前领取，不领取的后果自负>\
　<COLOR=CLFUCHSIA 开区一小时后停止出售基金.届时基金开始升值.每隔一个小时>\
　<COLOR=CLLIME 升值10%..最高升值100%.中途任意时间均可以取回本金和红利>\
　<COLOR=CLAQUA 由于基金升值空间过大.每个新区不限名额.请预购从速>\
　<COLOR=CLFUCHSIA 每份基金出售价格为【2500W金刚石】.开区1小时之后将停止基金出售>\
<COLOR=clFuchsia ------------------------------------------------------------>\
　<我要购买基金/@购买基金>                            <COLOR=CLFUCHSIA 当前已售出><$STR(G50)><COLOR=CLFUCHSIA 份> \
<$DATETIME> \
你现在拥有金刚石数量为:【<$HUMAN(金刚石)>】个 \
#IF
check [200] 1
#SAY
　<COLOR=CLLIME 亲爱的玩家你好:>\
　<COLOR=CLAQUA 您的基金本金为:>【2500W金刚石】\
    <COLOR=clFuchsia 第一小时后可以领取3000W>   <COLOR=clFuchsia 第二小时后可以领取5000W>\
    <COLOR=clFuchsia 第三小时后可以领取7000W>   <COLOR=clFuchsia 第四小时后可以领取9000W>\
    <COLOR=clFuchsia 第五小时后可以领取1.1亿>\
  　<COLOR=CLAQUA 您可以选择现在取回本金和红利也可以让它继续升值>\
　<COLOR=CLLIME 注意：每个玩家只有一次机会取回本金和红利.越晚取回赚的越多>\
　<我要取回基金/@取回基金>                            　<让它继续升值/@EXIT>\
合区之前必须领取申购的基金，否则后果自负，本服概不负责 \
<$DATETIME> \
[@购买基金]
#if
EQUAL G63 0
#ACT
MESSAGEBOX [提示]：对不起，基金在开区10分钟后开始出售.现在时间还没到
BREAK
#if
EQUAL G63 2
#ACT
MESSAGEBOX [提示]：对不起，基金已经停止出售.请等待下个新区购买
BREAK
#IF
check [200] 1
#ACT
MESSAGEBOX [提示]：对不起，你已经购买过基金了.无法重复购买
BREAK
#IF
check [200] 0
CHECKVAR HUMAN 金刚石 > 24999999
CHECKGAMEPOINT > 17999
#ACT
SET [200] 1
CALCVAR HUMAN 金刚石 - 25000000
SAVEVAR HUMAN 金刚石 ..\QuestDiary\数据文件\金刚石Save.txt
goto @main
SENDMSG 1 系统：恭喜玩家%s成功购买了一份基金.1小时之后可以开始取回基金 151 249 10
SENDMSG 1 系统：恭喜玩家%s成功购买了一份基金.1小时之后可以开始取回基金 151 249 10
SENDMSG 1 系统：恭喜玩家%s成功购买了一份基金.1小时之后可以开始取回基金 151 249 10
#ELSEACT
MESSAGEBOX [提示]：对不起，你的金刚石不够或者充值点数没有达到18000，不能购买基金！！！！
[@取回基金]
#if
EQUAL G63 1
#ACT
MESSAGEBOX [提示]：现在是基金出售期间无法取回本金
BREAK
#if
check [201] 1
#ACT
MESSAGEBOX [提示]：你的基金已经被取回.还想讹我吗！！
BREAK
#if
check [200] 1
EQUAL G61 1
#ACT
SET [201] 1
CALCVAR HUMAN 金刚石 + 30000000
SAVEVAR HUMAN 金刚石 ..\QuestDiary\数据文件\金刚石Save.txt
SENDMSG 1 系统：恭喜玩家%s取回基金并且获得30000000金刚石红利 151 249 10
SENDMSG 1 系统：恭喜玩家%s取回基金并且获得30000000金刚石红利 151 249 10
SENDMSG 1 系统：恭喜玩家%s取回基金并且获得30000000金刚石红利 151 249 10
BREAK
#if
check [200] 1
EQUAL G61 2
#ACT
SET [201] 1
CALCVAR HUMAN 金刚石 + 50000000
SAVEVAR HUMAN 金刚石 ..\QuestDiary\数据文件\金刚石Save.txt
SENDMSG 1 系统：恭喜玩家%s取回基金并且获得50000000金刚石红利 151 249 10
SENDMSG 1 系统：恭喜玩家%s取回基金并且获得50000000金刚石红利 151 249 10
SENDMSG 1 系统：恭喜玩家%s取回基金并且获得50000000金刚石红利 151 249 10
BREAK
#if
check [200] 1
EQUAL G61 3
#ACT
SET [201] 1
CALCVAR HUMAN 金刚石 + 70000000
SAVEVAR HUMAN 金刚石 ..\QuestDiary\数据文件\金刚石Save.txt
SENDMSG 1 系统：恭喜玩家%s取回基金并且获得70000000金刚石红利 151 249 10
SENDMSG 1 系统：恭喜玩家%s取回基金并且获得70000000金刚石红利 151 249 10
SENDMSG 1 系统：恭喜玩家%s取回基金并且获得70000000金刚石红利 151 249 10
BREAK
#if
check [200] 1
EQUAL G61 4
#ACT
SET [201] 1
CALCVAR HUMAN 金刚石 + 90000000
SAVEVAR HUMAN 金刚石 ..\QuestDiary\数据文件\金刚石Save.txt
SENDMSG 1 系统：恭喜玩家%s取回基金并且获得90000000金刚石红利 151 249 10
SENDMSG 1 系统：恭喜玩家%s取回基金并且获得90000000金刚石红利 151 249 10
SENDMSG 1 系统：恭喜玩家%s取回基金并且获得90000000金刚石红利 151 249 10
BREAK
#if
check [200] 1
EQUAL G61 5
#ACT
SET [201] 1
CALCVAR HUMAN 金刚石 + 110000000
SAVEVAR HUMAN 金刚石 ..\QuestDiary\数据文件\金刚石Save.txt
SENDMSG 1 系统：恭喜玩家%s取回基金并且获得110000000金刚石红利 151 249 10
SENDMSG 1 系统：恭喜玩家%s取回基金并且获得110000000金刚石红利 151 249 10
SENDMSG 1 系统：恭喜玩家%s取回基金并且获得110000000金刚石红利 151 249 10
BREAK
#ELSEACT
MESSAGEBOX [提示]：你好象还没有购买基金吧