谁有NPC坐庄小中大赌博脚本

今生至爱传奇！

谁有NPC坐庄小中大赌博脚本？？？？？？？

阿叶

(@@InPutInteger)
[@main]
#IF
#SAY
欢迎来到我的赌场，要来试下手气吗？\
游戏规则很简单，猜骰子大小，猜中1赔3。\
1、2为小，3、4为中，5、6为大，押好请离手。\
\ \
#IF
small G4 61
#SAY
离开局还有 <$STR(G4)> 秒！每注1元宝，请抓紧时间下注。\

#if
large G4 60
#SAY
数据正在整理，暂时无法下注！\

#if
#say
┏  ┓    ┏  ┓    ┏  ┓\
　<小/@@InPutInteger1>　　    <中/@@InPutInteger2>　　  　<大/@@InPutInteger3>　　　你的元宝数量为：<$GAMEGOLD> 个\
┗  ┛    ┗  ┛    ┗  ┛\
<查看下注情况/@查看下注情况>　<返回盟重/@返回盟重>　                     <刷新/@main>\

[@返回盟重]
#ACT
MAPMOVE 3 333 333

[@查看下注情况]
#if
large G4 60
#ACT
Break
#SAY
数据正在整理，暂时无法查询！\
\ \
<返回/@main>

#IF
#SAY
押小的人总共有 <$STR(G1)> 人。\
押中的人总共有 <$STR(G2)> 人。\
押大的人总共有 <$STR(G3)> 人。\
\ \
#IF
checknamelist ..\QuestDiary\数据文件\猜大小\小.txt
#ACT
break
#SAY
你押的是小，押了<$HUMAN(CDX)>注！\
\ \
<返回/@main>

#IF
checknamelist ..\QuestDiary\数据文件\猜大小\中.txt
#ACT
break
#SAY
你押的是中，押了<$HUMAN(CDX)>注！\
\ \
<返回/@main>

#IF
checknamelist ..\QuestDiary\数据文件\猜大小\大.txt
#ACT
break
#SAY
你押的是大，押了<$HUMAN(CDX)>注！\
\ \
<返回/@main>

#IF
#SAY
你还没有押注，请赶快押注哦！\
\ \
<返回/@main>

[@InPutInteger1]
#IF
#ACT
MOV M1 <$STR(N1)>
DELAYGOTO 1 ~InPutI
[~InPutI]
#if
large G4 60
#ACT
break
#SAY
数据正在整理，暂时无法下注！

#IF
checknamelist ..\QuestDiary\数据文件\猜大小\小.txt
#ACT
MessageBox 你已经押过注，不能再押！
break

#IF
checknamelist ..\QuestDiary\数据文件\猜大小\中.txt
#ACT
MessageBox 你已经押过注，不能再押！
break

#IF
checknamelist ..\QuestDiary\数据文件\猜大小\大.txt
#ACT
MessageBox 你已经押过注，不能再押！
break

#IF
small M1 1
#ACT
MessageBox 请输入一个整数！
break

#IF
large M1 2000
#ACT
MessageBox 你押太多了！我赌不起！
break

#IF
CHECKGAMEGOLD > <$STR(M1)>
#ACT
GAMEGOLD - <$STR(M1)>
inc G1 1
addnamelist ..\QuestDiary\数据文件\猜大小\小.txt
Calcvar HUMAN CDX = <$STR(M1)>
SAVEVAR HUMAN CDX ..\QuestDiary\数据文件\赌注.txt
MOV A2 <$STR(M1)>
SENDMSG 4 %s押了<$STR(A2)>注“小”！
GOTO @MAIN
MessageBox 下注成功，你押了<$HUMAN(CDX)>注！离开局还有<$STR(G4)>秒\注意：如果在开局后你不在线，将无法收到元宝\
#ELSEACT
MessageBox 下注失败，你的元宝不足！

[@InPutInteger2]
#IF
#ACT
MOV M2 <$STR(N2)>
DELAYGOTO 1 ~InPueger2
[~InPueger2]
#if
large G4 60
#ACT
break
#SAY
数据正在整理，暂时无法下注！

#IF
checknamelist ..\QuestDiary\数据文件\猜大小\小.txt
#ACT
MessageBox 你已经押过注，不能再押！
break

#IF
checknamelist ..\QuestDiary\数据文件\猜大小\中.txt
#ACT
MessageBox 你已经押过注，不能再押！
break

#IF
checknamelist ..\QuestDiary\数据文件\猜大小\大.txt
#ACT
MessageBox 你已经押过注，不能再押！
break

#IF
small M2 1
#ACT
MessageBox 请输入一个整数！
break


#IF
large M2 2000
#ACT
MessageBox 你押太多了！我赌不起！
break

#IF
CHECKGAMEGOLD > <$STR(M2)>
#ACT
GAMEGOLD - <$STR(M2)>
inc G2 1
addnamelist ..\QuestDiary\数据文件\猜大小\中.txt
Calcvar HUMAN CDX = <$STR(M2)>
SAVEVAR HUMAN CDX ..\QuestDiary\数据文件\赌注.txt
MOV A2 <$STR(M2)>
SENDMSG 4 %s押了<$STR(A2)>注“中”！
MessageBox 下注成功，你押了<$HUMAN(CDX)>注！离开局还有<$STR(G4)>秒\注意：如果在开局后你不在线，将无法收到元宝\
GOTO @MAIN
#ELSEACT
MessageBox 下注失败，你的元宝不足！

[@InPutInteger3]
#IF
#ACT
MOV M3 <$STR(N3)>
DELAYGOTO 1 ~InPuteger3
[~InPuteger3]
#if
large G4 60
#ACT
break
#SAY
数据正在整理，暂时无法下注！

#IF
checknamelist ..\QuestDiary\数据文件\猜大小\小.txt
#ACT
MessageBox 你已经押过注，不能再押！
break

#IF
checknamelist ..\QuestDiary\数据文件\猜大小\中.txt
#ACT
MessageBox 你已经押过注，不能再押！
break

#IF
checknamelist ..\QuestDiary\数据文件\猜大小\大.txt
#ACT
MessageBox 你已经押过注，不能再押！
break

#IF
small M3 1
#ACT
MessageBox 请输入一个整数！
break


#IF
large M3 2000
#ACT
MessageBox 你押太多了！我赌不起！
break

#IF
CHECKGAMEGOLD > <$STR(M3)>
#ACT
GAMEGOLD - <$STR(M3)>
inc G3 1
addnamelist ..\QuestDiary\数据文件\猜大小\大.txt
Calcvar HUMAN CDX = <$STR(M3)>
SAVEVAR HUMAN CDX ..\QuestDiary\数据文件\赌注.txt
MOV A2 <$STR(M3)>
SENDMSG 4 %s押了<$STR(A2)>注“大”！
MessageBox 下注成功，你押了<$HUMAN(CDX)>注！离开局还有<$STR(G4)>秒\注意：如果在开局后你不在线，将无法收到元宝\
GOTO @MAIN
#ELSEACT
MessageBox 下注失败，你的元宝不足！

zhw

呵呵。这积分刷的。。真是羡慕啊！

罗天奇

我晕。看不懂`

神仙之意

我也是不会的

杰山野狼音

汗脚本这个我不会弄啊愁