|
|
()
%100
(@@InPutInteger)
%100
[@MAIN]
#IF
large I15 70
#ACT
MOV S66 <COLOR=clLime
INC S66
INC S66 抢庄时间：
INC S66 >
#IF
large I15 10
small I15 70
#ACT
MOV S66 <COLOR=clLime
INC S66
INC S66 下注时间：
INC S66 >
#IF
small I15 11
#ACT
MOV S66 <COLOR=clLime
INC S66
INC S66 封盘开奖：
INC S66 >
#IF
CHECKLEVELEX > 0
#ACT
MOV S65 <COLOR=clFuchsia
INC S65
INC S65 <$STR(I15)>
INC S65 >
MOV S61
MOV S60 <$STR(A35)><$GLOBAL(空格)>
DEC S60 15 500
MOV S52 <COLOR=clYellow
INC S52
INC S52 <$STR(S60)>
INC S52 >
MOV S62 <$STR(I31)><$GLOBAL(空格)>
DEC S62 11 500
MOV S53 <COLOR=clYellow
INC S53
INC S53 <$STR(S62)>
INC S53 >
MOV S50 <$STR(I13)><$GLOBAL(空格)>
DEC S50 11 500
MOV S54 <COLOR=clMedGray
INC S54
INC S54 <$STR(S50)>
INC S54 >
MOV S51 <$STR(I14)><$GLOBAL(空格)>
DEC S51 11 500
MOV S55 <COLOR=clMedGray
INC S55
INC S55 <$STR(S51)>
INC S55 >
MOV S63 <COLOR=clOlive
INC S63
INC S63 <$STR(A43)>
INC S63 >
MOV S56 <COLOR=clFuchsia
INC S56
INC S56 <$STR(H20)>
INC S56 >
MOV S78 <COLOR=clFuchsia
INC S78
INC S78 <$STR(I16)>
INC S78 >
MOV S79 <COLOR=clFuchsia
INC S79
INC S79 <$STR(I17)>
INC S79 >
#IF
CheckInMapRange 3 332 320 7
#ELSEACT
ClearDelayGoto
SENDMSG 6 已离开[赌庄胖妞]7格范围,自动刷新取消!
close
BREAK
#IF
ISADMIN
#ACT
MOV S58 <赌博管理[url=]/@ISADMIN[/url]>
#ELSEACT
MOV S58 <关闭赌博[url=]/@HTCL[/url]>
#IF
equal A35 <$USERNAME>
#ACT
MOV S57 你当前属于庄家，使用【<$STR(I31)>】元宝坐庄
#ELSEACT
MOV S57 下注【<$STR(M43)>】元宝押【<$STR(S23)>】
#IF
CHECKLEVELEX > 0
#ACT
MOV S59 <COLOR=clYellow
INC S59
INC S59 <$STR(S57)>
INC S59 >
#IF
CheckLevelEx > 0
#Act
MOV M47 2
DelayCall 1000 @MAIN
#SAY
<color=clFuchsia 欢迎光临，这里是猜点数游戏，你所拥有的的元宝：>【<$GAMEGOLD>】\
<color=clGreen ┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈>\
<查看说明[url=]/@Help[/url]> <color=clLime 庄家姓名：>【<$STR(S52)>】 <$STR(S66)><$STR(S65)>\
<开始抢庄[url=]/@@InPutInteger40[/url]> <color=clLime 庄家本钱：>【<$STR(S53)><color=clYellow 元宝>】 <color=clLime 已开局数：><$STR(S56)>\
<下注押大[url=]/@@InPutInteger41[/url]> <color=clLime 押大金额：>【<$STR(S54)><color=clMedGray 元宝>】 <color=clLime 还可押大：><$STR(S78)>\
<下注押小[url=]/@@InPutInteger42[/url]> <color=clLime 押小金额：>【<$STR(S55)><color=clMedGray 元宝>】 <color=clLime 还可押小：><$STR(S79)>\
<color=clOlive 历史记录> <$STR(S63)>\
<color=clYellow 下注情况> <$STR(S59)>\
<color=clGreen ┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈><$STR(S58)>\
<color=clRed 提示：押大赢大，押小赢小，豹子通吃！本游戏系统收取[5%]税金。>\
[@ISADMIN]
#IF
#ACT
ClearDelayGoto
#SAY
<color=clFuchsia 尊贵的管理员您好，您可以根据以下配置设置赌博参数。><返还赌博[url=]/@main>\[/url]
<color=clGreen ┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈>\
<设置[url=]/@shuilv[/url]> 当前赌博税率： [<$GLOBAL(赌博税率)>] 公式：100*95/100=95 等于扣除5%的税\
<设置[url=]/@liuju[/url]> 是否允许流局： [<$GLOBAL(流局开关)>] 注释：开启后无人坐庄一样开奖记录\
<设置[url=]/@zuidi[/url]> 最小抢庄元宝： [<$GLOBAL(最低抢庄元宝)>]\
<设置[url=]/@zuigao[/url]> 最大抢庄元宝： [<$GLOBAL(最高抢庄元宝)>]\
<清理/@清理> 注释：这里清理的内容为，已开局数，历史记录\
<color=clYellow 作弊> <设置骰子1的点数[url=]/@A[/url]>：<$STR(I64)>，<骰子2的点数[url=]/@B[/url]>：<$STR(I65)>，<骰子3的点数[url=]/@C[/url]>：<$STR(I66)>，\
<color=clGreen ┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈>\
[@清理]
#IF
ISADMIN
#ACT
MOV H20 0
MOV A43
MESSAGEBOX [提示]：清理数据成功！
BREAK
[@zuigao]
#IF
ISADMIN
#ACT
QUERYVALUE 99 1 6 ~zuida 设置最小抢庄元宝数值、单位：个.十.百.千.万.十万.百万.千万.亿 NPC
BREAK
[~zuida]
#IF
ISADMIN
#ACT
CALCVAR GLOBAL 最高抢庄元宝 = <$STR(M99)>
SAVEVAR GLOBAL 最高抢庄元宝 ..\QuestDiary\汪痴修正\赌博控制.txt
DELAYCALL 1 @ISADMIN
BREAK
[@zuidi]
#IF
ISADMIN
#ACT
QUERYVALUE 99 1 6 ~zuixiao 设置最小抢庄元宝数值、单位：个.十.百.千.万.十万.百万.千万.亿 NPC
BREAK
[~zuixiao]
#IF
ISADMIN
#ACT
CALCVAR GLOBAL 最低抢庄元宝 = <$STR(M99)>
SAVEVAR GLOBAL 最低抢庄元宝 ..\QuestDiary\汪痴修正\赌博控制.txt
DELAYCALL 1 @ISADMIN
BREAK
[@liuju]
#IF
ISADMIN
#ACT
QUERYVALUE 99 0 2 ~liu 赌博流局设置，开、关，其他字符无效： NPC
BREAK
[~liu]
#IF
ISADMIN
#ACT
CALCVAR GLOBAL 流局开关 = <$STR(S99)>
SAVEVAR GLOBAL 流局开关 ..\QuestDiary\汪痴修正\赌博控制.txt
DELAYCALL 1 @ISADMIN
BREAK
[@shuilv]
#IF
ISADMIN
#ACT
QUERYVALUE 99 1 2 ~shui 设置赌博税率必须输入整数： NPC
BREAK
[~shui]
#IF
ISADMIN
#ACT
CALCVAR GLOBAL 赌博税率 = <$STR(M99)>
SAVEVAR GLOBAL 赌博税率 ..\QuestDiary\汪痴修正\赌博控制.txt
DELAYCALL 1 @ISADMIN
BREAK
[@A]
#IF
ISADMIN
#ACT
QUERYVALUE 99 1 1 ~A 请输入骰子1的具体点数(1-6)： NPC
BREAK
[~A]
#IF
Small M99 1
#ACT
MOV M99 0
MESSAGEBOX 请输入1-6，这6个数字，否者打你屁股！
DELAYCALL 1 @ISADMIN
BREAK
#IF
Large M99 6
#ACT
MOV M99 0
MESSAGEBOX 请输入1-6，这6个数字，否者打你屁股！
DELAYCALL 1 @ISADMIN
BREAK
#IF
ISADMIN
#ACT
MOV I64 <$STR(M99)>
DELAYCALL 1 @ISADMIN
BREAK
[@B]
#IF
ISADMIN
#ACT
QUERYVALUE 99 1 1 ~B 请输入骰子1的具体点数(1-6)： NPC
BREAK
[~B]
#IF
Small M99 1
#ACT
MOV M99 0
MESSAGEBOX 请输入1-6，这6个数字，否者打你屁股！
DELAYCALL 1 @ISADMIN
BREAK
#IF
Large M99 6
#ACT
MOV M99 0
MESSAGEBOX 请输入1-6，这6个数字，否者打你屁股！
DELAYCALL 1 @ISADMIN
BREAK
#IF
ISADMIN
#ACT
MOV I65 <$STR(M99)>
DELAYCALL 1 @ISADMIN
BREAK
#IF
ISADMIN
#ACT
MOV I65 <$STR(M99)>
DELAYCALL 1 @ISADMIN
BREAK
[@C]
#IF
ISADMIN
#ACT
QUERYVALUE 99 1 1 ~C 请输入骰子1的具体点数(1-6)： NPC
BREAK
[~C]
#IF
Small M99 1
#ACT
MOV M99 0
MESSAGEBOX 请输入1-6，这6个数字，否者打你屁股！
DELAYCALL 1 @ISADMIN
BREAK
#IF
Large M99 6
#ACT
MOV M99 0
MESSAGEBOX 请输入1-6，这6个数字，否者打你屁股！
DELAYCALL 1 @ISADMIN
BREAK
#IF
ISADMIN
#ACT
MOV I66 <$STR(M99)>
DELAYCALL 1 @ISADMIN
BREAK
#IF
ISADMIN
#ACT
MOV I66 <$STR(M99)>
DELAYCALL 1 @ISADMIN
BREAK
[@HTCL]
#ACT
ClearDelayGoto
close
BREAK
[@@InPutInteger40]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger40
[~InPutInteger40]
#IF
LARGE I12 60
#ACT
MESSAGEBOX [提示]：抢庄时间已经结束。请等待开局！
MOV M40 0
GOTO @MAIN
BREAK
#IF
SMALL M40 <$GLOBAL(最低抢庄元宝)>
#ACT
MESSAGEBOX [提示]：请输入<$GLOBAL(最低抢庄元宝)>以上的元宝数！
MOV M40 0
GOTO @MAIN
BREAK
#IF
LARGE M40 <$GLOBAL(最高抢庄元宝)>
#ACT
MESSAGEBOX [提示]：请输入<$GLOBAL(最高抢庄元宝)>以下的数值！
MOV M40 0
GOTO @MAIN
BREAK
#IF
EQUAL A35 <$USERNAME>
#ACT
MOV M40 0
MESSAGEBOX [提示]：你目前已经是庄家，无法重复坐庄。
GOTO @MAIN
BREAK
#IF
EQUAL M45 2
#ACT
MOV M40 0
MESSAGEBOX [提示]：你已经下注押了大，无法坐庄！
GOTO @MAIN
BREAK
#IF
EQUAL M45 3
#ACT
MOV M40 0
MESSAGEBOX [提示]：你已经下注押了小，无法坐庄！
GOTO @MAIN
BREAK
#IF
CHECKGAMEGOLD < <$STR(M40)>
#ACT
MESSAGEBOX [提示]：你身上的元宝不足。
MOV M40 0
GOTO @MAIN
BREAK
#IF
LARGE M40 <$STR(I31)>
#ACT
GMEXECUTE 发财 <$STR(A35)> + <$STR(I31)>
GAMEGOLD - <$STR(M40)>
MOV I31 <$STR(M40)>
SendMSG 4 %s使用<$STR(M40)>个元宝坐庄。
SendMSG 1 [美女庄家]：玩家【%s】使用【<$STR(M40)>】个元宝坐庄。 254 252
MOV A35 <$USERNAME>
MOV M43 1
GOTO @MAIN
MESSAGEBOX [提示]：使用【<$STR(M40)>】个元宝坐庄。
BREAK
#ELSEACT
MESSAGEBOX [提示]：你必须出多于【<$STR(I31)>】个元宝才能抢庄。
MOV M40 0
GOTO @MAIN
BREAK
[@@InPutInteger41]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger41
[~InPutInteger41]
#IF
LARGE I12 120
#ACT
MESSAGEBOX [提示]：下注时间已经结束。请等待开局！
MOV M41 0
GOTO @MAIN
BREAK
#IF
SMALL I12 61
#ACT
MESSAGEBOX [提示]：下注时间还没到，现在是抢庄时间。
MOV M41 0
GOTO @MAIN
BREAK
#IF
SMALL M41 1
#ACT
MESSAGEBOX [提示]：请输入1以上的数值！
MOV M41 0
GOTO @MAIN
BREAK
#IF
EQUAL A35 <$USERNAME>
#ACT
MOV M40 0
MESSAGEBOX [提示]：你目前已经是庄家，无法下注。
GOTO @MAIN
BREAK
#IF
EQUAL M45 2
#ACT
MOV M41 0
MESSAGEBOX [提示]：你已经下注押了大，无法重复下注！
GOTO @MAIN
BREAK
#IF
EQUAL M45 3
#ACT
MOV M41 0
MESSAGEBOX [提示]：你已经下注押了小，无法重复下注！
GOTO @MAIN
BREAK
#IF
LARGE M41 <$STR(I16)>
#ACT
MOV M41 0
MESSAGEBOX [提示]：目前你只可以下注【<$STR(I16)>】以下的元宝！
GOTO @MAIN
BREAK
#IF
EQUAL I18 1
#ACT
MOV M40 0
MESSAGEBOX [提示]：请重新输入。
GOTO @MAIN
BREAK
#IF
CHECKGAMEGOLD > <$STR(M41)>
#ACT
MOV I18 1
MOV M45 2
MOV S23 大
GAMEGOLD - <$STR(M41)>
MOV M43 <$STR(M41)>
INC I13 <$STR(M43)>
SendMSG 4 %s使用<$STR(M41)>个元宝下注押大。
GOTO @MAIN
MESSAGEBOX [提示]：使用【<$STR(M41)>】个元宝下注押大。
MOV M41 0
BREAK
#ELSEACT
MESSAGEBOX [提示]：你身上的元宝不足。
MOV M41 0
GOTO @MAIN
BREAK
[@@InPutInteger42]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger42
[~InPutInteger42]
#IF
LARGE I12 120
#ACT
MESSAGEBOX [提示]：下注时间已经结束。请等待开局！
MOV M42 0
GOTO @MAIN
BREAK
#IF
SMALL I12 61
#ACT
MESSAGEBOX [提示]：下注时间还没到，现在是抢庄时间。
MOV M42 0
GOTO @MAIN
BREAK
#IF
SMALL M42 1
#ACT
MESSAGEBOX [提示]：请输入1以上的数值！
MOV M42 0
GOTO @MAIN
BREAK
#IF
EQUAL A35 <$USERNAME>
#ACT
MOV M40 0
MESSAGEBOX [提示]：你目前已经是庄家，无法重复坐庄。
GOTO @MAIN
BREAK
#IF
EQUAL M45 2
#ACT
MOV M42 0
MESSAGEBOX [提示]：你已经下注押了大，无法重复下注！
GOTO @MAIN
BREAK
#IF
EQUAL M45 3
#ACT
MOV M42 0
MESSAGEBOX [提示]：你已经下注押了小，无法重复下注！
GOTO @MAIN
BREAK
#IF
LARGE M42 <$STR(I17)>
#ACT
MOV M42 0
MESSAGEBOX [提示]：目前你只可以下注【<$STR(I17)>】以下的元宝！
GOTO @MAIN
BREAK
#IF
EQUAL I19 1
#ACT
MOV M40 0
MESSAGEBOX [提示]：请重新输入。
GOTO @MAIN
BREAK
#IF
CHECKGAMEGOLD > <$STR(M42)>
#ACT
MOV I19 1
MOV M45 3
MOV S23 小
GAMEGOLD - <$STR(M42)>
MOV M43 <$STR(M42)>
INC I14 <$STR(M43)>
SendMSG 4 %s使用<$STR(M42)>个元宝下注押小。
GOTO @MAIN
MESSAGEBOX [提示]：使用【<$STR(M42)>】个元宝下注押小。
MOV M42 0
BREAK
#ELSEACT
MESSAGEBOX [提示]：你身上的元宝不足。
MOV M42 0
GOTO @MAIN
BREAK
[@Over]
#IF
#ACT
MapMove 3 330 330
BREAK
[@Help]
#IF
#ACT
ClearDelayGoto
#SAY
<color=clFuchsia 欢迎光临，这里是猜点数游戏，你所拥有的的元宝：>【<$GAMEGOLD>】\
<color=clGreen ┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈>\
(1)庄家坐庄后，其他玩家可下注，两分钟后三个骰子由庄家掷出，\
骰子点数随机出现点数总和小于11代表小，点数总和大于10代表\
大，三个点数相同代表豹子。\
(2)押大赢大，押小赢小，豹子通吃！本游戏系统不收取税金。\
(3)正在坐庄或已下注的玩家如下线将被视做弃权，损失下注元宝。\
(4)玩家下注数不能超过庄家坐庄的元宝总和。\
<color=clGreen ┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈><返回赌博[url=]/@main>\[/url]
[@IsInFilterList]
#ACT
MESSAGEBOX [错误]：输入数据中包含了非法字符，请重新编辑！
完整脚本回复下载：
|
|
[复制链接]
发表于 2016-11-12 00:48:24
发表于 2016-11-22 14:38:34
