简单的石头剪刀布游戏

チ一┰墮ク落

[e=4].版本 2
.支持库 iext

.程序集 窗口程序集1
.程序集变量 n, 整数型
.程序集变量 a, 整数型
.程序集变量 b, 整数型
.程序集变量 c, 整数型

.子程序 _图形按钮1_被单击, , , 石头

时钟1.时钟周期 ＝ 0
n ＝ 取随机数 (1, 3)

.判断开始 (n ＝ 1)
图片框1.图片 ＝ #石头
_启动窗口.标题 ＝ “都一样 平局”

.判断 (n ＝ 2)
图片框1.图片 ＝ #剪刀
_启动窗口.标题 ＝ “加一分”
a ＝ a ＋ 1
透明标签2.标题 ＝ “玩家” ＋ 到文本 (a) ＋ “分”
.判断 (n ＝ 3)
图片框1.图片 ＝ #布
_启动窗口.标题 ＝ “运气真差”
b ＝ b ＋ 1
透明标签3.标题 ＝ “电脑” ＋ 到文本 (b) ＋ “分”
.默认

.判断结束
.判断开始 (a ＝ 10 且 a ≥ b)
信息框 (“你好棒！赢得漂亮”, 0, )
载入 (窗口1, , 真)
.判断 (b ＝ 10 且 b ≥ a)
信息框 (“诶呀！你输了”, 0, )
.默认

.判断结束




.子程序 _图形按钮2_被单击, , , 剪刀

时钟1.时钟周期 ＝ 0
n ＝ 取随机数 (1, 3)

.判断开始 (n ＝ 1)
图片框1.图片 ＝ #石头
_启动窗口.标题 ＝ “运气真差”
b ＝ b ＋ 1
透明标签3.标题 ＝ “电脑” ＋ 到文本 (b) ＋ “分”
.判断 (n ＝ 2)
图片框1.图片 ＝ #剪刀
_启动窗口.标题 ＝ “都一样 平局”
.判断 (n ＝ 3)
图片框1.图片 ＝ #布
_启动窗口.标题 ＝ “加一分”
a ＝ a ＋ 1
透明标签2.标题 ＝ “玩家” ＋ 到文本 (a) ＋ “分”

.默认

.判断结束
.判断开始 (a ＝ 10 且 a ≥ b)
信息框 (“你好棒！赢得漂亮”, 0, )
载入 (窗口1, , 真)
.判断 (b ＝ 10 且 b ≥ a)
信息框 (“诶呀！你输了”, 0, )
.默认

.判断结束


.子程序 _图形按钮3_被单击, , , 布

时钟1.时钟周期 ＝ 0
n ＝ 取随机数 (1, 3)

.判断开始 (n ＝ 1)
图片框1.图片 ＝ #石头
_启动窗口.标题 ＝ “加一分”
a ＝ a ＋ 1
透明标签2.标题 ＝ “玩家” ＋ 到文本 (a) ＋ “分”
.判断 (n ＝ 2)
图片框1.图片 ＝ #剪刀
_启动窗口.标题 ＝ “运气真差”
b ＝ b ＋ 1
透明标签3.标题 ＝ “电脑” ＋ 到文本 (b) ＋ “分”
.判断 (n ＝ 3)
图片框1.图片 ＝ #布
_启动窗口.标题 ＝ “都一样 平局”
.默认

.判断结束
.判断开始 (a ＝ 10 且 a ≥ b)
信息框 (“你好棒！赢得漂亮”, 0, )
载入 (窗口1, , 真)
.判断 (b ＝ 10 且 b ≥ a)
信息框 (“诶呀！你输了”, 0, )
.默认

.判断结束





.子程序 _时钟1_周期事件

n ＝ 取随机数 (1, 3)
.如果真 (n ＝ 1)
图片框1.图片 ＝ #石头
.如果真结束
.如果真 (n ＝ 2)
图片框1.图片 ＝ #剪刀
.如果真结束
.如果真 (n ＝ 3)
图片框1.图片 ＝ #布
.如果真结束


.子程序 _时钟2_周期事件

透明标签1.文本颜色 ＝ 取颜色值 (取随机数 (0, 225), 取随机数 (0, 225), 取随机数 (0, 225))






.子程序 _按钮1_被单击

写到文件 (“D:\音乐.mp3”, #音乐)
播放MP3 (-1, “D:\音乐.mp3”)


.子程序 _按钮2_被单击

透明标签2.标题 ＝ “玩家0分”
透明标签3.标题 ＝ “电脑0分”
连续赋值 (0, a, b)
透明标签2.取消重画 ()
透明标签2.取消重画 ()


.子程序 _时钟4_周期事件

透明标签4.标题 ＝ 到文本 (取现行时间 ())
http://pan.baidu.com/s/1qWoaq7q

大香蕉

好玩，真好玩，联网的更好玩，输的玩家要被赢的玩家删除一个文件，这样的规则会有人玩吗

魔方软件

改成联网的就不错了，

チ一┰墮ク落

旋木 发表于 2014-8-9 07:43
附件怎么不上传到论坛来了

附件2.4M上不去啊

旋木

附件怎么不上传到论坛来了