(@@InPutString @@InPutInteger)
[@牛牛]
{
#IF
CHECKVAR GLOBAL $牛牛运行标记 = 0
#ACT
ClearDelayGoto 0
MessageBox 当前斗牛程序未开启，无法进行斗牛．请联系管理员．
close
BREAK
#ELSEACT
GOTO @牛牛初始化
[@牛牛初始化]
;----------------------------------------------------------------------------
;人物离开一定范围外.取消刷新
;----------------------------------------------------------------------------
#IF
CheckHumInRange 3 352 322 7
#ELSEACT
SENDMSG 6 你离斗牛NPC超过的7格范围,取消刷新!
ClearDelayGoto 0
close
break
#IF
CHECKVAR GLOBAL $牛牛时间点 < 7
#ACT
ClearDelayGoto 0
Goto @牛牛结算
BREAK
;----------------------------------------------------------------------------
;使时间显示操持二位数
;----------------------------------------------------------------------------
#IF
CHECKVAR GLOBAL $牛牛时间显示 < 10
#ACT
MOV S21 0
INC S21 <$GLOBAL($牛牛时间显示)>
#ELSEACT
MOV S21 <$GLOBAL($牛牛时间显示)>
;----------------------------------------------------------------------------
;四家牛牌数据
;----------------------------------------------------------------------------
#IF
EQUAL M46 1
#ACT
MOV S22 <
INC S22 Img:
INC S22 <$GLOBAL($牛牛庄家牌1)>
INC S22 :0:5:-300
INC S22 >
#IF
EQUAL M46 5
#ACT
MOV S23 <
INC S23 Img:
INC S23 <$GLOBAL($牛牛庄家牌2)>
INC S23 :0:5:-316
INC S23 >
#IF
EQUAL M46 9
#ACT
MOV S24 <
INC S24 Img:
INC S24 <$GLOBAL($牛牛庄家牌3)>
INC S24 :0:5:-332
INC S24 >
#IF
EQUAL M46 13
#ACT
MOV S25 <
INC S25 Img:
;INC S25 <$GLOBAL($牛牛庄家牌4)>
INC S25 30
INC S25 :0:5:-348
INC S25 >
#IF
EQUAL M46 17
#ACT
MOV S26 <
INC S26 Img:
INC S26 <$GLOBAL($牛牛庄家牌5)>
INC S26 :0:5:-364
INC S26 >
;--------------------------------------------------------------------
#IF
EQUAL M46 2
#ACT
MOV S27 <
INC S27 Img:
INC S27 <$GLOBAL($牛牛顺门牌1)>
INC S27 :0:-18:-266
INC S27 >
#IF
EQUAL M46 6
#ACT
MOV S28 <
INC S28 Img:
INC S28 <$GLOBAL($牛牛顺门牌2)>
INC S28 :0:-18:-282
INC S28 >
#IF
EQUAL M46 10
#ACT
MOV S29 <
INC S29 Img:
INC S29 <$GLOBAL($牛牛顺门牌3)>
INC S29 :0:-18:-298
INC S29 >
#IF
EQUAL M46 14
#ACT
MOV S30 <
INC S30 Img:
;INC S30 <$GLOBAL($牛牛顺门牌4)>
INC S30 30
INC S30 :0:-18:-314
INC S30 >
#IF
EQUAL M46 18
#ACT
MOV S31 <
INC S31 Img:
INC S31 <$GLOBAL($牛牛顺门牌5)>
INC S31 :0:-18:-330
INC S31 >
;--------------------------------------------------------------------
#IF
EQUAL M46 3
#ACT
MOV S32 <
INC S32 Img:
INC S32 <$GLOBAL($牛牛天门牌1)>
INC S32 :0:5:-265
INC S32 >
#IF
EQUAL M46 7
#ACT
MOV S33 <
INC S33 Img:
INC S33 <$GLOBAL($牛牛天门牌2)>
INC S33 :0:5:-281
INC S33 >
#IF
EQUAL M46 11
#ACT
MOV S34 <
INC S34 Img:
INC S34 <$GLOBAL($牛牛天门牌3)>
INC S34 :0:5:-297
INC S34 >
#IF
EQUAL M46 15
#ACT
MOV S35 <
INC S35 Img:
;INC S35 <$GLOBAL($牛牛天门牌4)>
INC S35 30
INC S35 :0:5:-313
INC S35 >
#IF
EQUAL M46 19
#ACT
MOV S36 <
INC S36 Img:
INC S36 <$GLOBAL($牛牛天门牌5)>
INC S36 :0:5:-329
INC S36 >
;--------------------------------------------------------------------
#IF
EQUAL M46 4
#ACT
MOV S37 <
INC S37 Img:
INC S37 <$GLOBAL($牛牛反门牌1)>
INC S37 :0:5:-425
INC S37 >
#IF
EQUAL M46 8
#ACT
MOV S38 <
INC S38 Img:
INC S38 <$GLOBAL($牛牛反门牌2)>
INC S38 :0:5:-441
INC S38 >
#IF
EQUAL M46 12
#ACT
MOV S39 <
INC S39 Img:
INC S39 <$GLOBAL($牛牛反门牌3)>
INC S39 :0:5:-457
INC S39 >
#IF
EQUAL M46 16
#ACT
MOV S40 <
INC S40 Img:
;INC S40 <$GLOBAL($牛牛反门牌4)>
INC S40 30
INC S40 :0:5:-473
INC S40 >
#IF
EQUAL M46 20
#ACT
MOV S41 <
INC S41 Img:
INC S41 <$GLOBAL($牛牛反门牌5)>
INC S41 :0:5:-489
INC S41 >
;----------------------------------------------------------------------------
;----------------------------------------------------------------------------
;四家牛牌数据:开第4张牌
;----------------------------------------------------------------------------
;----------------------------------------------------------------------------
#IF
SMALL M47 10
LARGE M47 1
#ACT
MOV S30 <
INC S30 Img:
INC S30 <$GLOBAL($牛牛顺门牌4)>
INC S30 :0:-18:-314
INC S30 >
MOV M51 <$STR(M47)>
MUL M51 <$STR(M51)> 2
MOV M52 18
DEC M52 <$STR(M51)>
MOV S31 <
INC S31 Img:
INC S31 <$GLOBAL($牛牛顺门牌5)>
INC S31 :0:-
INC S31 <$STR(M52)>
INC S31 :-330
INC S31 >
MOV S55 <
INC S55 Img:203
INC S55 :0:-18:-615
INC S55 >
;--------------顺门有牛---------------------
#IF
EQUAL M47 13
CHECKVAR GLOBAL $牛牛顺门牛头 > 0
#ACT
PlayMusic 算牛.wav
MOV S55
MOV S27 <
INC S27 Img:
INC S27 <$GLOBAL($牛牛顺门牌二1)>
INC S27 :0:-18:-266
INC S27 >
MOV S28 <
INC S28 Img:
INC S28 <$GLOBAL($牛牛顺门牌二2)>
INC S28 :0:-23:-282
INC S28 >
MOV S29 <
INC S29 Img:
INC S29 <$GLOBAL($牛牛顺门牌二3)>
INC S29 :0:-28:-298
INC S29 >
MOV S30 <
INC S30 Img:
INC S30 <$GLOBAL($牛牛顺门牌二4)>
INC S30 :0:-18:-314
INC S30 >
MOV S31 <
INC S31 Img:
INC S31 <$GLOBAL($牛牛顺门牌二5)>
INC S31 :0:-18:-330
INC S31 >
MOV M43 <$GLOBAL($牛牛顺门牛头)>
INC M43 188
MOV S43 <
INC S43 Img:
INC S43 <$STR(M43)>
INC S43 :0:5:-468
INC S43 >
;--------------顺门没牛---------------------
#IF
EQUAL M47 13
CHECKVAR GLOBAL $牛牛顺门牛头 = 0
#ACT
PlayMusic 算牛.wav
MOV S55
MOV S27 <
INC S27 Img:
INC S27 <$GLOBAL($牛牛顺门牌1)>
INC S27 :0:-18:-266
INC S27 >
MOV S28 <
INC S28 Img:
INC S28 <$GLOBAL($牛牛顺门牌2)>
INC S28 :0:-18:-282
INC S28 >
MOV S29 <
INC S29 Img:
INC S29 <$GLOBAL($牛牛顺门牌3)>
INC S29 :0:-18:-298
INC S29 >
MOV S30 <
INC S30 Img:
INC S30 <$GLOBAL($牛牛顺门牌4)>
INC S30 :0:-18:-314
INC S30 >
MOV S31 <
INC S31 Img:
INC S31 <$GLOBAL($牛牛顺门牌5)>
INC S31 :0:-18:-330
INC S31 >
MOV M43 <$GLOBAL($牛牛顺门牛头)>
INC M43 188
MOV S43 <
INC S43 Img:
INC S43 <$STR(M43)>
INC S43 :0:5:-468
INC S43 >
#IF
EQUAL M47 14
#ACT
MOV S49 Niu
INC S49 <$GLOBAL($牛牛顺门牛头)>
INC S49 Girl.wav
PlayMusic <$STR(S49)>
;-------------------------------------------------------------------------------
;-------------------------------------------------------------------------------
#IF
SMALL M48 10
LARGE M48 1
#ACT
MOV S35 <
INC S35 Img:
INC S35 <$GLOBAL($牛牛天门牌4)>
INC S35 :0:5:-313
INC S35 >
MOV M51 <$STR(M48)>
MUL M51 <$STR(M51)> 2
MOV M52 5
INC M52 <$STR(M51)>
MOV S36 <
INC S36 Img:
INC S36 <$GLOBAL($牛牛天门牌5)>
INC S36 :0:
INC S36 <$STR(M52)>
INC S36 :-329
INC S36 >
MOV S55 <
INC S55 Img:203
INC S55 :0:161:-535
INC S55 >
;--------------天门有牛---------------------
#IF
EQUAL M48 13
CHECKVAR GLOBAL $牛牛天门牛头 > 0
#ACT
PlayMusic 算牛.wav
MOV S55
MOV S32 <
INC S32 Img:
INC S32 <$GLOBAL($牛牛天门牌二1)>
INC S32 :0:5:-265
INC S32 >
MOV S33 <
INC S33 Img:
INC S33 <$GLOBAL($牛牛天门牌二2)>
INC S33 :0:0:-281
INC S33 >
MOV S34 <
INC S34 Img:
INC S34 <$GLOBAL($牛牛天门牌二3)>
INC S34 :0:-5:-297
INC S34 >
MOV S35 <
INC S35 Img:
INC S35 <$GLOBAL($牛牛天门牌二4)>
INC S35 :0:5:-313
INC S35 >
MOV S36 <
INC S36 Img:
INC S36 <$GLOBAL($牛牛天门牌二5)>
INC S36 :0:5:-329
INC S36 >
MOV M44 <$GLOBAL($牛牛天门牛头)>
INC M44 188
MOV S44 <
INC S44 Img:
INC S44 <$STR(M44)>
INC S44 :0:5:-404
INC S44 >
;--------------天门没牛---------------------
#IF
EQUAL M48 13
CHECKVAR GLOBAL $牛牛天门牛头 = 0
#ACT
PlayMusic 算牛.wav
MOV S55
MOV S32 <
INC S32 Img:
INC S32 <$GLOBAL($牛牛天门牌1)>
INC S32 :0:5:-265
INC S32 >
MOV S33 <
INC S33 Img:
INC S33 <$GLOBAL($牛牛天门牌2)>
INC S33 :0:5:-281
INC S33 >
MOV S34 <
INC S34 Img:
INC S34 <$GLOBAL($牛牛天门牌3)>
INC S34 :0:5:-297
INC S34 >
MOV S35 <
INC S35 Img:
INC S35 <$GLOBAL($牛牛天门牌4)>
INC S35 :0:5:-313
INC S35 >
MOV S36 <
INC S36 Img:
INC S36 <$GLOBAL($牛牛天门牌5)>
INC S36 :0:5:-329
INC S36 >
MOV M44 <$GLOBAL($牛牛天门牛头)>
INC M44 188
MOV S44 <
INC S44 Img:
INC S44 <$STR(M44)>
INC S44 :0:5:-404
INC S44 >
#IF
EQUAL M48 14
#ACT
MOV S49 Niu
INC S49 <$GLOBAL($牛牛天门牛头)>
INC S49 Girl.wav
PlayMusic <$STR(S49)>
;-------------------------------------------------------------------------------
;-------------------------------------------------------------------------------
#IF
SMALL M49 10
LARGE M49 1
#ACT
MOV S40 <
INC S40 Img:
INC S40 <$GLOBAL($牛牛反门牌4)>
INC S40 :0:5:-473
INC S40 >
MOV M51 <$STR(M49)>
MUL M51 <$STR(M51)> 2
MOV M52 5
INC M52 <$STR(M51)>
MOV S41 <
INC S41 Img:
INC S41 <$GLOBAL($牛牛反门牌5)>
INC S41 :0:
INC S41 <$STR(M52)>
INC S41 :-489
INC S41 >
MOV S55 <
INC S55 Img:203
INC S55 :0:341:-614
INC S55 >
;--------------反门有牛---------------------
#IF
EQUAL M49 13
CHECKVAR GLOBAL $牛牛反门牛头 > 0
#ACT
PlayMusic 算牛.wav
MOV S55
MOV S37 <
INC S37 Img:
INC S37 <$GLOBAL($牛牛反门牌二1)>
INC S37 :0:5:-425
INC S37 >
MOV S38 <
INC S38 Img:
INC S38 <$GLOBAL($牛牛反门牌二2)>
INC S38 :0:0:-441
INC S38 >
MOV S39 <
INC S39 Img:
INC S39 <$GLOBAL($牛牛反门牌二3)>
INC S39 :0:-5:-457
INC S39 >
MOV S40 <
INC S40 Img:
INC S40 <$GLOBAL($牛牛反门牌二4)>
INC S40 :0:5:-473
INC S40 >
MOV S41 <
INC S41 Img:
INC S41 <$GLOBAL($牛牛反门牌二5)>
INC S41 :0:5:-489
INC S41 >
MOV M45 <$GLOBAL($牛牛反门牛头)>
INC M45 188
MOV S45 <
INC S45 Img:
INC S45 <$STR(M45)>
INC S45 :0:5:-500
INC S45 >
;--------------反门没牛---------------------
#IF
EQUAL M49 13
CHECKVAR GLOBAL $牛牛反门牛头 = 0
#ACT
PlayMusic 算牛.wav
MOV S55
MOV S37 <
INC S37 Img:
INC S37 <$GLOBAL($牛牛反门牌1)>
INC S37 :0:5:-425
INC S37 >
MOV S38 <
INC S38 Img:
INC S38 <$GLOBAL($牛牛反门牌2)>
INC S38 :0:5:-441
INC S38 >
MOV S39 <
INC S39 Img:
INC S39 <$GLOBAL($牛牛反门牌3)>
INC S39 :0:5:-457
INC S39 >
MOV S40 <
INC S40 Img:
INC S40 <$GLOBAL($牛牛反门牌4)>
INC S40 :0:5:-473
INC S40 >
MOV S41 <
INC S41 Img:
INC S41 <$GLOBAL($牛牛反门牌5)>
INC S41 :0:5:-489
INC S41 >
MOV M45 <$GLOBAL($牛牛反门牛头)>
INC M45 188
MOV S45 <
INC S45 Img:
INC S45 <$STR(M45)>
INC S45 :0:5:-500
INC S45 >
#IF
EQUAL M49 14
#ACT
MOV S49 Niu
INC S49 <$GLOBAL($牛牛反门牛头)>
INC S49 Girl.wav
PlayMusic <$STR(S49)>
;-------------------------------------------------------------------------------
;-------------------------------------------------------------------------------
#IF
SMALL M50 10
LARGE M50 1
#ACT
MOV S25 <
INC S25 Img:
INC S25 <$GLOBAL($牛牛庄家牌4)>
INC S25 :0:5:-348
INC S25 >
MOV M51 <$STR(M50)>
MUL M51 <$STR(M51)> 2
MOV M52 5
INC M52 <$STR(M51)>
MOV S26 <
INC S26 Img:
INC S26 <$GLOBAL($牛牛庄家牌5)>
INC S26 :0:
INC S26 <$STR(M52)>
INC S26 :-364
INC S26 >
MOV S55 <
INC S55 Img:203
INC S55 :0:161:-730
INC S55 >
;--------------庄家有牛---------------------
#IF
EQUAL M50 13
CHECKVAR GLOBAL $牛牛庄家牛头 > 0
#ACT
PlayMusic 算牛.wav
MOV S55
MOV S22 <
INC S22 Img:
INC S22 <$GLOBAL($牛牛庄家牌二1)>
INC S22 :0:5:-300
INC S22 >
MOV S23 <
INC S23 Img:
INC S23 <$GLOBAL($牛牛庄家牌二2)>
INC S23 :0:0:-316
INC S23 >
MOV S24 <
INC S24 Img:
INC S24 <$GLOBAL($牛牛庄家牌二3)>
INC S24 :0:-5:-332
INC S24 >
MOV S25 <
INC S25 Img:
INC S25 <$GLOBAL($牛牛庄家牌二4)>
INC S25 :0:5:-348
INC S25 >
MOV S26 <
INC S26 Img:
INC S26 <$GLOBAL($牛牛庄家牌二5)>
INC S26 :0:5:-364
INC S26 >
MOV M42 <$GLOBAL($牛牛庄家牛头)>
INC M42 188
MOV S42 <
INC S42 Img:
INC S42 <$STR(M42)>
INC S42 :0:5:-567
INC S42 >
;--------------庄家没牛---------------------
#IF
EQUAL M50 13
CHECKVAR GLOBAL $牛牛庄家牛头 = 0
#ACT
PlayMusic 算牛.wav
MOV S55
MOV S22 <
INC S22 Img:
INC S22 <$GLOBAL($牛牛庄家牌1)>
INC S22 :0:5:-300
INC S22 >
MOV S23 <
INC S23 Img:
INC S23 <$GLOBAL($牛牛庄家牌2)>
INC S23 :0:5:-316
INC S23 >
MOV S24 <
INC S24 Img:
INC S24 <$GLOBAL($牛牛庄家牌3)>
INC S24 :0:5:-332
INC S24 >
MOV S25 <
INC S25 Img:
INC S25 <$GLOBAL($牛牛庄家牌4)>
INC S25 :0:5:-348
INC S25 >
MOV S26 <
INC S26 Img:
INC S26 <$GLOBAL($牛牛庄家牌5)>
INC S26 :0:5:-364
INC S26 >
MOV M42 <$GLOBAL($牛牛庄家牛头)>
INC M42 188
MOV S42 <
INC S42 Img:
INC S42 <$STR(M42)>
INC S42 :0:5:-567
INC S42 >
#IF
EQUAL M50 14
#ACT
MOV S49 Niu
INC S49 <$GLOBAL($牛牛庄家牛头)>
INC S49 Man.wav
PlayMusic <$STR(S49)>
;----------------------------------------------------------------------------
;----------------------------------------------------------------------------
;----------------------------------------------------------------------------
;----------------------------------------------------------------------------
;----------------------------------------------------------------------------
;----------------------------------------------------------------------------
;四家牛牌数据:判定赢输
;----------------------------------------------------------------------------
;----------------------------------------------------------------------------
;----------------------------------------------------------------------------
#IF
CHECKVAR GLOBAL $牛牛时间点 > 5
CHECKVAR GLOBAL $牛牛时间点 < 9
CHECKVAR GLOBAL $牛牛顺门赢输 = WIN
#ACT
MOV S46 <
INC S46 Img:
INC S46 202
INC S46 :0:-23:-575
INC S46 >
#IF
CHECKVAR GLOBAL $牛牛时间点 > 5
CHECKVAR GLOBAL $牛牛时间点 < 9
CHECKVAR GLOBAL $牛牛顺门赢输 = LOSE
#ACT
MOV S46 <
INC S46 Img:
INC S46 201
INC S46 :0:-23:-575
INC S46 >
#IF
CHECKVAR GLOBAL $牛牛时间点 > 5
CHECKVAR GLOBAL $牛牛时间点 < 9
CHECKVAR GLOBAL $牛牛天门赢输 = WIN
#ACT
MOV S47 <
INC S47 Img:
INC S47 202
INC S47 :0:-1:-510
INC S47 >
#IF
CHECKVAR GLOBAL $牛牛时间点 > 5
CHECKVAR GLOBAL $牛牛时间点 < 9
CHECKVAR GLOBAL $牛牛天门赢输 = LOSE
#ACT
MOV S47 <
INC S47 Img:
INC S47 201
INC S47 :0:-1:-510
INC S47 >
#IF
CHECKVAR GLOBAL $牛牛时间点 > 5
CHECKVAR GLOBAL $牛牛时间点 < 9
CHECKVAR GLOBAL $牛牛反门赢输 = WIN
#ACT
MOV S48 <
INC S48 Img:
INC S48 202
INC S48 :0:11:-607
INC S48 >
#IF
CHECKVAR GLOBAL $牛牛时间点 > 5
CHECKVAR GLOBAL $牛牛时间点 < 9
CHECKVAR GLOBAL $牛牛反门赢输 = LOSE
#ACT
MOV S48 <
INC S48 Img:
INC S48 201
INC S48 :0:11:-607
INC S48 >
;--------------------------------------------------------------------
#IF
CHECKVAR GLOBAL $牛牛时间点 > 35
#ACT
MOV S22
MOV S23
MOV S24
MOV S25
MOV S26
MOV S27
MOV S28
MOV S29
MOV S30
MOV S31
MOV S32
MOV S33
MOV S34
MOV S35
MOV S36
MOV S37
MOV S38
MOV S39
MOV S40
MOV S41
MOV S42
MOV S43
MOV S44
MOV S45
MOV S46
MOV S47
MOV S48
MOV S49
MOV S55
MOV M42 0
MOV M43 0
MOV M44 0
MOV M45 0
MOV M46 0
MOV M47 0
MOV M48 0
MOV M49 0
MOV M50 0
MOV M51 0
MOV M52 0
#IF
CHECKVAR GLOBAL $牛牛时间文字 = 下注时间
#ACT
MOV S50 <
INC S50 Img:
INC S50 185
INC S50 :0:0:0/@牛牛下注顺门
INC S50 >
MOV S52 <
INC S52 Img:
INC S52 186
INC S52 :0:0:80/@牛牛下注天门
INC S52 >
MOV S51 <
INC S51 Img:
INC S51 187
INC S51 :0:0:0/@牛牛下注反门
INC S51 >
#ELSEACT
MOV S50
MOV S51
MOV S52
;----------------------------------------------------------------------------
;调试
;----------------------------------------------------------------------------
;#IF
;CHECKVAR GLOBAL $牛牛顺门牛头 > 0
;#ACT
#IF
CHECKVAR GLOBAL $牛牛时间文字 = 空闲时间
CHECKVAR GLOBAL $牛牛庄家姓名 = $位置空缺
#ACT
MOV S53 <
INC S53 Img:
INC S53 182
INC S53 :0:-2:20/@@InPutInteger12
INC S53 >
#IF
CHECKVAR GLOBAL $牛牛时间文字 = 空闲时间
#ACT
MOV S54 <
INC S54 Img:
INC S54 183
INC S54 :0:0:20/@牛牛下庄
INC S54 >
#IF
CHECKLEVELEX > 0
#ACT
MOV S56 <Img:206:0:-2:56
INC S56 /@10Unit>
MOV S57 <Img:208:0:-2:56
INC S57 /@50Unit>
MOV S58 <Img:210:0:-2:56
INC S58 /@100Unit>
MOV S59 <Img:212:0:-2:64
INC S59 /@500Unit>
MOV S60 <Img:214:0:-2:64
INC S60 /@1000Unit>
MOV S61 <Img:216:0:-2:64
INC S61 /@5000Unit>
#IF
EQUAL M60 10
#ACT
MOV S56 <Img:207:0:-2:56
INC S56 /@10Unit>
#IF
EQUAL M60 50
#ACT
MOV S57 <Img:209:0:-2:56
INC S57 /@50Unit>
#IF
EQUAL M60 100
#ACT
MOV S58 <Img:211:0:-2:56
INC S58 /@100Unit>
#IF
EQUAL M60 500
#ACT
MOV S59 <Img:213:0:-2:64
INC S59 /@500Unit>
#IF
EQUAL M60 1000
#ACT
MOV S60 <Img:215:0:-2:64
INC S60 /@1000Unit>
#IF
EQUAL M60 5000
#ACT
MOV S61 <Img:217:0:-2:64
INC S61 /@5000Unit>
#IF
CHECKVAR GLOBAL $牛牛押注全部总额 > <$STR(M53)>
#ACT
PlayMusic 扔筹码.wav
MOV M53 <$GLOBAL($牛牛押注全部总额)>
#IF
CHECKVAR GLOBAL $牛牛时间文字 = 空闲时间
CHECKVAR GLOBAL $抢庄标记 = 1
;CHECKVAR GLOBAL $牛牛庄家本钱 > 0
#ACT
MOV S20 <
INC S20 Img:
INC S20 252
INC S20 :0:0:30/@@InPutInteger13
INC S20 >
#IF
CHECKVAR GLOBAL $牛牛庄家姓名 = $位置空缺
#ACT
MOV S20
#IF
CHECKVAR GLOBAL $牛牛时间文字 = 空闲时间
#ELSEACT
MOV S20
#IF
CHECKLEVELEX > 0
#ACT
;SENDMSG 6 牛牛押注全部总额:<$GLOBAL($牛牛押注全部总额)>---M53:<$STR(M53)>
GOTO @牛牛主界面
;----------------------------------------------------------------------------
;牛牛主界面
;----------------------------------------------------------------------------
[@牛牛主界面]
#IF
CHECKLEVELEX > 0
#ACT
OpenBigDialogBox 47
#SAY
<庄家名字: /SCOLOR=89><$GLOBAL($牛牛庄家姓名)>\
<$STR(S21)> <$GLOBAL($牛牛时间文字)> <庄家元宝: /SCOLOR=89><$GLOBAL($牛牛庄家本钱)>< 个/SCOLOR=89>\
<$STR(S53)><$STR(S54)>\
<押顺门总注: /SCOLOR=146><$GLOBAL($牛牛押顺门总额)>< 元宝/SCOLOR=146>\
<押天门总注: /SCOLOR=146><$GLOBAL($牛牛押天门总额)>< 元宝/SCOLOR=146>\
<押反门总注: /SCOLOR=146><$GLOBAL($牛牛押反门总额)>< 元宝/SCOLOR=146>\
<押注总额: /SCOLOR=146><$GLOBAL($牛牛押注全部总额)>< 元宝/SCOLOR=146> <$STR(S20)>\
<Img:251:0:-2:-30/@斗牛规则><Img:184:0:0:-30/@EXIT>\
<$STR(A50)>\
<$STR(A51)>\
<$STR(A52)>\
<$STR(S56)> <$STR(S57)> <$STR(S58)>\
<$STR(S50)> <$STR(S52)> <$STR(S51)>\
<$STR(S59)> <$STR(S60)> <$STR(S61)>\
<【可动用元宝】:/SCOLOR=89><$GAMEGOLD><个/SCOLOR=89>\
<【冻结元宝】:/SCOLOR=58><$HUMAN(NiuNiuFreeze)><个/SCOLOR=58>\
<您押顺门: /SCOLOR=89><$HUMAN(NiuNiuBetR)>< 元宝/SCOLOR=89>\
<您押天门: /SCOLOR=89><$HUMAN(NiuNiuBetM)>< 元宝/SCOLOR=89>\
<您押反门: /SCOLOR=89><$HUMAN(NiuNiuBetL)>< 元宝/SCOLOR=89>\
<$STR(S22)>\
<$STR(S23)>\
<$STR(S24)>\
<$STR(S25)>\
<$STR(S26)>\
<$STR(S27)>\
<$STR(S28)>\
<$STR(S29)>\
<$STR(S30)>\
<$STR(S31)>\
<$STR(S32)>\
<$STR(S33)>\
<$STR(S34)>\
<$STR(S35)>\
<$STR(S36)>\
<$STR(S37)>\
<$STR(S38)>\
<$STR(S39)>\
<$STR(S40)>\
<$STR(S41)>\
<$STR(S42)>\
<$STR(S43)>\
<$STR(S44)>\
<$STR(S45)>\
<$STR(S46)>\
<$STR(S47)>\
<$STR(S48)>\
<$STR(S55)>\
;----------------------------------------------------------------------------
;NPC自动刷新
;----------------------------------------------------------------------------
#IF
CHECKLEVELEX > 0
#ACT
DelayCall 500 @牛牛
#IF
CHECKVAR GLOBAL $牛牛时间文字 = 空闲时间
CHECKVAR GLOBAL $牛牛时间显示 = 1
#ACT
ClearDelayGoto 0
DelayCall 1000 @牛牛
PlayMusic 游戏开始.wav
#IF
CHECKVAR GLOBAL $牛牛时间点 < 35
EQUAL M46 1
#ACT
PlayMusic 发牌20次.wav
;四家发牌动画
#IF
CHECKVAR GLOBAL $牛牛时间点 > 5
CHECKVAR GLOBAL $牛牛时间点 < 35
SMALL M46 21
#ACT
ClearDelayGoto 0
DelayCall 210 @牛牛
INC M46 1
;顺门开牌动画
#IF
CHECKVAR GLOBAL $牛牛时间点 > 5
CHECKVAR GLOBAL $牛牛时间点 < 29
SMALL M47 21
LARGE M46 20
#ACT
ClearDelayGoto 0
DelayCall 210 @牛牛
INC M47 1
;天门开牌动画
#IF
CHECKVAR GLOBAL $牛牛时间点 > 5
CHECKVAR GLOBAL $牛牛时间点 < 29
SMALL M48 21
LARGE M47 20
#ACT
;sendmsg 6 M48:<$STR(M48)>
ClearDelayGoto 0
DelayCall 210 @牛牛
INC M48 1
;反门开牌动画
#IF
CHECKVAR GLOBAL $牛牛时间点 > 5
CHECKVAR GLOBAL $牛牛时间点 < 29
SMALL M49 21
LARGE M48 20
#ACT
ClearDelayGoto 0
DelayCall 210 @牛牛
INC M49 1
;庄家开牌动画
#IF
CHECKVAR GLOBAL $牛牛时间点 > 5
CHECKVAR GLOBAL $牛牛时间点 < 29
SMALL M50 21
LARGE M49 20
#ACT
ClearDelayGoto 0
DelayCall 210 @牛牛
INC M50 1
;----------------------------------------------------------------------------
;NPC停止刷新
;----------------------------------------------------------------------------
[@exit]
#act
ClearDelayGoto 0
CloseBigDialogBox
break
;-------------------------------------------------------------------------------------------
;-------------------------------------------------------------------------------------------
;我要坐庄
;-------------------------------------------------------------------------------------------
;-------------------------------------------------------------------------------------------
[@@InPutInteger12]
#IF
CHECKVAR GLOBAL $牛牛时间文字 = 空闲时间
#ELSEACT
MESSAGEBOX [提示]：目前不能坐庄，请【空闲时间】段【坐庄】或【抢庄】。
break
#IF
CHECKVAR GLOBAL $牛牛庄家姓名 = <$USERNAME>
#ACT
MESSAGEBOX [提示]：不能重复坐庄，请先收回元宝。
MOV N12 0
DelayCall 200 @牛牛
break
#IF
CHECKVAR GLOBAL $牛牛庄家姓名 = $位置空缺
#ELSEACT
MESSAGEBOX [提示]：已经有人坐庄,请在【空闲时间】段选择【抢庄】。
MOV N12 0
DelayCall 200 @牛牛
break
#IF
#ACT
DelayCall 200 ~InPutInteger12
break
[~InPutInteger12]
#IF
SMALL N12 <$GLOBAL($最低坐庄数)>
#ACT
MESSAGEBOX [提示]：坐庄最少要【<$GLOBAL($最低坐庄数)>】元宝。
MOV N12 0
DelayCall 200 @牛牛
break
#IF
LARGE N12 50000000
#ACT
MESSAGEBOX [提示]：押注不能超过5000W元宝。
MOV N12 0
DelayCall 200 @牛牛
break
#IF
CHECKGAMEGOLD < <$STR(N12)>
#ACT
MOV N12 0
MESSAGEBOX [提示]：你身上的元宝不足，不能坐庄。
DelayCall 200 @牛牛
break
#IF
CHECKVAR GLOBAL $牛牛庄家姓名 = $位置空缺
#ACT
CALCVAR GLOBAL $牛牛庄家姓名 = <$USERNAME>
CALCVAR GLOBAL $牛牛庄家本钱 = <$STR(N12)>
gamegold + <$STR(N12)>
SendCenterMsg 146 252 玩家【%S】掏出<$STR(N12)>元宝喊道：“小弟不才，啥都没有，就是有钱！在此坐庄斗牛，有本事的来拿！” 1
MESSAGEBOX 您已经【坐庄成功】,以下是坐庄注意事项：\ \1、成功坐庄后不可以小退或离线。\2、【空闲时间】段选择【下庄】自动结算元宝。
SENDMSG 7 [提示]：您使用<$GLOBAL($牛牛庄家本钱)>个元宝成功坐庄。
SENDMSG 7 [提示]：您已成为牛牛庄家，请等待玩家下注。
ADDNAMELIST ..\QuestDiary\16sky.com\牛牛\当局参与名单.txt
DelayCall 200 @牛牛
break
;-------------------------------------------------------------------------------------------
;-------------------------------------------------------------------------------------------
;斗牛抢庄
;-------------------------------------------------------------------------------------------
;-------------------------------------------------------------------------------------------
[@@InPutInteger13]
#IF
CHECKVAR GLOBAL $牛牛庄家姓名 = <$USERNAME>
#ACT
MESSAGEBOX [抢庄失败]：\ \不能重复坐庄，请先【下庄】。
MOV N13 0
DelayCall 200 @牛牛
break
#IF
#ACT
DelayCall 200 ~InPutInteger13
break
[~InPutInteger13]
#IF
CHECKVAR GLOBAL $牛牛时间文字 = 空闲时间
#ELSEACT
MESSAGEBOX [抢庄失败]：\ \目前不能坐庄，请【空闲时间】段【抢庄】。
DelayCall 200 @牛牛
break
#IF
CHECKGAMEGOLD < <$STR(N13)>
#ACT
MOV N13 0
MESSAGEBOX [抢庄失败]：\ \你身上的元宝不足，不能抢庄。
DelayCall 200 @牛牛
break
#IF
LARGE N13 50000000
#ACT
MESSAGEBOX [抢庄失败]：\ \抢庄元宝不能超过5000W元宝。
MOV N13 0
DelayCall 200 @牛牛
break
#IF
SMALL N13 <$GLOBAL($牛牛庄家本钱)>
#ACT
MESSAGEBOX [抢庄失败]：\ \您抢庄的元宝数低于当前庄家本钱:【<$GLOBAL($牛牛庄家本钱)>】元宝。
MOV N13 0
DelayCall 200 @牛牛
break
#IF
CHECKVAR GLOBAL $牛牛庄家姓名 = $位置空缺
#ACT
CALCVAR GLOBAL $牛牛庄家姓名 = <$USERNAME>
CALCVAR GLOBAL $牛牛庄家本钱 = <$STR(N13)>
gamegold + <$STR(N13)>
CALCVAR GLOBAL $牛牛时间点 = 65
SendCenterMsg 146 252 玩家【%S】使用<$STR(N13)>元宝抢庄成功,并喊道：“小弟不才，啥都没有，就是有钱！在此坐庄斗牛，有本事的来拿！” 1
MESSAGEBOX 【抢庄成功】,以下是坐庄注意事项：\ \1、成功坐庄后不可以小退或离线。\2、【空闲时间】段选择【下庄】自动结算元宝。
SENDMSG 7 [提示]：您使用<$GLOBAL($牛牛庄家本钱)>个元宝成功坐庄。
SENDMSG 7 [提示]：您已成为牛牛庄家，请等待玩家下注。
DelayCall 200 @牛牛
break
#IF
CheckOnline <$GLOBAL($牛牛庄家姓名)>
#ACT
MOV S19 <$GLOBAL($牛牛庄家姓名)>
S19.GAMEGOLD + <$GLOBAL($牛牛庄家本钱)>
CALCVAR GLOBAL $牛牛庄家姓名 = <$USERNAME>
CALCVAR GLOBAL $牛牛庄家本钱 = <$STR(N13)>
gamegold + <$STR(N13)>
CALCVAR GLOBAL $牛牛时间点 = 65
SendCenterMsg 146 252 玩家【%S】使用<$STR(N13)>元宝抢庄成功,并喊道：“小弟不才，啥都没有，就是有钱！在此坐庄斗牛，有本事的来拿！” 1
MESSAGEBOX 【抢庄成功】,以下是坐庄注意事项：\ \1、成功坐庄后不可以小退或离线。\2、【空闲时间】段选择【下庄】自动结算元宝。
SENDMSG 7 [提示]：您使用<$GLOBAL($牛牛庄家本钱)>个元宝成功坐庄。
SENDMSG 7 [提示]：您已成为牛牛庄家，请等待玩家下注。
ADDNAMELIST ..\QuestDiary\16sky.com\牛牛\当局参与名单.txt
DelayCall 200 @牛牛
HCALL <$STR(S19)> @牛牛被赶下庄
break
#ELSEACT
CALCVAR GLOBAL $牛牛庄家姓名 = <$USERNAME>
CALCVAR GLOBAL $牛牛庄家本钱 = <$STR(N13)>
gamegold + <$STR(N13)>
CALCVAR GLOBAL $牛牛时间点 = 65
SendCenterMsg 146 252 玩家【%S】使用<$STR(N13)>元宝抢庄成功,并喊道：“小弟不才，啥都没有，就是有钱！在此坐庄斗牛，有本事的来拿！” 1
MESSAGEBOX 【抢庄成功】,以下是坐庄注意事项：\ \1、成功坐庄后不可以小退或离线。\2、【空闲时间】段选择【下庄】自动结算元宝。
SENDMSG 7 [提示]：您使用<$GLOBAL($牛牛庄家本钱)>个元宝成功坐庄。
SENDMSG 7 [提示]：您已成为牛牛庄家，请等待玩家下注。
ADDNAMELIST ..\QuestDiary\16sky.com\牛牛\当局参与名单.txt
DelayCall 200 @牛牛
break
;-------------------------------------------------------------------------------------------
;-------------------------------------------------------------------------------------------
;牛牛被赶下庄
;-------------------------------------------------------------------------------------------
;-------------------------------------------------------------------------------------------
[@牛牛被赶下庄]
#IF
CHECKLEVELEX > 0
#ACT
MESSAGEBOX [被赶下庄]：\ \玩家【<$GLOBAL($牛牛庄家姓名)>】用【<$GLOBAL($牛牛庄家本钱)>】元宝【将你赶下了庄】！\您的元宝已经退回,请查收。
;-------------------------------------------------------------------------------------------
;-------------------------------------------------------------------------------------------
;牛牛下庄
;-------------------------------------------------------------------------------------------
;-------------------------------------------------------------------------------------------
[@牛牛下庄]
#IF
CHECKVAR GLOBAL $牛牛时间文字 = 空闲时间
#ELSEACT
MESSAGEBOX [提示]：目前不能下庄，请空闲时间下庄。
break
#IF
CHECKVAR GLOBAL $牛牛庄家姓名 = <$USERNAME>
#ACT
CALCVAR GLOBAL $牛牛庄家姓名 = $位置空缺
GAMEGOLD + <$GLOBAL($牛牛庄家本钱)>
MESSAGEBOX [提示]：你放弃了继续坐庄！收回了<$GLOBAL($牛牛庄家本钱)>元宝。
CALCVAR GLOBAL $牛牛庄家本钱 = 0
#ELSEACT
MESSAGEBOX [提示]：您没有可收回元宝。
break