求易语言写的小游戏源代码。

版本2

。装配窗装配1

。汇编变量的计算机分数，整数类型

。汇编变量自己打分，整型。

。组装变量电脑生成，整数型，，，1剪刀，2布，3石。

。子程序_ _开始窗口_已创建

设置随机数种子(花费启动时间())

_启动窗口。获得焦点()

。子程序_按钮石_点击

计算机输出=随机数(1，3)

给自己贴上标签。Title = "石头"

如果(计算机输出= 3)

标记对手。Title = "石头"

信息框(“平！”, 0, )

否则。

If(计算机输出= 1)

给对手贴标签。Title = "剪刀"

信息框(“赢！”, 0, )

自己的分数=自己的分数+1

否则。

给对手贴标签。Title = "布料"

信息框(“丢了！”, 0, )

计算机分数=计算机分数+1

如果结束了

如果结束了

标签分数。Title = "score:"+to text(计算机分数)+"-"+to text(自己的分数)

给自己贴上标签。Title = " "

标记对手。Title = " "

_启动窗口。获得焦点()

。子程序_按钮剪刀_点击

计算机输出=随机数(1，3)

给自己贴上标签。Title = "剪刀"

如果(计算机输出= 3)

标记对手。Title = "石头"

信息框(“丢了！”, 0, )

计算机分数=计算机分数+1

否则。

If(计算机输出= 1)

给对手贴标签。Title = "剪刀"

信息框(“平！”, 0, )

否则。

给对手贴标签。Title = "布料"

信息框(“赢！”, 0, )

自己的分数=自己的分数+1

如果结束了

如果结束了

标签分数。Title = "score:"+to text(计算机分数)+"-"+to text(自己的分数)

给自己贴上标签。Title = " "

标记对手。Title = " "

_启动窗口。获得焦点()

。子程序_ button cloth _被点击。

计算机输出=随机数(1，3)

给自己贴上标签。Title = "布料"

如果(计算机输出= 3)

标记对手。Title = "石头"

信息框(“赢！”, 0, )

自己的分数=自己的分数+1

否则。

If(计算机输出= 1)

给对手贴标签。Title = "剪刀"

信息框(“丢了！”, 0, )

计算机分数=计算机分数+1

否则。

给对手贴标签。Title = "布料"

信息框(“平！”, 0, )

如果结束了

如果结束了

标签分数。Title = "score:"+to text(计算机分数)+"-"+to text(自己的分数)

给自己贴上标签。Title = " "

标记对手。Title = " "

_启动窗口。获得焦点()

。子程序_ _ Start window _ Release a键，逻辑类型

参数键码，整数类型

参数功能键状态，整数类型

判断开始(键码= # z键)

_ Button Stone _ Click()

。判断(键码= # x键)

_按钮剪刀_ Click()

。判断(键码= # c键)

_ Button Cloth _ Click()

。默认

审判结束