(@@InPutString @@InPutInteger )
[@main]
#IF
EQUAL A491 <$USERNAME>
#ACT
BREAK
#SAY
\ \
<尊敬的玩家/SCOLOR=146>{<$USERNAME>/SCOLOR=250}<您好！/SCOLOR=146>\
<很多人喜欢赌博并不是喜欢赌博输赢的结果，英雄合击而是喜欢刺激的/SCOLOR=146>\
<过程！所以本训练馆为了方便玩家互相切磋，并防止玩家之间/SCOLOR=146>\
<的欺骗行为。特开设了玩家对赌的平台，玩家可向全服玩家发/SCOLOR=146>\
<出邀请请来和你进行切磋赌术。当有玩家接受了您的邀请，你/SCOLOR=146>\
<们就可以在这里开始对赌！将有系统进行摇骰子。/SCOLOR=146>\ \
<您正在和庄家：/SCOLOR=146>{<$STR(A490)>/SCOLOR=250} <互赌/SCOLOR=146>\
<小赌修身养性，建议您不要将此项功能做为赌博沉迷！/SCOLOR=250>\
#IF
EQUAL A491
#ACT
GOTO @KAKAKA
BREAK
#IF
#SAY
\ \
<尊敬的玩家/SCOLOR=146>{<$USERNAME>/SCOLOR=250}<您好！/SCOLOR=146>\
<很多人喜欢赌博并不是喜欢赌博输赢的结果，而是喜欢刺激的/SCOLOR=146>\
<过程！所以本训练馆为了方便玩家互相切磋，并防止玩家之间/SCOLOR=146>\
<的欺骗行为。特开设了玩家对赌的平台，玩家可向全服玩家发/SCOLOR=146>\
<出邀请请来和你进行切磋赌术。当有玩家接受了您的邀请，你/SCOLOR=146>\
<们就可以在这里开始对赌！将有系统进行摇骰子。/SCOLOR=146>\ \
<庄家：/SCOLOR=146>{<$STR(A490)>/SCOLOR=250} <正在和玩家：/SCOLOR=146>{<$STR(A491)>/SCOLOR=250}<互赌/SCOLOR=146>\
\ <赌金：/SCOLOR=146>{<$STR(G490)>/SCOLOR=250} <元宝/SCOLOR=146>
{<$STR(G490)>/SCOLOR=250}
[@KAKAKA]
#IF
EQUAL A490 <$USERNAME>
#ACT
BREAK
#SAY
\ \
<尊敬的玩家/SCOLOR=146>{<$USERNAME>/SCOLOR=250}<您好！/SCOLOR=146>\
<很多人喜欢赌博并不是喜欢赌博输赢的结果，而是喜欢刺激的/SCOLOR=146>\
<过程！所以本训练馆为了方便玩家互相切磋，并防止玩家之间/SCOLOR=146>\
<的欺骗行为。特开设了玩家对赌的平台，玩家可向全服玩家发/SCOLOR=146>\
<出邀请请来和你进行切磋赌术。当有玩家接受了您的邀请，你/SCOLOR=146>\
<们就可以在这里开始对赌！将有英雄合击系统进行摇骰子。/SCOLOR=146>\ \
<您现在是庄家/SCOLOR=250> <取回自己的元宝/@取回元宝>
#IF
EQUAL A490
#ACT
BREAK
#SAY
\ \
<尊敬的玩家/SCOLOR=146>{<$USERNAME>/SCOLOR=250}<您好！/SCOLOR=146>\
<很多人喜欢赌博并不是喜欢赌博输赢的结果，而是喜欢刺激的/SCOLOR=146>\
<过程！所以本训练馆为了方便玩家互相切磋，并防止玩家之间/SCOLOR=146>\
<的欺骗行为。特开设了玩家对赌的平台，玩家可向全服玩家发/SCOLOR=146>\
<出邀请请来和你进行切磋赌术。当有玩家接受了您的邀请，你/SCOLOR=146>\
<们就可以在这里开始对赌！将有系统进行摇骰子。/SCOLOR=146>\ \
<小赌修身养性，建议您不要将此项功能做为赌博沉迷！/SCOLOR=250> <我要坐庄/@开始坐庄>
#IF
#SAY
脚本版权：赌术服务员,传奇赌术服务员,传奇私服赌术服务员
\ \
<尊敬的玩家/SCOLOR=146>{<$USERNAME>/SCOLOR=250}<您好！/SCOLOR=146>\
<很多人喜欢赌博并不是喜欢赌博输赢的结果，而是喜欢刺激的/SCOLOR=146>\
<过程！所以本训练馆为了方便玩家互相切磋，并防止玩家之间/SCOLOR=146>\
<的欺骗行为。特开设了玩家对赌的平台，玩家可向全服玩家发/SCOLOR=146>\
<出邀请请来和你进行切磋赌术。当有玩家接受了您的邀请，你/SCOLOR=146>\
<们就可以在这里开始对赌！将有系统进行摇骰子。/SCOLOR=146>\ \
<庄家:/SCOLOR=146>{<$STR(A490)>/SCOLOR=250} <以赌金:/SCOLOR=146>{<$STR(G490)>/SCOLOR=250} <元宝挑战全服玩家/SCOLOR=146>\
<小赌修身养性，建议您不要将此项功能做为赌博沉迷！/SCOLOR=250> <接受挑战/@接受挑战>
[@开始坐庄]
#if
equal A400 <$USERNAME>
#ACT
messagebox 您现在处于坐庄状态无法重复坐庄
BREAK
#IF
#SAY
\ \
<你好,你可以选择赌法,并选择赌注的多少!/SCOLOR=146>\ \
<压大小：/SCOLOR=146><谁的点数大谁赢,点数相同算和/SCOLOR=250>\ \
<压点数：/SCOLOR=146><系统摇骰子,如果其他玩家猜中点数算你输/SCOLOR=250>\ \
<压大小/@大小> <压点数/@点数>
[@大小]
#if
large G490 0
#ACT
MESSAGEBOX 已经有人坐庄了
GOTO @MAIN
BREAK
#IF
#SAY
\ \
<您选择的是压大小玩法!/SCOLOR=146>\ \
<游戏开始后屏幕上出现两个骰子,/SCOLOR=146><左边的为庄家点数，右边为挑战者点数/SCOLOR=250>\
<谁的点数大谁赢!请输入你要压的金额!/SCOLOR=146>\ \
<点击输入元宝数目/@@InPutInteger3>
[@CALLInPutInteger3]
#if
LARGE G490 0
#ACT
MESSAGEBOX 已经有人坐庄了
GOTO @MAIN
BREAK
#IF
SMALL N3 1
#ACT
MESSAGEBOX [错误]非法输入,请输入大于1的数字
BREAK
脚本版权：赌术服务员,传奇赌术服务员,传奇私服赌术服务员
#IF
CHECKGAMEGOLD > <$STR(N3)>
#ACT
mov G491 1
GAMEGOLD - <$STR(N3)>
MOV G490 <$STR(N3)>
MOV A490 <$USERNAME>
SENDMSG 0 <$STR(A490)>在赌场坐庄了，赌博方式压大小，有人接受挑战么？
BREAK
#SAY
\ \
<压注成功,您以赌金：/SCOLOR=146>{<$STR(G490)>/SCOLOR=250} <元宝挑战全服玩家/SCOLOR=146>\
<玩法：/SCOLOR=146><压大小/SCOLOR=250>\
<您现在可以离开了，如果有玩家接受挑战,将会自动把你传回这里/SCOLOR=146>\
<如果半小时内无人接受挑战,元宝将自动返还到你帐号左边的为庄/SCOLOR=146>\
<家点数，右边为挑战者点数。谁的点数大谁赢./SCOLOR=146><所以半小时内不能/SCOLOR=250>\
<下线,否则一切后果自负/SCOLOR=250>\ \
<离开/@exit>
#ELSEACT
MESSAGEBOX [错误]您没有那么多的元宝,请重新输入.
BREAK
[@点数]
#if
LARGE G490 0
#ACT
MESSAGEBOX 已经有人坐庄了
GOTO @MAIN
BREAK
#IF
#SAY
\ \
<您选择的是压点数玩法/SCOLOR=146>\ \
<请输入你要压的金额/SCOLOR=146>\ \
<点击输入元宝数目/@@InPutInteger4>
[@CALLInPutInteger4]
#if
LARGE G490 0
#ACT
MESSAGEBOX 已经有人坐庄了
GOTO @MAIN
BREAK
#IF
SMALL N4 1
#ACT
MESSAGEBOX [错误]非法输入,请输入大于1的数字
BREAK
#IF
CHECKGAMEGOLD > <$STR(N4)>
#ACT
mov G491 2
GAMEGOLD - <$STR(N4)>
MOV G490 <$STR(N4)>
MOV A490 <$USERNAME>
SENDMSG 0 <$STR(A490)>在赌场坐庄了，赌博方式压点数，有人接受挑战么？
BREAK
#SAY
<压注成功,您以赌金：/SCOLOR=146>{<$STR(G490)>/SCOLOR=250} <元宝挑战全服玩家/SCOLOR=146>\
<玩法：/SCOLOR=146><压点数/SCOLOR=250>\
<您现在可以离开了,如果有玩家接受挑战,将会自动开始/SCOLOR=146>\ \
<离开/@exit>
#ELSEACT
MESSAGEBOX [错误]您没有那么多的元宝,请重新输入.
BREAK
[@取回元宝]
#IF
EQUAL A490 <$USERNAME>
#ACT
GAMEGOLD + <$STR(G490)>
MOV G490 0
MOV A490
MOV G491 0
goto @main
sendmsg 6 元宝已经取回
BREAK
[@接受挑战]
#IF
EQUAL G491 1
#ACT
BREAK
#SAY
\ \
<庄家：/SCOLOR=146>{<$STR(A490)>/SCOLOR=250} <赌金：/SCOLOR=146>{<$STR(G490)>/SCOLOR=250} <赌博方式：/SCOLOR=146><比大小/SCOLOR=250>\
<游戏开始后屏幕上出现两个骰子左边的为庄家点/SCOLOR=146>\
<数，右边为挑战者点数谁的点数大谁赢/SCOLOR=146>\ \
<确定接受挑战/@接受挑战1>请关注我们的网址 <还是算了/@EXIT>
#IF
EQUAL G491 2
#ACT
BREAK
#SAY
\ \
<庄家：/SCOLOR=146>{<$STR(A490)>/SCOLOR=250} <赌金：/SCOLOR=146>{<$STR(G490)>/SCOLOR=250} <赌博方式：/SCOLOR=146><比点数/SCOLOR=250>\
<系统摇骰子,你猜点数,如果你猜对了正确点数就赢/SCOLOR=146>\ \
<输入自己选择的点数接受挑战/@@InPutInteger5> <还是算了/@EXIT>
[@接受挑战1]
#if
LARGE G487 0
#ACT
MESSAGEBOX 已经有人接受挑战了
GOTO @MAIN
BREAK
#IF
CHECKONLINE <$STR(A490)>
#ACT
GOTO @接受挑战11
#ELSEACT
MOV A490
MOV A491
MOV G490 0
MOV G491 0
MOV G488 0
MOV G489 0
MOV G487 0
MOV G486 0
MESSAGEBOX 对方不在线,无法进行对赌
BREAK
[@接受挑战11]
#IF
CHECKGAMEGOLD > <$STR(G490)>
#ACT
GAMEGOLD - <$STR(G490)>
MOV A491 <$USERNAME>
MOVR G488 6
MOVR G489 6
INC G488 1
INC G489 1
MOV G487 1
GMEXECUTE 开始提问 @赌博开始了
BREAK
#SAY
\ \
<赌博马上开始,信息处理中,请稍等..../SCOLOR=146>
#ELSEACT
MESSAGEBOX [错误]您没有那么多的元宝,请重新输入.
BREAK
脚本版权：赌术服务员,传奇赌术服务员,传奇私服赌术服务员
[@CALLInPutInteger5]
#if
LARGE G486 0
#ACT
MESSAGEBOX 已经有人接受挑战了
GOTO @MAIN
BREAK
#IF
SMALL N5 1
#ACT
MESSAGEBOX 请输入大于1小于6的数字
BREAK
#IF
LARGE N5 6
#ACT
MESSAGEBOX 请输入大于1小于6的数字
BREAK
#IF
CHECKONLINE <$STR(A490)>
#ACT
GOTO @接受挑战21
#ELSEACT
MOV A490
MOV A491
MOV G490 0
MOV G491 0
MOV G488 0
MOV G489 0
MOV G487 0
MOV G486 0
MESSAGEBOX 对方不在线,无法进行对赌
BREAK
[@接受挑战21]
#IF
CHECKGAMEGOLD > <$STR(G490)>
#ACT
GAMEGOLD - <$STR(G490)>
MOV A491 <$USERNAME>
MOVR G488 6
INC G488 1
MOV G487 1
MOV G486 <$STR(N5)>
GMEXECUTE 开始提问 @赌博开始了
BREAK
#SAY
\ \
<赌博马上开始,信息处理中,请稍等..../SCOLOR=146>
#ELSEACT
MESSAGEBOX [错误]您没有那么多的元宝,请重新输入.
BREAK文章来至 |
/1 
