首发彩虹引擎专用彩票系统脚本文件
[@动车]{
#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啦 >_<...... 我只是路过打酱油的。 看到这帖子真是高兴! 真是被感动的痛哭流涕…… 无回帖,不论坛,这才是人道。 我只是路过打酱油的。
页:
[1]
2