猜赛马小游戏纯源码

红颜脸庞仍娇俏

在群里看朋友娱乐，闲着没事用易语言实现一下

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
参赛选手	整数型	0
开始游戏	逻辑型
赛道长	整数型

子程序名	返回值类型	公开	备 注
_按钮2_被单击

开始游戏 ＝ 假

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

赛道长 ＝ 30
计次循环首 (10, )  ' 加入十个选手
加入成员 (参赛选手, 0)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

数组清零 (参赛选手)
开始游戏 ＝ 真
启动线程 (&开始游戏, 1, )  ' 取随机数来决定哪匹马前进一步
' 启动线程 (&开始游戏, 2, ) ' 所有马同步前进，前进步数随机

子程序名	返回值类型	公开	备 注
开始游戏
参数名	类 型	参考	可空	数组	备 注
方式	整数型

变量名	类 型	静态	数组	备 注
随机选手	整数型
i	整数型
距离	文本型
赛况	文本型

置随机数种子 ()
如果真 (方式 ＝ 1)  ' 取随机数来决定哪匹马前进一步
随机选手 ＝ 取随机数 (1, 取数组成员数 (参赛选手))
参赛选手 [随机选手] ＝ 参赛选手 [随机选手] ＋ 3

计次循环首 (取数组成员数 (参赛选手), i)
如果真 (方式 ＝ 2)  ' 所有马同步前进，前进步数随机
参赛选手 [i] ＝ 参赛选手 [i] ＋ 取随机数 (0, 6)
' 调试输出 (参赛选手 [i])

如果真 (参赛选手 [i] ≥ 赛道长)
参赛选手 [i] ＝ 赛道长
开始游戏 ＝ 假  ' 到终点了，结束本次游戏

计次循环尾 ()
' 调试输出 (参赛选手 [1], 参赛选手 [2], 参赛选手 [3], 参赛选手 [4], 参赛选手 [5])
计次循环首 (取数组成员数 (参赛选手), i)
距离 ＝ “”
计次循环首 (赛道长 － 参赛选手 [i], )
距离 ＝ 距离 ＋ “ ”  ' 加一个空格
计次循环尾 ()
距离 ＝ 到文本 (i) ＋ “:” ＋ 距离 ＋ “马”
赛况 ＝ 赛况 ＋ 距离 ＋ #换行符
计次循环尾 ()
调试输出 ( #换行符 ＋ 赛况 ＋ #换行符 ＋ “驾驾驾驾驾驾驾驾驾驾驾驾驾驾驾驾驾驾驾驾驾驾驾驾”)
延迟 (1000)
如果真 (开始游戏)
启动线程 (&开始游戏, 方式, )

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 参赛选手, 整数型, , "0"<br /> .程序集变量 开始游戏, 逻辑型<br /> .程序集变量 赛道长, 整数型<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 开始游戏 ＝ 假<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 赛道长 ＝ 30<br /> .计次循环首 (10, )  ' 加入十个选手<br />     加入成员 (参赛选手, 0)<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 数组清零 (参赛选手)<br /> 开始游戏 ＝ 真<br /> 启动线程 (&开始游戏, 1, )  ' 取随机数来决定哪匹马前进一步<br /> ' 启动线程 (&开始游戏, 2, ) ' 所有马同步前进，前进步数随机<br /> <br /> .子程序 开始游戏<br /> .参数 方式, 整数型<br /> .局部变量 随机选手, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 距离, 文本型<br /> .局部变量 赛况, 文本型<br /> <br /> 置随机数种子 ()<br /> .如果真 (方式 ＝ 1)  ' 取随机数来决定哪匹马前进一步<br />     随机选手 ＝ 取随机数 (1, 取数组成员数 (参赛选手))<br />     参赛选手 [随机选手] ＝ 参赛选手 [随机选手] ＋ 3<br /> .如果真结束<br /> <br /> .计次循环首 (取数组成员数 (参赛选手), i)<br />     .如果真 (方式 ＝ 2)  ' 所有马同步前进，前进步数随机<br />         参赛选手 <i> ＝ 参赛选手 <i> ＋ 取随机数 (0, 6)<br />         ' 调试输出 (参赛选手 <i>)<br />     .如果真结束<br /> <br />     .如果真 (参赛选手 <i> ≥ 赛道长)<br />         参赛选手 <i> ＝ 赛道长<br />         开始游戏 ＝ 假  ' 到终点了，结束本次游戏<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> ' 调试输出 (参赛选手 [1], 参赛选手 [2], 参赛选手 [3], 参赛选手 [4], 参赛选手 [5])<br /> .计次循环首 (取数组成员数 (参赛选手), i)<br />     距离 ＝ “”<br />     .计次循环首 (赛道长 － 参赛选手 <i>, )<br />         距离 ＝ 距离 ＋ “ ”  ' 加一个空格<br />     .计次循环尾 ()<br />     距离 ＝ 到文本 (i) ＋ “:” ＋ 距离 ＋ “马”<br />     赛况 ＝ 赛况 ＋ 距离 ＋ #换行符<br /> .计次循环尾 ()<br /> 调试输出 (#换行符 ＋ 赛况 ＋ #换行符 ＋ “驾驾驾驾驾驾驾驾驾驾驾驾驾驾驾驾驾驾驾驾驾驾驾驾”)<br /> 延迟 (1000)<br /> .如果真 (开始游戏)<br />     启动线程 (&开始游戏, 方式, )<br /> .如果真结束

quanneng

驾驾驾驾驾驾驾驾

992032820

猜赛马小游戏

一棍淫天下

感谢分享。。哈哈哈

fengyishen

感谢分享。。哈哈哈

忘却青丝尘念

驾驾驾驾驾驾驾驾

土豆W

感谢楼主66

qq403440535

驾驾驾驾驾驾驾驾驾驾驾，喻喻

szwkq

虽然不知道是啥游戏  走流程顶一下

外星星人

谢谢分享源码,虽然没过这游戏是啥