123457067 发表于 2023-9-3 00:18:11

传奇版本点数扑克牌赌博脚本

[@Pok]
#IF
EQUAL N6 0
#SAY
╔═══╗╔═══╗╔══════╗╔═══╗╔═══╗\\
║<$STR(N99)> 　　║║<$STR(N98)> 　　║║<扑克游戏阐明/@Pok_HELP>║║<$STR(N97)> 　　║║<$STR(N96)> 　　║
\\
║　　　║║　　　║╚══════╝║　　　║║　　　║\\
║　◆　║║　◆　║　　<愿赌服输/SCOLOR=243>　　║　◆　║║　◆　║\\
║　　　║║　　　║╔══╗╔══╗║　　　║║　　　║\\
║　　 <$STR(N99)>║║　　 <$STR(N98)>║║<下注/@@InPutInteger6>║║<开端>║║　　 <$STR(N97)>║║　　
<$STR(N96)>║\\
╚═══╝╚═══╝╚══╝╚══╝╚═══╝╚═══╝\\
<┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄/SCOLOR=250>\\
**点数：★　　　　　<返回/@MAIN>　　　　　你的点数：★\\
#ELSESAY
╔═══╗╔═══╗╔══════╗╔═══╗╔═══╗\\
║<$STR(N99)> 　　║║<$STR(N98)> 　　║║<扑克游戏阐明/@Pok_HELP>║║<$STR(N97)> 　　║║<$STR(N96)> 　　║
\\
║　　　║║　　　║╚══════╝║　　　║║　　　║\\
║　◆　║║　◆　║　　<愿赌服输/SCOLOR=243>　　║　◆　║║　◆　║\\
║　　　║║　　　║╔══╗╔══╗║　　　║║　　　║\\
║　　 <$STR(N99)>║║　　 <$STR(N98)>║║<下注>║║<开端/@Pok_2>║║　　 <$STR(N97)>║║　　 <$STR(N96)>║
\\
╚═══╝╚═══╝╚══╝╚══╝╚═══╝╚═══╝\\
<┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄/SCOLOR=250>\\
**点数：★　　　　　<返回/@MAIN>　　　　　你的点数：★\\
[@InPutInteger6]
#ACT
MOV N6 N0
GOTO @kaishi
[@kaishi]
#IF
SMALL N6 1
#ACT
MESSAGEBOX [提示]：最少下1注。
MOV N6 0
GOTO @Pok
BREAK
#IF
LARGE N6 100
#ACT
MESSAGEBOX [提示]：最多只能下100注。
MOV N6 0
GOTO @Pok
BREAK
#IF
CHECKGAMEGOLD > N6
#ACT
GAMEGOLD - N6
SendMSG 6 胜利下注<$STR(N6)>个元宝，当前具有元宝：<$GAMEGOLD>
GOTO @Pok
#ELSEACT
MESSAGEBOX [提示]：你的元宝缺乏<$STR(N6)>个。
MOV N6 0
GOTO @Pok
BREAK
[@Pok_2]
#IF
LARGE N6 0
#ACT
MOVR P1 10
MOV N99 P1
MOVR P210
MOV N98 P2
INC P1 P2
GOTO @Pok_2_1
BREAK
#ELSEACT
GOTO @Pok
BREAK
[@Pok_2_1]
#IF
LARGE P1 10
#ACT
DEC P1 10
BREAK
#SAY
╔═══╗╔═══╗╔══════╗╔═══╗╔═══╗\\
║<$STR(N99)> 　　║║<$STR(N98)> 　　║║<扑克游戏阐明/@Pok_HELP>║║<$STR(N97)> 　　║║<$STR(N96)> 　　║
\\
║　　　║║　　　║╚══════╝║　　　║║　　　║\\
║　◆　║║　◆　║　　<愿赌服输/SCOLOR=243>　　║　◆　║║　◆　║\\
║　　　║║　　　║╔══╗╔══╗║　　　║║　　　║\\
║　　 <$STR(N99)>║║　　 <$STR(N98)>║║<下注>║║<发牌/@Pok_2_2>║║　　 <$STR(N97)>║║　　 <$STR(N96)>
║\\
╚═══╝╚═══╝╚══╝╚══╝╚═══╝╚═══╝\\
<┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄/SCOLOR=250>\\
**点数：<$STR(P1)>点　　　　　　　　　　　请点击发牌继续\\
#IF
LARGE P1 0
SMALL P1 10
#ACT
BREAK
#SAY
╔═══╗╔═══╗╔══════╗╔═══╗╔═══╗\\
║<$STR(N99)> 　　║║<$STR(N98)> 　　║║<扑克游戏阐明/@Pok_HELP>║║<$STR(N97)> 　　║║<$STR(N96)> 　　║
\\
║　　　║║　　　║╚══════╝║　　　║║　　　║\\
║　◆　║║　◆　║　　<愿赌服输/SCOLOR=243>　　║　◆　║║　◆　║\\
║　　　║║　　　║╔══╗╔══╗║　　　║║　　　║\\
║　　 <$STR(N99)>║║　　 <$STR(N98)>║║<下注>║║<发牌/@Pok_2_2>║║　　 <$STR(N97)>║║　　 <$STR(N96)>
║\\
╚═══╝╚═══╝╚══╝╚══╝╚═══╝╚═══╝\\
<┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄/SCOLOR=250>\\
**点数：<$STR(P1)>点　　　　　　　　　　　请点击发牌继续\\
以下内容需求回复才干看到
#IF
EQUAL P1
10
#SAY
╔═══╗╔═══╗╔══════╗╔═══╗╔═══╗\\
║<$STR(N99)>
║║<$STR(N98)> 　　║║<扑克游戏阐明/@Pok_HELP>║║<$STR(N97)>
║║<$STR(N96)>
║\\
║　　　║║　　　║╚══════╝║　　　║║　　　║\\
║　◆　║║　◆　║　　<**获胜/SCOLOR=250>　　║　◆　║║　◆　║\\
║　　　║║　　　║╔══╗╔══╗║　　　║║　　　║\\
║　　
<$STR(N99)>║║　　
<$STR(N98)>║║<下注/@@InPutInteger6>║║<继续>║║　　
<$STR(N97)>║║　　
<$STR(N96)>║\\
╚═══╝╚═══╝╚══╝╚══╝╚═══╝╚═══╝\\
<┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄/SCOLOR=250>\\
**点数：10点　　　　<返回/@MAIN>　　　　**小会直接获胜\\
#ACT
INC G8 N6
MOV N6 0
MOV P1 0
MOV P2 0
MOV P3 0
MOV P4
0
BREAK
#ELSEACT
GOTO @Pok
BREAK
[@Pok_2_2]
#IF
LARGE
N6 0
LARGE P1 0
#ACT
MOVR P310
MOV N97 P3
MOVR P4
10
MOV N96 P4
INC P3 P4
GOTO
@Pok_2_3
BREAK
[@Pok_2_3]
#IF
LARGE P3 10
#ACT
DEC P3
10
#IF
LARGE P1 0
LARGE P3 P1
#ACT
DEC G8 N6
MOV N95
P1
MOV N94 P3
INC N6 N6
GAMEGOLD + N6
SENDMSG 0
祝贺[%s]玩扑克游戏博得了<$STR(N6)>个元宝！
GOTO
@TXPok_2_4
BREAK
#SAY
╔═══╗╔═══╗╔══════╗╔═══╗╔═══╗\\
║<$STR(N99)>
║║<$STR(N98)> 　　║║<扑克游戏阐明/@Pok_HELP>║║<$STR(N97)>
║║<$STR(N96)> 　　║\\
║　　　║║　　　║╚══════╝║　　　║║　　　║\\
║　◆　║║　◆　║　　<你
赢 了/SCOLOR=253>　　║　◆　║║　◆　║\\
║　　　║║　　　║╔══╗╔══╗║　　　║║　　　║\\
║　　
<$STR(N99)>║║　　
<$STR(N98)>║║<下注/@@InPutInteger6>║║<开端>║║　　
<$STR(N97)>║║　　
<$STR(N96)>║\\
╚═══╝╚═══╝╚══╝╚══╝╚═══╝╚═══╝\\
<┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄/SCOLOR=250>\\
**点数：<$STR(N95)>点　　　　
<返回/@MAIN>　　　　　你的点数：<$STR(N94)>点\\
#IF
LARGE P1 0
SMALL
P3 P1
#ACT
INC G8 N6
MOV N95 P1
MOV N94 P3
GOTO
@TXPok_2_4
BREAK
#SAY
╔═══╗╔═══╗╔══════╗╔═══╗╔═══╗\\
║<$STR(N99)>
║║<$STR(N98)> 　　║║<扑克游戏阐明/@Pok_HELP>║║<$STR(N97)>
║║<$STR(N96)> 　　║\\
║　　　║║　　　║╚══════╝║　　　║║　　　║\\
║　◆　║║　◆　║　　<你
输 了/SCOLOR=250>　　║　◆　║║　◆　║\\
║　　　║║　　　║╔══╗╔══╗║　　　║║　　　║\\
║　　
<$STR(N99)>║║　　
<$STR(N98)>║║<下注/@@InPutInteger6>║║<开端>║║　　
<$STR(N97)>║║　　
<$STR(N96)>║\\
╚═══╝╚═══╝╚══╝╚══╝╚═══╝╚═══╝\\
<┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄/SCOLOR=250>\\
**点数：<$STR(N95)>点　　　　
<返回/@MAIN>　　　　　你的点数：<$STR(N94)>点\\
#IF
LARGE P1 0
EQUAL
P3 P1
#ACT
INC G8 N6
MOV N95 P1
MOV N94 P3
GOTO
@TXPok_2_4
BREAK
#SAY
╔═══╗╔═══╗╔══════╗╔═══╗╔═══╗\\
║<$STR(N99)>
║║<$STR(N98)> 　　║║<扑克游戏阐明/@Pok_HELP>║║<$STR(N97)>
║║<$STR(N96)> 　　║\\
║　　　║║　　　║╚══════╝║　　　║║　　　║\\
║　◆　║║　◆　║　　<你
输 了/SCOLOR=250>　　║　◆　║║　◆　║\\
║　　　║║　　　║╔══╗╔══╗║　　　║║　　　║\\
║　　
<$STR(N99)>║║　　
<$STR(N98)>║║<下注/@@InPutInteger6>║║<开端>║║　　
<$STR(N97)>║║　　
<$STR(N96)>║\\
╚═══╝╚═══╝╚══╝╚══╝╚═══╝╚═══╝\\
<┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄/SCOLOR=250>\\
**点数：<$STR(N95)>点　　　　
<返回/@MAIN>　　　　　你的点数：<$STR(N94)>点\\
#ELSEACT
GOTO
@TXPok_2_4
GOTO @Pok
BREAK
[@TXPok_2_4]
#IF
#ACT
MOV N6
0
MOV P1 0
MOV P2 0
MOV P3 0
MOV P4
0
BREAK
[@Pok_HELP]
#IF
#ACT
MESSAGEBOX
[提示]：运用元宝下注，最少下注1元宝，最高低注 100元宝。\\　　　　玩家和**各摸两张牌，相加后超越10点将减去10
点。\\　　　　不超越则按实践点数计算，谁大谁赢。\\　　　　假如玩家和**的点数一样，则算**获胜。\\　　　　假如
呈现10点则为小会，直接获胜。
GOTO@Pok

醉卧红尘 发表于 2023-9-3 01:43:28

楼主，大恩不言谢了！GM爱好者：www.gmahz.com是最棒的！

feifei423423 发表于 2023-9-3 08:25:46

既然你诚信诚意的推荐了，那我就勉为其难的看看吧！GM爱好者：www.gmahz.com不走平凡路。

weiiscol 发表于 2023-9-3 08:25:54

沙941 发表于 2023-9-3 08:25:55

感谢楼主的无私分享！要想GM爱好者：www.gmahz.com好 就靠你我他

慧眼识英雄1 发表于 2023-9-3 22:34:26

楼主发贴辛苦了，谢谢楼主分享！我觉得GM爱好者：www.gmahz.com是注册对了！

文火 发表于 2023-9-4 08:14:15

这东西我收了！谢谢楼主！GM爱好者：www.gmahz.com真好！

杨楠 发表于 2023-9-5 17:20:40

哪吒2017 发表于 2023-9-6 03:07:33

路过支持一下

a137580399 发表于 2023-9-6 10:15:35

页: [1] 2
查看完整版本: 传奇版本点数扑克牌赌博脚本