[@Startup]
#IF
#ACT
#CALL [\官方QQ1063311911\胖妞全局变量.txt] @胖妞全局变量
#CALL [\变量系统\全局变量申明\人民币回收变量.txt] @人民币回收变量




[@Login]



#if
CHECKLEVELEX > 0
#act
VAR INTEGER HUMAN 商人玩家充值点
LoadVar HUMAN 商人玩家充值点	..\QuestDiary\变量系统\商人充值玩家金额.txt
VAR STRING HUMAN 商人玩家货币
LoadVar HUMAN 商人玩家货币	..\QuestDiary\变量系统\商人充值玩家金额.txt

#CALL [\官方QQ1063311911\胖妞个人变量.txt] @胖妞个人变量
#CALL [\官方QQ1063311911\上线返还.txt] @上线返还
mapmove 3 333 333
SetOnTimer 123 1



[@商人充值]
#if
CHECKTEXTLIST  ..\QuestDiary\变量系统\商人充值玩家名单.txt  <$USERNAME>
#ACT
LOADVAR HUMAN 商人玩家充值点	..\QuestDiary\变量系统\商人充值玩家金额.txt
LOADVAR HUMAN 商人玩家货币	..\QuestDiary\变量系统\商人充值玩家金额.txt
goto @商人确认充值


[@商人确认充值]
#if
CHECKVAR HUMAN  商人玩家货币 = 元宝
#act
DelTextList ..\QuestDiary\变量系统\商人充值玩家名单.txt  <$USERNAME>
GAMEGOLD +  <$HUMAN(商人玩家充值点)>
MESSAGEBOX  恭喜!成功充值【<$HUMAN(商人玩家充值点)>】元宝
SendCrossMsg 通过商人系统充值[<$HUMAN(商人玩家充值点)>]元宝!
CALCVAR HUMAN 商人玩家充值点 = 0
SAVEVAR HUMAN 商人玩家充值点 ..\QuestDiary\变量系统\商人充值玩家金额.txt
CALCVAR HUMAN 商人玩家货币 = 
SAVEVAR HUMAN 商人玩家充值点 ..\QuestDiary\变量系统\商人充值玩家金额.txt

#if
CHECKVAR HUMAN  商人玩家货币 = 金刚石
#act
DelTextList ..\QuestDiary\变量系统\商人充值玩家名单.txt  <$USERNAME>
GAMEDIAMOND +  <$HUMAN(商人玩家充值点)>
MESSAGEBOX  恭喜!成功充值【<$HUMAN(商人玩家充值点)>】金刚石
SendCrossMsg 通过商人系统充值[<$HUMAN(商人玩家充值点)>]金刚石!
CALCVAR HUMAN 商人玩家充值点 = 0
SAVEVAR HUMAN 商人玩家充值点 ..\QuestDiary\变量系统\商人充值玩家金额.txt
CALCVAR HUMAN 商人玩家货币 = 
SAVEVAR HUMAN 商人玩家充值点 ..\QuestDiary\变量系统\商人充值玩家金额.txt


#if
CHECKVAR HUMAN  商人玩家货币 = 钻石
#act
DelTextList ..\QuestDiary\变量系统\商人充值玩家名单.txt  <$USERNAME>
GAMEPOINT +  <$HUMAN(商人玩家充值点)>
SendCrossMsg 通过商人系统充值[<$HUMAN(商人玩家充值点)>]钻石!
MESSAGEBOX  恭喜!成功充值【<$HUMAN(商人玩家充值点)>】钻石
CALCVAR HUMAN 商人玩家充值点 = 0
SAVEVAR HUMAN 商人玩家充值点 ..\QuestDiary\变量系统\商人充值玩家金额.txt
CALCVAR HUMAN 商人玩家货币 = 
SAVEVAR HUMAN 商人玩家充值点 ..\QuestDiary\变量系统\商人充值玩家金额.txt






[@OnTimer103]
#if
CheckOffline
#act
break



#if
CHECKVAR GLOBAL 娱乐状态 = 抢庄时间
EQUAL S$抢庄 开启
CHECKGAMEGOLD < <$str(N23)>
#act
SENDMSG 6 提示:元宝不足[<$str(N23)>]自动抢庄已关闭!
MOV S$抢庄 未开启
break

#if
CHECKVAR GLOBAL 娱乐状态 = 抢庄时间
EQUAL S$抢庄 开启
LARGE <$str(N23)> <$GLOBAL(抢庄上限)>
#act
SENDMSG 6 提示:自动抢庄额度不能高于[<$GLOBAL(抢庄上限)>]!
MOV S$抢庄 未开启
break

#if
CHECKVAR GLOBAL 娱乐状态 = 抢庄时间
EQUAL S$抢庄 开启
small <$str(N23)> <$GLOBAL(抢庄下限)>
#act
SENDMSG 6 提示:自动抢庄额度不能低于[<$GLOBAL(抢庄下限)>]!
MOV S$抢庄 未开启
break

#if
CHECKVAR GLOBAL 娱乐计时 < 11
CHECKVAR GLOBAL 娱乐状态 = 抢庄时间
EQUAL S$抢庄 开启
CHECKGAMEGOLD > <$str(N23)>
CHECKVAR HUMAN 押注类型 = 
#act
MOV S$总元宝 <$GAMEGOLD>
GAMEGOLD - <$STR(N23)>
CALCVAR HUMAN 押注类型 = 抢庄
SAVEVAR HUMAN 押注类型 ..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt
CALCVAR HUMAN 押注数量 =  <$str(N23)>
SAVEVAR HUMAN 押注数量 ..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt
CALCVAR HUMAN 押注状态 = 等待
SAVEVAR HUMAN 押注状态 ..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt
SENDMSG 7 六六大顺：您已经使用[<$str(N23)>]个元宝进行了抢庄，抢庄前元宝：<$STR(S$总元宝)>,当前剩余：<$GAMEGOLD>元宝！
break



[@OnTimer123]
#IF
CHECKLEVELEX > 0
#ACT
LoadVar HUMAN 押注类型	..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt
LoadVar HUMAN 押注状态	..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt
LoadVar HUMAN 押注数量	..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt
LoadVar HUMAN 押注总和	..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt
LoadVar HUMAN 个人消息	..\QuestDiary\官方QQ1063311911\个人变量\个人消息.txt
LoadVar HUMAN 赢取金额	..\QuestDiary\官方QQ1063311911\个人变量\赢取金额.txt





#if
CHECKVAR HUMAN 押注类型 = 
#act
BREAK






;--------------------------------------------处理抢庄--------------------------------------------
#IF
CHECKVAR GLOBAL 娱乐状态 = 押注时间
CHECKVAR HUMAN 押注状态 = 成功
CHECKVAR HUMAN 押注类型 = 庄
CHECKVAR GLOBAL 庄家名称 = <$username>
EQUAL s$中庄提示
#ACT
SENDMSG 7 六六大顺： 恭喜你成功的成为了本局的幸运庄家！
MOV   <$STR(s$中庄提示)> 已提示
BREAK



#IF
CHECKVAR HUMAN 押注状态 = 成功
CHECKVAR HUMAN 押注类型 = 抢庄
#ACT
CALCVAR HUMAN 押注总和 + <$HUMAN(押注数量)>
SAVEVAR HUMAN 押注总和 ..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt

SENDMSG 7 六六大顺：恭喜你成功使用<$HUMAN(押注数量)>元宝参与[抢庄]，当前元宝[<$GAMEGOLD>]个
SENDMSG 0 253 255  六六大顺：【<$username>】使用【<$HUMAN(押注数量)>】个元宝参与【抢庄】！
CALCVAR HUMAN 押注数量 =  0
SAVEVAR HUMAN 押注数量 ..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt

CALCVAR HUMAN 押注状态 = 
SAVEVAR HUMAN 押注状态 ..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt

BREAK







#IF
CHECKVAR GLOBAL 娱乐状态 = 押注时间
CHECKVAR HUMAN 押注状态 = 失败
CHECKVAR HUMAN 押注类型 = 抢庄
#ACT

GAMEGOLD +  <$HUMAN(押注数量)>


CALCVAR HUMAN 押注类型 = 
SAVEVAR HUMAN 押注类型 ..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt

SENDMSG 7 六六大顺：很抱歉，本次抢庄失败，返还[<$HUMAN(押注数量)>]个抢庄元宝，当前元宝[<$GAMEGOLD>]个

CALCVAR HUMAN 押注数量 = 0
SAVEVAR HUMAN 押注数量 ..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt

CALCVAR HUMAN 押注总和 = 0
SAVEVAR HUMAN 押注总和 ..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt
BREAK




;--------------------------------------------处理押注--------------------------------------------
#IF
CHECKVAR GLOBAL 娱乐状态 = 押注时间
CHECKVAR HUMAN 押注状态 = 等待
#ACT
GAMEGOLD +  <$HUMAN(押注数量)>

CALCVAR HUMAN 押注类型 = 
SAVEVAR HUMAN 押注类型 ..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt
SENDMSG 7 六六大顺：很抱歉，押注金额超出可压范围，返还[<$HUMAN(押注数量)>]个元宝，押注失败
CALCVAR HUMAN 押注数量 = 0
SAVEVAR HUMAN 押注数量 ..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt
BREAK



#IF
CHECKVAR GLOBAL 娱乐状态 = 押注时间
CHECKVAR HUMAN 押注类型 = 抢庄
#ACT
GAMEGOLD +  <$HUMAN(押注数量)>

CALCVAR HUMAN 押注类型 = 
SAVEVAR HUMAN 押注类型 ..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt
SENDMSG 7 六六大顺：很抱歉，本轮你未被抽中庄家，返还[<$HUMAN(押注数量)>]个元宝，当前元宝[<$GAMEGOLD>]个
CALCVAR HUMAN 押注数量 = 0
SAVEVAR HUMAN 押注数量 ..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt
BREAK






#IF
CHECKVAR HUMAN 押注状态 = 成功
CHECKVAR HUMAN 押注类型 = 大
CHECKVAR HUMAN 押注数量 > 0
#ACT
CALCVAR HUMAN 押注总和 + <$HUMAN(押注数量)>
SAVEVAR HUMAN 押注总和 ..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt
SENDMSG 0 253 255  六六大顺：【<$username>】使用【<$HUMAN(押注数量)>】个元宝押【大】！
SENDMSG 7 六六大顺：恭喜你成功押注<$HUMAN(押注数量)>元宝押注[大]，当前元宝[<$GAMEGOLD>]个
CALCVAR HUMAN 押注数量 =  0
SAVEVAR HUMAN 押注数量 ..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt
BREAK


#IF
CHECKVAR HUMAN 押注状态 = 失败
CHECKVAR HUMAN 押注类型 = 大
#ACT

GAMEGOLD +  <$HUMAN(押注数量)>

CALCVAR HUMAN 押注类型 = 
SAVEVAR HUMAN 押注类型 ..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt

SENDMSG 7 六六大顺：很抱歉，本次押注[大]失败，返还[<$HUMAN(押注数量)>]个元宝，当前元宝[<$GAMEGOLD>]个

CALCVAR HUMAN 押注数量 = 0
SAVEVAR HUMAN 押注数量 ..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt
BREAK






#IF
CHECKVAR HUMAN 押注状态 = 成功
CHECKVAR HUMAN 押注类型 = 小
CHECKVAR HUMAN 押注数量 > 0
#ACT
CALCVAR HUMAN 押注总和 + <$HUMAN(押注数量)>
SAVEVAR HUMAN 押注总和 ..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt

SENDMSG 0 253 255  六六大顺：【<$username>】使用【<$HUMAN(押注数量)>】个元宝押[小]！
SENDMSG 7 六六大顺：恭喜你成功押注<$HUMAN(押注数量)>元宝押注[小]，当前元宝[<$GAMEGOLD>]个

CALCVAR HUMAN 押注数量 =  0
SAVEVAR HUMAN 押注数量 ..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt
BREAK


#IF
CHECKVAR HUMAN 押注状态 = 失败
CHECKVAR HUMAN 押注类型 = 小
#ACT

GAMEGOLD +  <$HUMAN(押注数量)>

CALCVAR HUMAN 押注类型 = 
SAVEVAR HUMAN 押注类型 ..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt

SENDMSG 7 六六大顺：很抱歉，本次押注[小]失败，返还[<$HUMAN(押注数量)>]个元宝，当前元宝[<$GAMEGOLD>]个

CALCVAR HUMAN 押注数量 = 0
SAVEVAR HUMAN 押注数量 ..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt
BREAK




;--------------------------------------------开奖处理--------------------------------------------未开奖的开完奖，设置成已开奖
#if
#act
LoadVar HUMAN 是否开奖	..\QuestDiary\官方QQ1063311911\个人变量\是否开奖.txt


#IF
CHECKVAR GLOBAL 押大数量 = 0
CHECKVAR GLOBAL 押小数量 = 0
CHECKVAR HUMAN 押注状态 = 成功
CHECKVAR HUMAN 押注类型 = 庄
CHECKVAR GLOBAL 娱乐状态 = 封盘时间
#ACT
GAMEGOLD +  <$HUMAN(押注总和)>
SENDMSG 7 由于没人押注，返还庄家[<$HUMAN(押注总和)>]个元宝

CALCVAR HUMAN 押注类型 = 
SAVEVAR HUMAN 押注类型	..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt

CALCVAR HUMAN 押注状态 = 
SAVEVAR HUMAN 押注状态	..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt

CALCVAR HUMAN 押注数量 = 0
SAVEVAR HUMAN 押注数量	..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt

CALCVAR HUMAN 押注总和 = 0
SAVEVAR HUMAN 押注总和	..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt

CALCVAR HUMAN 赢取金额 = 0
SAVEVAR HUMAN 赢取金额	..\QuestDiary\官方QQ1063311911\个人变量\赢取金额.txt

CALCVAR HUMAN 个人消息 = 
SAVEVAR HUMAN 个人消息	..\QuestDiary\官方QQ1063311911\个人变量\个人消息.txt

CALCVAR HUMAN 是否开奖 = 
SAVEVAR HUMAN 是否开奖	..\QuestDiary\官方QQ1063311911\个人变量\是否开奖.txt

BREAK


#if
CHECKVAR GLOBAL 娱乐计时 < 4
CHECKVAR GLOBAL 娱乐状态 = 开骰时间
CHECKVAR HUMAN 是否开奖 = 
#act
CALCVAR GLOBAL 开奖界面 = <Img:100:6:-450:350><PlayImg:6:110:4:800:-850:410:1:0><PlayImg:6:110:4:800:-820:410:1:0><PlayImg:6:110:4:800:-790:410:1:0>
SAVEVAR GLOBAL 开奖界面	..\QuestDiary\官方QQ1063311911\全局变量\开奖信息.txt
MOV M90 <$GLOBAL(开奖点一)>
MOV M91 <$GLOBAL(开奖点二)>
MOV M92 <$GLOBAL(开奖点三)>
DelayCall 2000 @开奖界面

MOV D0 <$STR(M90)>
MOV D1 <$STR(M91)>
MOV D2 <$STR(M92)>

CALCVAR HUMAN 是否开奖 = 开
SAVEVAR HUMAN 是否开奖 ..\QuestDiary\官方QQ1063311911\个人变量\是否开奖.txt
playdice 3 @派发奖励
goto @派发奖励



[@派发奖励]


#if
EQUAL <$STR(s$全服庄家开奖提示)> 开
#act
SENDMSG 0 六六大顺：[<$GLOBAL(区服名称)>◆<$GLOBAL(庄家名称)>]骰子掷出→[<$GLOBAL(开奖点一)>·<$GLOBAL(开奖点二)>·<$GLOBAL(开奖点三)>·<$GLOBAL(开奖结果)>]
mov <$STR(s$全服庄家开奖提示)> 


#IF
CHECKVAR HUMAN 押注数量 > 0
#ACT
GAMEGOLD +  <$HUMAN(押注数量)>

SENDMSG 6 由于网络原因，导致有[<$HUMAN(押注数量)>]个元宝押注失败，特此返还

CALCVAR HUMAN 押注数量 = 0
SAVEVAR HUMAN 押注数量 ..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt
MOV   <$STR(s$中庄提示)>



#if
CHECKVAR HUMAN 赢取金额 = 0
NOT CHECKVAR HUMAN 个人消息 =
#act
SENDMSG 7 <$HUMAN(个人消息)>


#if
LARGE   <$HUMAN(赢取金额)>  <$GLOBAL(庄家本钱)>
CHECKVAR HUMAN 押注状态 = 成功
CHECKVAR HUMAN 押注类型 = 庄
#act
GAMEGOLD +  <$HUMAN(赢取金额)>
SENDMSG 0  249 255 六六大顺：本局庄家【<$username>】赢得【<$HUMAN(赢取金额)>】元宝


#if
small    <$HUMAN(赢取金额)>  <$GLOBAL(庄家本钱)>
CHECKVAR HUMAN 押注状态 = 成功
CHECKVAR HUMAN 押注类型 = 庄
#act
GAMEGOLD + <$HUMAN(赢取金额)>
SENDMSG 0  249 255 六六大顺：本局庄家【<$username>】返还【<$HUMAN(赢取金额)>】元宝


#if
CHECKVAR HUMAN 赢取金额 > 0
CHECKVAR HUMAN 押注类型 = 大
#act
GAMEGOLD +  <$HUMAN(赢取金额)>
SENDMSG 0 六六大顺：恭喜玩家【<$username>】在六六大顺中赢得【<$HUMAN(赢取金额)>】元宝

#if
CHECKVAR HUMAN 赢取金额 > 0
CHECKVAR HUMAN 押注类型 = 小
#act
GAMEGOLD +  <$HUMAN(赢取金额)>
SENDMSG 0 六六大顺：恭喜玩家【<$username>】在六六大顺中赢得【<$HUMAN(赢取金额)>】元宝



;--------------------------------------------清空所有--------------------------------------------

#IF
CHECKLEVELEX > 0
#ACT
MOV   <$STR(s$中庄提示)>

CALCVAR HUMAN 押注类型 = 
SAVEVAR HUMAN 押注类型	..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt

CALCVAR HUMAN 押注状态 = 
SAVEVAR HUMAN 押注状态	..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt

CALCVAR HUMAN 押注数量 = 0
SAVEVAR HUMAN 押注数量	..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt

CALCVAR HUMAN 押注总和 = 0
SAVEVAR HUMAN 押注总和	..\QuestDiary\官方QQ1063311911\个人变量\下注数据.txt

CALCVAR HUMAN 赢取金额 = 0
SAVEVAR HUMAN 赢取金额	..\QuestDiary\官方QQ1063311911\个人变量\赢取金额.txt

CALCVAR HUMAN 个人消息 = 
SAVEVAR HUMAN 个人消息	..\QuestDiary\官方QQ1063311911\个人变量\个人消息.txt

CALCVAR HUMAN 是否开奖 = 
SAVEVAR HUMAN 是否开奖	..\QuestDiary\官方QQ1063311911\个人变量\是否开奖.txt

CALCVAR GLOBAL 面板消息 = 
SAVEVAR GLOBAL 面板消息	..\QuestDiary\官方QQ1063311911\全局变量\面板消息.txt


[@开奖界面]
#if
CHECKVAR GLOBAL 开奖点一 = 1
#ACT
MOV N$开奖骰子一 101
#if
CHECKVAR GLOBAL 开奖点一 = 2
#ACT
MOV N$开奖骰子一 102
#if
CHECKVAR GLOBAL 开奖点一 = 3
#ACT
MOV N$开奖骰子一 103
#if
CHECKVAR GLOBAL 开奖点一 = 4
#ACT
MOV N$开奖骰子一 104
#if
CHECKVAR GLOBAL 开奖点一 = 5
#ACT
MOV N$开奖骰子一 105
#if
CHECKVAR GLOBAL 开奖点一 = 6
#ACT
MOV N$开奖骰子一 106


#if
CHECKVAR GLOBAL 开奖点二 = 1
#ACT
MOV N$开奖骰子二 101
#if
CHECKVAR GLOBAL 开奖点二 = 2
#ACT
MOV N$开奖骰子二 102
#if
CHECKVAR GLOBAL 开奖点二 = 3
#ACT
MOV N$开奖骰子二 103
#if
CHECKVAR GLOBAL 开奖点二 = 4
#ACT
MOV N$开奖骰子二 104
#if
CHECKVAR GLOBAL 开奖点二 = 5
#ACT
MOV N$开奖骰子二 105
#if
CHECKVAR GLOBAL 开奖点二 = 6
#ACT
MOV N$开奖骰子二 106

#if
CHECKVAR GLOBAL 开奖点三 = 1
#ACT
MOV N$开奖骰子三 101
#if
CHECKVAR GLOBAL 开奖点三 = 2
#ACT
MOV N$开奖骰子三 102
#if
CHECKVAR GLOBAL 开奖点三 = 3
#ACT
MOV N$开奖骰子三 103
#if
CHECKVAR GLOBAL 开奖点三 = 4
#ACT
MOV N$开奖骰子三 104
#if
CHECKVAR GLOBAL 开奖点三 = 5
#ACT
MOV N$开奖骰子三 105
#if
CHECKVAR GLOBAL 开奖点三 = 6
#ACT
MOV N$开奖骰子三 106



#if
#act
CALCVAR GLOBAL 开奖界面 = <Img:100:6:-450:350><Img:<$STR(N$开奖骰子一)>:6:-840:420><Img:<$STR(N$开奖骰子二)>:6:-790:420><Img:<$STR(N$开奖骰子三)>:6:-740:420>
SAVEVAR GLOBAL 开奖界面	..\QuestDiary\官方QQ1063311911\全局变量\开奖信息.txt

;--------------------------------------------假人胖妞段----------------------------------------------------------------------------------------------
