彩虹3引擎论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 6042|回复: 49

[分享脚本] 骰子脚本 发论坛了

  [复制链接]

74

主题

223

帖子

2819

积分

散仙

Rank: 7Rank: 7Rank: 7

积分
2819

彩虹热心会员彩虹引擎代理独立端抢先体验

QQ
发表于 2017-12-4 19:49:14 | 显示全部楼层 |阅读模式
本帖最后由 圈圈 于 2020-4-19 14:58 编辑

一个相对来说比较完整的娱乐脚本   更多精品脚本 请访问    █████████

;--------------------------------------->>>  脚本只作为参考哦
变量声明  全局
VAR Integer GLOBAL 抢庄期号
VAR String GLOBAL 庄家
VAR String GLOBAL 庄池
VAR Integer GLOBAL 押大
VAR Integer GLOBAL 押小
VAR Integer GLOBAL A骰
VAR Integer GLOBAL B骰
VAR Integer GLOBAL C骰
VAR Integer GLOBAL 开点
VAR String GLOBAL 骰态
VAR String GLOBAL 骰玩状态
VAR Integer GLOBAL 骰玩计时


变量声明 个人
VAR String HUMAN 骰态
VAR String HUMAN 骰简
VAR Integer HUMAN 押值
VAR Integer HUMAN 抢庄期号
;--------------------------------------->>>  机器人脚本   RobotManage.txt        AutoRunRobot.txt   里面的内容 你不会 这脚本你也别用了
[@游戏计时]
#IF
LARGE $GLOBAL(骰玩计时) 0
#ELSEACT
break
#ACT
CALCVAR GLOBAL 骰玩计时 - 1
#IF
SMALL $GLOBAL(骰玩计时) 1
EQUAL $GLOBAL(骰玩状态) 抢庄
#ACT
CALCVAR GLOBAL 骰玩计时 = 35
CALCVAR GLOBAL 骰玩状态 = 下注
break
#IF
SMALL $GLOBAL(骰玩计时) 1
EQUAL $GLOBAL(骰玩状态) 下注
#ACT
CALCVAR GLOBAL 骰玩计时 = 6
CALCVAR GLOBAL 骰玩状态 = 开奖
break
#IF
SMALL $GLOBAL(骰玩计时) 1
EQUAL $GLOBAL(骰玩状态) 开奖
#ACT
CALCVAR GLOBAL 骰玩计时 = 15
CALCVAR GLOBAL 骰玩状态 = 发奖
GOTO @D_B_开奖
break
#IF
SMALL $GLOBAL(骰玩计时) 1
EQUAL $GLOBAL(骰玩状态) 发奖
#ACT
CALCVAR GLOBAL 骰玩计时 = 0
CALCVAR GLOBAL 抢庄期号 = 0
CALCVAR GLOBAL 骰玩状态 =  
CALCVAR GLOBAL 骰态 =  
CALCVAR GLOBAL 开点 = 0
MOV A10 (暂无庄家)
MOV I90 0
MOV I91 0
MOV I92 0
break
[@D_B_开奖]
#IF
EQUAL $GLOBAL(骰玩状态) 发奖
LARGE $GLOBAL(抢庄期号) 0
LARGE $GLOBAL(骰玩计时) 0
#ELSEACT
break
#ACT
CALCVAR GLOBAL A骰 = $INC.1.$random(6)
CALCVAR GLOBAL B骰 = $INC.1.$random(6)
CALCVAR GLOBAL C骰 = $INC.1.$random(6)
CALCVAR GLOBAL 开点 = $INC^$INC.$GLOBAL(A骰).$GLOBAL(B骰)^$GLOBAL(C骰)
#IF
EQUAL $GLOBAL(A骰) $GLOBAL(B骰)
EQUAL $GLOBAL(A骰) $GLOBAL(C骰)
#ACT
CALCVAR GLOBAL 骰态 = 豹子
break
#IF
LARGE $GLOBAL(开点) 10
#ACT
CALCVAR GLOBAL 骰态 = 押大
break
#ELSEACT
CALCVAR GLOBAL 骰态 = 押小
break

;--------------------------------------->>>  其他拓展功能可以在此机器人脚本添加 内容太过恶心 就不解释了



















;--------------------------------------->>>    地图 秒触脚本    QM 部分 脚本比较多 单独CALL 一个独立文本了
[@坐庄游戏]
#IF
random 1
#ACT
#CALL [..\QuestDiary\游戏功能\坐庄游戏.TXT] @坐庄_游戏
break  


文本内容:
[@坐庄_游戏]
{
#IF
SMALL $GLOBAL(抢庄期号) 1
#ACT
CALCVAR GLOBAL 骰玩状态 =  
MOV A10 (暂无庄家)
MOV I10 0
#IF
LARGE $GLOBAL(抢庄期号) 1
!EQUAL $GLOBAL(骰玩状态)  
EQUAL $HUMAN(抢庄期号) $GLOBAL(抢庄期号)
#ELSEACT
SET [66] 0
CALCVAR HUMAN 骰态 =  
CALCVAR HUMAN 押值 = 0
CALCVAR HUMAN 抢庄期号 = 0
#IF
EQUAL $HUMAN(骰简) 开
!POS $GLOBAL(骰玩状态) 奖
#ACT
break
#SAY
 你目前拥有元宝【{color=green <$GAMEGOLD>}】
\1、庄家坐庄后,其他玩家可下注,一分钟后三个骰子随机
\ 出现,点数总和小于11代表小,点数总和大于10代表大
\ ,三个点数相同代表豹子。
\2、<color=green 押大赢大,押小赢小,豹子通吃,系统每次收取5%税务。>
\3、坐庄或已下注后如<color=red 下线、离开赌场>地图将损失下注元宝。
\4、玩家下注数不能超过庄家坐庄的元宝总和。
\                                  <返回赌场/@说明>
#IF
EQUAL $GLOBAL(骰玩状态)  
#ACT
break
#SAY
欢迎光临猜休闲赌场,你目前拥有元宝【{color=green <$GAMEGOLD>}】\
<color=green 当前暂无玩家坐庄,玩家可使用元宝进行抢庄>\
╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗\
┊<查看说明/@说明>┊┊<开始坐庄/@Q_A_抢庄>┊┊<color=red 下注押大>┊┊<color=red 下注押小>┊\
╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝\
已押大总金额:【0】 共可押大总金额:【0】\
已押小总金额:【0】 共可押小总金额:【0】\\
<color=red 你可使用元宝进行抢庄,庄家福利:豹子通杀所有玩家>\
#IF
EQUAL $GLOBAL(骰玩状态) 抢庄
EQUAL $USERNAME $STR(A10)
#ACT
break
#SAY
欢迎光临猜休闲赌场,你目前拥有元宝【{color=green <$GAMEGOLD>}】\
当前庄家:【{color=green <$STR(A10)>}】 庄家赌本:【{color=green <$STR(I10)>}】\
╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗\
┊<查看说明/@说明>┊┊<color=red 开始坐庄>┊┊<color=red 下注押大>┊┊<color=red 下注押小>┊\
╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝\
已押大总金额:【0】 共可押大总金额:【0】\
已押小总金额:【0】 共可押小总金额:【0】\
你以【<$STR(I10)>】个元宝坐庄,若无人抢庄,你将成为本局庄家\
当前赌场状态:<color=red 抢庄时间>  剩余抢庄时间:<$GLOBAL(骰玩计时)>秒
#IF
EQUAL $GLOBAL(骰玩状态) 抢庄
#ACT
break
#SAY
欢迎光临猜休闲赌场,你目前拥有元宝【{color=green <$GAMEGOLD>}】\
当前庄家:【{color=green <$STR(A10)>}】 庄家赌本:【{color=green <$STR(I10)>}】\
╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗\
┊<查看说明/@说明>┊┊<开始坐庄/@Q_A_抢庄>┊┊<color=red 下注押大>┊┊<color=red 下注押小>┊\
╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝\
已押大总金额:【0】 共可押大总金额:【0】\
已押小总金额:【0】 共可押小总金额:【0】\
<color=green 当前是抢庄时间,不想当庄请等待其它玩家坐庄后押注>\
当前赌场状态:<color=red 抢庄时间>  剩余抢庄时间:<$GLOBAL(骰玩计时)>秒
#IF
EQUAL $USERNAME $STR(A10)
EQUAL $GLOBAL(骰玩状态) 下注
EQUAL $HUMAN(抢庄期号) $GLOBAL(抢庄期号)
#ACT
break
#SAY
欢迎光临猜休闲赌场,你目前拥有元宝【{color=green <$GAMEGOLD>}】\
当前庄家:【{color=green <$STR(A10)>}】 庄家赌本:【{color=green <$STR(I10)>}】\
╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗\
┊<查看说明/@说明>┊┊<color=red 开始坐庄>┊┊<color=red 下注押大>┊┊<color=red 下注押小>┊\
╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝\
已押大总金额:【<$STR(I76)>】 共可押大总金额:【<$DEC^$INC.$STR(I10).$STR(I77)^$STR(I76)>】\
已押小总金额:【<$STR(I77)>】 共可押小总金额:【<$DEC^$INC.$STR(I10).$STR(I76)^$STR(I77)>】\
你已成为庄家,请等待其他玩家下注押大或押小,赔率1:1\
当前赌场状态:<color=red 下注时间>  剩余下注时间:<$GLOBAL(骰玩计时)>秒
#IF
EQUAL $GLOBAL(骰玩状态) 下注
EQUAL $HUMAN(抢庄期号) $GLOBAL(抢庄期号)
#ACT
break
#SAY
欢迎光临猜休闲赌场,你目前拥有元宝【{color=green <$GAMEGOLD>}】\
当前庄家:【{color=green <$STR(A10)>}】 庄家赌本:【{color=green <$STR(I10)>}】\
╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗\
┊<查看说明/@说明>┊┊<color=red 开始坐庄>┊┊<color=red 下注押大>┊┊<color=red 下注押小>┊\
╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝\
已押大总金额:【<$STR(I76)>】 共可押大总金额:【<$DEC^$INC.$STR(I10).$STR(I77)^$STR(I76)>】\
已押小总金额:【<$STR(I77)>】 共可押小总金额:【<$DEC^$INC.$STR(I10).$STR(I76)^$STR(I77)>】\
你的下注情况:你下注{color=green <$HUMAN(押值)>}个元宝押【<$HUMAN(骰态)>】\
当前赌场状态:<color=red 下注时间>  剩余下注时间:<$GLOBAL(骰玩计时)>秒
#IF
POS $GLOBAL(骰玩状态) 奖
#ELSEACT
break
#ELSESAY
欢迎光临猜休闲赌场,你目前拥有元宝【{color=green <$GAMEGOLD>}】\
当前庄家:【{color=green <$STR(A10)>}】 庄家赌本:【{color=green <$STR(I10)>}】\
╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗╔┈┈┈┈╗\
┊<查看说明/@说明>┊┊<color=red 开始坐庄>┊┊<下注押大/@押大>┊┊<下注押小/@押小>┊\
╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝╚┈┈┈┈╝\
已押大总金额:【<$STR(I76)>】 共可押大总金额:【<$DEC^$INC.$STR(I10).$STR(I77)^$STR(I76)>】\
已押小总金额:【<$STR(I77)>】 共可押小总金额:【<$DEC^$INC.$STR(I10).$STR(I76)^$STR(I77)>】\
你还未下注,<color=red 当前可下注押大或者押小,赔率1:1>\
当前赌场状态:<color=red 下注时间>  剩余下注时间:<$GLOBAL(骰玩计时)>秒
#IF
EQUAL $GLOBAL(骰态) 豹子
#ACT
MOV S72 开出(<$GLOBAL(骰态)>)庄家通杀
#ELSEACT
MOV S72 开出(<$GLOBAL(开点)>)点(<$GLOBAL(骰态)>)赢
#IF
EQUAL $GLOBAL(骰玩状态) 开奖
#ACT
CALCVAR GLOBAL A骰 = $INC.1.$random(6)
CALCVAR GLOBAL B骰 = $INC.1.$random(6)
CALCVAR GLOBAL C骰 = $INC.1.$random(6)
MOV S72 "  <COLOR=red 色子正在摇动中,等待最终结果>"
#ELSEACT
MOV S72 " <COLOR=green 本局最终摇出结果是:><$GLOBAL(A骰)>、<$GLOBAL(B骰)>、<$GLOBAL(C骰)> {color=red <$STR(S72)>}"
#IF
random 1
#ACT
READRANDOMSTR ..\QuestDiary\点数图形.TXT S81 $GLOBAL(A骰)
READRANDOMSTR ..\QuestDiary\点数图形.TXT S84 $GLOBAL(B骰)
READRANDOMSTR ..\QuestDiary\点数图形.TXT S87 $GLOBAL(C骰)
SPLIT $STR(S81) | S81
SPLIT $STR(S84) | S84
SPLIT $STR(S87) | S87
FORMATSTR S30 %s%s%s <$STR(S81)>|<$STR(S84)>|<$STR(S87)>
FORMATSTR S31 %s%s%s <$STR(S82)>|<$STR(S85)>|<$STR(S88)>
FORMATSTR S32 %s%s%s <$STR(S83)>|<$STR(S86)>|<$STR(S89)>
#SAY
╔------------------------------╗本局下注信息:\
┆┏━━━┓┏━━━┓┏━━━┓┆庄家赌本:{color=green <$STR(I10)>}\
┆<$STR(S30)>┆总共押大:【<$STR(I76)>】\
┆<$STR(S31)>┆总共押小:【<$STR(I77)>】\
┆<$STR(S32)>┆你下注了:【<$HUMAN(押值)>】\
┆┗━━━┛┗━━━┛┗━━━┛┆下注类型:{color=red <$HUMAN(骰态)>}\
╚------------------------------╝\
<$STR(S72)>
\ {color=green <$HUMAN(骰简)>}
#IF
EQUAL $GLOBAL(骰玩状态) 发奖
#ELSEACT
CALCVAR HUMAN 骰简 =
#IF
SMALL $INC.$STR(I76).$STR(I77) 1
#ACT
CALCVAR HUMAN 骰简 = 本局没有任何玩家下注,没有人赢得任何元宝
#IF
CHECK [66] 1
LARGE $HUMAN(押值) 0
EQUAL $GLOBAL(骰玩状态) 发奖
EQUAL $HUMAN(抢庄期号) $GLOBAL(抢庄期号)
#ELSEACT
break
#IF
EQUAL $USERNAME $STR(A10)
#ACT
GOTO @JS_A_庄家
break
#ELSEACT
SET 66 0
#IF
EQUAL $GLOBAL(骰态) 豹子
#ACT
CALCVAR HUMAN 骰简 = 庄家通杀赢得<$INC.$STR(I76).$STR(I77)>个元宝,你本局输掉<$HUMAN(押值)>个元宝
SENDMSG 5 开出豹子,庄家通杀,你本局输掉<$HUMAN(押值)>个元宝
break
#IF
EQUAL $HUMAN(骰态) $GLOBAL(骰态)
#ACT
INC G90 $INC^1^$DIV.$HUMAN(押值).20
GAMEGOLD + $MULT.$HUMAN(押值).2
GAMEGOLD - $INC^1^$DIV.$HUMAN(押值).20
CALCVAR HUMAN 骰简 = 恭喜你<$HUMAN(骰态)>赢得<$HUMAN(押值)>元宝,系统抽出<$INC^1^$DIV.$HUMAN(押值).20>元宝的红利
SENDMSG 5 恭喜你本局<$HUMAN(骰态)>赢得个<$HUMAN(押值)>元宝,系统抽出<$INC^1^$DIV.$HUMAN(押值).20>个元宝的红利
break
#ELSEACT
CALCVAR HUMAN 骰简 = 很遗憾,你本局<$HUMAN(骰态)>,输掉了<$HUMAN(押值)>个元宝
SENDMSG 5 很遗憾,你本局<$HUMAN(骰态)>,输掉了<$HUMAN(押值)>个元宝
break
[@JS_A_庄家]
#IF
CHECK [66] 1
LARGE $HUMAN(押值) 0
EQUAL $USERNAME $STR(A10)
EQUAL $GLOBAL(骰玩状态) 发奖
EQUAL $HUMAN(抢庄期号) $GLOBAL(抢庄期号)
#ELSEACT
break
#ACT
SET 66 0
#IF
SMALL $INC.$STR(I76).$STR(I77) 2
#ACT
GAMEGOLD + $STR(I10)
SENDMSG 5 本局没有任何玩家下注,你没有赢得任何元宝
break
#IF
EQUAL $GLOBAL(骰态) 豹子
#ACT
MOV D75 $INC^1^$DIV.<$INC.$STR(I76).$STR(I77)>.20
INC G90 $STR(D75)
GAMEGOLD + $INC^$STR(I10)^$INC.$STR(I76).$STR(I77)
GAMEGOLD - $STR(D75)
CALCVAR HUMAN 骰简 = 豹子通杀赢了<$INC.$STR(I76).$STR(I77)>个元宝,系统抽取<$STR(D75)>元宝分红
SENDMSG 5 开出豹子,庄家通杀赢了<$INC.$STR(I76).$STR(I77)>个元宝,系统抽取<$STR(D75)>元宝分红
break
#IF
EQUAL I76 $STR(I77)
#ACT
GAMEGOLD + $STR(I10)
CALCVAR HUMAN 骰简 = 本局下注押大和押小的数量相同,你没有输也没有赢
SENDMSG 5 本局下注押大和押小的数量相同,你没有输也没有赢
break
#IF
LARGE I76 $STR(I77)
EQUAL $GLOBAL(骰态) 押大
#ACT
GAMEGOLD + $DEC^$STR(I10)^$DEC.$STR(I76).$STR(I77)
CALCVAR HUMAN 骰简 = 本局下注押大比押小多<$DEC.$STR(I76).$STR(I77)>个,你输掉个<$DEC.$STR(I76).$STR(I77)>个元宝
SENDMSG 5 本局开大,下注押大比押小多<$DEC.$STR(I76).$STR(I77)>个,你输掉个<$DEC.$STR(I76).$STR(I77)>个元宝
break
#IF
SMALL I76 $STR(I77)
EQUAL $GLOBAL(骰态) 押大
#ACT
MOV D75 $INC^1^$DIV.<$DEC.$STR(I77).$STR(I76)>.20
INC G90 $STR(D75)
GAMEGOLD + $INC^$STR(I10)^$DEC.$STR(I77).$STR(I76)
GAMEGOLD - $STR(D75)
CALCVAR HUMAN 骰简 = 本局在押小方获利<$DEC.$STR(I77).$STR(I76)>元宝,系统抽取<$STR(D75)>个元宝分红
SENDMSG 5 本局开大,在押小方获利<$DEC.$STR(I77).$STR(I76)>元宝,系统抽取<$STR(D75)>个元宝分红
break
#IF
LARGE I76 $STR(I77)
EQUAL $GLOBAL(骰态) 押小
#ACT
MOV D75 $INC^1^$DIV.<$DEC.$STR(I76).$STR(I77)>.20
INC G90 $STR(D75)
GAMEGOLD + $INC^$STR(I10)^$DEC.$STR(I76).$STR(I77)
GAMEGOLD - $STR(D75)
CALCVAR HUMAN 骰简 = 本局在押大方获利<$DEC.$STR(I76).$STR(I77)>元宝,系统抽取<$STR(D75)>个元宝分红
SENDMSG 5 本局开小,在押大方获利<$DEC.$STR(I76).$STR(I77)>元宝,系统抽取<$STR(D75)>个元宝分红
break
#IF
SMALL I76 $STR(I77)
EQUAL $GLOBAL(骰态) 押小
#ACT
GAMEGOLD + $DEC^$STR(I10)^$DEC.$STR(I77).$STR(I76)
CALCVAR HUMAN 骰简 = 本局下注中押小比押大多<$DEC.$STR(I77).$STR(I76)>个,你输掉个<$DEC.$STR(I77).$STR(I76)>个元宝
SENDMSG 5 本局开小,下注押小比押大多<$DEC.$STR(I77).$STR(I76)>个,你输掉个<$DEC.$STR(I77).$STR(I76)>个元宝
break
[@说明]
#IF
EQUAL $HUMAN(骰简) 开
#ACT
CALCVAR HUMAN 骰简 =  
GOTO @坐庄_赌博
break
#ELSEACT
CALCVAR HUMAN 骰简 = 开
GOTO @坐庄_赌博
break
[@Q_A_抢庄]
#IFONE
EQUAL $GLOBAL(骰玩状态)  
EQUAL $GLOBAL(骰玩状态) 抢庄
#ELSEACT
MESSAGEBOX [提示]:抢庄时间已经结束。请等待开局!
break
#IF
EQUAL $HUMAN(骰态)  
!EQUAL $USERNAME $STR(A10)
#ELSEACT
MESSAGEBOX [提示]:你已经下注为<$HUMAN(骰态)>,无法重复坐庄!
break
#IF
LARGE $GAMEGOLD 99
#ELSEACT
MESSAGEBOX [提示]:你身上的元宝不足100个,无法坐庄!
break
#ACT
QueryVal 51 1 3 @Q_B_抢庄 请输入你要坐庄的元宝(100-999)数值
break
[@Q_B_抢庄]
#IFONE
EQUAL $GLOBAL(骰玩状态)  
EQUAL $GLOBAL(骰玩状态) 抢庄
#ELSEACT
MESSAGEBOX [提示]:抢庄时间已经结束。请等待开局!
break
#IF
EQUAL $HUMAN(骰态)  
!EQUAL $USERNAME $STR(A10)
#ELSEACT
MESSAGEBOX [提示]:你已经下注为<$HUMAN(骰态)>,无法重复坐庄!
break
#IFONE
SMALL M51 100
LARGE M51 999
SMALL $GAMEGOLD $STR(M51)
!SMALL $STR(I10) $STR(M51)
#ACT
MESSAGEBOX 持有元宝不能小于输入数值(<$STR(M51)>)且输入值必须为(100-999) \输入元宝(<$STR(M51)>)必须大于目前庄位元宝(<$STR(I10)>)输入有误请重新输入数量
break
close
#ELSEACT
GAMEGOLD - $STR(M51)
CALCVAR GLOBAL 抢庄期号 = $LONGDATE
CALCVAR HUMAN 抢庄期号 = $GLOBAL(抢庄期号)
CALCVAR HUMAN 骰态 = 庄家
CALCVAR HUMAN 押值 = $STR(M51)
SET [66] 1
#IF
EQUAL $GLOBAL(骰玩状态) 抢庄
!EQUAL A10 (暂无庄家)
LARGE $STR(I10) 99
$STR(A10).CHECK [66] 1
#ACT
$STR(A10).GAMEGOLD + $STR(I10)
$STR(A10).CALCVAR HUMAN 抢庄期号 = 0
$STR(A10).CALCVAR HUMAN 骰态 =  
$STR(A10).CALCVAR HUMAN 押值 = 0
$STR(A10).SET [66] 0
$STR(A10).SENDMSG 5 抢庄失败,系统返还抢庄赌本:<$STR(I10)>个元宝
SENDMSG 14 赌场抢庄正在激烈竞争中:<$USERNAME>使用<$STR(M51)>元宝顺利坐上庄位,<$STR(A10)>的<$STR(I10)>元宝已败北,不服气的请在<$GLOBAL(骰玩计时)>秒内来抢庄
MOV I10 $STR(M51)
MOV A10 $USERNAME
MOV I76 0
MOV I77 0
break
#ELSEACT
CALCVAR GLOBAL 骰玩计时 = 20
CALCVAR GLOBAL 骰玩状态 = 抢庄
MOV I10 $STR(M51)
MOV A10 $USERNAME
MOV I76 0
MOV I77 0
SENDMSG 14 赌场:<$USERNAME>使用<$STR(M51)>个元宝坐庄,他在念叨欢迎大家前往休闲赌场下注,抢庄开始啦
break
[@押大]
#IF
EQUAL $GLOBAL(骰玩状态) 下注
#ELSEACT
MESSAGEBOX [提示]:下注时间已经结束。请等待开局
break
#IF
SMALL $HUMAN(押值) 1
#ELSEACT
MESSAGEBOX [提示]:你当前是<$HUMAN(骰态)>已经使用了<$HUMAN(押值)>元宝,无法继续下注
break
#ACT
QueryVal 50 1 3 @押_A_大 请输入你要[下注押大]的元宝值必须为(2-999)且不大于目前庄位元宝(<$DEC^$INC.$STR(I10).$STR(I76)^$STR(I77)>)
break
[@押_A_大]
#IF
SMALL $HUMAN(押值) 1
EQUAL $GLOBAL(骰玩状态) 下注
!EQUAL $USERNAME $STR(A10)
#ELSEACT
MESSAGEBOX [提示]:下注时间已经结束。请等待开局
break
#IF
LARGE M50 1
SMALL M50 1000
!SMALL $GAMEGOLD $STR(M50)
!SMALL $DEC^$INC.$STR(I10).$STR(I77)^$STR(I76) $STR(M50)
#ELSEACT
MESSAGEBOX 持有元宝不能小于输入数值(<$STR(M50)>)且输入值必须为(2-999) \输入元宝(<$STR(M50)>)不能大于目前庄位元宝(<$DEC^$INC.$STR(I10).$STR(I76)^$STR(I77)>)输入有误请重新输入数量
break
close
#ACT
GAMEGOLD - $STR(M50)
CALCVAR HUMAN 抢庄期号 = $GLOBAL(抢庄期号)
CALCVAR HUMAN 骰态 = 押大
CALCVAR HUMAN 押值 = $STR(M50)
INC I76 $STR(M50)
SET [66] 1
SENDMSG 21 哈哈,老子现在就押在大这边,肯定赢!
SENDMSG 5 (*)你成功使用<$STR(M50)>个元宝下注押大,等待押注时间结束即可开局
MESSAGEBOX [提示]:你使用【<$STR(M50)>】个元宝下注押大\ \    等待押注时间结束即可开局
MOV M50
break
[@押小]
#IF
EQUAL $GLOBAL(骰玩状态) 下注
#ELSEACT
MESSAGEBOX [提示]:下注时间已经结束。请等待开局
break
#IF
SMALL $HUMAN(押值) 1
#ELSEACT
MESSAGEBOX [提示]:你当前是<$HUMAN(骰态)>已经使用了<$HUMAN(押值)>元宝,无法继续下注
break
#ACT
QueryVal 50 1 3 @押_A_小 请输入你要[下注押小]的元宝值必须为(2-999)且不大于目前庄位元宝(<$DEC^$INC.$STR(I10).$STR(I77)^$STR(I76)>)
break

[@押_A_小]
#IF
SMALL $HUMAN(押值) 1
EQUAL $GLOBAL(骰玩状态) 下注
!EQUAL $USERNAME $STR(A10)
#ELSEACT
MESSAGEBOX [提示]:下注时间已经结束。请等待开局
break
#IF
LARGE M50 1
SMALL M50 1000
!SMALL $GAMEGOLD $STR(M50)
!SMALL $DEC^$INC.$STR(I10).$STR(I76)^$STR(I77) $STR(M50)
;!SMALL (总+大) - 小  ≥  押值   $STR(M50)
#ELSEACT
MESSAGEBOX 持有元宝不能小于输入数值(<$STR(M50)>)且输入值必须为(2-999) \输入元宝(<$STR(M50)>)不能大于目前庄位元宝(<$DEC^$INC.$STR(I10).$STR(I77)^$STR(I76)>)输入有误请重新输入数量
break
close
#ACT
GAMEGOLD - $STR(M50)
CALCVAR HUMAN 抢庄期号 = $GLOBAL(抢庄期号)
CALCVAR HUMAN 骰态 = 押小
CALCVAR HUMAN 押值 = $STR(M50)
INC I77 $STR(M50)
SET [66] 1
SENDMSG 21 哈哈,老子现在就押在小这边,肯定赢!
SENDMSG 5 (*)你成功使用<$STR(M50)>个元宝下注押小,等待押注时间结束即可开局
MESSAGEBOX [提示]:你使用【<$STR(M50)>】个元宝下注押小\ \    等待押注时间结束即可开局
MOV M50
break
}

一定要修改 变量名称哦   公用变量 一定避开和引擎其他地方冲突

;--------------------------------------->>>    点数图形.TXT   内容  一定顶格写
游客,如果您要查看本帖隐藏内容请回复




SIUGM.COM 彩虹圈圈

技术交流Q群 575678728

引擎注册Q 2325132380 圈圈
回复

使用道具 举报

0

主题

7

帖子

38

积分

筑基

Rank: 1

积分
38
发表于 2017-12-4 20:58:07 | 显示全部楼层
驱蚊器恶气
回复 支持 反对

使用道具 举报

0

主题

18

帖子

242

积分

元婴

Rank: 2

积分
242
发表于 2017-12-5 13:50:54 | 显示全部楼层
本帖最后由 圈圈 于 2018-4-26 08:59 编辑

...........
回复

使用道具 举报

1

主题

22

帖子

121

积分

融合

Rank: 2

积分
121
发表于 2017-12-5 17:07:07 | 显示全部楼层
1111111111
回复 支持 反对

使用道具 举报

1

主题

22

帖子

121

积分

融合

Rank: 2

积分
121
发表于 2017-12-5 17:08:19 | 显示全部楼层
11111111111111111111111111111
回复 支持 反对

使用道具 举报

73

主题

165

帖子

1395

积分

渡劫

Rank: 3Rank: 3

积分
1395

彩虹活跃会员彩虹热心会员

发表于 2017-12-8 22:38:19 | 显示全部楼层
1111111111111111111111111111
回复 支持 反对

使用道具 举报

9

主题

35

帖子

370

积分

元婴

Rank: 2

积分
370
发表于 2017-12-10 01:51:53 | 显示全部楼层
sdsdsdsdfsd
回复 支持 反对

使用道具 举报

76

主题

178

帖子

3684

积分

一见倾心

Rank: 4

积分
3684

彩虹活跃会员

发表于 2017-12-18 15:56:24 | 显示全部楼层
啊啊啊啊啊啊啊啊啊
回复 支持 反对

使用道具 举报

1

主题

4

帖子

21

积分

筑基

Rank: 1

积分
21
发表于 2017-12-20 00:06:31 | 显示全部楼层
,如果您要查看本帖隐藏内容请回复
回复 支持 反对

使用道具 举报

51

主题

366

帖子

4048

积分

散仙

Rank: 7Rank: 7Rank: 7

积分
4048

彩虹活跃会员彩虹忠实黑粉

QQ
发表于 2017-12-23 08:40:35 | 显示全部楼层
先抢了。。。
回复

使用道具 举报

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

本版积分规则

彩虹3引擎技术交流论坛  

GMT+8, 2021-4-14 13:57

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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