易语言开发小游戏实例

.程序集 窗口程序集1
.程序集变量 数组, 整数型, , "3"
.程序集变量 冠军, 整数型
.程序集变量 终点, 整数型
.程序集变量 到终点个数, 整数型

.子程序 显示物体

动画物体.缩放比 ＝ 212
动画物体.类型值 ＝ 0
数组 [1] ＝ 动画框.创建物体 (动画物体, 10, 30, 真, “1”)
动画框.置层次 (数组 [1], 1)
动画框.置图片 (数组 [1], #兔子一号, )

动画物体.缩放比 ＝ 500
数组 [2] ＝ 动画框.创建物体 (动画物体, 10, 100, 真, “2”)
动画框.置层次 (数组 [2], 1)
动画框.置图片 (数组 [2], #乌龟一号, )

数组 [3] ＝ 动画框.创建物体 (动画物体, 10, 170, 真, “3”)
动画框.置层次 (数组 [3], 1)
动画框.置图片 (数组 [3], #小猪一号, )

动画物体.缩放比 ＝ 1500
动画物体.类型值 ＝ 1
终点 ＝ 动画框.创建物体 (动画物体, 666, -10, 假, “终点”)
动画框.置图片 (终点, #终点线, 0)
动画框.置层次 (终点, 1)


.子程序 __启动窗口_创建完毕

显示物体 ()

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

冠军 ＝ 0
终点 ＝ 0
动画框.播放动画 (数组 [1], 0, , , )
动画框.播放动画 (数组 [2], 0, , , )
动画框.播放动画 (数组 [3], 0, , , )
动画框.自动前进 (数组 [1], 到数值 (编辑框1.内容), 30, , , 真, , 真, , )
动画框.自动前进 (数组 [2], 到数值 (编辑框2.内容), 30, , , 真, , 真, , )
动画框.自动前进 (数组 [3], 到数值 (编辑框3.内容), 30, , , 真, , 真, , )


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

动画框.销毁所有物体 ()
显示物体 ()

.子程序 显示冠军
.参数 冠军号, 整数型
.局部变量 标识值_临时1, 整数型
.局部变量 标识值_临时2, 整数型

.判断开始 (冠军号 ＝ 数组 [1])
标识值_临时1 ＝ 动画框.创建物体 (动画物体, 200, 200, 真, )
动画框.置图片 (标识值_临时1, #兔子一号, )
动画框.播放动画 (标识值_临时1, 0, , , )
标识值_临时2 ＝ 动画框.创建物体 (动画物体, 200, 200, 真, )
动画框.置文本 (标识值_临时2, “兔子赢了！”, , )
.判断 (冠军号 ＝ 数组 [2])
标识值_临时1 ＝ 动画框.创建物体 (动画物体, 200, 200, 真, )
动画框.置图片 (标识值_临时1, #乌龟一号, )
动画框.播放动画 (标识值_临时1, 0, , , )
标识值_临时2 ＝ 动画框.创建物体 (动画物体, 200, 200, 真, )
动画框.置文本 (标识值_临时2, “乌龟赢了！”, , )
.判断 (冠军号 ＝ 数组 [3])
标识值_临时1 ＝ 动画框.创建物体 (动画物体, 200, 200, 真, )
动画框.置图片 (标识值_临时1, #小猪一号, )
动画框.播放动画 (标识值_临时1, 0, , , )
标识值_临时2 ＝ 动画框.创建物体 (动画物体, 200, 200, 真, )
动画框.置文本 (标识值_临时2, “小猪赢了！”, , )
.默认

.判断结束


.子程序 _动画框_碰撞到物体
.参数 碰撞物体标识值, 整数型
.参数 碰撞前横坐标, 整数型
.参数 碰撞前纵坐标, 整数型
.参数 被碰撞物体标识值, 整数型

到终点个数 ＝ 到终点个数 ＋ 1
.如果真 (冠军 ＝ 0)
冠军 ＝ 碰撞物体标识值
.如果真结束

.如果真 (到终点个数 ＝ 3)
显示冠军 (冠军)
.如果真结束