|
|
[@MAIN]
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\双色球\开奖时间.txt <$HOUR>
SMALL <$MINUTE> 5
#SAY
双色球销售：\
双色球正在开奖，不能查阅和购买！\
请在<$HOUR>点05分后再试！\ \
<○/FCOLOR=103><知道了/@EXIT>\
#ACT
break
#IF
EQUAL S$查询显示
#ACT
GetRandomText ..\QuestDiary\数据库\双色球\查询.txt S$查询显示 0
#IF
#ACT
MOV S$显示双色 <$STR(A127)>
ANSIREPLACETEXT S$显示双色 第[ <第[/FCOLOR=250>
ANSIREPLACETEXT S$显示双色 ]期 <]期/FCOLOR=250>
ANSIREPLACETEXT S$显示双色 红球 <红球/FCOLOR=249>
ANSIREPLACETEXT S$显示双色 蓝球 <蓝球/FCOLOR=154>
#SAY
双色球销售：\
我是恒古大陆双色球销售员，客官买两注吧！一注只要200就有机会\
中的10万大奖！您投注元宝就得元宝，投注元宝就得元宝\
\
<上期开奖号码/FCOLOR=250> <Img:680:17:-2:14> <Img:680:17:0:14> <Img:680:17:-5:14> <Img:681:17:-3:14>\
<$STR(S$显示双色)> 奖池：<$STR(G120)>\
<头奖：3红球+蓝球全中 奖金：/FCOLOR=250>100000< 元宝或元宝/FCOLOR=250>\
<二奖：3红球全中 奖金：/FCOLOR=250>10000 < 元宝或元宝/FCOLOR=250>\
<三奖：只中蓝球 奖金：/FCOLOR=250>200 < 元宝或元宝/FCOLOR=250>\
<○/FCOLOR=103><购买彩票/@买> <○/FCOLOR=103><查询中奖/@查询> <○/FCOLOR=103><历届中奖/@询问2> <○/FCOLOR=103><双色球规则|<$STR(S$查询显示)>/@>\
[@询问2]
#ACT
GetRandomText ..\QuestDiary\数据文件\历届中奖.txt S$中奖查询0 0
GetRandomText ..\QuestDiary\数据文件\历届中奖.txt S$中奖查询1 1
GetRandomText ..\QuestDiary\数据文件\历届中奖.txt S$中奖查询2 2
GetRandomText ..\QuestDiary\数据文件\历届中奖.txt S$中奖查询3 3
GetRandomText ..\QuestDiary\数据文件\历届中奖.txt S$中奖查询4 4
#IF
EQUAL S$中奖查询0
#ACT
MOV S$中奖查询0 暂无
#IF
EQUAL S$中奖查询1
#ACT
MOV S$中奖查询1 暂无
#IF
EQUAL S$中奖查询2
#ACT
MOV S$中奖查询2 暂无
#IF
EQUAL S$中奖查询3
#ACT
MOV S$中奖查询3 暂无
#IF
EQUAL S$中奖查询4
#ACT
MOV S$中奖查询4 暂无
#IF
#SAY
双色球销售：\
以下是历届中奖名单(最新5名)，已经兑奖的才会显示！\
<序号 信息/FCOLOR=254>\
1. <$STR(S$中奖查询0)>\
2. <$STR(S$中奖查询1)>\
3. <$STR(S$中奖查询2)>\
4. <$STR(S$中奖查询3)>\
5. <$STR(S$中奖查询4)>\
\
<○/FCOLOR=103><购买彩票/@买> <○/FCOLOR=103><查询中奖/@查询> <○/FCOLOR=103><历届中奖/FCOLOR=230> <○/FCOLOR=103><双色球规则|<$STR(S$查询显示)>/@>\
[@机选]
#IF
#ACT
MOV S$选数1 <Img:690:17:0:-3/@1>
MOV S$选数2 <Img:691:17:0:-3/@2>
MOV S$选数3 <Img:692:17:0:-3/@3>
MOV S$选数4 <Img:693:17:0:-3/@4>
MOV S$选数5 <Img:694:17:0:-3/@5>
MOV S$选数6 <Img:695:17:0:-3/@6>
MOV S$选数7 <Img:696:17:0:-3/@7>
MOV S$选数8 <Img:697:17:0:-3/@8>
MOV S$选数9 <Img:698:17:0:-3/@9>
MOV S$选数10 <Img:699:17:0:-3/@10>
MOV S$选数11 <Img:700:17:0:-2/@11>
MOV S$选数12 <Img:701:17:0:-2/@12>
MOV S$选数13 <Img:702:17:0:-2/@13>
MOV S$选数14 <Img:703:17:0:-2/@14>
MOV S$选数15 <Img:704:17:0:-2/@15>
MOV S$选数16 <Img:705:17:0:-2/@16>
MOV S$选数Ns1 <Img:730:17:0:-1/@lq1>
MOV S$选数Ns2 <Img:731:17:0:-1/@lq2>
MOV S$选数Ns3 <Img:732:17:0:-1/@lq3>
MOV S$选数Ns4 <Img:733:17:0:-1/@lq4>
MOV S$选数Ns5 <Img:734:17:0:-1/@lq5>
MOV S$选数Ns6 <Img:735:17:0:-1/@lq6>
MOV S$选数Ns7 <Img:736:17:0:-1/@lq7>
MOV S$选数Ns8 <Img:737:17:0:-1/@lq8>
MOV S$选数Ns9 <Img:738:17:0:-1/@lq9>
MOV S$选数Ns10 <Img:739:17:0:-1/@lq10>
MOV S$选号s1 --
MOV S$选号s2 --
MOV S$选号s3 --
MOV S$选号s4 --
MOVR N$选号s1 1 17
MOVR N$选号s2 1 17
MOVR N$选号s3 1 17
MOVR N$选号s4 1 11
GOTO @机选2
[@机选2]
#IF
EQUAL N$选号s2 <$STR(N$选号s1)>
#ACT
MOVR N$选号s2 1 17
GOTO @机选2
break
#ELSEACT
GOTO @机选3
[@机选3]
#OR
EQUAL N$选号s3 <$STR(N$选号s1)>
EQUAL N$选号s3 <$STR(N$选号s2)>
#ACT
MOVR N$选号s3 1 17
GOTO @机选3
break
#IF
#ACT
GOTO @<$STR(N$选号s1)>
GOTO @<$STR(N$选号s2)>
GOTO @<$STR(N$选号s3)>
GOTO @lq<$STR(N$选号s4)>
[@买]
#ACT
MOV S$选数1 <Img:690:17:0:-3/@1>
MOV S$选数2 <Img:691:17:0:-3/@2>
MOV S$选数3 <Img:692:17:0:-3/@3>
MOV S$选数4 <Img:693:17:0:-3/@4>
MOV S$选数5 <Img:694:17:0:-3/@5>
MOV S$选数6 <Img:695:17:0:-3/@6>
MOV S$选数7 <Img:696:17:0:-3/@7>
MOV S$选数8 <Img:697:17:0:-3/@8>
MOV S$选数9 <Img:698:17:0:-3/@9>
MOV S$选数10 <Img:699:17:0:-3/@10>
MOV S$选数11 <Img:700:17:0:-2/@11>
MOV S$选数12 <Img:701:17:0:-2/@12>
MOV S$选数13 <Img:702:17:0:-2/@13>
MOV S$选数14 <Img:703:17:0:-2/@14>
MOV S$选数15 <Img:704:17:0:-2/@15>
MOV S$选数16 <Img:705:17:0:-2/@16>
MOV S$选数Ns1 <Img:730:17:0:-1/@lq1>
MOV S$选数Ns2 <Img:731:17:0:-1/@lq2>
MOV S$选数Ns3 <Img:732:17:0:-1/@lq3>
MOV S$选数Ns4 <Img:733:17:0:-1/@lq4>
MOV S$选数Ns5 <Img:734:17:0:-1/@lq5>
MOV S$选数Ns6 <Img:735:17:0:-1/@lq6>
MOV S$选数Ns7 <Img:736:17:0:-1/@lq7>
MOV S$选数Ns8 <Img:737:17:0:-1/@lq8>
MOV S$选数Ns9 <Img:738:17:0:-1/@lq9>
MOV S$选数Ns10 <Img:739:17:0:-1/@lq10>
MOV N$倍率 1
MOV S$选号s1 --
MOV S$选号s2 --
MOV S$选号s3 --
MOV S$选号s4 --
#SAY
双色球销售：\
请您选择号码！\
第[<$STR(A126)>]期 红球 -- -- -- 蓝球 -- 倍率：1 <○/FCOLOR=103><加注/@@InPutInteger4(请输入购买的倍率1-9999：每注需200元宝或元宝)>\
<Img:680:17:-2:-18> <Img:680:17:0:-18> <Img:680:17:-5:-18> <Img:681:17:-3:-18>\
红球号码：<$STR(S$选数1)> <$STR(S$选数2)> <$STR(S$选数3)> <$STR(S$选数4)> <$STR(S$选数5)> <$STR(S$选数6)> <$STR(S$选数7)> <$STR(S$选数8)> <$STR(S$选数9)> <$STR(S$选数10)>\
<$STR(S$选数11)> <$STR(S$选数12)> <$STR(S$选数13)> <$STR(S$选数14)> <$STR(S$选数15)> <$STR(S$选数16)> \
蓝球号码：<$STR(S$选数Ns1)> <$STR(S$选数Ns2)> <$STR(S$选数Ns3)> <$STR(S$选数Ns4)> <$STR(S$选数Ns5)> <$STR(S$选数Ns6)> <$STR(S$选数Ns7)> <$STR(S$选数Ns8)> <$STR(S$选数Ns9)> <$STR(S$选数Ns10)>\
\
<○/FCOLOR=103><选取号码/FCOLOR=230> <○/FCOLOR=103><机选一组/@机选> <○/FCOLOR=103><返回/@MAIN>\
[@1]
#IF
EQUAL S$选号S1 --
#ACT
MOV S$选号S1 01
MOV S$选数1 <Img:710:17:0:-3>
GOTO @结算
break
#IF
EQUAL S$选号S2 --
#ACT
MOV S$选号S2 01
MOV S$选数1 <Img:710:17:0:-3>
GOTO @结算
break
#IF
EQUAL S$选号S3 --
#ACT
MOV S$选号S3 01
MOV S$选数1 <Img:710:17:0:-3>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示：你已经取了足够的红色球，请不要再点击红球了！
[@2]
#IF
EQUAL S$选号S1 --
#ACT
MOV S$选号S1 02
MOV S$选数2 <Img:711:17:0:-3>
GOTO @结算
break
#IF
EQUAL S$选号S2 --
#ACT
MOV S$选号S2 02
MOV S$选数2 <Img:711:17:0:-3>
GOTO @结算
break
#IF
EQUAL S$选号S3 --
#ACT
MOV S$选号S3 02
MOV S$选数2 <Img:711:17:0:-3>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示：你已经取了足够的红色球，请不要再点击红球了！
break
[@3]
#IF
EQUAL S$选号S1 --
#ACT
MOV S$选号S1 03
MOV S$选数3 <Img:712:17:0:-3>
GOTO @结算
break
#IF
EQUAL S$选号S2 --
#ACT
MOV S$选号S2 03
MOV S$选数3 <Img:712:17:0:-3>
GOTO @结算
break
#IF
EQUAL S$选号S3 --
#ACT
MOV S$选号S3 03
MOV S$选数3 <Img:712:17:0:-3>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示：你已经取了足够的红色球，请不要再点击红球了！
break
[@4]
#IF
EQUAL S$选号S1 --
#ACT
MOV S$选号S1 04
MOV S$选数4 <Img:713:17:0:-3>
GOTO @结算
break
#IF
EQUAL S$选号S2 --
#ACT
MOV S$选号S2 04
MOV S$选数4 <Img:713:17:0:-3>
GOTO @结算
break
#IF
EQUAL S$选号S3 --
#ACT
MOV S$选号S3 04
MOV S$选数4 <Img:713:17:0:-3>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示：你已经取了足够的红色球，请不要再点击红球了！
break
[@5]
#IF
EQUAL S$选号S1 --
#ACT
MOV S$选号S1 05
MOV S$选数5 <Img:714:17:0:-3>
GOTO @结算
break
#IF
EQUAL S$选号S2 --
#ACT
MOV S$选号S2 05
MOV S$选数5 <Img:714:17:0:-3>
GOTO @结算
break
#IF
EQUAL S$选号S3 --
#ACT
MOV S$选号S3 05
MOV S$选数5 <Img:714:17:0:-3>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示：你已经取了足够的红色球，请不要再点击红球了！
break
[@6]
#IF
EQUAL S$选号S1 --
#ACT
MOV S$选号S1 06
MOV S$选数6 <Img:715:17:0:-3>
GOTO @结算
break
#IF
EQUAL S$选号S2 --
#ACT
MOV S$选号S2 06
MOV S$选数6 <Img:715:17:0:-3>
GOTO @结算
break
#IF
EQUAL S$选号S3 --
#ACT
MOV S$选号S3 06
MOV S$选数6 <Img:715:17:0:-3>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示：你已经取了足够的红色球，请不要再点击红球了！
break
[@7]
#IF
EQUAL S$选号S1 --
#ACT
MOV S$选号S1 07
MOV S$选数7 <Img:716:17:0:-3>
GOTO @结算
break
#IF
EQUAL S$选号S2 --
#ACT
MOV S$选号S2 07
MOV S$选数7 <Img:716:17:0:-3>
GOTO @结算
break
#IF
EQUAL S$选号S3 --
#ACT
MOV S$选号S3 07
MOV S$选数7 <Img:716:17:0:-3>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示：你已经取了足够的红色球，请不要再点击红球了！
break
[@8]
#IF
EQUAL S$选号S1 --
#ACT
MOV S$选号S1 08
MOV S$选数8 <Img:717:17:0:-3>
GOTO @结算
break
#IF
EQUAL S$选号S2 --
#ACT
MOV S$选号S2 08
MOV S$选数8 <Img:717:17:0:-3>
GOTO @结算
break
#IF
EQUAL S$选号S3 --
#ACT
MOV S$选号S3 08
MOV S$选数8 <Img:717:17:0:-3>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示：你已经取了足够的红色球，请不要再点击红球了！
break
[@9]
#IF
EQUAL S$选号S1 --
#ACT
MOV S$选号S1 09
MOV S$选数9 <Img:718:17:0:-3>
GOTO @结算
break
#IF
EQUAL S$选号S2 --
#ACT
MOV S$选号S2 09
MOV S$选数9 <Img:718:17:0:-3>
GOTO @结算
break
#IF
EQUAL S$选号S3 --
#ACT
MOV S$选号S3 09
MOV S$选数9 <Img:718:17:0:-3>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示：你已经取了足够的红色球，请不要再点击红球了！
break
[@10]
#IF
EQUAL S$选号S1 --
#ACT
MOV S$选号S1 10
MOV S$选数10 <Img:719:17:0:-3>
GOTO @结算
break
#IF
EQUAL S$选号S2 --
#ACT
MOV S$选号S2 10
MOV S$选数10 <Img:719:17:0:-3>
GOTO @结算
break
#IF
EQUAL S$选号S3 --
#ACT
MOV S$选号S3 10
MOV S$选数10 <Img:719:17:0:-3>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示：你已经取了足够的红色球，请不要再点击红球了！
break
[@11]
#IF
EQUAL S$选号S1 --
#ACT
MOV S$选号S11 11
MOV S$选数11 <Img:720:17:0:-2>
GOTO @结算
break
#IF
EQUAL S$选号S2 --
#ACT
MOV S$选号S2 11
MOV S$选数11 <Img:720:17:0:-2>
GOTO @结算
break
#IF
EQUAL S$选号S3 --
#ACT
MOV S$选号S3 11
MOV S$选数11 <Img:720:17:0:-2>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示：你已经取了足够的红色球，请不要再点击红球了！
break
[@12]
#IF
EQUAL S$选号S1 --
#ACT
MOV S$选号S1 12
MOV S$选数12 <Img:721:17:0:-2>
GOTO @结算
break
#IF
EQUAL S$选号S2 --
#ACT
MOV S$选号S2 12
MOV S$选数12 <Img:721:17:0:-2>
GOTO @结算
break
#IF
EQUAL S$选号S3 --
#ACT
MOV S$选号S3 12
MOV S$选数12 <Img:721:17:0:-2>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示：你已经取了足够的红色球，请不要再点击红球了！
break
[@13]
#IF
EQUAL S$选号S1 --
#ACT
MOV S$选号S1 13
MOV S$选数13 <Img:722:17:0:-2>
GOTO @结算
break
#IF
EQUAL S$选号S2 --
#ACT
MOV S$选号S2 13
MOV S$选数13 <Img:722:17:0:-2>
GOTO @结算
break
#IF
EQUAL S$选号S3 --
#ACT
MOV S$选号S3 13
MOV S$选数13 <Img:722:17:0:-2>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示：你已经取了足够的红色球，请不要再点击红球了！
break
[@14]
#IF
EQUAL S$选号S1 --
#ACT
MOV S$选号S1 14
MOV S$选数14 <Img:723:17:0:-2>
GOTO @结算
break
#IF
EQUAL S$选号S2 --
#ACT
MOV S$选号S2 14
MOV S$选数14 <Img:723:17:0:-2>
GOTO @结算
break
#IF
EQUAL S$选号S3 --
#ACT
MOV S$选号S3 14
MOV S$选数14 <Img:723:17:0:-2>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示：你已经取了足够的红色球，请不要再点击红球了！
break
[@15]
#IF
EQUAL S$选号S1 --
#ACT
MOV S$选号S1 15
MOV S$选数15 <Img:724:17:0:-2>
GOTO @结算
break
#IF
EQUAL S$选号S2 --
#ACT
MOV S$选号S2 15
MOV S$选数15 <Img:724:17:0:-2>
GOTO @结算
break
#IF
EQUAL S$选号S3 --
#ACT
MOV S$选号S3 15
MOV S$选数15 <Img:724:17:0:-2>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示：你已经取了足够的红色球，请不要再点击红球了！
break
[@16]
#IF
EQUAL S$选号S1 --
#ACT
MOV S$选号S1 16
MOV S$选数16 <Img:725:17:0:-2>
GOTO @结算
break
#IF
EQUAL S$选号S2 --
#ACT
MOV S$选号S2 16
MOV S$选数16 <Img:725:17:0:-2>
GOTO @结算
break
#IF
EQUAL S$选号S3 --
#ACT
MOV S$选号S3 16
MOV S$选数16 <Img:725:17:0:-2>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示：你已经取了足够的红色球，请不要再点击红球了！
break
[@lq1]
#IF
EQUAL S$选号S4 --
#ACT
MOV S$选号S4 01
MOV S$选数Ns1 <Img:710:17:0:-1>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示你已经取了足够的蓝色球，请不要再点击蓝球了！
break
[@lq2]
#IF
EQUAL S$选号S4 --
#ACT
MOV S$选号S4 02
MOV S$选数Ns2 <Img:711:17:0:-1>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示你已经取了足够的蓝色球，请不要再点击蓝球了！
break
[@lq3]
#IF
EQUAL S$选号S4 --
#ACT
MOV S$选号S4 03
MOV S$选数Ns3 <Img:712:17:0:-1>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示你已经取了足够的蓝色球，请不要再点击蓝球了！
break
[@lq4]
#IF
EQUAL S$选号S4 --
#ACT
MOV S$选号S4 04
MOV S$选数Ns4 <Img:713:17:0:-1>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示你已经取了足够的蓝色球，请不要再点击蓝球了！
break
[@lq5]
#IF
EQUAL S$选号S4 --
#ACT
MOV S$选号S4 05
MOV S$选数Ns5 <Img:714:17:0:-1>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示你已经取了足够的蓝色球，请不要再点击蓝球了！
break
[@lq6]
#IF
EQUAL S$选号S4 --
#ACT
MOV S$选号S4 06
MOV S$选数Ns6 <Img:715:17:0:-1>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示你已经取了足够的蓝色球，请不要再点击蓝球了！
break
[@lq7]
#IF
EQUAL S$选号S4 --
#ACT
MOV S$选号S4 07
MOV S$选数Ns7 <Img:716:17:0:-1>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示你已经取了足够的蓝色球，请不要再点击蓝球了！
break
[@lq8]
#IF
EQUAL S$选号S4 --
#ACT
MOV S$选号S4 08
MOV S$选数Ns8 <Img:717:17:0:-1>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示你已经取了足够的蓝色球，请不要再点击蓝球了！
break
[@lq9]
#IF
EQUAL S$选号S4 --
#ACT
MOV S$选号S4 09
MOV S$选数Ns9 <Img:718:17:0:-1>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示你已经取了足够的蓝色球，请不要再点击蓝球了！
break
[@lq10]
#IF
EQUAL S$选号S4 --
#ACT
MOV S$选号S4 10
MOV S$选数Ns10 <Img:719:17:0:-1>
GOTO @结算
break
#IF
#ACt
SENDMSG 5 错误提示你已经取了足够的蓝色球，请不要再点击蓝球了！
break
[@结算]
#IF
NOT EQUAL S$选号S1 --
NOT EQUAL S$选号S2 --
NOT EQUAL S$选号S3 --
NOT EQUAL S$选号S4 --
#SAY
双色球销售：\
请您选择号码！\
第[<$STR(A126)>]期 红球 <$STR(S$选号S1)> <$STR(S$选号S2)> <$STR(S$选号S3)> 蓝球 <$STR(S$选号S4)> 倍率：<$STR(N$倍率)> <○/FCOLOR=103><加注/@@InPutInteger4(请输入购买的倍率1-9999：每注需200元宝或元宝)>\
<Img:680:17:-2:-18> <Img:680:17:0:-18> <Img:680:17:-5:-18> <Img:681:17:-3:-18>\
红球号码：<$STR(S$选数1)> <$STR(S$选数2)> <$STR(S$选数3)> <$STR(S$选数4)> <$STR(S$选数5)> <$STR(S$选数6)> <$STR(S$选数7)> <$STR(S$选数8)> <$STR(S$选数9)> <$STR(S$选数10)>\
<$STR(S$选数11)> <$STR(S$选数12)> <$STR(S$选数13)> <$STR(S$选数14)> <$STR(S$选数15)> <$STR(S$选数16)> \
蓝球号码：<$STR(S$选数Ns1)> <$STR(S$选数Ns2)> <$STR(S$选数Ns3)> <$STR(S$选数Ns4)> <$STR(S$选数Ns5)> <$STR(S$选数Ns6)> <$STR(S$选数Ns7)> <$STR(S$选数Ns8)> <$STR(S$选数Ns9)> <$STR(S$选数Ns10)>\
\
<○/FCOLOR=103><打印彩票/@打印> <○/FCOLOR=103><重置归零/@买> <○/FCOLOR=103><重新机选/@机选> <○/FCOLOR=103><返回/@MAIN>\
<[请点击打印彩票，并按照提示进行操作，完成打印。]/FCOLOR=250>
#ACT
break
#IF
#SAY
双色球销售：\
请您选择号码！\
第[<$STR(A126)>]期 红球 <$STR(S$选号S1)> <$STR(S$选号S2)> <$STR(S$选号S3)> 蓝球 <$STR(S$选号S4)> 倍率：<$STR(N$倍率)> <○/FCOLOR=103><加注/@@InPutInteger4(请输入购买的倍率1-9999：每注需200元宝或元宝)>\
<Img:680:17:-2:-18> <Img:680:17:0:-18> <Img:680:17:-5:-18> <Img:681:17:-3:-18>\
红球号码：<$STR(S$选数1)> <$STR(S$选数2)> <$STR(S$选数3)> <$STR(S$选数4)> <$STR(S$选数5)> <$STR(S$选数6)> <$STR(S$选数7)> <$STR(S$选数8)> <$STR(S$选数9)> <$STR(S$选数10)>\
<$STR(S$选数11)> <$STR(S$选数12)> <$STR(S$选数13)> <$STR(S$选数14)> <$STR(S$选数15)> <$STR(S$选数16)> \
蓝球号码：<$STR(S$选数Ns1)> <$STR(S$选数Ns2)> <$STR(S$选数Ns3)> <$STR(S$选数Ns4)> <$STR(S$选数Ns5)> <$STR(S$选数Ns6)> <$STR(S$选数Ns7)> <$STR(S$选数Ns8)> <$STR(S$选数Ns9)> <$STR(S$选数Ns10)>\
\
<○/FCOLOR=103><继续选号/FCOLOR=230> <○/FCOLOR=103><重置归零/@买> <○/FCOLOR=103><重新机选/@机选> <○/FCOLOR=103><返回/@MAIN>\
[@InPutInteger4]
#IF
EQUAL N4 0
#ACT
MESSAGEBOX 请输入0以上的数字！
break
#IF
LARGE N4 9999
#ACT
MESSAGEBOX 倍率过大，请重新 ！！
break
#IF
#ACT
MOV N$倍率 <$STR(N4)>
GOTO @结算
break
[@打印]
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\双色球\开奖时间.txt <$HOUR>
SMALL <$MINUTE> 5
#SAY
双色球销售：\
双色球正在开奖，不能查阅和购买！\
请在<$HOUR>点05分后再试！\ \
<○/FCOLOR=103><知道了/@EXIT>\
#ACT
break
#IF
#ACT
ReturnBoxItem 0
ReturnBoxItem 1
GIVE 双色球彩票[未打印] 1
#SAY
双色球销售： <Img:680:17:-2:30> <Img:680:17:0:30> <Img:680:17:-5:30> <Img:681:17:-3:30>\
下面是您选择的号码，请将彩票放入框内打印！\
第[<$STR(A126)>]期 红球 <$STR(S$选号S1)> <$STR(S$选号S2)> <$STR(S$选号S3)> 蓝球 <$STR(S$选号S4)> 倍率：<$STR(N$倍率)>\ \
<ITEMBOX:0:17:397:0:-3:33:30:42:请将背包内的彩票放进来> <请在这里放入彩票进行打印/FCOLOR=250>\
<彩票就在你背包里！/FCOLOR=250>\ \
<○/FCOLOR=103><打印彩票/@买1> <○/FCOLOR=103><机选一组/@机选> <○/FCOLOR=103><返回/@MAIN>\ \
<元宝买的票所中就是元宝]/FCOLOR=250>
[@ItemIntoBox0]
#IF
EQUAL <$BOXITEM[0].NAME> 双色球彩票[未打印]
NOT EQUAL <$BOXITEM[0].NAME_G> 双色球彩票[未打印]
#ACT
UNALLOWITEMINTOBOX
MESSAGEBOX 该彩票已经被打印过了！
break
#IF
EQUAL <$BOXITEM[0].NAME> 双色球彩票[未打印]
#ELSEACT
UNALLOWITEMINTOBOX
MESSAGEBOX 请放入双色球彩票，不要放入杂物！
break
#IF
#SAY
双色球销售： <Img:680:17:-2:30> <Img:680:17:0:30> <Img:680:17:-5:30> <Img:681:17:-3:30>\
下面是您选择的号码，请将彩票放入框内打印！\
第[<$STR(A126)>]期 红球 <$STR(S$选号S1)> <$STR(S$选号S2)> <$STR(S$选号S3)> 蓝球 <$STR(S$选号S4)> 倍率：<$STR(N$倍率)>\ \
<ITEMBOX:0:17:397:0:-3:33:30:42:请将背包内的彩票放进来> <已经放入了彩票/FCOLOR=250>\
<请选择打印方式/FCOLOR=250>\ \
<○/FCOLOR=103><元宝打印/@买s2> <○/FCOLOR=103><返回/@MAIN>\ \
[@买s1]
#IF
#ACT
MUL N$彩金额 <$STR(N$倍率)> 200
#IF
CHECKGAMEGOLD < <$STR(N$彩金额)>
#ACT
MESSAGEBOX 费用不足：\元宝不足[<$STR(N$彩金额)>]颗，无法以元宝进行支付打印！
GOTO @结算
break
#IF
CHECKBAGSIZE 1
#ACT
GAMEGOLD - <$STR(N$彩金额)>
INC G120 <$STR(N$彩金额)>
CREATEFILE ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[0].MAKEINDEX>.txt
AddTextListEx ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[0].MAKEINDEX>.txt <$STR(N$倍率)>:元宝 0
AddTextListEx ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[0].MAKEINDEX>.txt 第<$STR(A126)>期<$STR(S$选号S1)>-<$STR(S$选号S2)>-<$STR(S$选号S3)>+<$STR(S$选号S4)> 1
AddTextListEx ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[0].MAKEINDEX>.txt 第<$STR(A126)>期<$STR(S$选号S1)>-<$STR(S$选号S3)>-<$STR(S$选号S2)>+<$STR(S$选号S4)> 2
AddTextListEx ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[0].MAKEINDEX>.txt 第<$STR(A126)>期<$STR(S$选号S2)>-<$STR(S$选号S1)>-<$STR(S$选号S2)>+<$STR(S$选号S4)> 3
AddTextListEx ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[0].MAKEINDEX>.txt 第<$STR(A126)>期<$STR(S$选号S2)>-<$STR(S$选号S3)>-<$STR(S$选号S1)>+<$STR(S$选号S4)> 4
AddTextListEx ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[0].MAKEINDEX>.txt 第<$STR(A126)>期<$STR(S$选号S3)>-<$STR(S$选号S2)>-<$STR(S$选号S1)>+<$STR(S$选号S4)> 5
AddTextListEx ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[0].MAKEINDEX>.txt 第<$STR(A126)>期<$STR(S$选号S3)>-<$STR(S$选号S1)>-<$STR(S$选号S2)>+<$STR(S$选号S4)> 6
AddTextListEx ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[0].MAKEINDEX>.txt 第<$STR(A126)>期+<$STR(S$选号S4)> 7
SetUpgradeItem 0
ChangeItemName -1 第<$STR(A126)>期双色球<$STR(N$倍率)>倍-元宝
UpDateBoxItem 0
ReturnBoxItem 0
#SAY
双色球销售：\
您的彩票号码和相关信息已经打印好了！开奖后可凭此票进行兑奖！\ \
<○/FCOLOR=103><返回/@MAIN>
#ACT
break
[@买s2]
#IF
#ACT
MUL N$彩金额 <$STR(N$倍率)> 200
#IF
CHECKGAMEGOLD < <$STR(N$彩金额)>
#ACT
MESSAGEBOX 费用不足：\元宝不足[<$STR(N$彩金额)>]，无法以元宝进行支付打印！
GOTO @结算
break
#IF
CHECKBAGSIZE 1
#ACT
GAMEGOLD - <$STR(N$彩金额)>
INC G120 <$STR(N$彩金额)>
CREATEFILE ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[0].MAKEINDEX>.txt
AddTextListEx ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[0].MAKEINDEX>.txt <$STR(N$倍率)>:元宝 0
AddTextListEx ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[0].MAKEINDEX>.txt 第<$STR(A126)>期<$STR(S$选号S1)>-<$STR(S$选号S2)>-<$STR(S$选号S3)>+<$STR(S$选号S4)> 1
AddTextListEx ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[0].MAKEINDEX>.txt 第<$STR(A126)>期<$STR(S$选号S1)>-<$STR(S$选号S3)>-<$STR(S$选号S2)>+<$STR(S$选号S4)> 2
AddTextListEx ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[0].MAKEINDEX>.txt 第<$STR(A126)>期<$STR(S$选号S2)>-<$STR(S$选号S1)>-<$STR(S$选号S2)>+<$STR(S$选号S4)> 3
AddTextListEx ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[0].MAKEINDEX>.txt 第<$STR(A126)>期<$STR(S$选号S2)>-<$STR(S$选号S3)>-<$STR(S$选号S1)>+<$STR(S$选号S4)> 4
AddTextListEx ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[0].MAKEINDEX>.txt 第<$STR(A126)>期<$STR(S$选号S3)>-<$STR(S$选号S2)>-<$STR(S$选号S1)>+<$STR(S$选号S4)> 5
AddTextListEx ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[0].MAKEINDEX>.txt 第<$STR(A126)>期<$STR(S$选号S3)>-<$STR(S$选号S1)>-<$STR(S$选号S2)>+<$STR(S$选号S4)> 6
AddTextListEx ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[0].MAKEINDEX>.txt 第<$STR(A126)>期+<$STR(S$选号S4)> 7
SetUpgradeItem 0
ChangeItemName -1 第<$STR(A126)>期双色球<$STR(N$倍率)>倍-元宝
UpDateBoxItem 0
ReturnBoxItem 0
#SAY
双色球销售：\
您的彩票号码和相关信息已经打印好了！开奖后可凭此票进行兑奖！\ \
<○/FCOLOR=103><返回/@MAIN>
#ACT
break
[@ItemOutBox0]
#ACT
GOTO @结算
[@查询]
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\双色球\开奖时间.txt <$HOUR>
SMALL <$MINUTE> 5
#SAY
双色球销售：\
双色球正在开奖，不能查阅和购买！\
请在<$HOUR>点05分后再试！\ \
<○/FCOLOR=103><知道了/@EXIT>\
#ACT
break
#IF
#ACT
ReturnBoxItem 0
ReturnBoxItem 1
#SAY
双色球销售： <Img:680:17:-2:30> <Img:680:17:0:30> <Img:680:17:-5:30> <Img:681:17:-3:30><Img:680:17:-127:46> <Img:680:17:-125:46> <Img:680:17:-129:46> <Img:681:17:-127:46>\
彩票投注：倍率：- 投注：--\
彩票号码：第[----]期 红球 -- -- -- 蓝球 --\
当期号码：第[----]期 红球 -- -- -- 蓝球 --\
<ITEMBOX:1:17:397:0:13:33:30:42:请将需要查询的彩票放入框内>\
是否中奖：请放入彩票\
中奖数额：0\ \
<○/FCOLOR=103><请放入彩票/FCOLOR=230> <○/FCOLOR=103><返回/@MAIN> \
<[这里也可以查询是否中奖和查询号码！]/FCOLOR=250>
[@ItemIntoBox1]
#IF
EQUAL <$BOXITEM[1].NAME> 双色球彩票[未打印]
EQUAL <$BOXITEM[1].NAME_G> 双色球彩票[未打印]
#ACT
DELBOXITEM 1
GOTO @查询
MESSAGEBOX 这张彩票没有被打印过，我帮你回收了！
break
#IF
EQUAL <$BOXITEM[1].NAME> 双色球彩票[未打印]
#ELSEACT
DELBOXITEM 1
MESSAGEBOX 请放入彩票不要放入杂物！
break
#IF
#ACT
GetListString ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[1].MAKEINDEX>.txt 0 N$投倍率 S$彩方式
GetRandomText ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[1].MAKEINDEX>.txt S$彩验奖1 1
GetRandomText ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[1].MAKEINDEX>.txt S$彩验奖2 2
GetRandomText ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[1].MAKEINDEX>.txt S$彩验奖3 3
GetRandomText ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[1].MAKEINDEX>.txt S$彩验奖4 4
GetRandomText ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[1].MAKEINDEX>.txt S$彩验奖5 5
GetRandomText ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[1].MAKEINDEX>.txt S$彩验奖6 6
GetRandomText ..\QuestDiary\数据文件\双色球彩票\<$BOXITEM[1].MAKEINDEX>.txt S$彩验奖7 7
MOV S$期号 <$STR(S$彩验奖1)>
DEC S$期号 6 30
DEC S$期号 1 1
MOV N$期号 <$STR(S$期号)>
MOV S$球号 <$STR(S$彩验奖1)>
DEC S$球号 1 6
ANSIREPLACETEXT S$球号 -
ANSIREPLACETEXT S$球号 + 蓝球
MOV S$中奖
#IF
LARGE N$期号 <$STR(G121)>
#ACT
MOV S$中奖 <尚未开奖/FCOLOR=230>
MOV N$中金额2 0
MOV N$中金额 0
MOV S$领奖图 <返回/@查询>
#OR
CHECKTEXTLIST ..\QuestDiary\数据文件\双色球开奖.txt <$STR(S$彩验奖1)>
CHECKTEXTLIST ..\QuestDiary\数据文件\双色球开奖.txt <$STR(S$彩验奖2)>
CHECKTEXTLIST ..\QuestDiary\数据文件\双色球开奖.txt <$STR(S$彩验奖3)>
CHECKTEXTLIST ..\QuestDiary\数据文件\双色球开奖.txt <$STR(S$彩验奖4)>
CHECKTEXTLIST ..\QuestDiary\数据文件\双色球开奖.txt <$STR(S$彩验奖5)>
CHECKTEXTLIST ..\QuestDiary\数据文件\双色球开奖.txt <$STR(S$彩验奖6)>
#ACT
MOV S$中奖 一等奖
MOV N$中金额 100000
MUL N$中金额2 <$STR(N$中金额)> <$STR(N$投倍率)>
MOV S$领奖图 <领奖/@领>
#IF
EQUAL S$中奖
#ACT
DEC S$彩验奖1 14 30
DEC S$彩验奖2 14 30
DEC S$彩验奖3 14 30
DEC S$彩验奖4 14 30
DEC S$彩验奖5 14 30
DEC S$彩验奖6 14 30
#OR
CHECKTEXTLIST ..\QuestDiary\数据文件\双色球开奖.txt <$STR(S$彩验奖1)>
CHECKTEXTLIST ..\QuestDiary\数据文件\双色球开奖.txt <$STR(S$彩验奖2)>
CHECKTEXTLIST ..\QuestDiary\数据文件\双色球开奖.txt <$STR(S$彩验奖3)>
CHECKTEXTLIST ..\QuestDiary\数据文件\双色球开奖.txt <$STR(S$彩验奖4)>
CHECKTEXTLIST ..\QuestDiary\数据文件\双色球开奖.txt <$STR(S$彩验奖5)>
CHECKTEXTLIST ..\QuestDiary\数据文件\双色球开奖.txt <$STR(S$彩验奖6)>
#ACT
MOV S$中奖 二等奖
MOV N$中金额 10000
MUL N$中金额2 <$STR(N$中金额)> <$STR(N$投倍率)>
MOV S$领奖图 <领奖/@领>
#IF
EQUAL S$中奖
CHECKTEXTLIST ..\QuestDiary\数据文件\双色球蓝球.txt <$STR(S$彩验奖7)>
#ACT
MOV S$中奖 三等奖
MOV N$中金额 200
MUL N$中金额2 <$STR(N$中金额)> <$STR(N$投倍率)>
MOV S$领奖图 <领奖/@领>
#IF
EQUAL S$中奖
#ACT
MOV S$中奖 没中奖！
MOV N$中金额2 0
MOV N$中金额 0
MOV S$领奖图 <销毁彩票/@删>
#IF
EQUAL S$中奖 <尚未开奖/FCOLOR=230>
#ACT
GetRandomText ..\QuestDiary\数据文件\双色球记录.txt S$当期奖 <$STR(N$期号)>
#SAY
双色球销售： <Img:680:17:-2:30> <Img:680:17:0:30> <Img:680:17:-5:30> <Img:681:17:-3:30><Img:680:17:-127:46> <Img:680:17:-125:46> <Img:680:17:-129:46> <Img:681:17:-127:46>\
<彩票投注：/FCOLOR=254>倍率：<$STR(N$投倍率)> 投注：<$STR(S$彩方式)>\
<彩票号码：/FCOLOR=254>第[<$STR(S$期号)>]期 红球 <$STR(S$球号)> \
<当期号码：/FCOLOR=254>第[<$STR(S$期号)>]期 红球 -- -- -- 蓝球 -- \
<ITEMBOX:1:17:397:0:13:33:30:42:请将需要查询的彩票放入框内>\
<是否中奖：/FCOLOR=254><$str(S$中奖)>\
<中奖数额：/FCOLOR=254><$STR(N$中金额2)><$STR(S$彩方式)>\ \
<○/FCOLOR=103><$STR(S$领奖图)>\
<[这里也可以查询是否中奖和查询号码！]/FCOLOR=250>
#ACT
break
#IF
#ACT
GetRandomText ..\QuestDiary\数据文件\双色球记录.txt S$当期奖 <$STR(N$期号)>
#SAY
双色球销售： <Img:680:17:-2:30> <Img:680:17:0:30> <Img:680:17:-5:30> <Img:681:17:-3:30><Img:680:17:-127:46> <Img:680:17:-125:46> <Img:680:17:-129:46> <Img:681:17:-127:46>\
<彩票投注：/FCOLOR=254>倍率：<$STR(N$投倍率)> 投注：<$STR(S$彩方式)>\
<彩票号码：/FCOLOR=254>第[<$STR(S$期号)>]期 红球 <$STR(S$球号)> \
<当期号码：/FCOLOR=254><$STR(S$当期奖)>\
<ITEMBOX:1:17:397:0:13:33:30:42:请将需要查询的彩票放入框内>\
<是否中奖：/FCOLOR=254><$str(S$中奖)>\
<中奖数额：/FCOLOR=254><$STR(N$中金额2)> <$STR(S$彩方式)>\ \
<○/FCOLOR=103><$STR(S$领奖图)>\
<[这里也可以查询是否中奖和查询号码！]/FCOLOR=250>
[@删]
#ACT
DELBOXITEM 1
goto @查询
[@领]
#IF
CHECKTEXTLIST ..\QuestDiary\数据库\双色球\开奖时间.txt <$HOUR>
SMALL <$MINUTE> 5
#SAY
双色球销售：\
双色球正在开奖，不能查阅和购买！\
请在<$HOUR>点05分后再试！\ \
<○/FCOLOR=103><知道了/@EXIT>\
#ACT
break
#IF
#ACT
DELBOXITEM 1
AddTextListEx ..\QuestDiary\数据文件\历届中奖.txt ★第[<$STR(S$期号)>]期中奖人：<$USERNAME> <$str(S$中奖)> <$STR(N$投倍率)>倍中<$STR(N$中金额2)><$STR(S$彩方式)> 0
#IF
SMALL G120 <$STR(中金额)>
#ACT
INC G120 <$STR(中金额)>
#IF
EQUAL S$彩方式 元宝
EQUAL S$中奖 一等奖
#ACT
SENDMSG 0 {┌─────────────────|7:0:0}{游戏快讯|151:0:0}{──────────────────→|7:0:0}
SENDMSG 0 {├|7:0:0}{恭喜[ |103:0:0}{%s|251:0:0}{ ]中得了恒古大陆双色球|103:0:0}{第[<$STR(S$期号)>]期<$str(S$中奖)>|255:0:0}{，获得奖金<$STR(N$投倍率)>倍[ |103:0:0}{<$STR(N$中金额)><$STR(S$彩方式)>|255:0:0}{ ]|103:0:0}
SENDMSG 0 {├|7:0:0}{恭喜[ |103:0:0}{%s|251:0:0}{ ]中得了恒古大陆双色球|103:0:0}{第[<$STR(S$期号)>]期<$str(S$中奖)>|255:0:0}{，获得奖金<$STR(N$投倍率)>倍[ |103:0:0}{<$STR(N$中金额)><$STR(S$彩方式)>|255:0:0}{ ]|103:0:0}
SENDMSG 0 {├|7:0:0}{恭喜[ |103:0:0}{%s|251:0:0}{ ]中得了恒古大陆双色球|103:0:0}{第[<$STR(S$期号)>]期<$str(S$中奖)>|255:0:0}{，获得奖金<$STR(N$投倍率)>倍[ |103:0:0}{<$STR(N$中金额)><$STR(S$彩方式)>|255:0:0}{ ]|103:0:0}
MUL N$中金额 <$STR(N$中金额)> 80
DIV N$中金额 <$STR(N$中金额)> 100
INC U47 <$STR(N$中金额)>
DEC G120 <$STR(N$中金额)>
SENDMSG 7 恭喜您中得<$str(S$中奖)>，税后奖金<$STR(N$投倍率)>倍<$STR(N$中金额)><$STR(S$彩方式)>！已将奖金发往您的银行内，请前往仓库中验收！
#IF
EQUAL S$彩方式 元宝
EQUAL S$中奖 二等奖
#ACT
SENDMSG 0 {┌─────────────────|7:0:0}{游戏快讯|151:0:0}{──────────────────→|7:0:0}
SENDMSG 0 {├|7:0:0}{恭喜[ |103:0:0}{%s|251:0:0}{ ]中得了恒古大陆双色球|103:0:0}{第[<$STR(S$期号)>]期<$str(S$中奖)>|255:0:0}{，获得奖金<$STR(N$投倍率)>倍[ |103:0:0}{<$STR(N$中金额)><$STR(S$彩方式)>|255:0:0}{ ]|103:0:0}
SENDMSG 0 {├|7:0:0}{恭喜[ |103:0:0}{%s|251:0:0}{ ]中得了恒古大陆双色球|103:0:0}{第[<$STR(S$期号)>]期<$str(S$中奖)>|255:0:0}{，获得奖金<$STR(N$投倍率)>倍[ |103:0:0}{<$STR(N$中金额)><$STR(S$彩方式)>|255:0:0}{ ]|103:0:0}
SENDMSG 0 {├|7:0:0}{恭喜[ |103:0:0}{%s|251:0:0}{ ]中得了恒古大陆双色球|103:0:0}{第[<$STR(S$期号)>]期<$str(S$中奖)>|255:0:0}{，获得奖金<$STR(N$投倍率)>倍[ |103:0:0}{<$STR(N$中金额)><$STR(S$彩方式)>|255:0:0}{ ]|103:0:0}
MUL N$中金额 <$STR(N$中金额)> 80
DIV N$中金额 <$STR(N$中金额)> 100
INC U47 <$STR(N$中金额)>
DEC G120 <$STR(N$中金额)>
SENDMSG 7 恭喜您中得<$str(S$中奖)>，税后奖金<$STR(N$投倍率)>倍<$STR(N$中金额)><$STR(S$彩方式)>！已将奖金发往您的银行内，请前往仓库中验收！
#IF
EQUAL S$彩方式 元宝
EQUAL S$中奖 三等奖
#ACT
SENDMSG 0 {┌─────────────────|7:0:0}{游戏快讯|151:0:0}{──────────────────→|7:0:0}
SENDMSG 0 {├|7:0:0}{恭喜[ |103:0:0}{%s|251:0:0}{ ]中得了恒古大陆双色球|103:0:0}{第[<$STR(S$期号)>]期<$str(S$中奖)>|255:0:0}{，获得奖金<$STR(N$投倍率)>倍[ |103:0:0}{<$STR(N$中金额)><$STR(S$彩方式)>|255:0:0}{ ]|103:0:0}
SENDMSG 0 {├|7:0:0}{恭喜[ |103:0:0}{%s|251:0:0}{ ]中得了恒古大陆双色球|103:0:0}{第[<$STR(S$期号)>]期<$str(S$中奖)>|255:0:0}{，获得奖金<$STR(N$投倍率)>倍[ |103:0:0}{<$STR(N$中金额)><$STR(S$彩方式)>|255:0:0}{ ]|103:0:0}
SENDMSG 0 {├|7:0:0}{恭喜[ |103:0:0}{%s|251:0:0}{ ]中得了恒古大陆双色球|103:0:0}{第[<$STR(S$期号)>]期<$str(S$中奖)>|255:0:0}{，获得奖金<$STR(N$投倍率)>倍[ |103:0:0}{<$STR(N$中金额)><$STR(S$彩方式)>|255:0:0}{ ]|103:0:0}
INC U47 <$STR(N$中金额)>
DEC G120 <$STR(N$中金额)>
SENDMSG 7 恭喜您中得<$str(S$中奖)>，小奖无税，奖金<$STR(N$投倍率)>倍<$STR(N$中金额)><$STR(S$彩方式)>！已将奖金发往您的银行内，请前往仓库中验收！
#IF
EQUAL S$彩方式 元宝
EQUAL S$中奖 一等奖
#ACT
SENDMSG 0 {┌─────────────────|7:0:0}{游戏快讯|151:0:0}{──────────────────→|7:0:0}
SENDMSG 0 {├|7:0:0}{恭喜[ |103:0:0}{%s|251:0:0}{ ]中得了恒古大陆双色球|103:0:0}{第[<$STR(S$期号)>]期<$str(S$中奖)>|255:0:0}{，获得奖金<$STR(N$投倍率)>倍[ |103:0:0}{<$STR(N$中金额)><$STR(S$彩方式)>|255:0:0}{ ]|103:0:0}
SENDMSG 0 {├|7:0:0}{恭喜[ |103:0:0}{%s|251:0:0}{ ]中得了恒古大陆双色球|103:0:0}{第[<$STR(S$期号)>]期<$str(S$中奖)>|255:0:0}{，获得奖金<$STR(N$投倍率)>倍[ |103:0:0}{<$STR(N$中金额)><$STR(S$彩方式)>|255:0:0}{ ]|103:0:0}
SENDMSG 0 {├|7:0:0}{恭喜[ |103:0:0}{%s|251:0:0}{ ]中得了恒古大陆双色球|103:0:0}{第[<$STR(S$期号)>]期<$str(S$中奖)>|255:0:0}{，获得奖金<$STR(N$投倍率)>倍[ |103:0:0}{<$STR(N$中金额)><$STR(S$彩方式)>|255:0:0}{ ]|103:0:0}
MUL N$中金额 <$STR(N$中金额)> 80
DIV N$中金额 <$STR(N$中金额)> 100
INC U46 <$STR(N$中金额)>
DEC G120 <$STR(N$中金额)>
SENDMSG 7 恭喜您中得<$str(S$中奖)>，税后奖金<$STR(N$投倍率)>倍<$STR(N$中金额)><$STR(S$彩方式)>！已将奖金发往您的银行内，请前往仓库中验收！
#IF
EQUAL S$彩方式 元宝
EQUAL S$中奖 二等奖
#ACT
SENDMSG 0 {┌─────────────────|7:0:0}{游戏快讯|151:0:0}{──────────────────→|7:0:0}
SENDMSG 0 {├|7:0:0}{恭喜[ |103:0:0}{%s|251:0:0}{ ]中得了恒古大陆双色球|103:0:0}{第[<$STR(S$期号)>]期<$str(S$中奖)>|255:0:0}{，获得奖金<$STR(N$投倍率)>倍[ |103:0:0}{<$STR(N$中金额)><$STR(S$彩方式)>|255:0:0}{ ]|103:0:0}
SENDMSG 0 {├|7:0:0}{恭喜[ |103:0:0}{%s|251:0:0}{ ]中得了恒古大陆双色球|103:0:0}{第[<$STR(S$期号)>]期<$str(S$中奖)>|255:0:0}{，获得奖金<$STR(N$投倍率)>倍[ |103:0:0}{<$STR(N$中金额)><$STR(S$彩方式)>|255:0:0}{ ]|103:0:0}
SENDMSG 0 {├|7:0:0}{恭喜[ |103:0:0}{%s|251:0:0}{ ]中得了恒古大陆双色球|103:0:0}{第[<$STR(S$期号)>]期<$str(S$中奖)>|255:0:0}{，获得奖金<$STR(N$投倍率)>倍[ |103:0:0}{<$STR(N$中金额)><$STR(S$彩方式)>|255:0:0}{ ]|103:0:0}
MUL N$中金额 <$STR(N$中金额)> 80
DIV N$中金额 <$STR(N$中金额)> 100
INC U46 <$STR(N$中金额)>
DEC G120 <$STR(N$中金额)>
SENDMSG 7 恭喜您中得<$str(S$中奖)>，税后奖金<$STR(N$投倍率)>倍<$STR(N$中金额)><$STR(S$彩方式)>！已将奖金发往您的银行内，请前往仓库中验收！
#IF
EQUAL S$彩方式 元宝
EQUAL S$中奖 三等奖
#ACT
SENDMSG 0 {┌─────────────────|7:0:0}{游戏快讯|151:0:0}{──────────────────→|7:0:0}
SENDMSG 0 {├|7:0:0}{恭喜[ |103:0:0}{%s|251:0:0}{ ]中得了恒古大陆双色球|103:0:0}{第[<$STR(S$期号)>]期<$str(S$中奖)>|255:0:0}{，获得奖金<$STR(N$投倍率)>倍[ |103:0:0}{<$STR(N$中金额)><$STR(S$彩方式)>|255:0:0}{ ]|103:0:0}
SENDMSG 0 {├|7:0:0}{恭喜[ |103:0:0}{%s|251:0:0}{ ]中得了恒古大陆双色球|103:0:0}{第[<$STR(S$期号)>]期<$str(S$中奖)>|255:0:0}{，获得奖金<$STR(N$投倍率)>倍[ |103:0:0}{<$STR(N$中金额)><$STR(S$彩方式)>|255:0:0}{ ]|103:0:0}
SENDMSG 0 {├|7:0:0}{恭喜[ |103:0:0}{%s|251:0:0}{ ]中得了恒古大陆双色球|103:0:0}{第[<$STR(S$期号)>]期<$str(S$中奖)>|255:0:0}{，获得奖金<$STR(N$投倍率)>倍[ |103:0:0}{<$STR(N$中金额)><$STR(S$彩方式)>|255:0:0}{ ]|103:0:0}
INC U46 <$STR(N$中金额)>
DEC G120 <$STR(N$中金额)>
SENDMSG 7 恭喜您中得<$str(S$中奖)>，小奖无税，奖金<$STR(N$投倍率)>倍<$STR(N$中金额)><$STR(S$彩方式)>！已将奖金发往您的银行内，请前往仓库中验收！
#IF
SMALL G120 500000
#ACT
INC G120 500000
#IF
#ACT
goto @查询
|
|
