中州_彩票员-0.txt

企业版传奇世界本

(@buy )
%100
[@main]
　　呵呵，现在中州城完全沉浸在狗年的喜庆中！每个人手\
气一定都带有幸运！这个时候买彩票试试手气怎么样？\\
　　<有意思，详细说说彩票的事情！/@maincaipi>

[@maincaipi]
　　有人在我这里发过大财！不过，也有人用光了所有财产\
　　随便你了，试着买几张彩票吧！祝你发财，钱都多的\
掉到地上，哈哈！\\
<报名参加骑兵竞技/@竞技>　　<买骑兵竞技入场牌/@buy>\
<买骑兵竞技彩票/@竞技彩票>　　　<了解骑兵竞技活动/@竞技活动>\
<买彩票/@buy>　　　　　　　<了解彩票/@Bingo>\
<关闭/@exit>

[@竞技]
先在我这里购买:骑兵竞技入场牌.\
然后到时间每天上午10点到11点在老兵处入场.\
<买骑兵竞技入场牌/@buy>\
<关闭/@exit>

[@竞技彩票]
#SAY
没有骑兵竞技买了竞技彩票也没用啊\
等骑兵竞技开始了再来吧。\\
<返 回/@Main>\
\
[@竞技活动]
#SAY
骑兵竞技入场牌和竞技彩票可都是和骑兵竞技活动有莫\
大关系的哦。\\
<了解骑兵竞技入场牌/@了解入场牌>\
<了解竞技彩票/@了解彩票>\
<返  回/@Main>\
\
[@了解入场牌]
#SAY
如果你想参与骑兵竞技,就先要在我这买些骑兵竞技入场牌\
回去,在活动开始以后,你可以到王城老兵那里报名,他会收\
取1个骑兵竞技入场牌做为报名费,然后把你送到比赛场地。\\
<返  回/@Main>\
\
[@了解彩票]
#SAY
骑兵竞技开始了可以试试你的运气,每张竞技彩票要2000金币。\
要是竞技彩票号码和那场冠军的跑道号码对应的话你就中奖啦,\
双击竞技彩票马上会得到大笔的金钱。不过提醒你一声：竞技彩票\
必须在下次骑兵竞技活动开始前使用哦，过期不用可就自动作废拉。\\
<返  回/@Main>\
\
[@buy]
#SAY
  1等奖      500元宝\
  2等奖      100元宝\
  3等奖       50元宝\
  4等奖       10元宝\
  5等奖        5元宝\
  6等奖        1元宝\ \
点击这里<购买元宝彩票/@元宝彩票>　单价:2元宝/张\\

[@Bingo]
  1等奖      500元宝\
  2等奖      100元宝\
  3等奖       50元宝\
  4等奖       10元宝\
  5等奖        5元宝\
  6等奖        1元宝\ \
<返 回/@Main>\
\
[goods]
骑兵竞技入场牌    50    10

[@元宝彩票]
#IF
EQUAL G74 1
#ACT
queryvalue 请输入你需要购买的数量:[单位(张)] 2 2 8816
break
#ELSEACT
MessageBox 对不起，目前元宝彩票功能尚未开放！
break
close

[@getstring8816]
#ACT
Getstring s1
MOV P1 $STR(S1)
CALCVAR HUMAN SCL = $STR(s1)
CALCVAR HUMAN SCL * 2
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
EQUAL P1 0
#ACT
MessageBox 对不起，你输入数量错误！请重新输入数字，不能为0或带字符
break
#IF
LARGE P1 55
#ACT
MessageBox 对不起，你输入数量大于了55个！请重新输入数字，数量不能超过55个
break
#if
CHECKBAGSIZE $STR(P1)
#act
#elseact
MessageBox 对不起，您身上背包的位置不够！请清理出空位！
break
#IF
CHECKGAMEGOLD > $human(SCL)
CHECKVAR HUMAN SCL > 0
#ACT
GAMEGOLD - $human(SCL)
give 元宝彩票 $STR(s1)
CALCVAR HUMAN 消费 + $human(SCL)
SAVEVAR HUMAN 消费 ..\QuestDiary\数据文件\消费.txt
SENDMSG 5 您花费了:[<$human(SCL)>元宝]购买了:[<$STR(S1)>张]元宝彩票
SENDMSG 7 元宝彩票双击即可查看是否中奖
#ELSEACT
MessageBox 对不起，您的金币不足，购买失败。

;===========================================================