传奇打扑克牌脚本
现在的传奇玩家可以打扑克牌了，这是真的吗？是真的，良多传奇私服服务端里都有了，站长有见到过，下面是方法：占用变量，全局 G8，个人 N 类P类，假如命令符 small 无效 可以全部换成large，随便找个NPC，在对应的脚本顶部添加 (@@InPutInteger @@InPutString)。将下面的脚本内容复制进去。[@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
BREAK
页:
[1]