首发彩虹引擎专用彩票系统脚本文件

[@动车]

{
#IF
!CHECKNAMELIST ..\QuestDiary\数据文件\彩票名单.txt
#ACT
CALCVAR HUMAN 下注元宝 = 0
CALCVAR HUMAN 下注号码 =
break
#IF
CHECKVAR HUMAN 下注元宝 > 0
!CHECKVAR HUMAN 下注号码 =
CHECKNAMELIST ..\QuestDiary\数据文件\彩票名单.txt
#ELSEACT
BREAK
;///下数字的
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\彩票名单.txt
CHECKVAR HUMAN 下注号码 = $STR(I51)
CHECKVAR HUMAN 下注元宝 > 0
#ACT
MOV P90 $HUMAN(下注元宝)
MULT P90 8
GAMEGOLD + $STR(P90)
SENDMSG 5 你本次彩票下注中的<$STR(P90)>个元宝，再接再厉！
SENDMSG 0 玩家%S购买了彩票中奖获得了<$STR(P90)>个元宝
FORMATSTR S10 彩票元宝增加%S个,元宝总数量%S，时间：%S <$STR(P90)>|<$GAMEGOLD>|<$DATETIME>
ADDVARLIST $STR(S10) ..\QuestDiary\日志文件\元宝操作\<$USERNAME>.txt
CALCVAR HUMAN 下注元宝 = 0
CALCVAR HUMAN 下注号码 =
DELNAMELIST ..\QuestDiary\数据文件\彩票名单.txt
break
;///下大的

#IF
CHECKNAMELIST ..\QuestDiary\数据文件\彩票名单.txt
SMALL I51 5
CHECKVAR HUMAN 下注号码 = 小
CHECKVAR HUMAN 下注元宝 > 0
#ACT
MOV P90 $HUMAN(下注元宝)
MULT P90 2
GAMEGOLD + $STR(P90)
SENDMSG 5 你本次彩票下注中的<$STR(P90)>个元宝，再接再厉！
SENDMSG 0 玩家%S购买了彩票中奖获得了<$STR(P90)>个元宝
FORMATSTR S10 彩票元宝增加%S个,元宝总数量%S，时间：%S <$STR(P90)>|<$GAMEGOLD>|<$DATETIME>
ADDVARLIST $STR(S10) ..\QuestDiary\日志文件\元宝操作\<$USERNAME>.txt
CALCVAR HUMAN 下注元宝 = 0
CALCVAR HUMAN 下注号码 =
DELNAMELIST ..\QuestDiary\数据文件\彩票名单.txt
break


;///下大的

#IF
CHECKNAMELIST ..\QuestDiary\数据文件\彩票名单.txt
LARGE I51 5
CHECKVAR HUMAN 下注号码 = 大
CHECKVAR HUMAN 下注元宝 > 0
#ACT
MOV P90 $HUMAN(下注元宝)
MULT P90 2
GAMEGOLD + $STR(P90)
SENDMSG 5 你本次彩票下注中的<$STR(P90)>个元宝，再接再厉！
SENDMSG 0 玩家%S购买了彩票中奖获得了<$STR(P90)>个元宝
FORMATSTR S10 彩票元宝增加%S个,元宝总数量%S，时间：%S <$STR(P90)>|<$GAMEGOLD>|<$DATETIME>
ADDVARLIST $STR(S10) ..\QuestDiary\日志文件\元宝操作\<$USERNAME>.txt
CALCVAR HUMAN 下注元宝 = 0
CALCVAR HUMAN 下注号码 =
DELNAMELIST ..\QuestDiary\数据文件\彩票名单.txt
break
#IF
TRUE
#ACT
SENDMSG 5
CALCVAR HUMAN 下注元宝 = 0
CALCVAR HUMAN 下注号码 =
DELNAMELIST ..\QuestDiary\数据文件\彩票名单.txt
SENDMSG 5 很遗憾，本次彩票下注，你没有中的任何奖励，再接再厉，也许下次你就能获得大奖！
break
}

感恩无私的分享与奉献

无回帖，不论坛，这才是人道。

真是难得给力的帖子啊。

太生气了，无法HOLD啦 >_<......

我只是路过打酱油的。

看到这帖子真是高兴！

真是被感动的痛哭流涕……

无回帖，不论坛，这才是人道。

我只是路过打酱油的。