开启辅助访问
 找回密码
 立即注册
查看: 680|回复: 12
收起左侧

珍藏脚本:6 1彩票,单张当期有效

[复制链接]
  • TA的每日心情
    慵懒
    2015-7-13 15:13
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]初来乍到

    无不作乐 发表于 2017-7-19 16:34:33 | 显示全部楼层 |阅读模式
    珍藏多年,现在拿出来分享给大家![@main]
    #IF
    isadmin
    #ACT
    OpenBigDialogBox -1
    #SAY
    当前时间:<$DATETIME>\
    欢迎光临传奇私服6+1,访问主页www.h1995.com\
    当前期数【<$STR(G22)>】 当前购彩【<$STR(A0)>】 当前兑奖状态【<$STR(A1)>】 当前元宝数【<$GAMEGOLD>】个\
    本期开奖号码【<$STR(G1)> <$STR(G2)> <$STR(G3)> <$STR(G4)> <$STR(G5)> <$STR(G6)>+<$STR(G7)>】   第【<$STR(G22)>】期以前期号已无法兑奖\
    中奖人数:【<$STR(G20)>】      兑奖元宝:【<$STR(G21)>】       奖池:【<$STR(G0)>】\ \ \ \
    特等奖:【<$STR(G8)>】            奖金:【<$STR(G9)>】\
    一等奖:【<$STR(G10)>】            奖金:【<$STR(G11)>】\
    二等奖:【<$STR(G12)>】            奖金:【<$STR(G13)>】\
    三等奖:【<$STR(G14)>】            奖金:【<$STR(G15)>】\  
    四等奖:【<$STR(G16)>】            奖金:【<$STR(G17)>】\
    五等奖:【<$STR(G18)>】            奖金:【<$STR(G19)>】\ \

    <我要购彩/@我要购彩>            <我购买的彩票/@我的彩票>       <我要兑奖/@我要兑奖>   \      
    <彩票说明/@彩票说明>            <刷新/@main>               <离开/@exit>   \ \

    <关闭购彩/@关闭>  <开放购彩/@开放购彩> <关闭兑奖/@关闭兑奖> <开放兑奖/@开放兑奖> <转下一期/@转下一期> <摇号/@手动摇号>

    ;----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    #elseACT
    OpenBigDialogBox -1
    #elseSAY
    当前时间:<$DATETIME>\
    欢迎光临传奇素材网6+1,访问主页www.sf1995.cc\
    当前期数【<$STR(G22)>】 当前购彩【<$STR(A0)>】 当前兑奖状态【<$STR(A1)>】 当前元宝数【<$GAMEGOLD>】个\
    本期开奖号码【<$STR(G1)> <$STR(G2)> <$STR(G3)> <$STR(G4)> <$STR(G5)> <$STR(G6)>+<$STR(G7)>】   第【<$STR(G22)>】期以前期号已无法兑奖\
    中奖人数:【<$STR(G20)>】      兑奖元宝:【<$STR(G21)>】       奖池:【<$STR(G0)>】\ \ \ \
    特等奖:【<$STR(G8)>】            奖金:【<$STR(G9)>】\
    一等奖:【<$STR(G10)>】            奖金:【<$STR(G11)>】\
    二等奖:【<$STR(G12)>】            奖金:【<$STR(G13)>】\
    三等奖:【<$STR(G14)>】            奖金:【<$STR(G15)>】\  
    四等奖:【<$STR(G16)>】            奖金:【<$STR(G17)>】\
    五等奖:【<$STR(G18)>】            奖金:【<$STR(G19)>】\ \ \ \

    <我要购彩/@我要购彩>            <我购买的彩票/@我的彩票>       <我要兑奖/@我要兑奖>   \      
    <彩票说明/@彩票说明>            <刷新/@main>               <离开/@exit>   \ \ \

    ;----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    [@关闭]
    #IF
    #ACT
    mov A0 关闭

    [@开放购彩]
    #IF
    #ACT
    mov A0 开放

    [@关闭兑奖]
    #IF
    #ACT
    mov A1 不能兑奖


    [@开放兑奖]
    #IF
    #ACT
    mov A1 可以兑奖

    [@转下一期]
    #IF
    #ACT
    #CALL [\彩票\开奖.txt] @开始购彩

    [@手动摇号]
    #IF
    #ACT
    #CALL [\彩票\开奖.txt] @摇号






    ;----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    [@我要购彩]
    #IF
    #ACT
    CloseBigDialogBox
    #SAY
    购买一次彩票需要2元宝,每人只能购买1张\ \ \ \
    <我知道了,我要买/@cM1>        <算了,没那运气/@exit>

    [@cM1]
    #IF
    equal A0 开放
    #act
    goto @yunxu
    break
    #elsesay
    请等开放后再来购买.\ \ \
    <返回/@main>   <离开/@exit>


    [@yunxu]
    #IF
    CHECKVAR HUMAN 张数 = 0
    #act
    goto @购彩
    #ELSESAY
    超过上限啦,请下次再购买。



    [@购彩]
    #IF
    CHECKVAR HUMAN 付款 = 已付
    #act
    goto @选号
    mov M0 0
    #elseact
    goto @付款

    [@付款]
    #IF
    checkgamegold > 1
    #act
    gamegold - 2
    inc G0 2
    sendmsg 7 扣除2元宝,当前元宝数【<$GAMEGOLD>】个。
    CALCVAR HUMAN 付款 = 已付
    SAVEVAR HUMAN 付款 ..\QuestDiary\彩票\彩票.txt
    mov M0 0
    goto @选号

    [@选号]
    传奇素材网6+1,号码为0-9的数字.\
    选号完毕后请点确认,否则无法兑奖.\
    若选错号码,不小心关闭或者小退,可关闭对话框重选.\
    自选号码,点击需要的数字即可完成选号. \
    选号顺序为红1、红2、红3、红4、红5、红6+蓝球\
    已选<$STR(M0)>个球\
    <(0)/@录入0> <(1)/@录入1> <(2)/@录入2> <(3)/@录入3> <(4)/@录入4> <(5)/@录入5> <(6)/@录入6> <(7)/@录入7> <(8)/@录入8> <(9)/@录入9>      <我要重新录入/@cM1>\   \
    <我太懒了,机选吧/@机选>     <确认选该注号码/@确认>\


    [@录入0]
    #IF
    equal M0 6
    #ACT
    INC M0 1
    CALCVAR HUMAN 第<$STR(M0)>球 = 0
    SAVEVAR HUMAN 第<$STR(M0)>球 ..\QuestDiary\彩票\彩票.txt
    break
    #say
    你选的号码为 <$HUMAN(第1球)> <$HUMAN(第2球)> <$HUMAN(第3球)> <$HUMAN(第4球)> <$HUMAN(第5球)> <$HUMAN(第6球)> + <$HUMAN(第7球)>.\
    若确认,请按确认下注,若不满意,请关闭对话框重选.\  \
    <确认选该注号码/@确认>    <重设/@cM1>\

    #IF
    SMALL M0 6
    #ACT
    INC M0 1
    CALCVAR HUMAN 第<$STR(M0)>球 = 0
    SAVEVAR HUMAN 第<$STR(M0)>球 ..\QuestDiary\彩票\彩票.txt
    goto @选号


    [@录入1]
    #IF
    equal M0 6
    #ACT
    INC M0 1
    CALCVAR HUMAN 第<$STR(M0)>球 = 1
    SAVEVAR HUMAN 第<$STR(M0)>球 ..\QuestDiary\彩票\彩票.txt
    break
    #say
    你选的号码为 <$HUMAN(第1球)> <$HUMAN(第2球)> <$HUMAN(第3球)> <$HUMAN(第4球)> <$HUMAN(第5球)> <$HUMAN(第6球)> + <$HUMAN(第7球)>.\
    若确认,请按确认下注,若不满意,请关闭对话框重选.\  \
    <确认选该注号码/@确认>    <重设/@cM1>\

    #IF
    SMALL M0 6
    #ACT
    INC M0 1
    CALCVAR HUMAN 第<$STR(M0)>球 = 1
    SAVEVAR HUMAN 第<$STR(M0)>球 ..\QuestDiary\彩票\彩票.txt
    goto @选号

    [@录入2]
    #IF
    equal M0 6
    #ACT
    INC M0 1
    CALCVAR HUMAN 第<$STR(M0)>球 = 2
    SAVEVAR HUMAN 第<$STR(M0)>球 ..\QuestDiary\彩票\彩票.txt
    break
    #say
    你选的号码为 <$HUMAN(第1球)> <$HUMAN(第2球)> <$HUMAN(第3球)> <$HUMAN(第4球)> <$HUMAN(第5球)> <$HUMAN(第6球)> + <$HUMAN(第7球)>.\
    若确认,请按确认下注,若不满意,请关闭对话框重选.\  \
    <确认选该注号码/@确认>    <重设/@cM1>\

    #IF
    SMALL M0 6
    #ACT
    INC M0 1
    CALCVAR HUMAN 第<$STR(M0)>球 = 2
    SAVEVAR HUMAN 第<$STR(M0)>球 ..\QuestDiary\彩票\彩票.txt
    goto @选号


    [@录入3]
    #IF
    equal M0 6
    #ACT
    INC M0 1
    CALCVAR HUMAN 第<$STR(M0)>球 = 3
    SAVEVAR HUMAN 第<$STR(M0)>球 ..\QuestDiary\彩票\彩票.txt
    break
    #say
    你选的号码为 <$HUMAN(第1球)> <$HUMAN(第2球)> <$HUMAN(第3球)> <$HUMAN(第4球)> <$HUMAN(第5球)> <$HUMAN(第6球)> + <$HUMAN(第7球)>.\
    若确认,请按确认下注,若不满意,请关闭对话框重选.\  \
    <确认选该注号码/@确认>    <重设/@cM1>\

    #IF
    SMALL M0 6
    #ACT
    INC M0 1
    CALCVAR HUMAN 第<$STR(M0)>球 = 3
    SAVEVAR HUMAN 第<$STR(M0)>球 ..\QuestDiary\彩票\彩票.txt
    goto @选号

    [@录入4]
    #IF
    equal M0 6
    #ACT
    INC M0 1
    CALCVAR HUMAN 第<$STR(M0)>球 = 4
    SAVEVAR HUMAN 第<$STR(M0)>球 ..\QuestDiary\彩票\彩票.txt
    break
    #say
    你选的号码为 <$HUMAN(第1球)> <$HUMAN(第2球)> <$HUMAN(第3球)> <$HUMAN(第4球)> <$HUMAN(第5球)> <$HUMAN(第6球)> + <$HUMAN(第7球)>.\
    若确认,请按确认下注,若不满意,请关闭对话框重选.\  \
    <确认选该注号码/@确认>    <重设/@cM1>\

    #IF
    SMALL M0 6
    #ACT
    INC M0 1
    CALCVAR HUMAN 第<$STR(M0)>球 = 4
    SAVEVAR HUMAN 第<$STR(M0)>球 ..\QuestDiary\彩票\彩票.txt
    goto @选号

    [@录入5]
    #IF
    equal M0 6
    #ACT
    INC M0 1
    CALCVAR HUMAN 第<$STR(M0)>球 = 5
    SAVEVAR HUMAN 第<$STR(M0)>球 ..\QuestDiary\彩票\彩票.txt
    break
    #say
    你选的号码为 <$HUMAN(第1球)> <$HUMAN(第2球)> <$HUMAN(第3球)> <$HUMAN(第4球)> <$HUMAN(第5球)> <$HUMAN(第6球)> + <$HUMAN(第7球)>.\
    若确认,请按确认下注,若不满意,请关闭对话框重选.\  \
    <确认选该注号码/@确认>    <重设/@cM1>\

    #IF
    SMALL M0 6
    #ACT
    INC M0 1
    CALCVAR HUMAN 第<$STR(M0)>球 = 5
    SAVEVAR HUMAN 第<$STR(M0)>球 ..\QuestDiary\彩票\彩票.txt
    goto @选号

    [@录入6]
    #IF
    equal M0 6
    #ACT
    INC M0 1
    CALCVAR HUMAN 第<$STR(M0)>球 = 6
    SAVEVAR HUMAN 第<$STR(M0)>球 ..\QuestDiary\彩票\彩票.txt
    break
    #say
    你选的号码为 <$HUMAN(第1球)> <$HUMAN(第2球)> <$HUMAN(第3球)> <$HUMAN(第4球)> <$HUMAN(第5球)> <$HUMAN(第6球)> + <$HUMAN(第7球)>.\
    若确认,请按确认下注,若不满意,请关闭对话框重选.\  \
    <确认选该注号码/@确认>    <重设/@cM1>\

    #IF
    SMALL M0 6
    #ACT
    INC M0 1
    CALCVAR HUMAN 第<$STR(M0)>球 = 6
    SAVEVAR HUMAN 第<$STR(M0)>球 ..\QuestDiary\彩票\彩票.txt
    goto @选号

    [@录入7]
    #IF
    equal M0 6
    #ACT
    INC M0 1
    CALCVAR HUMAN 第<$STR(M0)>球 = 7
    SAVEVAR HUMAN 第<$STR(M0)>球 ..\QuestDiary\彩票\彩票.txt
    break
    #say
    你选的号码为 <$HUMAN(第1球)> <$HUMAN(第2球)> <$HUMAN(第3球)> <$HUMAN(第4球)> <$HUMAN(第5球)> <$HUMAN(第6球)> + <$HUMAN(第7球)>.\
    若确认,请按确认下注,若不满意,请关闭对话框重选.\  \
    <确认选该注号码/@确认>    <重设/@cM1>\

    #IF
    SMALL M0 6
    #ACT
    INC M0 1
    CALCVAR HUMAN 第<$STR(M0)>球 = 7
    SAVEVAR HUMAN 第<$STR(M0)>球 ..\QuestDiary\彩票\彩票.txt
    goto @选号

    [@录入8]
    #IF
    equal M0 6
    #ACT
    INC M0 1
    CALCVAR HUMAN 第<$STR(M0)>球 = 8
    SAVEVAR HUMAN 第<$STR(M0)>球 ..\QuestDiary\彩票\彩票.txt
    break
    #say
    你选的号码为 <$HUMAN(第1球)> <$HUMAN(第2球)> <$HUMAN(第3球)> <$HUMAN(第4球)> <$HUMAN(第5球)> <$HUMAN(第6球)> + <$HUMAN(第7球)>.\
    若确认,请按确认下注,若不满意,请关闭对话框重选.\  \
    <确认选该注号码/@确认>    <重设/@cM1>\

    #IF
    SMALL M0 6
    #ACT
    INC M0 1
    CALCVAR HUMAN 第<$STR(M0)>球 = 8
    SAVEVAR HUMAN 第<$STR(M0)>球 ..\QuestDiary\彩票\彩票.txt
    goto @选号

    [@录入9]
    #IF
    equal M0 6
    #ACT
    INC M0 1
    CALCVAR HUMAN 第<$STR(M0)>球 = 9
    SAVEVAR HUMAN 第<$STR(M0)>球 ..\QuestDiary\彩票\彩票.txt
    break
    #say
    你选的号码为 <$HUMAN(第1球)> <$HUMAN(第2球)> <$HUMAN(第3球)> <$HUMAN(第4球)> <$HUMAN(第5球)> <$HUMAN(第6球)> + <$HUMAN(第7球)>.\
    若确认,请按确认下注,若不满意,请关闭对话框重选.\  \
    <确认选该注号码/@确认>    <重设/@cM1>\

    #IF
    SMALL M0 6
    #ACT
    INC M0 1
    CALCVAR HUMAN 第<$STR(M0)>球 = 9
    SAVEVAR HUMAN 第<$STR(M0)>球 ..\QuestDiary\彩票\彩票.txt
    goto @选号

    [@机选]
    #IF
    #act
    movr P1 0 9
    movr P2 0 9
    movr P3 0 9
    movr P4 0 9
    movr P5 0 9
    movr P6 0 9
    movr P7 0 9
    CALCVAR HUMAN 第1球 = <$STR(P1)>
    SAVEVAR HUMAN 第1球 ..\QuestDiary\彩票\彩票.txt
    CALCVAR HUMAN 第2球 = <$STR(P2)>
    SAVEVAR HUMAN 第2球 ..\QuestDiary\彩票\彩票.txt
    CALCVAR HUMAN 第3球 = <$STR(P3)>
    SAVEVAR HUMAN 第3球 ..\QuestDiary\彩票\彩票.txt
    CALCVAR HUMAN 第4球 = <$STR(P4)>
    SAVEVAR HUMAN 第4球 ..\QuestDiary\彩票\彩票.txt
    CALCVAR HUMAN 第5球 = <$STR(P5)>
    SAVEVAR HUMAN 第5球 ..\QuestDiary\彩票\彩票.txt
    CALCVAR HUMAN 第6球 = <$STR(P6)>
    SAVEVAR HUMAN 第6球 ..\QuestDiary\彩票\彩票.txt
    CALCVAR HUMAN 第7球 = <$STR(P7)>
    SAVEVAR HUMAN 第7球 ..\QuestDiary\彩票\彩票.txt
    #say
    你机选号码为: <$HUMAN(第1球)> <$HUMAN(第2球)> <$HUMAN(第3球)> <$HUMAN(第4球)> <$HUMAN(第5球)> <$HUMAN(第6球)> + <$HUMAN(第7球)>\
    若确认,请按确认下注,若不满意,请点击机选重选\ \ \

    <确认选该注号码/@确认>    <重新机选/@机选>\


    [@确认]
    #IF
    #ACT
    CALCVAR HUMAN 张数 + 1
    SAVEVAR HUMAN 张数 ..\QuestDiary\彩票\彩票.txt
    #say
    购彩成功,你选的号码为 <$HUMAN(第1球)> <$HUMAN(第2球)> <$HUMAN(第3球)> <$HUMAN(第4球)> <$HUMAN(第5球)> <$HUMAN(第6球)> + <$HUMAN(第7球)> \ \ \ \
    <我还要选,付款/@cM1>\ \
    <返回/@main>                      <离开/@exit>



    ;----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    [@我的彩票]
    #IF
    checkvar human 张数 > 0
    #act
    OpenBigDialogBox -1
    #say
    你的号码为  <$HUMAN(第1球)> <$HUMAN(第2球)> <$HUMAN(第3球)> <$HUMAN(第4球)> <$HUMAN(第5球)> <$HUMAN(第6球)>  +  <$HUMAN(第7球)>\

    <返回/@main>                      <离开/@exit>
    #elseact
    messagebox 你没有买彩票.








    ;----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    [@我要兑奖]
    #IF
    #ACT
    CloseBigDialogBox
    goto @下兑奖

    [@下兑奖]
    #IF
    equal A1 可以兑奖
    #act
    goto @可以
    #elsesay
    还没到兑奖时间.\ \
    <返回/@main>   <离开/@exit>

    [@可以]
    #IF
    checkvar human 张数 > 0
    #ACT
    delaygoto 1 @检测张数
    #say
    正在兑奖,请稍后,兑奖时请勿关闭对话框。\
    人为关闭对话框导致无法兑奖的,概不负责.\ \ \
    \.                   兑奖中.........

    #elsesay
    你手头上没有彩票.\ \
    <返回/@main>   <离开/@exit>




    [@检测张数]
    #IF
    checkvar human 张数 > 0
    #ACT
    CALCVAR HUMAN 张数 - 1
    SAVEVAR HUMAN 张数 ..\QuestDiary\彩票\彩票.txt
    delaycall 100 @检测兑奖
    #elsesay
    兑奖已完成

    [@检测兑奖]
    #IF
    CHECKVAR HUMAN 第1球 = <$STR(G1)>
    CHECKVAR HUMAN 第2球 = <$STR(G2)>
    CHECKVAR HUMAN 第3球 = <$STR(G3)>
    CHECKVAR HUMAN 第4球 = <$STR(G4)>
    CHECKVAR HUMAN 第5球 = <$STR(G5)>
    CHECKVAR HUMAN 第6球 = <$STR(G6)>
    CHECKVAR HUMAN 第7球 = <$STR(G7)>
    #ACT
    mov M2 1
    goto @清号码
    DELAYCALL 100 @兑奖
    break


    #IF
    CHECKVAR HUMAN 第1球 = <$STR(G1)>
    CHECKVAR HUMAN 第2球 = <$STR(G2)>
    CHECKVAR HUMAN 第3球 = <$STR(G3)>
    CHECKVAR HUMAN 第4球 = <$STR(G4)>
    CHECKVAR HUMAN 第5球 = <$STR(G5)>
    CHECKVAR HUMAN 第6球 = <$STR(G6)>
    #ACT
    mov M2 2
    goto @清号码
    DELAYCALL 100 @兑奖
    break


    #IF
    CHECKVAR HUMAN 第1球 = <$STR(G1)>
    CHECKVAR HUMAN 第2球 = <$STR(G2)>
    CHECKVAR HUMAN 第3球 = <$STR(G3)>
    CHECKVAR HUMAN 第4球 = <$STR(G4)>
    CHECKVAR HUMAN 第5球 = <$STR(G5)>
    #ACT
    mov M2 3
    goto @清号码
    DELAYCALL 100 @兑奖
    break

    #IF
    CHECKVAR HUMAN 第2球 = <$STR(G2)>
    CHECKVAR HUMAN 第3球 = <$STR(G3)>
    CHECKVAR HUMAN 第4球 = <$STR(G4)>
    CHECKVAR HUMAN 第5球 = <$STR(G5)>
    CHECKVAR HUMAN 第6球 = <$STR(G6)>
    #ACT
    mov M2 3
    goto @清号码
    DELAYCALL 100 @兑奖
    break

    #IF
    CHECKVAR HUMAN 第1球 = <$STR(G1)>
    CHECKVAR HUMAN 第2球 = <$STR(G2)>
    CHECKVAR HUMAN 第3球 = <$STR(G3)>
    CHECKVAR HUMAN 第4球 = <$STR(G4)>
    #ACT
    mov M2 4
    goto @清号码
    DELAYCALL 100 @兑奖
    break

    #IF
    CHECKVAR HUMAN 第2球 = <$STR(G2)>
    CHECKVAR HUMAN 第3球 = <$STR(G3)>
    CHECKVAR HUMAN 第4球 = <$STR(G4)>
    CHECKVAR HUMAN 第5球 = <$STR(G5)>
    #ACT
    mov M2 4
    goto @清号码
    DELAYCALL 100 @兑奖
    break

    #IF
    CHECKVAR HUMAN 第3球 = <$STR(G3)>
    CHECKVAR HUMAN 第4球 = <$STR(G4)>
    CHECKVAR HUMAN 第5球 = <$STR(G5)>
    CHECKVAR HUMAN 第6球 = <$STR(G6)>
    #ACT
    mov M2 4
    goto @清号码
    DELAYCALL 100 @兑奖
    break

    #IF
    CHECKVAR HUMAN 第1球 = <$STR(G1)>
    CHECKVAR HUMAN 第2球 = <$STR(G2)>
    CHECKVAR HUMAN 第3球 = <$STR(G3)>
    #ACT
    mov M2 5
    goto @清号码
    DELAYCALL 100 @兑奖
    break

    #IF
    CHECKVAR HUMAN 第2球 = <$STR(G2)>
    CHECKVAR HUMAN 第3球 = <$STR(G3)>
    CHECKVAR HUMAN 第4球 = <$STR(G4)>
    #ACT
    mov M2 5
    goto @清号码
    DELAYCALL 100 @兑奖
    break

    #IF
    CHECKVAR HUMAN 第3球 = <$STR(G3)>
    CHECKVAR HUMAN 第4球 = <$STR(G4)>
    CHECKVAR HUMAN 第5球 = <$STR(G5)>
    #ACT
    mov M2 5
    goto @清号码
    DELAYCALL 100 @兑奖
    break

    #IF
    CHECKVAR HUMAN 第4球 = <$STR(G4)>
    CHECKVAR HUMAN 第5球 = <$STR(G5)>
    CHECKVAR HUMAN 第6球 = <$STR(G6)>
    #ACT
    mov M2 5
    goto @清号码
    DELAYCALL 100 @兑奖
    break

    #IF
    CHECKVAR HUMAN 第1球 = <$STR(G1)>
    CHECKVAR HUMAN 第2球 = <$STR(G2)>
    #ACT
    mov M2 6
    goto @清号码
    DELAYCALL 100 @兑奖
    break

    #IF
    CHECKVAR HUMAN 第2球 = <$STR(G2)>
    CHECKVAR HUMAN 第3球 = <$STR(G3)>
    #ACT
    mov M2 6
    goto @清号码
    DELAYCALL 100 @兑奖
    break

    #IF
    CHECKVAR HUMAN 第3球 = <$STR(G3)>
    CHECKVAR HUMAN 第4球 = <$STR(G4)>
    #ACT
    mov M2 6
    goto @清号码
    DELAYCALL 100 @兑奖
    break

    #IF
    CHECKVAR HUMAN 第4球 = <$STR(G4)>
    CHECKVAR HUMAN 第5球 = <$STR(G5)>
    #ACT
    mov M2 6
    goto @清号码
    DELAYCALL 100 @兑奖
    break

    #IF
    CHECKVAR HUMAN 第5球 = <$STR(G5)>
    CHECKVAR HUMAN 第6球 = <$STR(G6)>
    #ACT
    mov M2 6
    goto @清号码
    DELAYCALL 100 @兑奖
    break
    #elseact
    goto @清号码
    goto @检测张数

    [@兑奖]
    #IF
    equal M2 1
    #ACT
    mov M2 0
    gamegold + 300000
    inc G8 1
    inc G9 300000
    inc G20 1
    inc G21 300000
    DEC G0 300000
    GuildNoticeMsg 255 233  恭喜玩家%S中得了第【<$STR(G22)>】期传奇素材网6+1【特等奖】,奖金【30万】元宝
    sendmsg 7 恭喜你中得了第【<$STR(G22)>】期传奇素材网6+1特等奖,奖金30万元宝,当前元宝<$GAMEGOLD>个。
    goto @检测张数
    break

    #IF
    equal M2 2
    #ACT
    mov M2 0
    gamegold + 100000
    inc G10 1
    inc G11 100000
    inc G20 1
    inc G21 100000
    DEC G0 100000
    GuildNoticeMsg 255 233  恭喜玩家%S中得了第【<$STR(G22)>】期传奇素材网6+1【一等奖】,奖金【10万】元宝
    sendmsg 7 恭喜你中得了第【<$STR(G22)>】期传奇素材网6+1【一等奖】,奖金【10万】元宝,当前元宝<$GAMEGOLD>个。
    goto @检测张数
    break

    #IF
    equal M2 3
    #ACT
    mov M2 0
    gamegold + 30000
    inc G12 1
    inc G13 30000
    inc G20 1
    inc G21 30000
    GuildNoticeMsg 255 233  恭喜玩家%S中得了第【<$STR(G22)>】期传奇素材网6+1【二等奖】,奖金【3万】元宝
    sendmsg 7 恭喜你中得了第【<$STR(G22)>】期传奇素材网6+1【二等奖】,奖金【3万】元宝,当前元宝<$GAMEGOLD>个。
    goto @检测张数
    break

    #IF
    equal M2 4
    #ACT
    mov M2 0
    gamegold + 3000
    inc G14 1
    inc G15 3000
    inc G20 1
    inc G21 3000
    DEC G0 3000
    sendmsg 7 恭喜你中得了第【<$STR(G22)>】期传奇素材网6+1【三等奖】,奖金【3千】元宝,当前元宝<$GAMEGOLD>个。
    goto @检测张数
    break

    #IF
    equal M2 5
    #ACT
    mov M2 0
    gamegold + 50
    inc G16 1
    inc G17 50
    inc G20 1
    inc G21 50
    DEC G0 50
    sendmsg 7 恭喜你中得了第【<$STR(G22)>】期传奇素材网6+1【四等奖】,奖金【50】元宝,当前元宝<$GAMEGOLD>个。
    goto @检测张数
    break

    #IF
    equal M2 6
    #ACT
    mov M2 0
    gamegold + 5
    inc G18 1
    inc G19 5
    inc G20 1
    inc G21 5
    DEC G0 5
    sendmsg 7 恭喜你中得了第【<$STR(G22)>】期传奇素材网6+1【五等奖】,奖金【5】元宝,当前元宝<$GAMEGOLD>个。
    goto @检测张数
    break
    ;----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    [@清号码]
    #IF
    #ACT
    CALCVAR HUMAN 第1球 =
    CALCVAR HUMAN 第2球 =
    CALCVAR HUMAN 第3球 =
    CALCVAR HUMAN 第4球 =
    CALCVAR HUMAN 第5球 =
    CALCVAR HUMAN 第6球 =
    CALCVAR HUMAN 第7球 =
    CALCVAR HUMAN 张数 =
    CALCVAR HUMAN 付款 =
    SAVEVAR HUMAN 第1球 ..\QuestDiary\彩票\彩票.txt
    SAVEVAR HUMAN 第2球 ..\QuestDiary\彩票\彩票.txt
    SAVEVAR HUMAN 第3球 ..\QuestDiary\彩票\彩票.txt
    SAVEVAR HUMAN 第4球 ..\QuestDiary\彩票\彩票.txt
    SAVEVAR HUMAN 第5球 ..\QuestDiary\彩票\彩票.txt
    SAVEVAR HUMAN 第6球 ..\QuestDiary\彩票\彩票.txt
    SAVEVAR HUMAN 第7球 ..\QuestDiary\彩票\彩票.txt
    SAVEVAR HUMAN 张数 ..\QuestDiary\彩票\彩票.txt
    SAVEVAR HUMAN 付款 ..\QuestDiary\彩票\彩票.txt
    ;----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    [@彩票说明]
    传奇素材网6+1与体彩6+1选号方式及中奖方式相同,奖金不同\
    每周三、日19点开奖,兑奖时间为1天,周五,周二开放购彩。\ \

    分6个红第1球个蓝球,每个球数字为0-9,中奖方式请看下表\  \ \
    奖级             中奖示例(假设中奖号码为123456+7)         奖金分配\ \ \
    特等奖                              123456+7                               30万元宝\
    一等奖                                123456                                10万元宝\
    二等奖                   12345□、□23456                           3万元宝\
    三等奖               1234□□、□2345□、□□3456                   3千元宝\
    四等奖         123□□□、□234□□、□□345□、□□□456    20元宝\
    五等奖            12□□□□、□23□□□、□□34□□          5元宝\
    .                □□□45□、□□□□56 \ \ \

    <返回/@main>                 <离开/@exit>



    6+1彩票,单张当期有效.zip

    5.89 KB, 阅读权限: 20, 下载次数: 9

    售价: 100 金钱  [记录]

    该用户从未签到

    dacbb 发表于 2017-7-19 16:37:14 | 显示全部楼层
    前几天找了一个传奇一条龙开服的,两天马上要回本了
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    午夜游魂 发表于 2017-7-19 22:01:07 | 显示全部楼层
    现在15bb.com 可以24小时自助购买版本了 这个不错啊
    回复 支持 反对

    使用道具 举报

  • TA的每日心情

    2017-5-3 19:43
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]初来乍到

    275265304 发表于 2017-7-20 11:39:54 | 显示全部楼层
    现在15bb.com 可以24小时自助购买版本了 这个不错啊
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    xioameinu 发表于 2017-7-20 20:52:50 | 显示全部楼层
    打开论坛老是被劫持咋办
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    elfweio 发表于 2017-7-21 10:04:04 | 显示全部楼层
    hero的迷失版本现在基本都没几个人开了
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    chenmin22 发表于 2017-7-21 14:45:10 | 显示全部楼层
    九五论坛快周年庆了吧?以往每年都差不多这个时候,今年有什么活动呢
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    mar852 发表于 2017-7-21 19:09:00 | 显示全部楼层
    hero的迷失版本现在基本都没几个人开了
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    qq3612 发表于 2017-7-22 17:09:01 | 显示全部楼层
    沉默 仙剑那种的嘟嘟复古版本有点少啊
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    7659358 发表于 2017-7-23 09:15:42 | 显示全部楼层
    沉默 仙剑那种的嘟嘟复古版本有点少啊
    回复 支持 反对

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则



    QQ|传奇爱好者|传奇版本|手机版|传奇一条龙|九五论坛

    GMT+8, 2018-10-21 19:07 , Processed in 1.747203 second(s), 33 queries , Gzip On.

    快速回复 返回顶部 返回列表