传奇版本*赌博脚本

[复制链接]
查看2251 | 回复0 | 2012-2-28 23:19:37 | 显示全部楼层 |阅读模式
(@@InPutInteger @@InPutString)
[@main]
#IF
CHECKVAR GLOBAL Mrrp_BJLKG = 0
ISADMIN
#ACT
MESSAGEBOX 赌城关闭中.请联系管理员开启...
GOTO @赌城管理
break
#IF
CHECKVAR GLOBAL Mrrp_BJLKG = 0
#ACT
MESSAGEBOX 赌城关闭中.请联系管理员开启...
break
#IF
CHECKVAR GLOBAL Mrrp_BJLKG = 1
#ACT
MOV N1 0
MOV N2 0
MOV N3 0
MOV N78 0
MOV P78 0
MOV P66 0
#IF
ISADMIN
#SAY
尊敬的管理员:『<$USERNAME>』您好!  <赌城管理/@赌城管理>\
#ELSESAY
尊敬的玩家:『<$USERNAME>』您好!\
#IF
#SAY
假如中奖的话,要扣掉5%佣金.你拥有元宝数量:<$GAMEGOLD>元宝\
下面按你的指示选择你要下注的选项.\
<Img:455:0:57:3/@庄><Img:456:0:112:3/@和><Img:457:0:167:3/@闲>\ \ \
     赔率:2倍    赔率:8倍    赔率:2倍\
离开局时间还剩下<$GLOBAL(Mrrp_BJLDJS)>秒,请抓紧时间下注!\
<熟悉规则/@熟悉规则>     <查看下注情况/@查看下注情况>             <返回盟重/@返回到盟重>  <刷新/@main>\
<Img:454:0:-31:15>\ \
<↓/AUTOCOLOR=249,250,154,253,254,255><上一局开奖结果/SCOLOR=254>    <历史开奖记录/SCOLOR=253> [<最近60局的开奖记录/SCOLOR=254>]\
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL01 =
#ELSESAY
<$GLOBAL(Mrrp_BJLKJJL01)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL02 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL02)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL03 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL03)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL04 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL04)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL05 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL05)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL06 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL06)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL07 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL07)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL08 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL08)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL09 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL09)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL10 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL10)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL11 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL11)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL12 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL12)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL13 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL13)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL14 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL14)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL15 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL15)>\
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL16 =
#ELSESAY
<$GLOBAL(Mrrp_BJLKJJL16)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL17 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL17)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL18 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL18)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL19 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL19)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL20 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL20)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL21 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL21)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL22 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL22)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL23 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL23)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL24 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL24)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL25 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL25)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL26 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL26)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL27 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL27)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL28 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL28)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL29 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL29)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL30 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL30)>\
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL31 =
#ELSESAY
<$GLOBAL(Mrrp_BJLKJJL31)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL32 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL32)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL33 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL33)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL34 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL34)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL35 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL35)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL36 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL36)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL37 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL37)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL38 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL38)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL39 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL39)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL40 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL40)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL41 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL41)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL42 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL42)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL43 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL43)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL44 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL44)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL45 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL45)>\
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL46 =
#ELSESAY
<$GLOBAL(Mrrp_BJLKJJL46)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL47 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL47)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL48 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL48)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL49 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL49)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL50 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL50)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL51 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL51)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL52 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL52)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL53 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL53)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL54 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL54)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL55 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL55)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL56 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL56)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL57 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL57)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL58 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL58)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL59 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL59)>
#IF
CHECKVAR GLOBAL Mrrp_BJLKJJL60 =
#ELSESAY
、<$GLOBAL(Mrrp_BJLKJJL60)>\
[@赌城管理]
#IF
ISADMIN
#SAY
一共有(<$GLOBAL(Mrrp_BJLZXZRS)>)人次参与了赌博,吃进(<$GLOBAL(Mrrp_BJLCJJE)>)元宝,赔出(<$GLOBAL(Mrrp_BJLPCJE)>)元宝\ \
『<设置开始提问GM命令/@@InPutString1>』目前开始提问GM命令为:<$GLOBAL(Mrrp_BJLKSTW)>\
#IF
ISADMIN
CHECKVAR GLOBAL Mrrp_BJLKG = 1
#SAY
目前赌城状态为:开放状态 您是管理员,可以『<关闭赌城/@赌城开关>』\
#IF
ISADMIN
CHECKVAR GLOBAL Mrrp_BJLKG = 0
#SAY
目前赌城状态为:关闭状态 您是管理员,可以『<开启赌城/@赌城开关>』\
#IF
ISADMIN
#SAY
注意:无论设置庄家或者闲家点数,都必须设置一号和二号点数,否则无效.\
『<设置庄家一号骰子点数/@@InPutInteger11>』目前庄家一号骰子点数为:<$GLOBAL(Mrrp_BJLZ1PDS)>\
『<设置庄家二号骰子点数/@@InPutInteger12>』目前庄家二号骰子点数为:<$GLOBAL(Mrrp_BJLZ2PDS)>\
『<设置闲家一号骰子点数/@@InPutInteger13>』目前闲家一号骰子点数为:<$GLOBAL(Mrrp_BJLX1PDS)>\
『<设置闲家二号骰子点数/@@InPutInteger14>』目前闲家二号骰子点数为:<$GLOBAL(Mrrp_BJLX2PDS)>\
                                               <返回/@main>
[@CallInPutInteger11]
#IF
ISADMIN
#ELSEACT
BREAK
#IF
LARGE N11 0
#ACT
CALCVAR GLOBAL Mrrp_BJLZ1PDS = <$STR(N11)>
MESSAGEBOX 设置成功,目前庄家一号骰子点数为:<$GLOBAL(Mrrp_BJLZ1PDS)>
MOV N11 0
GOTO @赌城管理
break
#ELSEACT
MESSAGEBOX 请输入大于0的数值.
MOV N11 0
GOTO @赌城管理
break
[@CallInPutInteger12]
#IF
ISADMIN
#ELSEACT
BREAK
#IF
LARGE N12 0
#ACT
CALCVAR GLOBAL Mrrp_BJLZ2PDS = <$STR(N12)>
MESSAGEBOX 设置成功,目前庄家二号骰子点数为:<$GLOBAL(Mrrp_BJLZ2PDS)>
MOV N12 0
GOTO @赌城管理
break
#ELSEACT
MESSAGEBOX 请输入大于0的数值.
MOV N12 0
GOTO @赌城管理
break
[@CallInPutInteger13]
#IF
ISADMIN
#ELSEACT
BREAK
#IF
LARGE N13 0
#ACT
CALCVAR GLOBAL Mrrp_BJLX1PDS = <$STR(N13)>
MESSAGEBOX 设置成功,目前闲家一号骰子点数为:<$GLOBAL(Mrrp_BJLX1PDS)>
MOV N13 0
GOTO @赌城管理
break
#ELSEACT
MESSAGEBOX 请输入大于0的数值.
MOV N13 0
GOTO @赌城管理
break
[@CallInPutInteger14]
#IF
ISADMIN
#ELSEACT
BREAK
#IF
LARGE N14 0
#ACT
CALCVAR GLOBAL Mrrp_BJLX2PDS = <$STR(N14)>
MESSAGEBOX 设置成功,目前闲家二号骰子点数为:<$GLOBAL(Mrrp_BJLX2PDS)>
MOV N14 0
GOTO @赌城管理
break
#ELSEACT
MESSAGEBOX 请输入大于0的数值.
MOV N14 0
GOTO @赌城管理
break
[@赌城开关]
#IF
ISADMIN
#ELSEACT
BREAK
#IF
CHECKVAR GLOBAL Mrrp_BJLKG = 0
#ACT
CALCVAR GLOBAL Mrrp_BJLKG = 1
SAVEVAR GLOBAL Mrrp_BJLKG ..\QuestDiary\Mrrp系列脚本\*系统\Mrrp_自定义全局变量数据.txt
MESSAGEBOX 开启赌城成功...
GOTO @赌城管理
break
#ELSEACT
CALCVAR GLOBAL Mrrp_BJLKG = 0
SAVEVAR GLOBAL Mrrp_BJLKG ..\QuestDiary\Mrrp系列脚本\*系统\Mrrp_自定义全局变量数据.txt
MESSAGEBOX 关闭赌城成功...
GOTO @赌城管理
break
[@CallInPutString1]
#IF
ISADMIN
#ELSEACT
BREAK
#IF
EQUAL S1
#ACT
GOTO @赌城管理
MESSAGEBOX 不能为空,请输入有效字符.
break
#ELSEACT
CALCVAR GLOBAL Mrrp_BJLKSTW = <$STR(S1)>
SAVEVAR GLOBAL Mrrp_BJLKSTW ..\QuestDiary\Mrrp系列脚本\*系统\Mrrp_自定义全局变量数据.txt
MOV S1
MESSAGEBOX 设置成功,目前开始提问GM命令为:<$GLOBAL(Mrrp_BJLKSTW)>
GOTO @赌城管理
break
[@熟悉规则]
#IF
#ACT
messagebox 点击押庄、和、闲、然后输入你想押下的元宝数量\等其他玩家赌注全部下好,由我摇动骰子!\中奖后玩家可获得相应赌注奖金,假如中奖的话,要扣掉5%佣金.\如果开出的结果和玩家下的点数不一致,赌注将不做返还\玩家获胜后系统自动把奖金增加到人物身上,\玩家游戏过程中不可强行退出,也不可以切换地图\不然会导致已投注及奖金无法返还,为了增加中奖率,\希望您记住每次开的数字研究后然后再慎重下赌注!\小赌怡情,娱乐为本,传奇gm论坛www.uc955.com祝愿大家金玉满堂!
[@查看下注情况]
当前这局选择〖<庄>〗的玩家一共有(<$GLOBAL(Mrrp_BJLZJXZRS)>)人,一共有(<$GLOBAL(Mrrp_BJLZXZZS)>)注\
当前这局选择〖<和>〗的玩家一共有(<$GLOBAL(Mrrp_BJLHXZRS)>)人,一共有(<$GLOBAL(Mrrp_BJLHXZZS)>)注\
当前这局选择〖<闲>〗的玩家一共有(<$GLOBAL(Mrrp_BJLXXZRS)>)人,一共有(<$GLOBAL(Mrrp_BJLXXZZS)>)注\ \ \
                                               <返回/@main>
 
[@返回到盟重]
#IF
#ACT
mapmove 3 330 330
break
[@庄]
当前选择〖<庄>〗的玩家一共有:(<$GLOBAL(Mrrp_BJLZJXZRS)>)人\
当前选择〖<庄>〗的赌注一共有:(<$GLOBAL(Mrrp_BJLZXZZS)>)注\
你拥有元宝数量:(<$GAMEGOLD>)元宝\ \
<请输入下注元宝数量/@@InPutInteger1>\ \ \
                                                     <返回/@main>
[@CallInPutInteger1]
#IF
CHECKVAR GLOBAL Mrrp_BJLDJS > 5
CHECKVAR GLOBAL Mrrp_BJLDJS < 61
#ELSEACT
MOV N1 0
MESSAGEBOX 对不起,目前已经封盘,请稍后下注...
break
#If
Check [66] 0
CHECKGAMEGOLD > <$STR(N1)>
LARGE N1 1
small N1 10001
#Act
Set [66] 1
GameGold - <$STR(N1)>
MOV P66 2
MUL N78 <$STR(N1)> <$STR(P66)>
DIV P78 <$STR(N78)> 20
DEC N78 <$STR(P78)>
CALCVAR HUMAN Mrrp_BJLZJXZ = <$STR(N1)>
CALCVAR HUMAN Mrrp_BJLZJJJ = <$STR(N78)>
CALCVAR HUMAN Mrrp_BJLZBKZ = <$STR(I4)>
CALCVAR GLOBAL Mrrp_BJLZJXZRS + 1
CALCVAR GLOBAL Mrrp_BJLZXZZS + <$STR(N1)>
CALCVAR GLOBAL Mrrp_BJLZXZRS + 1
CALCVAR GLOBAL Mrrp_BJLCJJE + <$STR(N1)>
SAVEVAR GLOBAL Mrrp_BJLZXZRS ..\QuestDiary\Mrrp系列脚本\*系统\Mrrp_自定义全局变量数据.txt
SAVEVAR GLOBAL Mrrp_BJLCJJE ..\QuestDiary\Mrrp系列脚本\*系统\Mrrp_自定义全局变量数据.txt
addnamelist ..\QuestDiary\Mrrp系列脚本\*系统\Mrrp_下注名单.txt
SENDMSG 4 『%s』押了(<$STR(N1)>)注〖庄〗,买定离手!
#SAY
恭喜你下注成功!\
你押了(<$STR(N1)>)注〖庄〗\
赔率〖<$STR(P66)>〗倍,假如中奖的话,扣掉了5%佣金后,你还可以获得(<$STR(N78)>)元宝\
当前选择〖<庄>〗的玩家一共有:(<$GLOBAL(Mrrp_BJLZJXZRS)>)人\
当前选择〖<庄>〗的赌注一共有:(<$GLOBAL(Mrrp_BJLZXZZS)>)注\
你剩余的元宝数量:(<$GAMEGOLD>)元宝\
<返回/@main>
#ELSEsay
下注的元宝数量应该在2-10000之间,你可能元宝数量不足,或你\已经下过注!
[@和]
当前选择〖<和>〗的玩家一共有:(<$GLOBAL(Mrrp_BJLHXZRS)>)人\
当前选择〖<和>〗的赌注一共有:(<$GLOBAL(Mrrp_BJLHXZZS)>)注\
你拥有元宝数量:(<$GAMEGOLD>)元宝\ \
<请输入下注元宝数量/@@InPutInteger2>\ \ \
                                                     <返回/@main>
[@CallInPutInteger2]
#IF
CHECKVAR GLOBAL Mrrp_BJLDJS > 5
CHECKVAR GLOBAL Mrrp_BJLDJS < 61
#ELSEACT
MOV N2 0
MESSAGEBOX 对不起,目前已经封盘,请稍后下注...
break
#If
Check [66] 0
CHECKGAMEGOLD > <$STR(N2)>
LARGE N2 1
small N2 10001
#Act
Set [66] 1
GameGold - <$STR(N2)>
MOV P66 8
MUL N78 <$STR(N2)> <$STR(P66)>
DIV P78 <$STR(N78)> 20
DEC N78 <$STR(P78)>
CALCVAR HUMAN Mrrp_BJLHJXZ = <$STR(N2)>
CALCVAR HUMAN Mrrp_BJLHJJJ = <$STR(N78)>
CALCVAR HUMAN Mrrp_BJLZBKZ = <$STR(I4)>
CALCVAR GLOBAL Mrrp_BJLHXZRS + 1
CALCVAR GLOBAL Mrrp_BJLHXZZS + <$STR(N2)>
CALCVAR GLOBAL Mrrp_BJLZXZRS + 1
CALCVAR GLOBAL Mrrp_BJLCJJE + <$STR(N2)>
SAVEVAR GLOBAL Mrrp_BJLZXZRS ..\QuestDiary\Mrrp系列脚本\*系统\Mrrp_自定义全局变量数据.txt
SAVEVAR GLOBAL Mrrp_BJLCJJE ..\QuestDiary\Mrrp系列脚本\*系统\Mrrp_自定义全局变量数据.txt
addnamelist ..\QuestDiary\Mrrp系列脚本\*系统\Mrrp_下注名单.txt
SENDMSG 4 『%s』押了(<$STR(N2)>)注〖和〗,买定离手!
#SAY
恭喜你下注成功!\
你押了(<$STR(N2)>)注〖和〗\
赔率〖<$STR(P66)>〗倍,假如中奖的话,扣掉了5%佣金后,你还可以获得(<$STR(N78)>)元宝\
当前选择〖<和>〗的玩家一共有:(<$GLOBAL(Mrrp_BJLHXZRS)>)人\
当前选择〖<和>〗的赌注一共有:(<$GLOBAL(Mrrp_BJLHXZZS)>)注\
你剩余的元宝数量:(<$GAMEGOLD>)元宝\
<返回/@main>
#ELSEsay
下注的元宝数量应该在2-10000之间,你可能元宝数量不足,或你\已经下过注!
[@闲]
当前选择〖<闲>〗的玩家一共有:(<$GLOBAL(Mrrp_BJLXXZRS)>)人\
当前选择〖<闲>〗的赌注一共有:(<$GLOBAL(Mrrp_BJLXXZZS)>)注\
你拥有元宝数量:(<$GAMEGOLD>)元宝\ \
<请输入下注元宝数量/@@InPutInteger3>\ \ \
                                                     <返回/@main>
[@CallInPutInteger3]
#IF
CHECKVAR GLOBAL Mrrp_BJLDJS > 5
CHECKVAR GLOBAL Mrrp_BJLDJS < 61
#ELSEACT
MOV N3 0
MESSAGEBOX 对不起,目前已经封盘,请稍后下注...
break
#If
Check [66] 0
CHECKGAMEGOLD > <$STR(N3)>
LARGE N3 1
small N3 10001
#Act
Set [66] 1
GameGold - <$STR(N3)>
MOV P66 2
MUL N78 <$STR(N3)> <$STR(P66)>
DIV P78 <$STR(N78)> 20
DEC N78 <$STR(P78)>
CALCVAR HUMAN Mrrp_BJLXJXZ = <$STR(N3)>
CALCVAR HUMAN Mrrp_BJLXJJJ = <$STR(N78)>
CALCVAR HUMAN Mrrp_BJLZBKZ = <$STR(I4)>
CALCVAR GLOBAL Mrrp_BJLXXZRS + 1
CALCVAR GLOBAL Mrrp_BJLXXZZS + <$STR(N3)>
CALCVAR GLOBAL Mrrp_BJLZXZRS + 1
CALCVAR GLOBAL Mrrp_BJLCJJE + <$STR(N3)>
SAVEVAR GLOBAL Mrrp_BJLZXZRS ..\QuestDiary\Mrrp系列脚本\*系统\Mrrp_自定义全局变量数据.txt
SAVEVAR GLOBAL Mrrp_BJLCJJE ..\QuestDiary\Mrrp系列脚本\*系统\Mrrp_自定义全局变量数据.txt
addnamelist ..\QuestDiary\Mrrp系列脚本\*系统\Mrrp_下注名单.txt
SENDMSG 4 『%s』押了(<$STR(N3)>)注〖闲〗,买定离手!
#SAY
恭喜你下注成功!\
你押了(<$STR(N3)>)注〖闲〗\
赔率〖<$STR(P66)>〗倍,假如中奖的话,扣掉了5%佣金后,你还可以获得(<$STR(N78)>)元宝\
当前选择〖<闲>〗的玩家一共有:(<$GLOBAL(Mrrp_BJLXXZRS)>)人\
当前选择〖<闲>〗的赌注一共有:(<$GLOBAL(Mrrp_BJLXXZZS)>)注\
你剩余的元宝数量:(<$GAMEGOLD>)元宝\
<返回/@main>
#ELSEsay
下注的元宝数量应该在2-10000之间,你可能元宝数量不足,或你\已经下过注!
发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则