易语言开发小游戏
1.程序部分
.程序集 窗口程序集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)
显示冠军 (冠军)
.如果真结束
2.图片资源表
.图片 终点线
.图片 兔子一号
.图片 乌龟一号
.图片 小猪一号
3.前台画面