3D彩票系统的脚本

昨天去买了3D彩票的时候，晚上无聊看电视也是别人在买3D彩票，一时不知道怎么了，就想到写这个脚本到里去，给大家看看这个脚本怎么样，反正增加娱乐性把。

涉及变量： G8 G9 G10 G11 M1 M2 M3 M4 M5
自定义变量： X104 X105 X106 X107 X108

接入脚本步骤：

1.打开Robot_def机器人脚本文件夹 AutoRunRobot.txt文本内添加如下段：
#AutoRun NPC RUNONDAY 12:00 @3DCP

RobotManage.txt文本内添加如下段：
[@3DCP]
#ACT
MOVR G8 10
MOVR G9 10
MOVR G10 10
INC G11 1
SendMSG 1 [３Ｄ彩票]：第<$STR(G11)>期中奖号码为<$STR(G8)>　<$STR(G9)>　<$STR(G10)>
BREAK

2.打开QuestDiary文件夹，添加“万事通”文件夹，在“万事通”内建立“３Ｄ彩票.txt”文本。内容设置如下：
[@F-]
{
┄┄限购1组数字┄下注数不限┄一注两个元宝┄只包含组选3和单选
『３Ｄ彩票』第 <$STR(G11)> 期
中奖号码为：<$STR(G8)>　<$STR(G9)>　<$STR(G10)>
你手中持有的彩票：
第 <$HUMAN(X107)> 期
号码：<$HUMAN(X104)>　<$HUMAN(X105)>　<$HUMAN(X106)>
下注：<$HUMAN(X108)> 注
<买彩票/@F-1>　　<兑奖/@F-2>

[@F-2]
#IF
equal G11 0
#ACT
MESSAGEBOX [提示]：本服刚开区，『３Ｄ彩票』将于每天中午12点整开始摇奖。
GOTO @F-
BREAK

#IF
large G11 <$HUMAN(X107)>
#ACT
MESSAGEBOX [提示]：你的彩票已作废，请在每期开奖后的24小时内兑领。
GOTO @F-
BREAK

#IF
small G11 <$HUMAN(X107)>
#ACT
MESSAGEBOX [提示]：你购买的是第<$HUMAN(X107)>期号码，每天中午12点整开始摇奖。请关注！
GOTO @F-
BREAK

#IF
equal G11 <$HUMAN(X107)>
#ACT
GOTO @F-GOOD
BREAK

[@F-1]
#IF
CHECKVAR HUMAN X107 > <$STR(G11)>
#ACT
MESSAGEBOX [提示]：你购买的是第<$HUMAN(X107)>期号码，每天中午12点整开始摇奖。请关注！
GOTO @F-
BREAK

#IF
CHECKVAR HUMAN X107 = <$STR(G11)>
#ACT
GOTO @F-2
BREAK

#IF
CHECKVAR HUMAN X107 < <$STR(G11)>
#SAY
<1/@F-1-A-1>　<2/@F-1-A-2>　<3/@F-1-A-3>　　<1/@F-1-B-1>　<2/@F-1-B-2>　<3/@F-1-B-3>　　<1/@F-1-C-1>　<2/@F-1-C-2>　<3/@F-1-C-3>
<4/@F-1-A-4>　<5/@F-1-A-5>　<6/@F-1-A-6>　　<4/@F-1-B-4>　<5/@F-1-B-5>　<6/@F-1-B-6>　　<4/@F-1-C-4>　<5/@F-1-C-5>　<6/@F-1-C-6>
<7/@F-1-A-7>　<8/@F-1-A-8>　<9/@F-1-A-9>　　<7/@F-1-B-7>　<8/@F-1-B-8>　<9/@F-1-B-9>　　<7/@F-1-C-7>　<8/@F-1-C-8>　<9/@F-1-C-9>
　 <0/@F-1-A-0>　　　　　<0/@F-1-B-0>　　　　　<0/@F-1-C-0>
第1位数　　第2位数　　第3位数
　[<$STR(M1)>]　　　　[<$STR(M2)>]　　　　[<$STR(M3)>]
购买注数 <$STR(M5)> 注　[<1/@F-1-D-1>　<10/@F-1-D-2>　<100/@F-1-D-3>　<1000/@F-1-D-4>]
<确定/@F-3>

[@F-3]
你选择的『３Ｄ彩票』号码是：<$STR(M1)>　<$STR(M2)>　<$STR(M3)>
购买注数：<$STR(M5)> 注
是否确定购买此号码？
<确定就买此号码/@F-4>
<返回重新选号/@F-1>

[@F-4]
#IF
CHECKVAR HUMAN X107 < <$STR(G11)>
CHECKGAMEGOLD > 1
equal M5 1
#ACT
GAMEGOLD - 2
MOV M4 <$STR(G11)>
INC M4 1
Calcvar HUMAN X107 = <$STR(M4)>
SAVEVAR HUMAN X107 ..QuestDiary重要数据变量.txt
MOV M4 0
Calcvar HUMAN X104 = <$STR(M1)>
SAVEVAR HUMAN X104 ..QuestDiary重要数据变量.txt
MOV M1 0
Calcvar HUMAN X105 = <$STR(M2)>
SAVEVAR HUMAN X105 ..QuestDiary重要数据变量.txt
MOV M2 0
Calcvar HUMAN X106 = <$STR(M3)>
SAVEVAR HUMAN X106 ..QuestDiary重要数据变量.txt
MOV M3 0
Calcvar HUMAN X108 = <$STR(M5)>
SAVEVAR HUMAN X108 ..QuestDiary重要数据变量.txt
MOV M5 0
GOTO @F-
BREAK

#IF
CHECKVAR HUMAN X107 < <$STR(G11)>
CHECKGAMEGOLD > 19
equal M5 10
#ACT
GAMEGOLD - 20
MOV M4 <$STR(G11)>
INC M4 1
Calcvar HUMAN X107 = <$STR(M4)>
SAVEVAR HUMAN X107 ..QuestDiary重要数据变量.txt
MOV M4 0
Calcvar HUMAN X104 = <$STR(M1)> (责任编辑：admin)