;;;QQ:67762207
[@LottoSystem_NPC]
{
#SAY
彩票每周五9点30分开奖。 \
（0-14）中选3个号码，所选的号码与中奖号码一致（包括号码顺序）时，才能算中奖。
总奖金除以中奖人数，即为每位获得的奖金金额。 \
每张彩票的价格为1,500金币。退票时，退还500金币。 \
{FCOLOR/10}填写彩票后，交给我时，再付10个积分的手续费。{FCOLOR/12} \
双击彩票，可以填写号码。填写号号码以后扣取10点积分.\
中奖后，双击彩票，就能收取奖金。 \
{FCOLOR/10}奖池设定保底金额为500个积分卷，如本期没有人中则累计到下期！{FCOLOR/12}\
<查看/@ComFirmLottoNumber>上一期的中奖号码和累积金额。 \
<购买/@BuyLotto>彩票。\
<卖掉/@SellLotto>彩票。 \
<不购买/@exit>彩票。

[@SellLotto]
#IF
checkitem 幸运彩票 1
#ACT
Give 金币 500
Take 幸运彩票 1
#SAY
要继续卖彩票吗？ \\
<继续卖。/@SellLotto> \
<放弃。/@exit> \
#ELSESAY
您没有彩票。 \\
<关 闭/@exit>

[@ComFirmLottoNumber]
#ACT
ReadValueSql "TBL_LottoServer" "FLD_Name='Current'" "FLD_Sequence" @ComFirmLottoNumber_Sequence

[@ComFirmLottoNumber_Sequence()]
#ACT
Mov D0 %ARG(1)	;期数
Dec D0 1

#IF
Large D0 0
#ACT
FormatStr "FLD_Name='Lotto' and FLD_Sequence=%s" %D0
ReadValueSql "TBL_LottoServer" %A9 "FLD_Num1,FLD_Num2,FLD_Num3,FLD_HumanCount,FLD_TotalPrice,FLD_UserPrice" @ComFirmLottoNumber_Information
#ELSESAY
因为是首期彩票，所以查询到前一期的中奖信息。 \\
<关 闭/@exit>

[@ComFirmLottoNumber_Information()]
#ACT
Mov D1 %ARG(1)
Mov D2 %ARG(2)
Mov D3 %ARG(3)
Mov D4 %ARG(4)
Mov D5 %ARG(5)
Mov D6 %ARG(6)
Mov A0 %ARG(7)

#IF
Equal D4 0
Equal A0 "NotPrize"
#SAY
上次第<$OUTPUT(D0)>期彩票中奖号码为<$OUTPUT(D1)>，<$OUTPUT(D2)>，<$OUTPUT(D3)>， \
没人中奖，<$OUTPUT(D5)>累积到了这一期的奖金里。 \\
<关 闭/@exit>
#ELSESAY
上次第<$OUTPUT(D0)>期彩票中奖号码为<$OUTPUT(D1)>，<$OUTPUT(D2)>，<$OUTPUT(D3)>，\
有<$OUTPUT(D4)>人中奖，总奖金为<$OUTPUT(D5)>个积分卷，每人拿到的奖金为<$OUTPUT(D6)>个积分卷。\\
<关 闭/@exit>

[@BuyLotto]
#IF
CHECKBAGGAGE
#ELSESAY
<$USERNAME>的钱不够，不能购买彩票。 \\
<关 闭/@exit>
#ELSEACT
break

#IF
checkgold 1500
#ACT
ReadValueSql "TBL_LottoServer" "FLD_Name='Current'" "FLD_Sequence" @BuyLotto_Sequence
#ELSESAY
<$USERNAME>金币不足. \\
<关   闭/@exit>

[@BuyLotto_Sequence()]
#ACT
Mov D0 %ARG(1)

#IF
checkgold 1500
#ACT
sysmsg "购买了第 <$OUTPUT(D0)>轮幸运彩票."
Take 金币 1500
Give 幸运彩票 1
FormatStr "%s,%s,%s," %P9 %D0 100
Mov A8 %A9
FormatStr "%s,%s" 100 100
Addstr A8 %A9
FormatStr "FLD_MakeIdx=%s and FLD_Sequence=%s" %P9 %D0
WriteValueSql "TBL_LottoUser" %A9 "FLD_MakeIdx,FLD_Sequence,FLD_Num1,FLD_Num2,FLD_Num3" %A8
Close
}
;;;QQ:67762207