[50指令]骰子比大小功能

游客

骰子3个，和庄家比大小．之所以不用赌大小，是因为不管怎么变化都只有 1/2 机率，
而比大小会根据庄家掷出点数使获胜机率多变化，可玩性较高．
甚至可以加入猜数字功能，不过这个获胜机率太小了吧？

测试前的准备动作：
对话2977内容：你赢了．
对话2978内容：你输了．
对话2979内容：%d
对话2980内容：庄家回合：
对话2981内容：玩家回合：
对话2982内容：赌一次10两．
对话2983内容：不好意思，你的钱不足．

smp场景贴图：4129为一点；4130为二点；4131为三点；4132为四点；4133为五点；4134为六点
＊记得将骰子的四边角上透明色．






小生初出茅庐，难免有未尽善之处，还请各位大人包容
教学的传承是必要的，很闲的人可以讲解，我写的很简单应该容易入门吧？


;Kdefnum=825
  1 2982 73 4                    ;  1(1):[南贤]说: 赌一次10两．
  0                              ;  0(0)::空语句(清屏)
  11 2 0                         ;  11(B):是否住宿是则跳转到:Label0
  0                              ;  0(0)::空语句(清屏)
  -1                             ;  -1(FFFF):事件结束
;:Label0
  0                              ;  0(0)::空语句(清屏)
  31 10 6 0                      ;  31(1F):判断银子是否够10是则跳转到:Label1
  1 2983 73 4                    ;  1(1):[南贤]说: 不好意思，你的钱不足．
  0                              ;  0(0)::空语句(清屏)
  -1                             ;  -1(FFFF):事件结束
;:Label1
  32 174 -10                     ;  32(20):物品[银两]+[-10]
  1 2980 73 4                    ;  1(1):[南贤]说: 庄家回合：
  0                              ;  0(0)::空语句(清屏)
  50 0 0 0 -1 -1 -1 -1           ;  50(32):变量赋值 [X0]=0
  50 4 0 6 0 0 0 0               ;  50(32):变量判断  JMP=0
  36 256 5 0                     ;  36(24):跳转变量JMP是否为0是则跳转到:Label2
;:Label8
  1 2981 0 0                     ;  1(1):[金庸]说: 玩家回合：
  0                              ;  0(0)::空语句(清屏)
;:Label2
  50 34 0 60 140 200 50 0        ;  50(32):处理背景 位置(60,140) Width=200 Height=50
  50 0 1 0 -1 -1 -1 -1           ;  50(32):变量赋值 [X1]=0
;:Label6
  50 4 0 5 1 50 -1 -1            ;  50(32):变量判断 If[X1]>50 then JMP=0 else JMP=1
  36 256 40 0                    ;  36(24):跳转变量JMP是否为0是则跳转到:Label3
  50 38 0 6 2 -1 -1 -1           ;  50(32):随机数 [X2]=Random(6)
  50 3 0 2 3 2 2 0               ;  50(32):四则运算 [X3]=[X2]*2
  50 3 0 0 3 3 8258 0            ;  50(32):四则运算 [X3]=[X3]+8258
  50 41 4 0 100 170 3 -1         ;  50(32):显示图片 场景图片[X3] 位置(100,170)
  50 37 0 2 -1 -1 -1 -1          ;  50(32):延时 延时2
;:Label3
  50 4 0 5 1 100 -1 -1           ;  50(32):变量判断 If[X1]>100 then JMP=0 else JMP=1
  36 256 40 0                    ;  36(24):跳转变量JMP是否为0是则跳转到:Label4
  50 38 0 6 4 -1 -1 -1           ;  50(32):随机数 [X4]=Random(6)
  50 3 0 2 5 4 2 0               ;  50(32):四则运算 [X5]=[X4]*2
  50 3 0 0 5 5 8258 0            ;  50(32):四则运算 [X5]=[X5]+8258
  50 41 4 0 160 170 5 -1         ;  50(32):显示图片 场景图片[X5] 位置(160,170)
  50 37 0 3 -1 -1 -1 -1          ;  50(32):延时 延时3
;:Label4
  50 38 0 6 6 -1 -1 -1           ;  50(32):随机数 [X6]=Random(6)
  50 3 0 2 7 6 2 0               ;  50(32):四则运算 [X7]=[X6]*2
  50 3 0 0 7 7 8258 0            ;  50(32):四则运算 [X7]=[X7]+8258
  50 41 4 0 220 170 7 -1         ;  50(32):显示图片 场景图片[X7] 位置(220,170)
  50 4 0 2 1 0 -1 -1             ;  50(32):变量判断 If[X1]=0  then JMP=0 else JMP=1
  36 256 0 8                     ;  36(24):跳转变量JMP是否为0否则跳转到:Label5
  50 37 0 300 -1 -1 -1 -1        ;  50(32):延时 延时300
;:Label5
  50 37 0 5 -1 -1 -1 -1          ;  50(32):延时 延时5
  50 3 0 0 1 1 1 -1              ;  50(32):四则运算 [X1]=[X1]+1
  50 4 0 1 1 150 -1 -1           ;  50(32):变量判断 If[X1]<=150 then JMP=0 else JMP=1
  36 256 -184 0                  ;  36(24):跳转变量JMP是否为0是则跳转到:Label6
  50 37 0 300 -1 -1 -1 -1        ;  50(32):延时 延时300
  50 3 1 0 8 2 4 0               ;  50(32):四则运算 [X8]=[X2]+[X4]
  50 3 1 0 8 8 6 0               ;  50(32):四则运算 [X8]=[X8]+[X6]
  50 3 0 0 8 8 3 0               ;  50(32):四则运算 [X8]=[X8]+3
  50 4 0 2 0 1 -1 -1             ;  50(32):变量判断 If[X0]=1  then JMP=0 else JMP=1
  36 256 8 0                     ;  36(24):跳转变量JMP是否为0是则跳转到:Label7
  50 3 0 0 9 8 0 0               ;  50(32):四则运算 [X9]=[X8]+0
;:Label7
  50 8 0 2979 1000 0 0 0         ;  50(32):读对话到字符串  Str1000=talk(2979)
  50 9 1 1100 1000 8 0 0         ;  50(32):Sprintf  Str1100=Cstr([X8]) FORMAT=Str1000
  50 33 0 1100 155 168 1797 -1   ;  50(32):显示字符串 显示字符串1100 (155,168)Color1797
  50 35 10 0 0 0 0 0             ;  50(32):读取键盘 [X10]=键值
  0                              ;  0(0)::空语句(清屏)
  50 3 0 0 0 0 1 0               ;  50(32):四则运算 [X0]=[X0]+1
  50 4 0 2 0 1 -1 -1             ;  50(32):变量判断 If[X0]=1  then JMP=0 else JMP=1
  36 256 -310 0                  ;  36(24):跳转变量JMP是否为0是则跳转到:Label8
  50 4 1 1 8 9 0 0               ;  50(32):变量判断 If[X8]<=[X9] then JMP=0 else JMP=1
  36 256 19 0                    ;  36(24):跳转变量JMP是否为0是则跳转到:Label9
  32 174 20                      ;  32(20):物品[银两]+[20]
  50 0 11 2977 0 0 0 0           ;  50(32):变量赋值 [X11]=2977
  50 32 0 11 3 0 0 0             ;  50(32):修改下一条指令参数 下一条指令参数3=[X11]
;:Label9
  50 8 0 2978 1200 0 0 0         ;  50(32):读对话到字符串  Str1200=talk(2978)
  50 36 0 1200 120 100 26211 -1   ;  50(32):显示字符串并等待击键 显示字符串1200 (120,100)Color26211
  -1                             ;  -1(FFFF):事件结束

[ 本帖最后由 游客 于 2007-1-20 20:37 编辑 ]

x0x

唔，感觉挺好的
就是延时500太长了
减半就差不多了

[ 本帖最后由 x0x 于 2007-1-17 14:24 编辑 ]

KG

支持一下~~~~~` 不过好像内定了是“大”才赢，没得选择？

[ 本帖最后由 KG 于 2007-1-17 19:28 编辑 ]

游客

我本来也是想选择赌大赌小作押注，不过测试发现出现12以下的机率很高 ，玩家会倾向赌小，所以就变成庄家和玩家赌谁比较大，不过目前还没完善，庄家部分还没设置（应该加几条指令就够），还可以增加下注金额等等，待我再花时间完善．

南宫梦

随机数你试验下6内随机A
然后2内随机B
如果B=0，则A=A
如果B=1，则A=5-A
甚至更多限制
猜想这样应该可以避免开小的几率
（以上未经测试）

KG

楼上的作为一名数学老师，不听也得听，唉~谁叫我数学学得烂~~~~~~~