|
|
(@@InPutInteger)
[@独家抢庄NPC]
{
#IF
#ACT
MOV S58
MOV S$改天定义1 <$STR(A40)>
MOV S$改天定义2 <$STR(I40)>
MOV S$改天定义3 <$STR(A42)>
MOV S$改天定义4 <$STR(I48)>
MOV S$改天定义5 <$STR(I49)>
MOV S$改天定义6 <$STR(I50)>
MOV S$改天定义7 <$STR(S41)>
MOV S$改天定义8 <$STR(M40)>
MOV S$改天定义9 <$STR(S44)>
SetStringBlank S$改天定义1 10 0
SetStringBlank S$改天定义2 10 0
SetStringBlank S$改天定义3 10 0
SetStringBlank S$改天定义4 10 0
SetStringBlank S$改天定义5 10 0
SetStringBlank S$改天定义6 10 0
SetStringBlank S$改天定义7 4 0
SetStringBlank S$改天定义8 10 0
SetStringBlank S$改天定义9 10 0
#IF
EQUAL S41 大
#ACT
MOV S44 <$STR(M41)>
#IF
EQUAL S41 小
#ACT
MOV S44 <$STR(M41)>
#IF
EQUAL S41 庄
#ACT
MOV S44 <$STR(I48)>
#IF
ISADMIN
#ACT
MOV S58 <系统控制/@系统控制>
#IF
NOT ISADMIN
#ACT
MOV S58 <关闭读秒/@关闭读秒>
#IF
#ACT
CLEARDELAYGOTO
DELAYGOTO 1000 @独家抢庄NPC
#SAY
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/FCOLOR=116>\
<当前状态:/FCOLOR=244><【/FCOLOR=245><$STR(S$改天定义1)><】/FCOLOR=245> <剩余时间:/FCOLOR=244><【/FCOLOR=245><$STR(S$改天定义2)><】/FCOLOR=245>\
<当前庄家:/FCOLOR=251><【/FCOLOR=245><$STR(S$改天定义3)><】/FCOLOR=245> <庄家筹码:/FCOLOR=251><【/FCOLOR=245><$STR(S$改天定义4)><】/FCOLOR=245>\
<还可压大:/FCOLOR=250><【/FCOLOR=245><$STR(S$改天定义5)><】/FCOLOR=245> <还可压小:/FCOLOR=250><【/FCOLOR=245><$STR(S$改天定义6)><】/FCOLOR=245>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/fcolor=116>\
<您押注:/FCOLOR=22><【/FCOLOR=245><$STR(S$改天定义7)><】/FCOLOR=245> <押注:/FCOLOR=22><【/FCOLOR=245><$STR(S$改天定义8)><】/FCOLOR=245> <赢将得到:/FCOLOR=22><【/FCOLOR=245><$STR(S$改天定义9)><】/FCOLOR=245>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/FCOLOR=116>\
<我要抢庄/@@InPutInteger10> <快速押大/@@InPutInteger11> <快速押小/@@InPutInteger12> <$STR(S58)>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/FCOLOR=116>\
<历史记录>:<$STR(A44)>\
[@InPutInteger10]
#IF
EQUAL A40 押注
#ACT
MESSAGEBOX [提示]：当前是【<$STR(A40)>】时间不可以抢庄！
BREAK
#IF
EQUAL A40 开奖
#ACT
MESSAGEBOX [提示]：当前是【<$STR(A40)>】时间不可以抢庄！
BREAK
#IF
EQUAL A40 结算
#ACT
MESSAGEBOX [提示]：当前是【<$STR(A40)>】时间不可以抢庄！
BREAK
#IF
EQUAL S41 大
#ACT
MESSAGEBOX [提示]：您已经下注不可以抢庄您下注【<$STR(S41)>】！
BREAK
#IF
EQUAL S41 小
#ACT
MESSAGEBOX [提示]：您已经下注不可以抢庄您下注【<$STR(S41)>】！
BREAK
#IF
CHECKGAMEGOLD < <$STR(N10)>
#ACT
MESSAGEBOX [提示]：你身上的元宝不足!!!
BREAK
#IF
small N10 <$STR(I48)>
#ACT
MESSAGEBOX [提示]：必须大于庄家赌本才可以抢庄!!!
BREAK
#IF
NOT EQUAL A42 <$USERNAME>
#ACT
MOV I48 <$STR(N10)>
MOV I49 <$STR(N10)>
MOV I50 <$STR(N10)>
MOV M40 <$STR(N10)>
MOV A42 <$USERNAME>
MOV S41 庄
GAMEGOLD - <$STR(N10)>
ADDNAMELIST ..\QuestDiary\独家抢庄\玩家数据\参与名单.txt
ADDNAMELIST ..\QuestDiary\独家抢庄\玩家数据\庄家名单.txt
SENDMSG 0 玩家【%s】使用【<$STR(I48)>】个元宝坐庄。
GMEXECUTE 开始提问 @庄家被抢
GOTO @MAIN
BREAK
#ELSEACT
#IF
#ACT
MESSAGEBOX [提示]：您已经是庄家不可以重复抢庄！
BREAK
[@InPutInteger11]
#IF
EQUAL A40 抢庄
#ACT
MESSAGEBOX [提示]：当前是【<$STR(A40)>】时间不可以押注！
BREAK
#IF
EQUAL A40 开奖
#ACT
MESSAGEBOX [提示]：当前是【<$STR(A40)>】时间不可以押注！
BREAK
#IF
EQUAL A40 结算
#ACT
MESSAGEBOX [提示]：当前是【<$STR(A40)>】时间不可以押注！
BREAK
#IF
EQUAL A42
#ACT
MESSAGEBOX [提示]：当前无人做庄不可以押注！
BREAK
#IF
EQUAL A42 <$USERNAME>
#ACT
MESSAGEBOX [提示]：您已经是庄家不可以押注！
BREAK
#IF
LARGE N11 <$STR(I49)>
#ACT
MESSAGEBOX [提示]：押注超过了最大数!
BREAK
#IF
CHECKGAMEGOLD < <$STR(N11)>
#ACT
MESSAGEBOX [提示]：你身上的元宝不足!!!
BREAK
#IF
EQUAL S41
#ACT
GAMEGOLD - <$STR(N11)>
DEC I49 <$STR(N11)>
INC I50 <$STR(N11)>
INC I48 <$STR(N11)>
MOV M40 <$STR(N11)>
MOV M41 <$STR(N11)>
MUL M41 2
MOV S41 大
ADDNAMELIST ..\QuestDiary\独家抢庄\玩家数据\参与名单.txt
SENDMSG 0 玩家【%s】使用【<$STR(M40)>】押注【<$STR(S41)>】。
GOTO @MAIN
BREAK
#ELSEACT
#IF
#ACT
MESSAGEBOX [提示]：您已经下注不可以抢庄您下注【<$STR(S41)>】！
BREAK
[@InPutInteger12]
#IF
EQUAL A40 抢庄
#ACT
MESSAGEBOX [提示]：当前是【<$STR(A40)>】时间不可以押注！
BREAK
#IF
EQUAL A40 开奖
#ACT
MESSAGEBOX [提示]：当前是【<$STR(A40)>】时间不可以押注！
BREAK
#IF
EQUAL A40 结算
#ACT
MESSAGEBOX [提示]：当前是【<$STR(A40)>】时间不可以押注！
BREAK
#IF
EQUAL A42
#ACT
MESSAGEBOX [提示]：当前无人做庄不可以押注！
BREAK
#IF
EQUAL A42 <$USERNAME>
#ACT
MESSAGEBOX [提示]：您已经是庄家不可以押注！
BREAK
#IF
LARGE N12 <$STR(I50)>
#ACT
MESSAGEBOX [提示]：押注超过了最大数!
BREAK
#IF
CHECKGAMEGOLD < <$STR(N12)>
#ACT
MESSAGEBOX [提示]：你身上的元宝不足!!!
BREAK
#IF
EQUAL S41
#ACT
GAMEGOLD - <$STR(N12)>
INC I49 <$STR(N12)>
DEC I50 <$STR(N12)>
INC I48 <$STR(N12)>
MOV M40 <$STR(N12)>
MOV M41 <$STR(N12)>
MUL M41 2
MOV S41 小
ADDNAMELIST ..\QuestDiary\独家抢庄\玩家数据\参与名单.txt
SENDMSG 0 玩家【%s】使用【<$STR(M40)>】押注【<$STR(S41)>】。
GOTO @MAIN
BREAK
#ELSEACT
#IF
#ACT
MESSAGEBOX [提示]：您已经下注不可以抢庄您下注【<$STR(S41)>】！
BREAK
[@系统控制]
#IF
#ACT
CLEARDELAYGOTO
#SAY
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/FCOLOR=250>\
<开关显示0游戏开，1为游戏关闭，骰子点数必须在压住状态才有效！/FCOLOR=244>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/FCOLOR=250>\
<开关/@开关><【/FCOLOR=251><$GLOBAL(开关控制)><】/FCOLOR=251>。<抢庄/@@InPutInteger13><【/FCOLOR=251><$GLOBAL(抢庄时间)><】/FCOLOR=251>秒。<押注/@@InPutInteger14><【/FCOLOR=251><$GLOBAL(押注时间)><】/FCOLOR=251>秒。<开奖/@@InPutInteger15><【/FCOLOR=251><$GLOBAL(开奖时间)><】/FCOLOR=251>秒。\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/FCOLOR=250>\
<骰一/@@InPutInteger16><【/FCOLOR=251><$STR(I44)><】/FCOLOR=251>点。<骰二/@@InPutInteger17><【/FCOLOR=251><$STR(I45)><】/FCOLOR=251>点。<骰三/@@InPutInteger18><【/FCOLOR=251><$STR(I46)><】/FCOLOR=251>点。<当前税收/@@InPutInteger19><【/FCOLOR=251><$GLOBAL(税率配置)>%<】/FCOLOR=251>。\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/FCOLOR=250>\
<税收必须大于0，默认是5！写0则无效 /FCOLOR=244> <返回界面/@独家抢庄NPC> \
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/FCOLOR=250>\
[@开关]
#IF
CHECKVAR GLOBAL 开关控制 = 0
#ACT
CALCVAR GLOBAL 开关控制 = 1
SAVEVAR GLOBAL 开关控制 ..\QuestDiary\独家抢庄\配置文件\配置文件.INI
GOTO @系统控制
BREAK
#IF
CHECKVAR GLOBAL 开关控制 = 1
#ACT
CALCVAR GLOBAL 开关控制 = 0
SAVEVAR GLOBAL 开关控制 ..\QuestDiary\独家抢庄\配置文件\配置文件.INI
GOTO @系统控制
BREAK
[@InPutInteger13]
#IF
#ACT
CALCVAR GLOBAL 抢庄时间 = <$STR(N13)>
SAVEVAR GLOBAL 抢庄时间 ..\QuestDiary\独家抢庄\配置文件\配置文件.INI
GOTO @系统控制
BREAK
[@InPutInteger14]
#IF
#ACT
CALCVAR GLOBAL 押注时间 = <$STR(N14)>
SAVEVAR GLOBAL 押注时间 ..\QuestDiary\独家抢庄\配置文件\配置文件.INI
GOTO @系统控制
BREAK
[@InPutInteger15]
#IF
#ACT
CALCVAR GLOBAL 开奖时间 = <$STR(N15)>
SAVEVAR GLOBAL 开奖时间 ..\QuestDiary\独家抢庄\配置文件\配置文件.INI
GOTO @系统控制
BREAK
[@InPutInteger16]
#IF
EQUAL A40 开奖
#ACT
MOV I44 <$STR(N16)>
GOTO @系统控制
BREAK
#ELSEACT
#IF
#ACT
MESSAGEBOX [提示]：必须在开奖时间设置！
BREAK
[@InPutInteger17]
#IF
EQUAL A40 开奖
#ACT
MOV I45 <$STR(N17)>
GOTO @系统控制
BREAK
#ELSEACT
#IF
#ACT
MESSAGEBOX [提示]：必须在开奖时间设置！
BREAK
[@InPutInteger18]
#IF
EQUAL A40 开奖
#ACT
MOV I46 <$STR(N18)>
GOTO @系统控制
BREAK
#ELSEACT
#IF
#ACT
MESSAGEBOX [提示]：必须在开奖时间设置！
BREAK
[@InPutInteger19]
#IF
#ACT
CALCVAR GLOBAL 税率配置 = <$STR(N19)>
SAVEVAR GLOBAL 税率配置 ..\QuestDiary\独家抢庄\配置文件\配置文件.INI
GOTO @系统控制
BREAK
[@关闭读秒]
#IF
#ACT
CLEARDELAYGOTO
BREAK
}
完整脚本回复下载：
|
|
[复制链接]
发表于 2016-11-9 21:22:37
发表于 2016-12-6 14:55:59
